发布时间 : 星期日 文章vb程序阅读题与填空题更新完毕开始阅读
p=s/18
Print\最高分\最低分\Print\最后得分:\
6．下面程序的功能是求1到100的平方和，如果平方和超过了1000则跳出循环，输出此时的和S。 For I=1 To 100
s=s+i*i If s>1000 Then
______________ End If
9．以下程序段，程序运行后，要求执行4次循环。 x=1 Do x=x+1 print 15 next i abc:Print s
7．以下程序段的输出结果是____________。 num=0 While num<=2
num=num+1 Print num
loop Until___________ 10．下列程序运行后，内层循环的循环总次数___________。 For x= 1 to 4 For y =1 to x Print y Wend
8．以下程序段的输出结果是____________。 Dim j As Integer,s As Integer Do
s=s+j j=j+1
Next y Next x Loop Until j=5 Print \四、程序阅读题
1．写出下面程序的运行结果。 Private Sub Form_Click()
s=1
For m=1 To 3
For n=m To 3 For k=n To m Step -1 s=s*k
3．写出下面程序的运行结果。 Private Sub Form_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Dim s As Integer,k As Integer,m As Integer,n As Integer Next j Next i print x Next k,n,m Print s
End Sub End Sub
2．写出下面程序的运行结果。
13
Private Sub Form_Click() For i=3 To 1 Step -1 Print Spc(10-i); For j=1 To 2*i-1 Print \ Next j
Next i
End Sub
4．写出下面程序的运行结果。 Private Sub Form_Click() m=0 Do m=m+1
If m>10 Then Exit Do
Loop Until m<10
Print m
End Sub
5．写出下面程序的运行结果。 Private Sub Form_Click() Dim m As Integer,n As Integer m=10 Do m=m+n
For n=10 To m step -1
m=m+n
Next n
Loop While m<50 Print m;n
End Sub
18．下列程序的输出结果是________。Dim y As Integer y=10 While y<>0
y=y-1 Wend
6．写出下面程序的运行结果。 Private Sub Form_Click() Dim m As Integer,n As Integer,k As Integer m=1 : n=a : k=5 Do While m<=k*n m=m*n n=n+1 Print m;n Loop Print m;n End Sub 7．写出下面程序的运行结果。 Dim i As Integer,a As Integer Do While i<20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Print a 14
Print \
A) y=0 B) y=1 C) y=随机值 D) y=-1 19．以下程序的输出结果是________。 Dim m As Integer
m=1 While m<=3
m=m+1 Print m;
C) 2 3 4 D) 2 3 4 5
Wend
A) 2 B) 2 3
20．下面的程序运行结果是________。 Private Sub Form_Click()
m=0 Do Until 0
m=m+1
If m>10 Then Exit Do
Loop Print m
End Sub
1．下列过程的功能是：在对多个文本框进行输入时，对第一个文本框（Text1）输入完毕后用回车键使焦点跳到第二个文本框（Text2），而不是Tab键来切换。请完成该程序。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If 【1 】 Then Text2. 【2 】 End If End Sub
1．编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub
在一般情况下（即不按住Shift键和锁定大写），运行程序，如果按A键，则程序的输出结果是什么？
2．在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim saveall As String
15
Private Sub Command1_Click() Text1.Text = UCase(saveall) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) saveall = saveall + Chr(KeyAscii) End Sub
Private Sub Form_Load() Text1.Text = \End Sub
程序运行后，在键盘上输入abcdefg，单击命令按钮，写出文本框上显示的内容。
3.单击窗体时，下列程序的执行结果为________。 Private Sub Form_Click() Test (2) End Sub
Private Sub Test(x As Integer) x = x * 2 + 1 If x < 6 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub
6．单击窗体时，下列程序代码的执行结果为________，如果在Procl过程的第二形参y前加ByVal关键字，那么单击窗体时，程序代码的执行结果为________。 Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call procl(x, x, z) Call procl(x, y, y) End Sub
Private Sub procl(x As Integer, y As Integer, z As Integer) x = 3 * z y = 2 * z z = x + y Print x; y; z End Sub
9．下列程序连续运行三次的结果为________。
16