单项选择题

在窗体上画一个名称为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整除的数

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n 2=n 2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(By Val x) x=x*x f2=x+x+x End Function 程序运行后，单击命令按钮，在窗体上显示的是 ______。

A．72 36
B．108 36
C．72 6
D．108 6

单项选择题

在窗体上画一个名称为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 To 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

相关试题