题型：单选题 题类：常考题 难易度：普通
【bj】高中信息技术综合库——枚举算法2
Private Sub Command1_Click()
i＝1
j＝7
Do While _______
i＝_______
j＝________
Loop
Text1.Text＝Str(i)
Text2.Text＝Str(j)
End Sub
则下列说法正确的是( )
图1
图2
程序代码如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
| For i = 3 To 97 ___①___ If f(i) And ② Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i |
End Sub
Private Function f(x As Integer) As Boolean '自定义函数f,返回值为逻辑型
Dim j As Integer
f = True
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
f = ③ '函数返回值
Exit For '跳出For循环
End If
Next j
End Function
试题篮
