更多"在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过"的相关试题:
[填空题]
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String，s As String，c As String
str=UCase(Text1)
S=""
C="Z"
While c＞="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s＜＞""Then
Text1=S
End If
End Sub
[填空题]在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运 行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未 在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（ ）
Dim str As String, s As String, c As String str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, C）= 0 Then s = _________
End If
c = Chr$(Asc( C）_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是 【15】
Private Sub Command1_Click（ ）
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k=k+p(i) *2
Next i
Print k
End Sub
[单项选择]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为 ( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i, "*")
Print x
Next i
End Sub
Private Sub Command1_Click（ ）
p1 (3)
End Sub
A. * * *
B. *
C. *
D. * * * * * *
[单项选择]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click（ ）
p1(3)
End Sub
A. ***
B. *
C. *
D. ******
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为 【6】 。
Private Sub Command1_Click（ ）
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
[单项选择]在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。
Function fun(ByVal num As Long) As Long
Dim k As Long
k=1
mum=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
A. 20
B. 24
C. 9
D. 28
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。
Private Sub Command1_Click（ ）
x=0
Do Until x=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Print a
End Sub
A. 2
B. 3
C. 14
D. 15
[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$，8)
c$=Mid(a$，1，8)
MsgBox aS，b$，c$，1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1
