单项选择题

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer，b As Integer，c As Integer
If a=0 Then
x=x-1
Else
If b＜＞0 Then
End If
End If
If c＜＞0 Then
x=3
Else
x=4
End If
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为 ______。

A．34
B．4
C．35
D．3

<上一题目录下一题>

热门试题

单项选择题

在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 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=In put Box( 请输入一个数 ) n=CLng(n) r=Fun(n) Print r End Sub

A．20
B．24
C．9
D．28

单项选择题

下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print The largest number is ; max Print The position is ; p End

A．0
B．a(1)
C．1.7E+38
D．1.7E-38

相关试题