在窗体上画4个文本框,并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In Text1 Text1(i).Text=Text1(i).Index i=i+1 Next End Sub 程序运行后,单击命令按钮,4个文本框中显示的内容分别为( )。
举一反三
- 在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下:Private Sub Command1_Click() For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1输出的结果是
- 在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下: Private Sub Command1_Click() x = 3 For i = 1 To 4 x = x + 3 Next i Text1.Value =Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Textl输出的结果是( )。
- 在窗体上添加一个文本框Text1和一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Text1.Text = Str(n) 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: 出错
- 在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub