单项选择题

在窗体上画一个名称为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
lf 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( ) Dim array1(10，10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．15
B．14
C．13
D．12
单项选择题
在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写 如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abe
D．def
相关试题