单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
　　n=Val(Text1.Text)
　　For i=2 To n
　　　Forj=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整除的数
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array( 北京 ， 上海 ， 天津 ， 重庆 ) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．空白
B．错误提示
C．北京
D．上海
单项选择题
单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Crick() Print Myfunc(24,18) End Sub Public Function MyFunc(m As Integer,n As Integer)As Integer Do Whilem＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop MyFunc=m End Function
A．2
B．4
C．6
D．8
相关试题