17.下列程序的功能是從鍵盤上任意輸入一個(gè)數(shù),判斷這個(gè)數(shù)是正數(shù),負(fù)數(shù),還是零,并輸出判斷結(jié)果.程序中加框處有錯(cuò)誤,請(qǐng)改正. Private sub Command1_Click Dim a As Single Dim py As String a= (1)
If a>0Then py=”正數(shù)” If a=0Then py=”零” If a<0Then py=”負(fù)數(shù)” (2) End Sub (1)
18.如圖,在我國(guó)古代《孫子算經(jīng)》中曾經(jīng)提出這樣一個(gè)問題,原文是這樣的:“今有物,不知其數(shù),三三數(shù)之,剩二;五五數(shù)之,剩三;七七數(shù)之,剩二;問物幾何?”試用枚舉算法來解決這一個(gè)問題.現(xiàn)分析如下,所尋找之?dāng)?shù)為滿足如下條件的自然數(shù):以3除余2,以5除余3,以7除余2.程序?qū)淖匀粩?shù)1開始依次尋找,逐一判斷某一自然數(shù)是否滿足全部條件,直至在指定范圍內(nèi)找到滿足條件的所有自然數(shù).程序代碼如下,請(qǐng)補(bǔ)充完整. Private Sub Command1_Click Dim sum As Integer'sum 用來統(tǒng)計(jì)符合條件的自然數(shù)個(gè)數(shù)' Dim n,max As Integer List1.Clear sum=0 max=(1)___'指定查找范圍的最大自然數(shù),Text1文本框中輸入' n=0 Do While n<=max n=n+1'從自然數(shù)1開始不斷往上尋找' If (2)___Then List1.AddItem Str(n)'找到后在List1中顯示結(jié)果' (3)___ End If Loop List1.AddItem (“共計(jì)“+Str(sum)+“個(gè)“) End Sub (1)