2022年VB程序设计试卷 .pdf

《2022年VB程序设计试卷 .pdf》由会员分享，可在线阅读，更多相关《2022年VB程序设计试卷 .pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、e_Down() 事件中，添加一条PopupMenu mnuEdit 语句便可。二、单选题（共 20 分，每题 2 分）11. VB 提供了许多目录和文件操作语句，其中删除文件夹语句的关键词是。A ChDir B RmDir C KillDir D DelDir 12. 标签的 WordWrap = True 可以固定标签宽度来显示多行文本，它必须和属性一起设置。A MultiLine B AutoSize C Alignment D Width 13. 表达式 4 + 5 4 * 9 / 8 Mod 3的值是。A 7 B 5 C 6 D 9 14. 在默认的情况下， 由 Dim axyz(3

4、, 2 To 4) As String * 2语句定义的数组占用_字节的内存空间。A 24 B 18 C 9 D 48 15. 以下叙述中错误的是。A 以.BAS 为扩展名的文件是标准模块文件，是一个纯代码性质的文件。B 编程人员不能改变窗体或控件的事件名称，但是可以改变控件的名称C 在 Visual Basic 工具箱中的所有控件都具有宽度（Width）和高度（ Height）属性D 用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体16. 要使得文件列表框File1 中，只显示文件后缀名为bmp 和 jpg 的图片文件，应设置其Pattern属性为 _。A *.bmp|*.jpg

5、B *.bmp, *.jpg C *.bmp;*.jpg D *.bmp, *.jpg 17. 执行以下代码后，窗体上打印出的结果是_。a = 1 : b = 5 : c = -1 Print c = b a A True B False C -1 D 出错名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 6 页 - - - - - - - - - 名师整理优秀资源18. 在文本框Text1 中用鼠标拖动选中文本块时，如果Text1.SelStart =

6、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 .Dr

7、ive = Dir1 .Path D Dir1 ，Drive1 .Drive = Dir1 .Path 20. Sub过程与 Function过程最根本的区别是_。A 前者可以使用 Call或直接使用过程名调用，后者不可以B 后者可以有参数，前者不可以C 两种过程参数的传递方式不同D 后者可通过函数名返回值，但前者不能通过过程名返回三、程序填空 选择题（共 20 分，每空 2分）阅读下列程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。1 单击命令按钮cmd2，由随机函数产生50 个 100 300 之间（包括100 和 300）的随机整数。放入第一个数组中， 将它们中的偶

8、数放入另一个数组，再对偶数数组按从大到小的顺序进行排序，先后将这三组数值显示在窗体中。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 Print 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),

9、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)_ Print M(I), If I Mod 5 = 0 Then Print Next I Print M(I) 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，共 6 页 -

10、 - - - - - - - - 名师整理优秀资源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) C M(P) M(K) D M(K) Length - 1 C I Length - 1 D I = Length (30) A Left(

11、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”后，窗体的输出结果。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(sH

12、ex) nDec = 0 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 I = I + 1 Loop Print sHex; H =; nDec End Sub 2 请写出以下程

13、序运行后两次单击命令按钮的输出结果。Dim x As Integer Private Sub Command1_Click() Dim y As Integer 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 6 页 - - - - - - - - - 名师整理优秀资源Static z As Integer x = x + 1 : y = y + 1 : z = z + 1 Call abc(x, y, z + y) Print x, y, z End

14、Sub Static Sub abc(a, b, c) a = a + 1 : b = b + 1 : c = c + 1 :x = x + 1 End Sub Private Sub Form_Load() x = 1 : y = 1 : z = 1 End Sub 3 已知水平滚动条HScroll1 的有关属性已经在属性窗口进行了如下的设置：Min 为 1 Max 为 10 SmallChange 为 1 LargeChange 为 2 Value 为 5 写出连续3 次单击水平滚动条HScroll1 右端箭头后，窗体上显示的结果。Private Sub HScroll1_Change()

15、 Static y As Integer If HScroll1.Value Mod 2 = 0 Then y = y + HScroll1.V alue Print y=; y End If End Sub 4 请写出在文本框中输入“小李”（2 个汉字）并按下回车键后，窗体上显示的结果。Private Sub Text1_Change() Print Text1.Text; ，你好！ End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 6

16、页 - - - - - - - - - 名师整理优秀资源五、程序设计题（本题共30 分，每题 10分）注意：在做程序设计题时，务必在窗体和模块的通用部位写上“Option Explicit ”语句 。1. 试用 Form_Click() 事件过程计算下列求和式，在窗体显示结果。S = 1 + 12 + 123 + 1234 + 12345 + + 12345n 例如 n = 7，S = 1 + 12 + 123 + 1234 + 12345 +123456 + 1234567 n 通过输入框输入，其值为1 9；如果输入不在此范围，再次弹出输入框重输。2. 编写一个绘制“饼图”的子程序BingT

17、u() 。调用时，传递3 个实际参数 X、Y、Z，子程序就在图片框Picture1 中画出内切圆，按3 个实参的比例分为3 个扇形，并用三种不同的颜色（X- 红， Y-绿， Z-黄）填充，如右图所示。 下面是已经完成的 “饼图”按钮Command1_Click()事件中调用子程序BingTu() 的代码。试按上述要求完成“饼图”的子程序BingTu() 的代码编写。Private Sub Command1_Click() Dim X!, Y!, Z! X = Val(InputBox(X =) Y = Val(InputBox(Y =) Z = Val(InputBox(Z =) Call B

18、ingTu(X, Y , Z) End Sub 3. 在 D 盘根目录有考试成绩文件“D:KsCj.txt ” ，格式如下表所示。要求在标准模块的Sub Main()过程中编写代码，打开该文件，逐一读入姓名和成绩，求出最高分、最低分和平均分。最后按下表所示的格式，添加到考试成绩文件的最后。运行前的KsCj.txt 运行后的 KsCj.txt 李妮娜 , 92 周嘉楠 , 78 . 毛梅燕 , 55 王松 , 46 李妮娜 , 92 周嘉楠 , 78 . 毛梅燕 , 55 王松 , 46 最高分：94 最低分：48 平均分：78.9188311688312 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页，共 6 页 - - - - - - - - -