-
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
-
在窗体中添加一个命令按钮Command1,编写如下代码:Private Sub Command1_Click()x = 6If x > 6 ThenIf x = 6 ThenPrint \a\ElsePrint \b\End IfElseIf x < 8 ThenPrint \c\ElseIf x = 6 ThenPrint \d\End IfEnd IfEnd IfEnd Sub运行后,单击命令按钮,则在窗体上显示的是( )。
-
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() x = InputBox("Input") Select Case x Case 1, 3 Print "分支 1" Case Is > 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是()。
A.分支1
B.分支2
C.Else 分支
D.程序出错
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click(
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() s= "ABBACDDCAB" For i=6 To 2 Step -2 x=Mid(s,i,i) y=Left(s,i) z=x&y Next i MsgBox z End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.AABA
B.ABBA
C.BABBA
D.BBAB
-
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:Private Sub Command1
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。
A.hardware
B.software
C.hardware
D.1
-
在窗体上画一个名为Command1的命令按钮,编写如下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后,单击命令按钮,输出的结果是______。
-
在VB窗体上添加一个名称为 Command1的命令按钮,再添加两个名称分别为Label1、Label2的标签,然后
A.A.13和40
B.B.13和8
C.C.5和40
D.D.5和8
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是()。
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Public x As integerPrivate Sub C
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As integer Private Sub Command1_Cliek() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 () x = x+20 End Sub Private Sub s2 () Dim x As integer x =x +20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
A.10
B.30
C.40
D.50
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程; Private Sub Command1_Click() a $="software and hardware" b $=Right(a$, 8) c $=Mid(a$, 1, 8) MsgBox a$, ,b$,c$,1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是______。
A.software and hardware
B.software
C.hardware
D.1
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(C)) For i = 1 To 4 Print_____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
-
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK(
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK() A =75 IF A >60 THEN K=1 ELSEIF A > 70 THEN K=2 ELSEIF A > 80 THEN K=3 ELSEIF A >90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A=75 If A>60 Then I=1 If A>70 Then 1=2 If A>80 Then 1=3 If A>90 Then 1=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then in=m+n/3 Next Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是
A.15
B.18
C.21
D.24
-
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/06618ed14e1342af407ef4550c1f28b1.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/1ebfd75144eb824dfe338ddda7667206.jpg' />程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为()。
A.20是一个奇数
B.20
C.20是一个偶数
D.2
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c=
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=“ABCD” For n=l 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)
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivatSuCommand1_Click()。程序运行时,单击Command1,则在窗体上输出的结果是()
A.分支1
B.分支2
C.分支3
D.无任何输出
-
窗体上有一个名称为Command1的命令按钮,并有如下程序:程序运行后单击命令按钮Command1,输出结果是()
A.0
B.-1
C.-2
D.-3
-
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:运行程序后单击命令按钮Command1,窗体上显示的是()
A.12345
B.678910
C.23456
D.62345
-
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:运行程序后单击命令按钮,在窗体上显示的是()
A.6
B.5
C.7
D.8
-
在窗体中有一个名为Command1的命令按钮,Click事件代码如下:单击命令按钮后,标签显示结果是()
A.16
B.14
C.26
D.25
-
在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_ Click()Dim arrarr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12)For i = ______ For j = ______ If arr(i) >= arr(j) Then a = arr(j
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
A.Right
B.Left
C.Val
D.Mid
-
在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_ Click() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr(i) >= arr(j) Thena = arr