单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写
如下事件过程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j＞Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是 ______。

A．输出n以内的奇数
B．输出n以内的偶数
C．输出n以内的素数
D．输出n以内能被j整除的数
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写 如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n 2=n 2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(By Val x) x=x*x f2=x+x+x End Function 程序运行后，单击命令按钮，在窗体上显示的是 ______。
A．72 36
B．108 36
C．72 6
D．108 6
单项选择题
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。
A．400
B．20
C．441
D．出错信息
相关试题