在窗体上画一个名称为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 该事件过程的功能是_____。

公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！

2021-04-14

在窗体上画一个名称为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 该事件过程的功能是_____。

答案：

输出n以内的素数

举一反三

内容

0
在窗体上添加一个文本框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 程序运行后，单击命令按钮，在文本框中显示的值是（）。
1
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5,5) For i=1 To 3 Forj=1 To 4 a(i,j))=i*j Next Next For n=1 To 2 For m=1 To 3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是( )。 A: A) 246123 B: B) 123246 C: C) 123456 D: D) 654321
2
在窗体中有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输出的结果是
3
在窗体上面添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的内容是（）
4
中国大学MOOC: 在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（）。Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print SumEnd Sub