- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
将以下程序段补充完整。
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If ②__________Then
Print n & “不是素数”
End If
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If n Mod i = 0 then
s=s+1统计因数个数End If
Next iIf ②__________Then
Print n & “是素数”
ElsePrint n & “不是素数”
End If
有如下VB程序段：
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框 Text1 中输入2，执行该程序段，For语句的循环次数为（）
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框 Text1 中输入2，执行该程序段，For语句的循环次数为（）
| A．3 | B．5 | C．6 | D．9 |