更多"在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写"的相关试题:
[单项选择]在窗体中添加一个命令按钮(其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
[单项选择]在窗体上添加一个R命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
PrivateSub 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
Ａ) 4321 Ｂ) 1234 Ｃ) 34 Ｄ) 12
[单项选择]在窗体中添加一个命令按钮(其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-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )
A. 2
B. 4
C. 8
D. 48
[填空题]在窗体中添加一个命令按钮，(其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
[单项选择]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码：
Private Sub Command1_Click( )
Str1="981765"
Str2="65"
n=InStr(Str1,Str2)
Me.Text1=n
End Sub
窗体打开运行后，单击命令按钮，在文本框中显示______。
A. 4
B. 5
C. 6
D. 7
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码：
Private Sub Command1_Click（ ）
m=2.17
n=Len(Str$(m)+Space(5))
Mc! Text1=n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[单项选择]在窗体中添加一个命令按钮(名为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
[单项选择]在窗体上添加一命令按钮，名称为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，然后为该命令按钮编写如下事件过程，该过程执行结果为______。
Option Base 1
Private Sub Cemmand1_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 i
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim Save All As String Private Sub Command1_Click（ ） Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click（ ）
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
