VB程序设计试卷试题

1、VB程序设计试卷 试卷十五一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误）1.窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按<Enter>键，就相当于执行该命令按钮的Click()事件。2.直线控件没有Left和Top属性。3.在VB工具箱中双击控件图标，可以在窗体中添加控件，但不能直接将控件引入到框架中。4.Style属性为0和2的组合框由于下拉，故不能多选，但Style属性为1的组合框不是下拉的，所以可以多选。5.单选按钮和复选框都没有双击事件。6.Cls方法能清除窗体中用Line和Circle方法画的直线、矩形和圆形，但不能

2、清除窗体中用直线控件和形状控件产生的直线、矩形和圆形。7.“打开”对话框和“另存为”对话框，除了标题栏上的文字不同之外，其他内容与用法均相同，因此，也可以用“另存为”对话框来指定要打开的文件。8.当图片框的AutoSize属性为True，而影像框的Stretch属性为False时，两者显示图片的效果相同。9.Pset (X, Y)方法在(X, Y)处画一个点，而Point(X, Y)函数返回(X, Y)点的颜色值。10.若要用鼠标在文本框中右击能弹出mnuEdit的快捷菜单，只要在该文本框的Mouse_Down()事件中，添加一条 PopupMenu mnuEdit 语句便可。二、单选题（共2

3、0分，每题2分）11.VB提供了许多目录和文件操作语句，其中删除文件夹语句的关键词是 。A ChDirB RmDirC KillDirD DelDir12.标签的WordWrap = True 可以固定标签宽度来显示多行文本，它必须和 属性一起设置。A MultiLineB AutoSizeC AlignmentD Width13.表达式4 + 5 4 * 9 / 8 Mod 3的值是 。A 7B 5C 6D 914.在默认的情况下，由Dim axyz(3, 2 To 4) As String * 2语句定义的数组占用_字节的内存空间。A 24B 18C 9D 4815.以下叙述中错误的是 。

4、A 以.BAS为扩展名的文件是标准模块文件，是一个纯代码性质的文件。B 编程人员不能改变窗体或控件的事件名称，但是可以改变控件的名称C 在Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体16.要使得文件列表框File1中，只显示文件后缀名为bmp和jpg的图片文件，应设置其Pattern属性为_。A "*.bmp|*.jpg"B "*.bmp", "*.jpg"C "*.bmp;*.jpg"D "

5、;*.bmp, *.jpg "17.执行以下代码后，窗体上打印出的结果是_。a = 1 : b = 5 : c = -1Print c = b > aA TrueB FalseC -1D 出错18.在文本框Text1中用鼠标拖动选中文本块时，如果Text1.SelStart = 15，Text1.SelLength = 10，那么Text1.SelText的属性值与_的函数值相同。A Mid(Text1,14,10)B Mid(Text1,15,10)C Mid(Text1,16,10)D Mid(Text1,10,15)19.当驱动器列表框Drive1中的驱动器符改变时，为使

6、文件夹列表框Dir1中显示的路径也作相应的改变，应当在 的Change事件中添加 代码。A Drive1，Dir1.Path = Drive1.DriveB Dir1，Dir1.Path = Drive1.DriveC Drive1，Drive1.Drive = Dir1.PathD Dir1，Drive1.Drive = Dir1.Path20.Sub过程与Function过程最根本的区别是_。 A 前者可以使用Call或直接使用过程名调用，后者不可以B 后者可以有参数，前者不可以C 两种过程参数的传递方式不同D 后者可通过函数名返回值，但前者不能通过过程名返回三、程序填空选择题（共20分，

7、每空2分）阅读下列程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。1单击命令按钮cmd2，由随机函数产生50个100 300之间（包括100和300）的随机整数。放入第一个数组中，将它们中的偶数放入另一个数组，再对偶数数组按从大到小的顺序进行排序，先后将这三组数值显示在窗体中。Private Sub cmd2_Click() Dim N%(50), M%(), I%, J%, T%, P% Cls Print "原始数组：" For I = 1 To 50 N(I) = _(21)_ Print N(I), If I Mod 5 = 0 Then Pr

8、int If N(I) Mod 2 = 0 Then J = J + 1 : ReDim Preserve M(J) : M(J) = N(I) Next I Print "偶数数组：" For I = 1 To J Print M(I), If I Mod 5 = 0 Then Print Next I Print : Print "排序后的偶数数组：" For I = 1 To J - 1 P = I For K = _(22)_ If _(23)_ Then P = K Next K If I <> P Then _(24)_ Prin

