窗体上有一个名为Commandl的命令按钮,并有如下程序:
Private Sub Command 1_Click()
Dim a As Integer, b As Integer
a=8
b=12
Print Fun(a, b);a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b、5
Fun=a
End Function
程序运行时,单击命令按钮,则输出结果是
A)3 3 2
B)3 8 2
C)8 8 12
D)3 8 12
第1题:
标准模块中有如下程序代码:
Public x As Integer,Y As Integer
Sub vat_pub()
x=10:Y=20
End Sub
在窗体上有1个命令按钮,并有如下事件过程:
Private Sub Commandl—Click()
Dim X As Integer
Call vat_pub
x=x 4-loo
Y=Y+100
Print x;Y
End Sub
运行程序后单击命令按钮,窗体上显示的是
A.100 100
B.100 120
C.110 100
D.110 120
第2题:
在窗体上有一个命令按钮Commandl,通用过程fun和命令按钮的事件过程如下: Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上输出A.6 B.7 C.8 D.9
第3题:
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
Dim s,i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为 。
55
第4题:
窗体上有一个命令按钮,命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后,单击命令按钮,输出结果是
A.10
B.14
C.15
D.120
第5题:
在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果为( )。
第6题:
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120
第7题:
窗体上有一个名为Command1的命令按钮,并有如下程序: Private Sub Corqmand1_Click( ) Dim a As Integer,b As Integer a=8 b=12 Print Fun(a,b);a;b End Sub Private Function Fun(ByVal a As Integer,b AS Integer)As Integer a=a Mod 5 b=b\5 Fun=a End Function 程序运行时,单击命令按钮,则输出结果是( )。
A.3 3 2
B.3 8 2
C.8 8 12
D.3 8 12
第8题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.机床
B.车床
C.钻床
D.轴承
第9题:
在窗体上画一个名为Commandl的命令按钮,然后编写以下程序:
Private Sub Commandl—Click()
Dim M(10)As Integer
For k=1 TO 10
M(k)=12一k
Next k
x=8
PrintM(2+M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是
A.6
B.5
C.7
D.8
第10题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京","上海","天津","重庆") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。
A.空白
B.错误提示
C.北京
D.上海