更多"在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程"的相关试题:
[填空题]在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程：
Private Sub cmd_click( )
Dim x As Integer, y As Integer, z As Integer
x=5
y=7
z=0
Me! Txt=""
Call p(x,y,z)
Me! txt=z
End Sub
Sub p(a As Integer, b As Integer, e As Integer)
c=a+b
End Sub
单击按钮，文本框显示的内容是 【12】 。
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的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
[填空题]在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：
Private Sub Cmd_Click( )
Dim sum,k
For k=1 to 6
sum=30+k
Next k
MsgBox sum+k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是 【12】 。
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
Private Sub Command1_Click（ ）
k=0
Do While k ＜ 70
k=k+2
k=k*k+k
a=a+k
Loop
Text1．Text=a
End Sub
程序运行后，文本框中显示的是
A. 20
B. 32
C. 44
D. 78
[填空题]在窗体中添加一个命令按钮Command1和一个文本框Text1，编写如下代码：
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，z As Integer
a=5，b=10，c=0
Me!Text1=" "
Call p1(a,b,c)
Me!Text1=12
End Sub
Sub pl(XxAs Integer，y As Integer，z As Integer)
z=x+y
End Sub
程序运行后，文本框中应显示的内容为______。
[单项选择]在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序：
Private Sub Commandl Click（ ）
Dim a(5)， b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j/2)
End Sub
程序运行后，单击命令按钮，在文本框中显示
A. 25
B. 18
C. 36
D. 35
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String, ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1,k,1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入Basic，然后单击命令按钮，则Text1中显示的是
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click（ ） Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码：
Private Sub Command1_Click（ ）
m=2170
n=Len (Str$ (m) +Space (5))
Me! Text1=n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[填空题]在窗体上添加两个文本框(名为TXT1和TXT2)和一个命令按钮(名为BTNOK)，然后
PRIVATE SUB BTNOK CLICK( )
ME! TXT1="ABCD"
ME! TXT2="123"
ME! TXT1=ME! TXT2& ME! TXT1
ME! TXT2=ME! TXT2+456
END SUB
程序运行后，单击命令按钮，文本框TXT1和TXT2中显示的内容分别为 【13】 和 【14】
[单项选择]在窗体中添加一个命令按钮(名为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
[单项选择]
设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String，ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1，k，1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（）。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程：
Private Sub Command1_Click（ ）
Dim s As String，Ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1，k，1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是（）。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[填空题]在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，即命令按钮，程序可找出在文本框中输入的其他所有英文字母，并以大小写方式降序显示到Text1中，显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。
Private Sub Oommandl_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=【8】
End If
c=Chr $(Asc(C)【9】)
Wend
If s＜＞"" Then
Text1=s
End If
End Sub
