約分后的最簡(jiǎn)形式. 編寫VB程序,程序運(yùn)行界面如圖所示,請(qǐng)根據(jù)算法將下列程序補(bǔ)充完整. Private Sub Command1_Click ( ) Dim a As Integer,b As Integer,r As Integer'a、b為分子和分母,r為最大公約數(shù) a=Val(Text1.Text) b=Val(Text2.Text) If b=0Then c=MsgBox(“分母不能為0“):Exit Sub '如果分母為0,則提示“分母不能為0”并退出該過程 r=
Text3.Text=Str(a/r) Text4.Text=Str(b/r) End Sub Function gys(ByVal m As Integer,ByVal n As Integer) As Integer 'gys函數(shù)用于求最大公約數(shù) Dim s As Integer If m<n Then t=m:m=n:n=t End If Do While n<>0 s=m Mod n m=n n=s Loop
21.小明利用所學(xué)的知識(shí)幫助語文老師設(shè)計(jì)一個(gè)語文學(xué)考等級(jí)查詢系統(tǒng),要求如下:輸入某個(gè)等級(jí),就能查出該等級(jí)的所有學(xué)生學(xué)號(hào)和姓名,并統(tǒng)計(jì)出該等級(jí)學(xué)生的人數(shù),以便語文老師方便了解學(xué)生的學(xué)考情況.語文學(xué)考成績(jī)分A、B、C、D、E五個(gè)等級(jí),學(xué)生信息存儲(chǔ)在數(shù)據(jù)庫(kù)文件“stugrade.jye.ai”的數(shù)據(jù)表“Chinese”中,數(shù)據(jù)表“Chinese”的結(jié)構(gòu)如圖1所示. VB程序運(yùn)行界面如圖2所示,在文本框Text1中輸入查詢的等級(jí),單擊“查詢”按鈕Command1,在列表框List1中顯示所有該等級(jí)的學(xué)生學(xué)號(hào)和姓名,并按照學(xué)號(hào)從小到大排序,并在標(biāo)簽Label2處顯示學(xué)生的人數(shù),如果人數(shù)為0,則在列表框中顯示“沒有該等級(jí)的學(xué)生”.按此要求編寫程序如下,但加框處代碼有錯(cuò)誤,請(qǐng)改正. Private Sub Command1_Click ( ) Dim stuna(1To 100)As String'存放學(xué)生姓名的數(shù)組定義為stuna Dim stunum(1To 100)As String'存放學(xué)生學(xué)號(hào)的數(shù)組定義為stunum Dim i As Integer,j As Integer,n As Integer Dim t As String '連接數(shù)據(jù)庫(kù) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String cn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\stugrade.jye.ai“ cn.Open strSQL=“select*from Chinese where 語文等級(jí)='“+Text1.Text+“'“ Set rs.ActiveConnection=cn rs.Open strSQL n=0 Do While Not rs.EOF n=n+1 stuna(n)=rs.Fields(“姓名“).Value stunum(n)=rs.Fields(“學(xué)號(hào)“).Value rs.NextMove'① Loop rs.Close cn.Close Set rs=Nothing Set cn=Nothing List1.Clear'清除列表框 If n=0Then List1.AddItem“沒有該等級(jí)的學(xué)生“ Else For i=1To n-1'按姓名排序 For j=n To i+1Step-1 If stuna(j)<stuna(j-1)Then'② t=stunum(j):stunum(j)=stunum(j-1):stunum(j-1)=t t=stuna(j):stuna(j)=stuna(j-1):stuna(j-1)=t End If Next j Next i For i=1To n List1.AddItem stunum(i)+““+stuna(i) Next i Label2.Caption=“該等級(jí)的學(xué)生共有“+Str(n)+“名“ End If End Sub (1)加框處①有錯(cuò),應(yīng)改為