单项选择题

在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n=Val(Text1. Text)
For i=2 To n
For j=2 To Sqr(i)
If i Hod 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的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。
A．6
B．7
C．8
D．9
单项选择题
假定有如下事件过程： Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A．81 4
B．56 3
C．28 1
D．243 5
相关试题