更多"在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Te"的相关试题:
[单项选择]在窗体中添加一个命令按钮(名为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)和一个文本框(名为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、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n +l Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 9和2
B. 27和3
C. 195和3
D. 600和4
[单项选择]在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：
Private Sub Command1_Click( )
Text1.Text="AB"
End Sub
Private Sub Command2_Cliek( )
Text1.Text="CD"
End Sub
首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A. AB
B. CD
C. ABED
D. CDAB
[单项选择]在窗体中添加一个命令按钮，名称为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
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：
Private Sub Command1_Click(
)
Dim x As String, y As String, c As String, d As String
x = Text1.Text : y = Text2.Text
c = LCase(x): d = UCase(y)
Print c; d
End Sub
程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是________。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim x As String，y As String， C As String，d As String
x = Text1．Text ： y = Text2．Text
c = LCase(x)：d = UCase(y)
Print c； d
End Sub
程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序：
Dim S1 As String,S2 As String
Private Sub Form_Load（ ） Text1.Text=""
Text2.Text=""
End Sub
Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Private Sub Command1_Click（ ）
Textl.Text=S2
Text2.Text=S1
S1=""
S2=""
End Sub
程序运行后,在Text1中输入"abc",然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为【 】
A. abc和ABC
B. abc和abc
C. ABC和abc
D. ABC和ABC
[填空题]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为text1) ，然后编写如下事件过程：
Private Sub Command1_C1ick( )
Dim x As Integer, y As Integer, z As Integer
x=5:y=7:z=0
Me!Text1=""
Call p1(x,y,z)
Me!Text1=z
End Sub
Sub p1(a As Integer,b As Integer,c As Integer)
C=a+b
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是______
