南京工业大学vb期末题库..doc

09复材高材vb综合练习题第二套 满分：100分 姓名：________ 1、单项选择题(本题共计49分) 1、执行下面的程序，单击窗体后在窗体上显示的结果是________。 Private Sub Form_Click() Dim Strl As String, Str2 As String,I As Integer Str1=”ab” For I=Len(Str1)To 1 Step-1 Str1=Str1Chr(Asc(Mid(Str1,I,1))+I) Next I Print Str1 End Sub ( ) A、abce B、abcd C、abdb D、abfd 2、下列语句中的语句可以用来正确地声明一个动态数组。 ( ) A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 3、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click( ) Dim a As Integer,b As Integer Do While b 100 b=b+5 a=a+b If b20 Then Exit Do Loop Print a,b End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________。 ( ) A、50 20 B、75 25 C、50 25 D、75 20 4、有如下程序： Private Sub Command1_Click( ) score=65 select Case score Case Is60 a$=F Case 60 To 69 a$=D Case 70 To 79 a$=C Case 80 To 89 a$=B Case else a$=A End Select MsgBox a$ End Sub 程序运行后，消息对话框中显示的内容为_______。 ( ) A、A B、B C、C D、D 5、下列程序： Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是__________。 ( ) A、1 B、15 C、90 D、120 6、下列程序 Private Sub Command1_Click( ) a=InputBox(请输入) b=InputBox(请输入) Print a+b End Sub 运行时输入3和4输出的结果是 ________ 。 ( ) A、7 B、34 C、3+4 D、出错 7、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls B = 2 B = B+3 A= 3+A print A, B End Sub 程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。 ( ) A、3 5 B、6 6 C、9 5 D、3 3 8、在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为______。 Private Sub Command1_Click( ) For i = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 3 x = x+3 Next k Next j Next i Text1.Text=Str(x) End Sub ( ) A、6 B、12 C、18 D、30 9、在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y7 y=y+2 Loop MsgBox y End Sub 程序运行后，消息对话框中显示__________。 ( ) A、0 B、7 C、8 D、2 10、设有如下语句： strl=InputBox(输入,,练习)从键盘上输入字符串示例后，strl的值是________。 ( ) A、“输入” B、“” C、“练习” D、“示例” 11、在单击窗体中的按钮Command1第3次后，如下程序打印结果是____。 Private Sub Command1_Click( ) Static a AS Integer a = a+1 Select Case a Case 1: