小明的支付寶賬號密碼忘記了,但他還零星記得有關于密碼的一些信息:
①密碼是八位數(shù)字,前兩位為19
②最后兩位數(shù)字是91
③能被77和133整除
程序界面如圖1所示,單擊“找回密碼”按鈕(Command1)后,可能的密碼顯示在列表框List1中。
解決此問題的相應的程序如下:
Private Sub Command1_Click ( )
Dim i As Long,s As Long
For i=0 To 9999
s=①
Val(“19“+str(Format(“i“,0000))+“91“)
Val(“19“+str(Format(“i“,0000))+“91“)
's表示該八位數(shù)密碼
If ②s mod 77=0 And s mod 33=0
s mod 77=0 And s mod 33=0
Then'符合密碼的條件,s能被77和133整除
List1.AddItem Str(s)
End If
Next i
End Sub
(1)在應用程序界面設計時,添加“List1”對象用于顯示可能的密碼,應使用圖2所示的“控件工具箱”中的 ②
②
(填寫相應的編號)。
(2)將窗體Form1上顯示的文本“Form1”改為“尋找密碼”,可在其屬性窗口中將屬性 Caption
Caption
的屬性值修改為“尋找密碼”。
(3)解決此問題的算法是 枚舉算法
枚舉算法
。(填:枚舉算法/解析算法/查找算法)
(4)在程序①和②下橫線處,填入適當?shù)恼Z句或表達式,把程序補充完整:
程序中①下橫線處應填入 s=Val(“19“+str(Format(“i“,0000))+“91“)
s=Val(“19“+str(Format(“i“,0000))+“91“)
程序中②下橫線處應填入 s mod 77=0 And s mod 33=0
s mod 77=0 And s mod 33=0