10.小黃編制了一個Visual Basic程序,能根據(jù)輸入的城市名查找并顯示該城市的日照時間。程序運行界面如圖所示,左邊列表框List1中顯示各城市的日照時間和相應的城市名,在文本框Text1中輸入查找的城市名,單擊“查找”按鈕Command1,若找到,則在文本框Text2中顯示該城市的日照時間。程序中數(shù)組a和數(shù)組b分別存儲城市名和對應的日照時間。 程序代碼如下: Const n As Integer=10'n為城市數(shù) Dim a(1To n) As String'數(shù)組a存儲城市名 Dim b(1To n) As Single'數(shù)組b存儲日照時間 Private Sub Command1_Click ( ?。?br />Dim i As Integer,s As String's用于存儲輸入的城市名稱 Dim f As Boolean'f用于表示是否找到,當f=True時,表示未找到 s=Text1.Text f=True i=1 Do While i<=n And f If
Then Text2.Text=Str(b(i)) f=False End If
Loop If f Then Text2.Text=“沒有該城市數(shù)據(jù)“ End If End Sub Private Sub Form_Load ( ) '此過程用于對數(shù)組a和數(shù)組b進行賦值,并顯示在List1中,代碼略 End Sub (1)解決此問題的算法是