-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下的事件过程: Private Sub Command1_Click() s = 0 For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序运行后,单击命令按钮,则标签中显示的内容为()
A . 1
B . 5
C . 27
D . 45
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
https://assets.asklib.com/images/image2/2018080114161482449.jpg
程序运行后,单击命令按钮,则标签中显示的内容是()
A . 5
B . 15
C . 20
D . 25
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:
-
在窗体中有一个标签 Label0 ,标题为 “ 测试进行中 ” ;有一个命令按钮 Command1 ,事件代码如下:
Private Sub Command1_Click()
Label0.Caption=" 标签 "
End Sub
Private Sub Form_Load()
Form.Caption=" 举例 "
Command1.Caption=" 移动 "
End Sub
打开窗体后单击命令按钮,屏幕显示
A
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/03d044515e2c611828c7c48ea048090c.gif' />
B
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/0572d539b702134a8b7b6e97360a70af.gif' />
C
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/f7af594a09ec6b17b2ade14152fbd759.gif' />
D
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/38392fa317c8b848bb29c0b373d15549.gif' />
-
在窗体上画一个命令按钮,名称为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的命令按钮和一个名为Text1的文本框,事件代码如下: Private Sub Command1_Click Dim a(10)As Integer,b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体,单击命令按钮,文本框Text1中显示的内容是()。
A.13
B.14
C.15
D.16
-
在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整除的数
-
有一个窗体Form1,其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符,单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。
A.“项目”:[Forms]![Form1],“表达式”:[Forms]![Form1]![Text1]
B.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Text1]
C.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Command1]
D.“项目”:[Forms]![Form1]![Text1],“表达式”:[Forms]![Form1]![Command1]
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/b6e1961a1ece372d5b5d9638e1f875a5.jpg' />
-
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click()
A.5
B.8
C.9
D.10
-
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Priva
在窗体上画一个名称为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整除的数
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
<img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' />
程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1、Label2的标签,然后编写如下的事件过程:Private x As Integer Private Sub Command1_Click()x = 5: y = 3Call Proc(x, y)Label1.Caption = xLabel2.Caption = y
A.5和3
B.25和3
C.25和6
D.5和6
-
在窗体中有一个标签Label0,标题为“显示标签”;并存在一个标题为bOK的命令按钮Command1,其事件代码如下所示:
Private Sub Command1_Click()
a=95
If a>50 Then
k=1
Elself a>60 Then
k=2
Elself a>70 Then
k=3
Elself a>80 Then
k=4
Endlf
Label0.Caption=k
End Sub
Private Sub Form_Load()
Form.Caption=
A.
B.
C.
D.
-
在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:
Private Sub Command1_Click()
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x< y then
t = x
x = y
y = t
End If
If y< z then
t = y
y = z
z = t
If x< y then
t = x
x = y
y = t
End If
End If
Label1.Caption = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为()
A.3,5,8
B.5,3,8
C.8,5,3
D.3.8.5
-
在窗体上面画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub S(X
在窗体上面画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub S(X As Integer,y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click() Dim i As Integer.z As Integer m=0 z=0 For i=1 T0 3 S i,Z m=m+z Next i Label1.Caption=Str(m) 程序运行后,单击命令按钮,在标签中显示的内容是()。
A.50
B.20
C.14
D.7
-
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的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的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:程序运行后,单击命令按钮,则两个标签中显示的内容分别是()
A.25和3
B.5和3
C.25和6
D.5和6
-
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:运行程序后单击命令按钮,在窗体上显示的是()
A.6
B.5
C.7
D.8
-
在窗体中有一个名为Command1的命令按钮,Click事件代码如下:单击命令按钮后,标签显示结果是()
A.16
B.14
C.26
D.25
-
在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Labl1、Timer1和Command1,如图1所示。程序运行后,如果单击命令按钮,则标签开始闪烁,每秒钟“欢迎”二字显示、消失各一次,如图2所示。以下是实现上述功能的程序,请填空。 Private Sub Form_Load() Label1.Caption="欢迎" Timer1.Enabled=False Timer1.Interv
-
在窗体上有一个命令按钮和一个标签,其名称分别为Command1和Label1,编写如下事件过程:程序运行后单击命令按钮,标签中显示的内容是()
A.11
B.12
C.16
D.20