单项选择题

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

单项选择题
设有如右图所示的窗体和下列程序： Private Sub Command1_Click() Text1.Text= Visual Basic End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞ BASIC Then Text1.Text= Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。
A．文本框中无内容，焦点在文本框中
B．文本框中为"Basic"，焦点在文本框中
C．文本框中为"Basic"，焦点在按钮上
D．文本框中为"Visual Basic"，焦点在按钮上
单项选择题
有如下函数过程：Function HFC(ByVal x AS Integer，ByVal y As Integer)As IntegerDo While y ＜ ＞ 0sic=x yX=yy=sicLoopHFC=xEnd Function以下是该函数的调用过程，该程序的运行结果是( )。Private Sub Command1 _ Click( )Dim a AS IntegerDim b As Integera=12b=2x=HFC(a，b)Print xEnd Sub
A．0
B．6
C．2
D．80
相关试题