【单选题】在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Com- mand1),然后编写如下程序: Private Sub Command1_Click( ) x=0 Do While x<20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) TextText=Str(x) End Sub 程序运行后,单击命令按钮...
【单选题】在名为Form1的窗体上添加三个文本框和一个命令按钮,其名称分别为Text1、Text2、Text3和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1='' Text2='' Text3='' End Sub 打开窗体Form1后...
Private Sub Form. Load() Show Text1.Text=' ' Text2.Text=' ' Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub
B.
Private Sub Form_Load() Show Text1.Text=' ' Text2.Text=' ' Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub
C.
Private Sub Form_Load() Show Text1.Text=' ' Text2.Text=' ' Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub
D.
Private Sub Form_Load() Show Text1.Text=' ' Text2.Text=' ' Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub