题号：8331
下面程序的内层循环次数是_____。 For i=1 TO 3 For j=1 TO i For k=j TO 3 ... Next k Next j Next i A、3 B、14 C、9 D、21 答案：B 题号：8333
下面程序段，显示的结果是_____。 Dim x
x=Int(Rnd)+5 select Case x Case 5 print \优秀\ Case 4 print \良好\ Case 3 print \通过\ Case Else print \不通过\End Select A、通过 B、不通过 C、良好 D、优秀 答案：D 题号：8350
运行程序产生死循环时，按_____键可以终止程序的运行。 A、Ctrl +Z B、Ctrl+Break
C、单击停止运行按钮 D、Ctrl+C 答案：B 题号：8344
以下语句执行时，从键盘上输入Zhang，执行结果是_____。 Dim a As String
a=InputBox(\Print a A、Inprt B、Zhang C、Name D、空字符串 答案：B 题号：8320
求解超越方程的根、求定积分、解微方程属于_____算法。 A、网络管理 B、非数值计算 C、通信 D、数值计算 答案：D 题号：8356
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click( )
Dim a As Integer,b As Integer Do While b <100 b=b+5 a=a+b If b>20 Then Exit Do Loop Print a,b End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。 A、75 20 B、75 25 C、50 20 D、50 25 答案：B 题号：8336
下面程序是一个求最大公约数的程序，执行程序后，m的值为_____ Dim m As Integer, n As Integer m=200 n=150
If n*m=0 Then Exit Sub If m Loop While r<>0 Text3=m A、50 B、100 C、200 D、150 答案：A 题号：8329 下列循环能正常结束循环的是_____。 A、i=5 Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 答案：D 题号：8316 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候 窗体上将输出_____个字母\。 Private Sub Timer1_Timer() For i = 1 To 10 Print \ Next i End Sub A、10次 B、10000次 C、以上都不对 D、1 000次 答案：A 题号：8360 在窗体上有一个文本框Text1，以下程序段的运行结果是_____。 Text1=\ For i=1 To 10 Sum=Sum+i Next i Text1=Sum A、出错 B、在文本框中Text1中输出55 C、在文本框中Text1中输出不定值 D、在文本框中Text1中输出0 答案：B 题号：8332 下面程序的运行结果是_____。 Private Sub Command1 Click ( ) x=1: y=1 For i=1 TO 3 x=x+y: y=y+x Next i Print x;y End Sub A、34 35 B、5 8 C、6 6 D、13 21 答案：D 题号：8346 用Msgbox（\你好\）显示的消息对话框窗口的标题是_____。 A、OK B、Hello C、vbokonly D、你好 答案：D 题号：8322 设有如下语句： strl=InputBox(\输入\练习\从键盘上输入字符串\示例\后，strl的值是_____。 A、“练习” B、“示例” C、“输入” D、“” 答案：B 题号：8363 在单击窗体中的按钮Command1第3次后，如下程序打印结果是____。 Private Sub Command1_Click( ) Static a AS Integer a = a+1 Select Case a Case 1: Print \欢迎大家\ Case 2 :Print \努力就能成功 Case 3: Print \希望你能通过考试\ Case 4: Print \再见\ End Select End Sub A、“努力就能成功” B、\希望你能通过考试\ C、“欢迎大家” D、“再见” 答案：B 题号：8353 在窗体Form1上，有一个图片控件Picture1和命令按钮控件Command1，在窗体的Command1_Click事件中 有如下代码： Private Sub Command1_Click( ) Dim x As Integer Dim s1 As String,s2 As String s1=\ For x=1 To Len(s1) s2=Lcase(Mid(s1,x,1)) & x Picture1.Print s2 Next x End Sub 运行此程序后在窗体的第4行为_____。 A、d2 B、b4 C、d4 D、b2 答案：C 题号：8359 在窗体上添加一个命令按钮，名为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、18 B、30 C、12 D、6 答案：B 题号：8308 Dim y As Integer m = 1 Do While m <= 3 m = m + 1 Print m; Loop A、2 B、2 3 4 C、2 3 D、2 3 4 5 答案：B 题号：8355 在窗体画一个命令按钮，然后编写如下事件过程 Private Sub Command1_Click( ) x = 10 Print IIf(x>5,1,5) End Sub 运行后的输出结果_____。 A、6 B、2 C、5 D、1 答案：D 题号：8313 给出下面的程序 Private Sub Command1_Click( ) Dim Check ,Counter Check = True: Counter = 0 Do Counter = Counter + 1 If Counter = 10 Then Check = False: Exit Do Loop Until Check = False MsgBox Counter End Sub 程序最后弹出的消息对话框的内容是_____ 。 A、False B、True C、20 D、10 答案：D 题号：8309 VB也提供了结构化程序设计的三种基本结构，这三种基本结构是_____。 A、递归结构、选择结构、循环结构 B、选择结构、循环结构、顺序结构 C、过程结构、输入\\输出结构、转向结构 D、选择结构、过程结构、顺序结构 答案：B 题号：8341 以下_____程序段可以实施X，Y变量值的变换. A、Y=X:X=Y B、Z=X:X=Y:Y=Z C、Z=X:Y=Z:X=Y D、Z=X:W=Y:Y=Z:X=Y 答案：B 题号：8330 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_____。 A、If sex=\男\教授\副教授\B、If sex=\男\教授\副教授\C、If sex=\男\，\教授\D、If sex=\男\教授\答案：A 题号：8369 执行以下程序段，在窗体上显示的结果是_____。 Private Sub Form_Click() Dim S As String, i As Integer S = \ For i = Len(S) To 1 Step -1 Print Chr( Asc ( Mid ( S , i , 1 ) ) + i ) Next I End Sub A、db B、cb C、cc D、fd 答案：A 题号：8317 假设X的值是5，则执行以下语句时，可得到的输出结果是 ABCDEF 的 SelectCase 语句是_____。 A、Select Case X Case 1, 3, Is>5