更多"窗体上有一个名为text1的文本框和一个名为command1的命令按钮"的相关试题:
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer,n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next j
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是______。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load （ ） Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click（ ） Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（ ）
Command1. Enabled=False
End Sub
Private Sub Text1______（ ）
Command1. Enabled=True
End Sub |
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮，事件过程：
Private sub command1_dick（ ）
Dim x as Integer,n as Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
text1=str(x)text2=str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框text1和text2中显示的值分别是______。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是
Ａ) 2 4
2 4
Ｂ) 2 4
4 8
Ｃ) 10 10
58 58
Ｄ) 4 4
8 8
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=p2(pl(x),y):Text2.Text=pl(x)
End Sub
Private Function pl(x As Integer)As Integer
x=x+y:y=x+y
pl=x+y
End Function
Private Function p2(x As Integer,y As Integer)As Integer
p2=2*x+y
End Function
程序运行后，第一次单击和第二次单击命令按钮后，文本框Text1和Text2内的值分别是( )。
A. 2 4
B. 2 4
C. 10 10
D. 4 4
[单项选择]设窗体上有一个文本框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
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim i，j，x
For i=1 To 20 step 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1．Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。
A. 1
B. 7
C. 17
D. 400
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
PrivateSubCommand1_Click（）
Dimi，j，x
Fori=1To20step2
x=0
Forj=iTo20step3
x=x+1
Nextj
Nexti
Text1.Value=Str（x）
EndSub
打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。
A. 1
B. 7
C. 17
D. 400
[填空题]在窗体中添加一个命令按钮(名为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
打开窗体运行后，单击命令按钮，文本框中显示的内容是______
