VB考试试卷及答案一

《VB考试试卷及答案一》由会员分享，可在线阅读，更多相关《VB考试试卷及答案一（9页珍藏版）》请在装配图网上搜索。

1、细心整理Visual Basic程序设计根底试题一每题2分，共10分阅读以下程序说明和程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序说明】过程JiSuan用于计算e = 1 + 1/1! + 1/2! + 1/3! + +1/n!的值，直至末项小于0.00001不包含小于0.00001的项，并用消息框显示结果。【程序】Option ExplicitPrivate Sub JiSuan() Dim e As single, (1) , i As long e = 1: t = 1: (2) (3) i = i + 1: e = e + t: (4) Loop (5) End Sub

2、【供选择的答案】（1） A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2） A、i = 1 B、i = 2 C、i = 0 D、i = 3（3） A、While t = 0.00001 B、Do While t = 0.00001C、While e = 0.00001 D、Do While e = 0.00001（4） A、t = t * i B、t = 1/(i * t) C、t = t / i D、t = 1 / i（5） A、MsgBox 近似值为： + tB、MsgBox 近似值为： & tC、MsgBo

3、x 近似值为： + eD、MsgBox 近似值为： & e试题二每题2分，共8分阅读以下程序说明和程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 单击“加粗”复选框Check1,假设复选框被选中，那么设置标签(Label1)上显示的文字为加粗，否那么设置为不加粗。2. 单击“选择颜色”按钮(Command1)将显示“颜色”对话框，假设单项选择按钮“前风光”Option1被选中，那么设置Label1的前风光为用户选择的颜色，否那么设置Label1的背风光为用户选择的颜色。通用对话框控件名称为CommonDialog1。【程序

4、】Private Sub Check1_Click() Label1.FontBold = False If (6) Then Label1.FontBold = TrueEnd SubPrivate Sub Command1_Click() Dim c As Long : (7) : c = (8) If (9) Then Label1.ForeColor = c Else Label1.BackColor = cEnd Sub【供选择的答案】（6） A、Check1.Value = True B、Check1.Value = FalseC、Check1.Value = 1 D、Check1

5、.Value = 0（7） A、CommonDialog1.ShowOpen B、CommonDialog1.ShowColorC、CommonDialog1.ShowSave D、CommonDialog1.Action = 1（8） A、CommonDialog1.ForeColor B、CommonDialog1.FontColorC、CommonDialog1.BackColor D、CommonDialog1.Color（9） A、Option1.Value B、Option1.Value = 1C、Option1.Value = false D、Option1.Value = 0试

6、题三每题2分，共10分阅读以下程序说明和程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序说明】 程序界面如上面两图所示，程序运行时要求有以下功能：1. 当用户单击“增加”按钮(Command1)，假设文本框(Text1)中的内容不为空，那么将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。2. 当用户单击“删除”按钮(Command2)，假设列表框中没有表项被选中，那么用消息框提示“没有选择表项”，否那么删除被选中的表项。3. 文本框仅允许输入数字字符及退格字符(ASCII码值为8)。【程序】Private Sub Command1_Click() Dim s As S

7、tring, t As Strings = Text1.Text If s = Then Exit Sub (10) : Text1.SetFocus Text1.SelStart = 0: (11) End SubPrivate Sub Command2_Click() If List1.ListIndex = -1 Then MsgBox 没有选择表项 Else (12) End SubPrivate Sub Text1_ (13) If (14) Then KeyAscii = 0End Sub【供选择的答案】（10） A、List1.AddItem s，List1.ListCount

8、B、List1.AddItem s, 0C、List1.AddItem s, List1.ListCount - 1 D、List1.AddItem s；0（11） A、Text1.SelLength = Len(Text1.Text)B、Text1.SelLength = Len(Text1.SelText)C、Text1.SelText = Text1.TextD、Text1.Text = Text1.SelText（12） A、List1.RemoveItem List1.TextB、List1.RemoveItem List1.ListCountC、List1.RemoveItem L

