更多"在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签"的相关试题:
[填空题]在窗体上画一个命令按钮Command1和3个标签控件(Lable1、Lable2和Lable3)，编写如下代码：
Public x As Integer
Private Sub Command1_Click（ ）
Static y As Integer
Dim z As Integer
n=5
x=x+n
y=y+n
z=z+n
Lable1.Caption=x
Lable1.Caption=y
Lable1.Caption=z
End Sub
运行程序，连续3次单击命令按钮后，则3个标签中显示的内容分别为______。
[单项选择]在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Pfivme Sub Command1_Click( )
score=Iht(Rnd*10)+70
Select Case score
Case ls＜60
a＄=“F”
Case 60 T069
a＄=“D”
Case 70 To 79
a＄=“C”
Case 80 To 89
a＄=“B”
Case Else
a＄=“A”
End Select
Print aS
End Sub
程序运行后，单击命令按钮，输出结果是
A. A
B. B
C. C
D. D
[单项选择]在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是
A. 22
B. 24
C. 26
D. 28
[单项选择]在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click（ ） Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是
A. 22
B. 24
C. 26
D. 28
[单项选择]在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码；
Private Sub Command1_Click（ ）
Dim S As String*20
S=Text1. Text
End Sub
该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )
A. Open "datl. dat", For lnput As#1
B. Open"datl. dat" For Output As#1
C. Open"dat", For Binary As #1
D. Open datl. dat"For Random As
[单项选择]
窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。命令按钮的单击事件过程 如下：
Private Sub Command1_Click（ ）
CD1.FileName=" "
CD1.Filter="All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是（）。
A. 执行以上事件过程，通用对话框被设置为“打开”文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.Txt
D. 以上代码不对文件执行操作
[单项选择]在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Com- mand1)，然后编写如下程序：
Private Sub Command1_Click( )
x=0
Do While x＜20
x=(x+1) *(x+2)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是
A. 1和0
B. 2和12
C. 3和182
D. 3和12
[单项选择]在窗体上添加一个命令按钮Command1和一个文本框Text1，并在命令按钮中编写如下程序：
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Me! Text1=n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[填空题]在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim a(100)
For j=1 To 100
a(j)=Int ( 【12】 )
If a(j) 【13】 5=0 Then 【14】
Print a(j)
Next j
Print
print k/100
End Sub
[填空题]在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。
请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1 Click（ ）
Dim a(100)
For j=1 To 100
a(j)=Int(______)
If a(j)______5=0 Then______
Print a (j)；
Next i
Print
Print k/100
End Sub
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click（ ）
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2
[单项选择]在窗体上添加一命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
Private Sub Command1_Click（ ）
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上添加一个R命令按钮，名称为Command1,然后为该命令按钮编写如下事件过程，该过的执行结果为( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim a As Variant
a=Array(1,2,3,4
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码：
Private Sub Command1_Click（ ）
m=2.17
n=Len(Str$(m)+Space(5))
Me!Text1=n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
