单项选择题
在窗体上画一个名称为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
If j>Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是( )。
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
在Select case结构中,使用“To表达式”来指定一个范围时,必须把______的值写在前面。
点击查看答案
单项选择题
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array( 北京 , 上海 , 天津 , 重庆 ) Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.空白
B.错误提示
C.北京
D.上海
点击查看答案
相关试题
下列程序的功能是:将数据1,2,…,8写...
部件
下档
工程
设窗体中已经加入了文件列表框(File1)、...