单项选择题

在窗体上画一个名称为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整除的数
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer， x As Integer For i=1 To 6 If i=1 Then x=i If i＜= 4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为
A．9
B．6
C．12
D．15
单项选择题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim al(4，4)，a2(4，4) For i=1 To 4 For j=1 To 4 a1(i，j)=i+j a2(i，j)=al(i，j)+i+j Next j Next i Print al(3，3)；a2(3，3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是
A．6 6
B．10 5
C．7 21
D．6 12
相关试题