有趣的进制数:编写VB程序找出符合条件的十进制自然数,该自然数的七进制与九进制都是三位数,且七进制与九进制的三位数码顺序正好相反,输出这个十进制数与对应的七进制和九进制数。程序运行界面如图所示。
实现上述功能的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