单项选择题

在窗体画一个名称为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 Sub Command1_Click() x=0 n=InputBox( ) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。
A．3
B．4
C．5
D．6
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。
A．7 9
B．34 0
C．9 7
D．死循环
相关试题