Question

高手，解答几道题： 1、单选题：在窗体上添加一个命令按钮，编写事件过程： Private Sub Command1_Click

1、单选题：在窗体上添加一个命令按钮，编写事件过程：
Private Sub Command1_Click()
Dim a as integer
If a>0 Then
Print“a大于零”
End if
If a=0 Then
Print“a等于零”
End if
If a<0 Then
Print“a小于零”
End if
End Sub
程序运行后，单击命令按钮，输出结果是（）
A. a大于零 B. a等于零 C.a小于零 D.不输出 任何内容

2、单选题：在窗体上添加一个命令按钮，编写事件过程：
Private Sub Command1_Click()
Dim x as integer
x=6
If x>6 Then
Print“x>6”
End if
If x<7 Then
Print“x<7”
End if
If x=6 Then
Print“x=6”
End if
End Sub
程序运行后，单击命令按钮，输出结果是（）
A.x=6 B.x<7 C.x>6 D.x<7 x=6

3、填空题：下面程序运行后，点击窗体，变量x和y的值分别为（）、( )
Private Sub Form_Click()
Dim x,y as integer
X=5:y=10
nc x,y
Print“x=”;x;“y=”
End Sub
Private Sub nc(ByVal a%,b%)
a=a+b
b=a
a=a*b
End Sub

4、填空题：执行下面程序，输出结果是：n=( ) , j=( )
Dim j as integer,n as integer
j=1: n=0
Do While n<3
j=j*(j+1)
n=n+1
Loop
Print n；j

5、填空题：
Dim x As Single,y As Single
Private Sub Command1_Click()
x=x+1
y=y+1
Call test2
End Sub
Private Sub test2( )
Dim x As Single
x=x+20
y=y+20
Print x，y
End Sub
以上程序的执行结果是（）（）

6、填空题：下面程序运行后，点击窗体，变量x和y的值分别为（）、( )
Private Sub Form_Click()
Dim x,y as integer
X=5:y=10
nc x,y
Print“x=”;x;“y=”
End Sub
Private Sub nc(ByVal a%,b%)
a=a+b
b=a
a=a*b
End Sub

Answer 1

第一题：B：a等于零

第二题：D.x<7 x=6

第三题：X=5 Y=15

第四题：3  42

第五题：20    20

第六题：x= 5 y= 15 

为了稳妥起见，这六个程序我都运行过了：