VB考试试卷及答案一

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、t = t * i B、t = 1/(i * t) C、t = t / i D、t = 1 / i（4） A、MsgBox "近似值为：" + tB、MsgBox "近似值为：" & tC、MsgBox "近似值为：" + eD、MsgBox "近似值为：" & e试题二每题2分

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

4、old = 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【供选择的答案】（5） A、Check1.Value = True B、Check1.Value = FalseC、 = 1 D、 = 0（6） A、 B、C、 D、CommonDialog1.Action = 1（7） A、CommonDial

5、og1.ForeColor B、CommonDialog1.FontColorC、CommonDialog1.BackColor D、CommonDialog1.Color（8） A、Option1.Value B、Option1.Value = 1C、Option1.Value = false D、Option1.Value = 0试题三每题2分，共10分阅读以下程序说明和程序，在每题提供的假设干可选答案中，挑选一个正确答案。【程序说明】程序界面如上面两图所示，程序运行时要求有以下功能：1. 当用户单击“增加按钮(Command1)，假设文本框(Text1)中的内容不为空，那么将文本框中的内

6、容添加到列表框末尾，并自动将文本框中的内容选中。2. 当用户单击“删除按钮(Command2)，假设列表框中没有表项被选中，那么用消息框提示“没有选择表项，否那么删除被选中的表项。3. 文本框仅允许输入数字字符及退格字符(ASCII码值为8)。【程序】Private Sub Command1_Click() Dim s As String, t As String If s = "" Then Exit Sub (10) Text1.SelStart = 0: (11) End SubPrivate Sub Command2_Click() If List1.ListInd

7、ex = -1 Then MsgBox "没有选择表项" Else (12) End SubPrivate Sub Text1_ (13) If (14) Then KeyAscii = 0End Sub【供选择的答案】（9） A、 s， B、 s, 0C、 s, - 1 D、 s；0（10） A、Text1.SelLength = Len(Text1.Text)B、Text1.SelLength = Len(Text1.SelText)C、 = D、 = （11） A、B、 C、 1D、 （12） A、KeyPress(KeyAscii As Integer) B、Cha

