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

1、Visual Basic 程序设计模拟试卷四考试形式：闭卷 考试时间：120分钟 站点：_ 姓名：_ 学号：_ 成绩：_一、选择题（ 10小题，每题3分，共30分）1、窗体文件的扩展名_。A） .FRM B) .VBP C) .BAS D) .FRX2、下面变量名不合法的是 。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 Base 1 ：D

2、im Abc（9）C）Dim Abc#（9） D）Dim Abc（10） As Single5、VB6。0中，执行下列的四个语句时出现错误的是 _。 A） X=SGN（0） B）X=SQR（0） C）X=LOG（0） D）X=SIN（0）6、只能用来显示字符信息的控件是 。A) 图像框 B) 图片框 C) 标签框 D) 文本框7、表达式： 5 2 * 3 的值是 _。 A）75 B）0 C）1 D）28、方法 Print “10+6=”；10+6 输出的结果是 。A） 10+6= 10+6 B）10+6=16 C）16=10+6 D）“10+6=”10+69、菜单项能触发的事件有_。 A）Mo

3、useDown B）MouseUp，Click，DblClick C）Click D）DblClick 和 Click10、设置命令按钮的标题文字时，应改变的属性是_。 A）Text B）Caption C）Name D）Value二、阅读程序写出结果（6小题，每题5分，共30分）1、下列程序：Private Sub Command1_Click ( ) x1 = InputBox (“请输入数据：”) x2 = InputBox (“请输入数据：”)Print x1 + x2End Sub若输入数据 10 和15， 输出结果是 。2、下列程序：Private Sub Command1_Cli

4、ck ( )a=0For J = 1 To 15 a = a + J mod 3Next JPrint aEnd Sub运行后输出的结果 。3、下列程序：Option Base 1Private Sub Command1_Click( ) Dim arr( 5 ) As String For j =1 To 5 arr ( j ) = Chr( 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) 程序出错4、下列程序：Opt

5、ion 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 kPrint Next jEnd SubPrivate Sub Command1_Click( ) Dim char As String * 1 , n As Integer Char = ”+” : n = 5 Call Triangle( Char , n) En

6、d Sub5、下列程序：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执行程序后屏幕上输出 。三、程序设计基础题（4 小题，每题 5 分，共20分）1、设计一个小程序，计算 Sum = 1 + 3 + 5 + 7 + 9 + + 101Private Sub Command1_Click ( ) Dim sum As Integer 设计程序段 Print

7、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、以下程序的功能是将字符串“123456”逆序打印出来，请在画线处填写。Function rev（new1） As Stringb=Mid( _(1)_，1 ，1 )If b=” Then Rev =” Else rev=rev( Mid(new1,2) + _( 2 )_End ifEnd FunctionPrivate Sub Form_Click()old = “123456” Print old Print rev( old )End Sub (1) _ (2) _四、程序设计题（2小题，每题 10分，共20分）1、 请编