在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程: Private Sub Form_Load() Show Textl.Text="" Text2.Text="" Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Textl.Text=Textl.Text+Chr(KeyCode-4) End Sub 程序运行后,如果在Text2文本框中输入“efghi”,则Text1文本框中的内容为 【11】 。
举一反三
- 窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。 A: A) Private Sub Label1_Click() B: Label1. Caption = Text1. Text C: End Sub D: B) Private Sub Label1_Change() E: Label1. Caption = Text1. Text F: End Sub G: C) Private Sub Text1_Click() H: Label1. Caption = Text1. Text I: End Sub J: D) Private Sub Text1_Change() K: Label1. Caption = Text1. Text L: End Sub
- 在窗体上添加一个文本框,其名称为text1,然后编写如下的Load事件过程,则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub A: 在文本框中显示120 B: 文本框中仍为空 C: 在文本框中显示480 D: 出错
- 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer,shift As Integer) Dim C As string Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是( ) A: A B: a C: C D: c
- 窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Text1. Text; End Sub 运行程序,并在文本框中输入“123”,则在窗体上的输出结果为( )。 A: A) 123 B: B) 112 C: C) 12123 D) 112123
- 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim s As String s=Chr(KeyCode+35) Text2.Text=s End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是 A: A B: a C: D D: d