【单选题】在窗体中添加两个文本框(其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”的窗体上添加三个文本框和一个命令按钮,其名称分别为“txt1”、“txt2”、“txt3”和“Command1”,然后编写如下两个事件过程: Private Sub Command1_Click() txt3=txt1+txt2 End Sub Private Sub Form. l_Load() txt1=' ' txt2=' ' txt3=' ' End Sub 当打开窗体...
【单选题】在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Prin...
【单选题】在名为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