《Visual Basic 程序设计》模拟试卷二

1、Visual Basic 程序设计模拟试卷二考试形式：闭卷 考试时间：120分钟 站点：_ 姓名： 学号： 成绩： 一、选择题（ 8小题，共24分）1、英文缩写“OOP”的含义是 。A）事件驱动的编程机制 B）结构化程序设计语言C）面向对象的程序设计 D）可视化程序设计2、下面变量名不合法的是 。A）abc B）abc# C） a$b D）student_num3、数组定义中 Dim A%（-10 To 20）， 数组变量A% 共有_ 元素。A) 20 B)30 C) 31 D) 104、定义10个单精度实数一维数组正确的语句是 。A）Dim Abc（9） As Single B）Option

2、 Base 1 ：Dim Abc（9）C）Dim Abc#（9） D）Dim Abc（10） As Single5、语句 Dim s（3，4） As double 表示s是一个二维双精度数组，有_元素。A）20 B）12 C）16 D） 15 6、只能用来显示字符信息的控件是 。A) 图像框 B) 图片框 C) 标签框 D) 文本框7、菜单项能触发的事件有 。A）MouseDown B）MouseUp，Click C）Click D）DblClick 和Click8、方法 Print “10+6=”；10+6 输出的结果是 。A） 10+6= 10+6 B）10+6=16 C）16=10+6

3、D）“10+6=”10+6二、阅读程序写出结果（6小题，每题6分，共36分）1、下列程序：Private Sub Command1_Click ( ) x1 = InputBox (“请输入数据：”) x2 = InputBox (“请输入数据：”)Print x1 + x2End Sub若输入数据 3 和4， 输出结果是 。2、下列程序：Private Sub Command1_Click ( )a=0For J=1 To 15 a = a + J mod 3Next JPrint aEnd Sub运行后输出的结果 。3、下列程序：Private Sub Command1_Click( )

4、Score = Int ( Rnd * 10) + 80 Select Case scoreCase Is < 60 A$ =”E”Case 60 To 69 A$ = ”D”Case 70 To 79 A$ =” C”Case 80 To 89 A$= “B”Case ElseA$ = “A”End SelectPrint A$ End Sub运行时输出结果是 。A）A B）B C）C D）D4、下列程序：Option Base 1Private Sub Command1_Click( ) Dim arr(5) As String For j =1 To 5 arr ( j ) = C

5、hr( Asc(“A”) + ( j -1) ) Next jFor Each b1 In arr Print b1 ;Next End Sub运行时输出结果是 。A) ABCDE B) abcde C) 1 2 3 4 5 D) 程序出错5、下列程序：Option ExplicitPrivate Sub triangle (str As String , n As Integer) Dim j As Integer , k As Integer For j = 1 To nPrint Tab( 16 - j) ;For k =1 To 2 * j 1 Print str ;Next kPri

6、nt Next jEnd SubPrivate Sub Command1_Click( ) Dim char As String * 1 , n As Integer Char = ”+” : n = 5 Call Triangle( Char , n) End Sub6、下列程序：Private Sub Command1_Click( ) Dim sum As Integer ， k As Integerk =1 : sum=k: Print k ; For k=2 to 10 Print ”+”; k ; Next kPrint “=”, sumEnd Sub执行程序后屏幕上输出 。三、程

7、序设计基础题（4 小题，每题 5 分，共20分）1、设计一个小程序，计算 Sum = 1 + 3 + 5 + 7 + 9 + + 101Private Sub Command1_Click ( ) Dim sum As Integer 设计程序段 Print sum End Sub2、输入 a, b 两个整数，编写一个小的程序片段实现两数交换。Private Sub sawp ( a As Integer , b As Integer ) Dim temp as integer 设计程序段 print a, bEnd Sub3、在下列数据中找出其中的最小值。 Option Base 1 Private Sub Command1_Click( )Dim s(10)= 10,20,32,12,9,11,23,43,5,8 设计一个程序段，输出其中的最小值 End Sub 4、在窗体上有一个关于地名的组合框控件Combo1，请为它设置以下一些数据“上海、南京、天津、北京、广州、武汉“Private Sub Form1_Load( ) 为 Combo1. 控件设置选择项数据 End Sub四