未分类题

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

A.Text)
B.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数

【参考答案】

C
解析：为了判断一个数n是不是素数，可以将n被2到根号2之间的所有整数除，如果都除不尽，则n就是素数，否则不是......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

未分类题

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=' ' Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print 'Visual Basic'； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是A.Visual BasicB.程序设计C.Visual Basic程序设计D.a程序设计

A.Text='
B.SetFocus
C.Visual
D.程序设计
C.Visual

未分类题

设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String *10 TelNum As String *20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A.Private Sub Command1_Click() Dim B As Books Open 'c： Person.txt' For Output As #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1,BName,BTelNum Close #1 End SubB.Private Sub Command1_Click() Dim B As Books Open 'c: Person.txt' For Input As #1B@Name=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Print #1，BName，BTelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books ppen 'c： Person.txt' For Output AS #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1，B Close#1 End SubD.Privte Sub Command1_Click() Open 'c： Person.txt' For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print#1，Name，TelNum Close #1 End Sub

A.txt中写入一条记录。下列能够完成该操作的事件过程是
A.Private
B.txt'
C.Private
D.txt'
E.Private
F.txt'
G.Privte
H.txt'

相关试题