VB程序设计试卷

《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方法画的直线、矩形和圆形，但不能清除窗体中用直线控件和形状控件产生的直线、矩形和圆形。

7. “打开”对话框和“另存为”对话框，除了标题栏上的文字不同之外，其他内容与用法均相同，因此，也可以用“另存为”对话框来指定要打开的文件。

8. 当图片框的AutoSize属性为True，而影像框的Stretch属性为False时，两者显示图片的效果相同。

9. Pset (X, Y)方法在(X, Y)处画一个点，而Point(X, Y)函数返回(X, Y)点的颜色值。

10. 若要用鼠标在文本框中右击能弹出mnuEdit的快捷菜单，只要在该文本框的Mouse_Down()事件中，添加一条PopupMenu mnuEdit 语句便可。

二、单选题（共20分，每题2分）11. VB提供了许多目录和文件操作语句，其中删除文件夹语句的关键词是。

[A] ChDir [B] RmDir [C] KillDir [D] DelDir12. 标签的WordWrap = True 可以固定标签宽度来显示多行文本，它必须和属性一起设置。

[A] MultiLine [B] AutoSize [C] Alignment [D] Width13. 表达式4 + 5 \ 4 * 9 / 8 Mod 3的值是。

[A] 7 [B] 5 [C] 6 [D] 914. 在默认的情况下，由Dim axyz(3, 2 To 4) As String * 2语句定义的数组占用______字节的内存空间。

[A] 24 [B] 18 [C] 9 [D] 4815. 以下叙述中错误的是。

[A] 以.BAS为扩展名的文件是标准模块文件，是一个纯代码性质的文件。

[B] 编程人员不能改变窗体或控件的事件名称，但是可以改变控件的名称[C] 在V isual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性[D] 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体16. 要使得文件列表框File1中，只显示文件后缀名为bmp和jpg的图片文件，应设置其Pattern属性为______。

[A] "*.bmp|*.jpg" [B] "*.bmp", "*.jpg" [C] "*.bmp;*.jpg" [D] "*.bmp, *.jpg "17. 执行以下代码后，窗体上打印出的结果是______。

a = 1 :b = 5 :c = -1Print c = b > a[A] True [B] False [C] -1 [D] 出错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中的驱动器符改变时，为使文件夹列表框Dir1中显示的路径也作相应的改变，应当在的Change事件中添加代码。

[A] Drive1，Dir1.Path = Drive1.Drive [B] Dir1，Dir1.Path = Drive1.Drive[C] Drive1，Drive1.Drive = Dir1.Path [D] Dir1，Drive1.Drive = Dir1.Path20. Sub过程与Function过程最根本的区别是____。

[A] 前者可以使用Call或直接使用过程名调用，后者不可以[B] 后者可以有参数，前者不可以[C] 两种过程参数的传递方式不同[D] 后者可通过函数名返回值，但前者不能通过过程名返回三、程序填空选择题（共20分，每空2分）阅读下列程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。

1．单击命令按钮cmd2，由随机函数产生50个100 —300之间（包括100和300）的随机整数。

放入第一个数组中，将它们中的偶数放入另一个数组，再对偶数数组按从大到小的顺序进行排序，先后将这三组数值显示在窗体中。

Private Sub cmd2_Click()Dim N%(50), M%(), I%, J%, T%, P%ClsPrint "原始数组："For I = 1 To 50N(I) = ___(21)___Print N(I),If I Mod 5 = 0 Then PrintIf N(I) Mod 2 = 0 Then J = J + 1 : ReDim Preserve M(J) : M(J) = N(I) Next IPrint "偶数数组："For I = 1 To JPrint M(I),If I Mod 5 = 0 Then PrintNext IPrint : Print "排序后的偶数数组："For I = 1 To J - 1P = IFor K = ___(22)___If ___(23)___ Then P = KNext KIf I <> P Then ___(24)___Print M(I),If I Mod 5 = 0 Then PrintNext IPrint 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 50 [B] J = I + 1 To 50 [C] J = I + 1 To K [D] 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)(24) [A] T = M(P) : M(I) = M(P): M(I) = T [B] 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-V ertic le。

程序启动或单击窗体后，随机生成20个二位数，作为列表项添加到列表框List1中，单击选择List1的一个列表项，求出选中的二位数的全部因子（包括1和该数本身），在文本框Text1中逐行显示。

Private Sub Form_Load()Randomize___(25)___End SubPrivate Sub Form_Click()Dim I As Integer___(26)___Text1 = ""For I = 0 To 19List1.AddItem Int(Rnd * 90 + 10)Next IEnd SubPrivate Sub List1_Click()Dim I As Integer, X As IntegerX = V al(List1.Text)Text1 = ""For I = 1 To XIf X Mod I = 0 Then Text1 = ___(27)___Next IEnd Sub(25) [A] Call Form1_Click [B] Form_Click() [C] Form1_Click [D] Form_Click(26) [A] List1.Clear [B] List1.Cls [C] List1 = "" [D] List1.ListCount =(27) [A] I & vbCrLf [B] Text1 & I & vbCrLf [C] X & vbCrLf [D]Text1 & X &vbCrLf3. 下列FindStr过程是用于在一个字符串变量中查找"red"，并用输出对话框给出找到的个数或"没有找到"的查找结果。

Option ExplicitPublic Sub FindStr()Dim Str1 As String, Length As Integer, Sum As Integer, I As IntegerStr1 = InputBox("请输入一个字符串")Length = ___(28)___I = 1Sum = 0Do While ___(29)___If ___(30)___ Then Sum = Sum + 1I = I + 1LoopIf Sum = 0 ThenMsgBox "没有找到！"ElseMsgBox "找到了" & Str(Sum) & "个"End IfEnd Sub(28) [A] Len(Str1) [B] V al(Str1) [C] Chr(Str1) [D] Str(Str1)(29) [A] I = Length - 1 [B] I > Length - 1 [C] I < Length - 1 [D] I = Length(30) [A] Left(Str1, 3) = "red" [B] Str1 = "red"[C] Mid(Text1, I, 3) = Str1 [D] Mid(Str1, I, 3) = "red"四、程序阅读题（共20分，每题5分）1．请写出从键盘输入”1.2”，"Ab"和“FGfg”后，窗体的输出结果。