70.小鄭同學(xué)忘記了自己的電子郵箱密碼,他只零星記得密碼的一些信息:
(1)密碼是六位數(shù),前三位數(shù)為198;
(2)密碼最后兩位數(shù)相同;
(3)密碼能被7整除.
為此,他編寫了如下程序找出所有可能的密碼,請將程序補充完整.(算法描述如圖所示)
Private Sub Form_Click
Dim a As Integer,b As Integer,i As Integer
Dim s As Long
For i=0To 999
s=198000+
If
=0Then
a=s Mod 10
b=(s Mod 100)\10
If a=b Then
Print“可能的密碼是:”;
End If
End If
Next i
End Sub.