Question

单选题：在窗体上添加一个命令按钮，编写事件过程： Private Sub Command1_Click() Dim a as integer

单选题：在窗体上添加一个命令按钮，编写事件过程：
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.不输出 任何内容

Answer 1

Private Sub Command1_Click() Print pl(3, 7) '这里的pl(3,7)就是调用下面的Function函数pl， '前后两个参数值分别是x=3,n=7End Sub Public Function pl(x As Single, n As Integer) As Single If n = 0 Then '如果参数n=0，显然我们传入的参数是n =7 pl = 1 Else '这里表示n<>0的情况下，那么 If n Mod 2 = 1 Then 'mod 是求余函数，表示 n除以2的余数 '因为除数为2的余数只有1和0， '所以我们通常使用 n mod 2来判断奇偶数 '余数为1则表示奇数 '所以这个判断条件是如果n为奇数 '而7显然是奇数，所以 pl = x * x + n 'pl = 3 * 3 + 7 = 16 '所以Print Pl(3,7) = 16 Else '这里表示n为偶数 P1 = x * x - n End If End IfEnd Function

Answer 2

本期选择答案b。
因为定义了整形变量a，但是没有给他赋初值。在VB中，它的默认值为零。所以点击命令按钮后，会输出a等于零。