8、nge(KeyAscii As Integer)C、Change D、KeyPress(KeyAscii As String)（13） A、(KeyAscii > Asc("9") or KeyAscii < Asc("0") and KeyAscii = 8B、KeyAscii > Asc("9") And KeyAscii < Asc("0") Or KeyAscii = 8C、(KeyAscii > Asc("9") or KeyAscii < Asc(

9、"0") And KeyAscii <> 8D、KeyAscii > Asc("9") and KeyAscii < Asc("0") and KeyAscii <> 8试题四每题2分，共14分阅读以下程序说明和程序，在每题提供的假设干可选答案中，挑选一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 单击“排序按钮(Command1)，将左边文本框(Text1)中的字符按从小到大的顺序排列，并显示到右边文本框(Text2)中。【程序】Private Sub Comman

10、d1_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 = _ (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 = T

11、ext2.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【供选择的答案】（14） A、Len(s) B、Val(s) C、Asc(s) D、Length(s)（15） A、ReDim c() B、Dim c() as string C、ReDim c(1 to slen) D、Dim c(1 to slen)（16） A、Mid(s,i) B、Left(s,i) C、Mid(s,

12、i,1) D、Asc(Mid(s,i,1)（17） A、1 to slen-i B、i+1 to slen C、i to slen-1 D、1 to slen（18） A、c(p)>c(j) B、c(p)<c(j) C、c(i)<c(j) D、c(i)>c(j)（19） A、swap c(p),c(i) B、Call swap c(p),c(i)C、swap c(p),c(j) D、Call swap(c(p),c(j)（20） A、Text2.Text + c(j) B、Text2.Text + c(i)C、c(j) D、c(i)试题五每题2分，共8分阅读以下程序，在

13、每题提供的假设干可选答案中，挑选一个正确答案。【程序】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【供选择的答案】（21） 单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（22） 其它代码不变，仅将程序中的语句1前面的单引号“删除，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2

14、C、2 4 D、4 8（23） 其它代码不变，仅将程序中的语句2改为call aa(a+2)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（24） 其它代码不变，仅将程序中的语句3改成sub aa(byval b as byte)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8试题六每题2分，共12分阅读以下程序说明和程序，在每题提供的假设干可选答案中，挑选一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 单击影像框(Image1)，定时器timer1开场运行；再次单击影像框，定时器

15、停顿运行。2. 定时器运行时，每隔一定时间更换影像框中的图片：第1次显示“的图片，第2次显示“的图片，第3次显示“的图片，第4次又显示“的图片依次类推。3. 滚动条(HScroll1)用于控制定时器Timer1的Timer事件时间间隔。【程序】Dim i As BytePrivate Sub Form_Load() HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000 HScroll1.LargeChange = 3000: HScroll1.Value = 1000 : i = 1End SubPriva

16、te Sub HScroll1_Change() _ (26) End SubPrivate Sub Image1_Click() _ (27) End SubPrivate Sub Timer1_Timer() Dim fn As String fn = "c:pic" +_ (28) + ".bmp" _ (29) if i < 3 then i = i + 1 else _ (30) End Sub【供选择的答案】（25） A、 = B、Timer1.Index= C、 = D、HScroll1.Value= （26） A、Timer1.En

17、abled = B、Timer1.Enabled = TrueC、Timer1.Interval = 0 D、Timer1.Enabled = False（27） A、Trim(Chr(i) B、Str(i) C、Trim(Str(i) D、Chr(i)（28） A、Image1.Image = LoadPicture(fn) B、 = fnC、Image1.Picture = LoadPicture(fn) D、 = fn（29） A、i = i - 2 B、i = 2 C、i = 0 D、i = i - 1（30） 程序启动后，单击滚动条右边箭头一次，再单击滑块及右边箭头空白处一次后，滚动

18、条的Value属性的值为：A、3000 B、4000 C、5000 D、6000试题七每题2分，共8分阅读以下程序说明和程序，在每题提供的假设干可选答案中，挑选一个正确答案。【程序说明】程序界面如以下图所示，程序运行时要求有以下功能：1. 在窗体的Load事件过程中，设置图片框p1中的内部坐标系如下：图片框左、右边线在其内部坐标系中的横坐标分别为0、200，上、下边线在其内部坐标系中的纵坐标分别为50、-50。2. 单击“中心线按钮Command1，在图片框的水平和垂直的中心位置画两条直线，效果如左以下图所示。3. 单击“画图按钮Command2，在图片框上画5个大小相等并水平相接的圆，效果如

19、右以下图所示。【程序】Private Sub Form_Load() _ (32) End SubPrivate Sub Command1_Click() _ (33) P1.Line (100, 50)-(100, -50)End SubPrivate Sub Command2_Click() Dim r As Integer r = _ (34) For i = _ (35) p1.Circle (r * i, 0), r, vbBlue Next iEnd Sub【供选择的答案】（31） A、p1.Scale (-50,0)-(50,200) B、p1.Scale (0,-50)-(20

20、0,50)C、p1.Scale (50,0)-( -50,200) D、p1.Scale (0,50)-(200,-50)（32） A、p1.Line (200,0)-(0,0) B、p1.Line (200,0)C、p1.Line (0,-50)-(200,-50) D、p1.Line (0,50)-(200,50)（33） A、p1.ScaleWidth / 5 B、p1.Width / 5C、p1.ScaleWidth / 10 D、p1.Width / 10（34） A、9 to 1 Step -1 B、1 to 9 Step 2C、1 to 5 D、5 to 1 Step -1试题八

21、8分编程，用Inputbox函数输入x，根据下面公式计算y值，并在窗体上显示y值。代码写在窗体的Click事件过程中。y = 试题九8分编写一个自定义函数CalcAVG，计算Single类型一维数组所有元素的平均值。试题十14分界面设计、运行时状态如以下图所示，按照以下要求定义各事件过程：1. 为窗体的Load事件编写代码，使得文件列表框(File1)仅显示文本文件(*.txt)2. 实现驱动器列表框(Drive1)和目录列表框(Dir1)，及文件列表框(File1)的联动。3. 单击文件列表框中某一文件，将被选中文件的内容原样显示在文本框(Text1)中。4. 单击“退出按钮(Command

22、1)，完毕程序运行。参考答案第 18 页试题一：DABCD试题二：CBDA试题三：AADAC试题四：ACCBAAB试题五：DBCC试题六：AACCAC试题七：DACB试题八：8Private Sub Form_click() Dim x As Single, y As Single 1分 x = Val(InputBox("x=") 1分 Select Case x 5分 Case Is > 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(