更多"在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过"的相关试题:
[单项选择]在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程: Private Sub Text1_KeyPress(Keyascii As Integer) End Sub 若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load( ) Text1. Text= " " Text1. SetFocus For i=1 To 10 Sum=Sum+i Next i Text1. Text=Sum End Sub 上述程序的运行结果是 ______。
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
[单项选择]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1.Text=Sting(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
[单项选择]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容是
A. bbb
B. BBB
C. BB
D. bb
[单项选择]在窗体上画一个文本框(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
[单项选择]在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程: Private Sub Form_ Load( ) Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值