答案: True 权重：3 难易度：2
题目 ：219、下面程序段的输出结果是( )。 P = 0 s = 0 Do
p = p + 2 s = s + p
Loop While p < 11 Print \答案: s=42 权重：2 难易度：2
题目 ：220、下面程序段的输出结果是( )。
For X=1.5 To 5 Step 1.5 Print X; Next X
答案: 1.5 3 4.5 权重：3 难易度：1
题目 ：221、有如下过程： Sub SS(ByVal X, ByRef Y, Z) X = X + 1 Y = Y + 1 Z = Z + 1 End Sub
执行该过程的事件过程如下： Private Sub Command1_Click() A = 1 B = 2 C = 3
Call SS(A, B, C) Print A; B; C End Sub
该程序的执行结果是( )。 答案: 1 3 4 权重：4 难易度：2
题目 ：222、在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5
For i=1 To 10 a(i)=I Next I
For i=1 To 3
p(i)=a(i*i) Next I
For i=1 To 3 k=k+p(i)*2 Next I Print k End Sub
程序运行后，单击命令按钮，输出结果是( )。 答案: 33 权重：4 难易度：1
题目 ：223、在窗体画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
Dim k As Long k=1
num=Abs(num) Do While num
k=k*(num Mod 10) num=num\\10 Loop fun=k End Function
Private Sub Command1_Click() Dim n As Long Dim r As Long
n=InputBox(\请输入一个数\ n=CLng(n) r=fun(n) Print r End Sub
程运行后，单击命令按钮，在输入对话框中输入234，输出结果为( )。 答案: 24 权重：4 难易度：2
题目 ：224、有如下SUB过程： Sub s(x As Single, y As Single) t = x
x = t / y y = t Mod y End Sub
在窗体上添加一个命令按纽，然后编写如下事件过程：
Private Sub Form_Click() Dim a As Single Dim b As Single a = 5
b = 4 s a, b
Print a, b End Sub
则程序运行后，单击命令按纽，输出的结果为：( )。
答案: 1.25 1 权重：3 难易度：1
题目 ：225、有如下Sub过程： Sub Ind(a As Integer) Static x As Integer x = x + a Print x; End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为( )。
Private Sub Command1_Click() Ind 2 End Sub 答案: 6 权重：2 难易度：1
题目 ：226、单击命令按钮时，下列程序代码的执行结果为( )。
Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n Do While m > n m = m - n Loop
Do While m < n n = n - m Loop Loop
MyFunc = m End Function
Private Sub Command1_Click() Print MyFunc(24, 18) End Sub
答案: 6 权重：4 难易度：3
题目 ：227、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_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 Next j Next I Print x End Sub
程序运行后，单击命令按钮，输出结果是( )。 答案: 15 权重：3 难易度：2
题目 ：228、在窗体上画一个命令按钮，然后编写如下事件过程：
Prevate Sub Command1_Click() x=0
Do Until x=-1
a = InputBox(“请输入A的值”) a = Val( A)
b = InputBox(“请输入B的值”) b = Val(b)
x = InputBox(“请输入x的值”) x = Val(x) a = a+b+x Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为( )。
答案: 2 权重：3 难易度：1
题目 ：229、在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub
Private Sub Formm_Load() Text1 Text=\ Text2 Text=\End sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为( )。
答案: 123321 权重：3 难易度：2
题目 ：230、阅读下面的程序段： For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I
执行上面的三重循环后，a 的值为( )。 答案: 14 权重：2 难易度：1
题目 ：231、在窗体上画一个文本框(其中Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Click() Text1.Text=\ Text1.SetFocus For I=1 To 10 Sum=Sum+I Next I
Text1.Text=Sum End Sub
上述程序的运行结果是( )。 答案: 55 权重：3 难易度：2
题目 ：232、下列程序执行后结果是( )。
Private Sub Command1_Click() x=0
Do While x<50 x=(x+2)*(x+3) n=n+1 Loop
Print n,x End Sub
答案: 2 72 权重：2 难易度：1
题目 ：233、以下程序的输出结果是( )。
Option Base 1
Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5
For I=1 To 10 a(I)=I
Next I
For I=1 To 3 p(I)=a(I*I) Next I
For I=1 To 3 k=k+p(I)*2 Next I Print k End sub
答案: 33 权重：2 难易度：1
题目 ：234、在窗体上面画一个命令按钮，然后编写如下事件过程( )。 Option Base 1
Private Sub Commandl_Click() Dim a
a=Array(1,2,3,4) j=1
For I=4 To Step -1 s=s+a(I)*j j=j*10 Next I Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是( )。
答案: 1234 权重：3 难易度：2
题目 ：235、在窗体上面一个命令按钮(其Name属性为Commandl)，然后编写如下代码：
Option Base 1
Private Sub Commandl_Click( ) Dim a(4,4) For I=1 To 4 For j=1 To 4
a(I,j)=(I-1)*3+j Next j Next I
For I=3 To 4 For j=3 To 4 Print a(j,I); Next j Next I End Sub
程序运行后，单击命令按钮，其输出结果为( )。
答案: 9 12 10 13 权重：4
难易度：3
题目 ：236、假定有如下的Sub过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub
程序运行后，单击命令按钮，输出结果为( )。
答案: 1.25 1 权重：3 难易度：2
题目 ：237、阅读程序： Function F(a As Integer) b=0
Static c b=b+1 c=c+1 f=a+b+c End Function
Private Sub Commandl_Click () Dim a As Integer a=2
For I=1 To 3 Print F( A), Next I End Sub
运行上面的程序，单击命令按钮，输出结果为( )。
答案: 4 5 6 权重：3 难易度：1
题目 ：238、阅读程序：
Sub subP(b() As Integer) For I=1 To 4 b(I)=2*I Next I End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For I=1 To 4 Print a(I) Next I End Sub
运行上面的程序，单击命令按钮，输出结果为( )。
答案: 2 4 6 8 权重：4 难易度：3
题目 ：239、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem\ List1.AddItem\ List1.AddItem\ Listl.AddItem\ Text1.Text=\End Sub
Private Sub List1_ DblClick ( ) a =List1.Text
Print a+Text1.Text End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中的\，则输出结果为( )。
答案: 456789 权重：3 难易度：2
题目 ：240、对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single Y As Single)
If Button =2 Then Print \ End If End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print \End Sub
程序运行后，如果单击鼠标右键，则输出结果为( )。