9、t M(I), If I Mod 5 = 0 Then Print Next I Print M(I)End Sub(21)A Int(100 + Rnd() * 201) B Int(200 + Rnd() * 101) C Int(101 + Rnd() * 199)D Int(100 + Rnd() * 200)(22)A K = I + 1 To 50B J = I + 1 To 50C J = I + 1 To KD K = I + 1 To J(23)A M(I) < M(K)B M(I) > M(K)C M(P) < M(K)D M(K) < M(P)(2

10、4)A T = M(P) : M(I) = M(P): M(I) = TB T = M(I) : M(P) = M(I) : M(P) = T C M(I) = T : T = M(P) : M(P) = M(I)D T = M(I) : M(I) = M(P) : M(P) = T2.窗体上有一个列表框List1和一个文本框Text1，在属性窗口已设置文本框的MultiLine属性为True，ScrollBars属性为2-Verticle。程序启动或单击窗体后，随机生成20个二位数，作为列表项添加到列表框List1中，单击选择List1的一个列表项，求出选中的二位数的全部因子（包括1和该数本

11、身），在文本框Text1中逐行显示。Private Sub Form_Load() Randomize _(25)_End SubPrivate Sub Form_Click() Dim I As Integer _(26)_ Text1 = "" For I = 0 To 19 List1.AddItem Int(Rnd * 90 + 10) Next IEnd SubPrivate Sub List1_Click() Dim I As Integer, X As Integer X = Val(List1.Text) Text1 = "" For I

12、 = 1 To X If X Mod I = 0 Then Text1 = _(27)_ Next IEnd Sub(25)A Call Form1_ClickB Form_Click()C Form1_ClickD Form_Click(26)A List1.ClearB List1.ClsC List1 = ""D List1.ListCount = 0(27)A I & vbCrLfB Text1 & I & vbCrLfC X & vbCrLfDText1 & X & vbCrLf3.下列FindStr过程是用于在一个

13、字符串变量中查找"red"，并用输出对话框给出找到的个数或"没有找到"的查找结果。Option ExplicitPublic Sub FindStr() Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer Str1 = InputBox("请输入一个字符串") Length = _(28)_ I = 1 Sum = 0 Do While _(29)_ If _(30)_ Then Sum = Sum + 1 I = I + 1 Loop If Sum

14、= 0 Then MsgBox "没有找到！" Else MsgBox "找到了" & Str(Sum) & "个" End IfEnd Sub(28)A Len(Str1)B Val(Str1)C Chr(Str1)D Str(Str1)(29)A I = Length - 1B I > Length - 1C I < Length - 1D I = Length(30)A Left(Str1, 3) = "red"B Str1 = "red"C Mid(Text1

15、, I, 3) = Str1D Mid(Str1, I, 3) = "red"四、程序阅读题（共20分，每题5分）1请写出从键盘输入”1.2”，"Ab"和“FGfg”后，窗体的输出结果。Private Sub Form_Click() Dim sHex As String, X As String * 1 Dim nDec As Long, N As Integer, I As Integer, Ai As Integer sHex = UCase(InputBox("请输入一个字符串") N = Len(sHex) nDec = 0

16、 Do While I < N X = Mid$(sHex, N - I, 1) Select Case X Case "A" To "F" : Ai = Asc(X) - Asc("A") + 10 Case "0" To "9" : Ai = Val(X) Case Else Ai = 0 : N = N - 1 sHex = Left(sHex, N - I) + Right(sHex, I) I = I - 1 End Select nDec = nDec + Ai * 16 I

17、I = I + 1 Loop Print sHex; " H =" nDecEnd Sub2请写出以下程序运行后两次单击命令按钮的输出结果。Dim x As IntegerPrivate Sub Command1_Click()Dim y As IntegerStatic z As Integerx = x + 1 : y = y + 1 : z = z + 1Call abc(x, y, z + y)Print x, y, zEnd SubStatic Sub abc(a, b, c)a = a + 1 : b = b + 1 : c = c + 1 : x = x +

18、1End SubPrivate Sub Form_Load()x = 1 : y = 1 : z = 1End Sub3已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：Min为1 Max为10 SmallChange为1 LargeChange为2 Value为5写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。Private Sub HScroll1_Change() Static y As Integer If HScroll1.Value Mod 2 = 0 Then y = y + HScroll1.Value Print "y=

19、" y End IfEnd Sub4请写出在文本框中输入“小李”（2个汉字）并按下回车键后，窗体上显示的结果。Private Sub Text1_Change() Print Text1.Text; "，你好！"End Sub五、程序设计题（本题共30分，每题10分）注意：在做程序设计题时，务必在窗体和模块的通用部位写上“Option Explicit”语句。1.试用Form_Click()事件过程计算下列求和式，在窗体显示结果。S = 1 + 12 + 123 + 1234 + 12345 + + 12345n例如n = 7，S = 1 + 12 + 123 + 1234 + 12345 +123456 + 123