举一反三
- 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n =Val(Text1.Text) For i = 2To n For j =2 To sqr(i) Ifi Mod j = 0 Then Exit For Next j If j> Sqr(i) Then Print i Next i End Sub 该事件过程的功能是_____。
- 在窗体上添加一个文本框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的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______。（5.0分）
- 在窗体上画一个命令按钮＜其名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮；其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6
- 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub
内容
- 0
窗体上有文本框Text1、Text2和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6，并单击Command1，则文本框Text2中显示（）。
- 1
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后，单击命令按钮，输出结果是 A: 0 B: 2 C: 3 D: 4
- 2
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dims1AsString,s2AsStringOpenD:data.txtForInputAs#1Seek#1,5s1=Input$(2,#1)s2=Input$(3,#1)PrintSeek(1)Close#1EndSub假设有磁盘文件D:data.txt，且文件足够长，当程序运行时，单击Command1，在窗体上输出的结果是____௲ 垎
- 3
在窗体上画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个文本框中显示的内容分别为( )。
- 4
设窗体上有一个命令按钮Command1和一个文本框Text1,并有以下事件过程:PrivateSubCommand1_Click()Text1.Text=Ucase(Text1.Text)Text1.SetFocusEndSubPrivateSubText1_GotFocus()IfText1.Text<>”Basic”ThenText1.Text=””EndIfEndSub程序执行后在Text1文本框中输入”Basic”,然后单击Command1按钮,则产生的结果是()。