更多"在窗体中有一个文本框Test1，编写事件代码如下： Private"的相关试题:
[单项选择]在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click（ ） X=Val(InputBox("输入X的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是
A. 1
B. 2
C. 3
D. 4
[单项选择]
在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下：
Private Sub Command1_Click（ ）
For I = 1 To 4
x = 3
For j = 1 To 3
For k = 1 To 2
x= x + 3
Next k
Next j
Next I
Text1.Value = Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（）
A. 6
B. 12
C. 18
D. 21
[单项选择]
在窗体中有一个文本框Text1，编写事件代码如下：
Private Sub Form_Click（ ）
X-val(Inputbox("输入X的值"))
Y＝1
If X＜＞0 Then Y＝2
Text1.Value＝Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）。
A. 1
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为
A. a
B. A
C. aaaa
D. AAAA
[单项选择]在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1 Click（ ）For i＝1 To 4x＝3Forj＝1 To 3Fork＝1 To 2x＝x+3Next kNext jNext iText1.value＝Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是（）
A. 6
B. 12
C. 18
D. 21
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： 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
[单项选择]窗体上添加一个文本框Text1，编写如下代码： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+5)&KeyCode End sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65 G66
B. F65 F66
C. G66 F65
D. G65 G66
[单项选择]在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click（ ） Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10
[单项选择]窗体上添加一个文本框Text1，编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)& KeyCode End Sub 程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65 G66
B. F65 F66
C. G66 F65
D. G65 G66
[单项选择]在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
