在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Forn=1 To 20 If n Mod 3<>Thenm=m+n\3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是______。
A.15
B.18
C.21
D.24
第1题:
在窗体上画一个名称为Commandl命令按钮,然后编写如下事件过程: Private Sub Commandl_click() c="ABCD" For n=1 To 4 Print______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 D CD BCD ABCD 则在______处填入的内容为。
A. Left(c,n)
B.Right(c,n)
C.Mid(c,n,1)
D.Mid(c,n,n)
第2题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.机床
B.车床
C.钻床
D.轴承
第3题:
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
Private Sub Commandl_Click()
Dimi As Integer,j As Integer
Dima(10,10)As Integer
Fori=1 To 3
Forj=1 To 3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
End Sub
A.
B.
C.
D.
第4题:
在窗体上画一个命令按钮(名称为 Commandl),然后编写如下事件过程: Private Sub Commandl_Click() Static a As Integer a=a+1 End Sub 运行程序,第3次单击命令按钮后,变量a的值为( )
A.0
B.1
C.2
D.3
第5题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Prirate Sub Commandl_click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,,b$,c$,1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是( )。
A.software andhardware
B.software
C.hardware
D.1
第6题:
在窗体上画一个名称为Commandl的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As 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
第7题:
在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Commandl_Click()
a$=”software and hardware”
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,bs,cS,1
End sub
则在弹出的信息框标题栏中显示的标题是( )。
A.software and hardware
B.hardware
C.software
D.1
第8题:
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程: Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后,单击命令按钮,则标签中显示的内容是( )。
A.1
B.5
C.27
D.45
第9题:
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
程序运行后,单击命令按钮,其输出结果为__________。
第10题:
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为( )
A.123345
B.468
C.123
D.345