[单项选择]
在窗体中有一个文本框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

更多"在窗体中有一个文本框Text1，编写事件代码如下： Private S"的相关试题:

[单项选择]窗体上添加一个文本框Text1，编写下列代码：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+51 ＆KeyCode)
End Sub
程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65

查看答案

[单项选择]窗体上添加一个文本框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

查看答案

[单项选择]在窗体上画一个称为Text1的文本框，然后编写如下的事件过程：
Private Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键

查看答案

[单项选择]在窗体上画一个文本框(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

查看答案

[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程： Private Sub Text1_KeyPress(Keyascii As Integer) End Sub 若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键

查看答案

[单项选择]在窗体中有一个命令按钮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

查看答案

[单项选择]在窗体上面有一个文本框，其名称为Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dims str As String str=Chr(KeyAscii) KeyAseii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下事件过程： 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

查看答案

我来回答:

提交