16.求兩個數(shù)的最大公約數(shù)可以用輾轉(zhuǎn)相除法,也可以用遞歸算法實現(xiàn).程序運行界面如圖.VB程序如下: Private Sub Command1_Click( ) Dim m As Integer,n As Integer Dim r As Integer m=Val(Text1.Text) n=Val(Text2.Text) r=m Mod n Do While r>0 m=n n=r r=
Loop Label3.Caption=“最大公約數(shù)為:“+Str(n) End Sub Function gys(x As Integer,y As Integer) As Integer Dim z As Integer z=x Mod y If z=0 Then gys=y Else gys=gys(y,z) End If End Function Private Sub Command2_Click( ) Dim m As Integer,n As Integer m=Val(Text1.Text) n=Val(Text2.Text) Label3.Caption=“最大公約數(shù)為:“+
17.2017年9月杭州各大樓盤的銷售價格數(shù)據(jù)信息已經(jīng)保存在數(shù)據(jù)庫文件database1.a(chǎn)ccdb的Building數(shù)據(jù)表中,用于顯示樓盤信息的VB程序運行時界面如圖所示.運行程序,單擊“顯示”按鈕,在列表框list1中顯示樓盤信息,單擊“降序排列”按鈕,在列表框list1中按樓盤均價從高到低顯示樓盤信息.按此要求編寫的VB程序如下: Dim num(1 To 50)As String Dim price(1 To 50)As Single Dim infor(1 To 50)As String Dim nam(1 To 50)As String Dim i As Integer Private Sub Form_Load( ?。?br />Dim conn As New ADODB.Connection,rs As New ADODB.Recordset conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“&App.Path &“\database1.a(chǎn)ccdb“ conn.Open Set rs.ActiveConnection= ① rs.Open“select*from Building“ i=0 Do While ② i=i+1 num(i)=rs.Fields(“編號“) price(i)=rs.Fields(“均價(元)“) infor(i)=rs.Fields(“信息“) nam(i)=rs.Fields(“樓盤名“) rs.MoveNext Loop rs.Close conn.Close End Sub Private Sub Command1_Click( ) Dim j As Integer List1.Clear For j=1 To i List1.AddItem num(j) &““& Str(price(j)) &““& infor(j) &““& nam(j) Next j End Sub Private Sub Command2_Click( ) Dim m As Integer List1.Clear For
k=m For n=m+1 To i If
Then k=n Next n If m<>k Then t=price(m):price(m)=price(k):price(k)=t End If List1.AddItem num(m) &““& Str(price(m)) &““& infor(m) &““& nam(m) Next m List1.AddItem num(m) &““& Str(price(m)) &““& infor(m) &““& nam(m) End Sub 請回答下列問題: (1)程序加框處的代碼有錯,請改正:①