题型：综合题 题类：常考题 难易度：困难
浙江省名校协作体2018-2019学年高二下学期信息技术期末联考试卷
实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click（）
Dim i As Integer, d As Integer, r As integer
Dim rs As string, ans1 As Integer, ans2 As Integer
For i=81 To 342
①
rs=“”
Do While d ＜>0
r = d Mod 9
rs= str(r)+rs
②
Loop
ans1= Val(rs)
‘求出相应的七进制数，存储在变量ans2中，代码略
If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③ Then
Text1. Text=④
Text2 Text= Str(ans1)
Text3. Text= Str(ans2)
End If
Next i
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
程序代码如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
For i = 3 To 97 ___①___ If f(i) And f(i+2)=true Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i |
End Sub
Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false
………
End Function
试题篮
