题目
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a-1 End If a=a+1 Next j Next i Print a EndSub 程序运行后,单击命令按钮,输出结果是______。
A.0
B.2
C.3
D.4
第1题
在窗体上画一个名称为Command1的命按钮,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End sub 程序运行后,连续三次单击Command1按钮后,窗体上显示的是
A.4 2
B.12 18
C.12 30
D.4 6
第2题
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后,单击命令按钮,输出结果是()。
A.0
B.2
C.3
D.4
第3题
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1),外观如下图所示。编写如下程序: Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text
A.4
B.6
C.8
D.12
第4题
在窗体上画1个名称为Command1的命令按钮,然后编写下列程序:
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是()。
A.ABCDEFG
B.AGBFCE
C.GFEDCBA
D.AGBFCED
第5题
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
A.执行y=x*x
B.执行y=-x
C.先执行y=x*x,再执行y=-x
D.程序出错
第6题
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click()
Dim a(5.5) As Integer
For i=1 To 5
a(I,j)*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a(i,i)
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是()。
A.15
B.13
C.11
D.9
第7题
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,
然后编写如下程序:
Function Fun(X As Integer,ByVal y As Integer)As Integer
x=x+y
If X<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1 Click()
Dim a As Integer,b As Integer
a=-10:b=5
Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub
程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【 】和【 】。
第8题
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为()。
A.0
B.5
C.15
D.无任何输出
第9题
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为()。
A.0
B.5
C.15
D.无任何输出
第10题
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。
编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是______。
A.4
B.6
C.8
D.12
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!