单项选择题
在窗体上画一个命令按钮,名称为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
点击查看答案&解析
单项选择题
在窗体上画一个名称为Lisu的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为 ______。
A.For i = 0 To List1. ListCount-1
Next
B.For i = 0 To List1.Count-1
Next
C.For i = 0 To List1. ListCount
Next
D.For i = 0 To List1. Count
Next
点击查看答案&解析
相关试题
阅读以下程序: Private Sub Form_clic...
在窗体(Name属性为Form1)上画两个文本框...
下列程序的功能是求出所有的1-100之间...
在菜单编辑器中建立一个菜单,其主菜单项的...
下面的程序用“冒泡”法将数组a中的10个...