9、ist1.ListIndex 1D、List1.RemoveItem List1.ListIndex（13） A、KeyPress(KeyAscii As Integer) B、Change(KeyAscii As Integer)C、Change D、KeyPress(KeyAscii As String)（14） A、(KeyAscii Asc(9) or KeyAscii Asc(9) And KeyAscii Asc(9) or KeyAscii Asc(0) And KeyAscii 8D、KeyAscii Asc(9) and KeyAscii Asc(0) and KeyAsci

10、i 8试题四每题2分，共14分阅读以下程序说明和程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 单击“排序”按钮(Command1)，将左边文本框(Text1)中的字符按从小到大的依次排列，并显示到右边文本框(Text2)中。【程序】Private Sub Command1_Click() Dim s As String, c() As String, slen As Integer Dim i As Integer, j As Integer, p As Integer s = Trim(Text1.Text) slen

11、 = _ (15) : _ (16) For i = 1 To slen c(i) = _ (17) Next i For i = 1 To slen - 1 p = i For j = _ (18) If _ (19) Then p = j Next j If p i Then _ (20) Text2.Text = Text2.Text + c(i) Next i Text2.Text = _ (21) End SubPrivate Sub swap(a As String, b As String) Dim t As String: t = a: a = b: b = tEnd Sub【

12、供选择的答案】（15） A、Len(s) B、Val(s) C、Asc(s) D、Length(s)（16） A、ReDim c() B、Dim c() as string C、ReDim c(1 to slen) D、Dim c(1 to slen)（17） A、Mid(s,i) B、Left(s,i) C、Mid(s,i,1) D、Asc(Mid(s,i,1)（18） A、1 to slen-i B、i+1 to slen C、i to slen-1 D、1 to slen（19） A、c(p)c(j) B、c(p)c(j) C、c(i)c(j)（20） A、swap c(p),c(i)

13、B、Call swap c(p),c(i)C、swap c(p),c(j) D、Call swap(c(p),c(j)（21） A、Text2.Text + c(j) B、Text2.Text + c(i)C、c(j) D、c(i)试题五每题2分，共8分阅读以下程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序】Dim a As BytePrivate Sub Form_click() Dim a As Byte (1) a = a + 2 Call aa(a) (2) Print a;End SubSub aa(b As Byte) (3) b = a + 2End Sub【供选择

14、的答案】（22） 单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（23） 其它代码不变，仅将程序中的语句1前面的单引号“”删除，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（24） 其它代码不变，仅将程序中的语句2改为call aa(a+2)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（25） 其它代码不变，仅将程序中的语句3改成sub aa(byval b as byte)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8试题六每

15、题2分，共12分阅读以下程序说明和程序，在每题供应的假设干可选答案中，选择一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 单击影像框(Image1)，定时器timer1起先运行；再次单击影像框，定时器停顿运行。2. 定时器运行时，每隔必需时间更换影像框中的图片：第1次显示“c:pic1.bmp”的图片，第2次显示“c:pic2.bmp”的图片，第3次显示“c:pic3.bmp”的图片，第4次又显示“c:pic1.bmp”的图片依次类推。3. 滚动条(HScroll1)用于限制定时器Timer1的Timer事务时间间隔。 【程序】Dim i As BytePriv

16、ate Sub Form_Load() HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000 HScroll1.LargeChange = 3000: HScroll1.Value = 1000 : i = 1 Timer1.Enabled = False: Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Change() _ (26) End SubPrivate Sub Image1_Click() _ (27) End SubPr

17、ivate Sub Timer1_Timer() Dim fn As String fn = c:pic +_ (28) + .bmp _ (29) if i 3 y = x + 3 Case Is = 1 y = x * x Case Is 0 y = Sqr(x) Case Else y = 0 End Select Print y 1分End Sub试题九：8函数头定义2分，其中数组参数定义1分，返回值类型1分Function CalcAVG(a() As Single, n As Integer) As Single Dim h As Single, i As Integer 变量定义

18、1分 For i = 1 To n 循环2分 h = h + a(i) 累加1分 Next i CalcAVG = h / n 函数赋值1分,求平均值1分End Function试题十：14Private Sub Command1_Click() End 1分End SubPrivate Sub Form_Load() = *.txt 1分End SubPrivate Sub Dir1_Change() = Dir1.Path 1分End SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive 1分End SubPrivate Sub () Dim fs As String, s As String 获得完整文件名3分 If Right(, 1) = Then fs = + Else fs = + + End If Open fs For Input As #1 翻开文件2分 While Not EOF(1) 循环2分Line Input #1, s 读取行1分累加1分 Text1.Text = Text1.Text + s + Chr(13) + Chr(10) Wend Close #1 翻开文件1分End Sub细心整理