【正文】 2． 設(shè)計(jì)一應(yīng)用系統(tǒng)，完成一個(gè)教學(xué)班的成績 管理，并 實(shí)現(xiàn)如下功能： 1) 設(shè)置學(xué)生的成績信息： 學(xué)生學(xué)號、姓名、所選課程名稱、平時(shí)成績、期末成績、平時(shí)成績所占百分比 2) 計(jì)算學(xué)生總評成績： 總評成績 =平時(shí)成績 *平時(shí)成績所占百分比 +期末成績 *（ 1平時(shí)成績所占百分比） 3) 顯示學(xué)生的姓名、所選課程名稱以及平時(shí)成績、期末成績和總評成績信息 4) 利用文件存儲(chǔ)學(xué)生成績信息，并在程序運(yùn)行開始時(shí)讀入 數(shù)組 中； 當(dāng)運(yùn)行結(jié)束前，再將數(shù)組中 數(shù)據(jù)寫入文件中； 5) 編寫菜單將以上功能 組成一個(gè)應(yīng)用系統(tǒng) 問題：按下面的要求，問答各問題 （ 1）根據(jù)題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）； （ 2）給出在系統(tǒng)管理中，存放有關(guān)信息所必須的變量、數(shù)組、文件，并注明意義； （ 3）給出（畫出）實(shí)現(xiàn)該系統(tǒng)的菜單界面； （ 4）給出菜單項(xiàng)中各命令菜單項(xiàng)所對應(yīng)事件過程名及其對應(yīng)的參數(shù)（不需要編寫實(shí)現(xiàn)代碼），說明各部分的含義； （ 5）給出一組數(shù)據(jù)，并給出說明該系統(tǒng)的使用操作過程（對于你所給出的功能都按處理次序至少要運(yùn)行一次）。即規(guī)定實(shí)際教學(xué)班中，學(xué)生數(shù)目在 40120 之間，課程數(shù)目在 48 之間； （ 2）學(xué)生人數(shù)由于某些原因可能增加、減少，成 績也可能要變更； 問題：按下面的要求，問答各問題 （ 1）根據(jù)題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）； （ 2）給出在系統(tǒng)管理中，存放有關(guān)信息所必須的變量、數(shù)組、文件，并注明意義； （ 3）給出（畫出）實(shí)現(xiàn)該系統(tǒng)的菜單界面； （ 4）給出菜單項(xiàng)中各命令菜單項(xiàng)所對應(yīng)事件過程名及其對應(yīng)的參數(shù)（不需要編寫實(shí)現(xiàn)代碼），說明各部分的含義； （ 5）給出一組數(shù)據(jù)，并給出說明該系統(tǒng)的使用操作過程（對于你所給出的功能都按處理次序至少要運(yùn)行一次）。 （獎(jiǎng)學(xué)金評定標(biāo)準(zhǔn)是：總成績超過全班總平成績 20%發(fā)給一個(gè)獎(jiǎng)學(xué)金，超過 全班總平成績 10%發(fā)給二個(gè)獎(jiǎng)學(xué)金。 7. 體操運(yùn)動(dòng)員參加自由體操?zèng)Q賽，有 10個(gè)評委為他們打分，請給出每位選手的比賽成績的處理流程圖。 3. 寫出求 1+2+3+...... +100 的計(jì)算過程 。 要求： 首先給出所使用的變量名稱、類型以及變量的用途： 解： （ 1）定義所用的變量： SUM： 整型變量，用于存放和值； X： 整型變量，用于存放加數(shù)，同時(shí)用于控制循環(huán)； （ 2）用自然語言描述的處理步驟： ①置初值 ： SUM為 0， X為 1； ② 累加求和 ： SUM=SUM+X； ③獲得下一個(gè)加數(shù)： X=X+1； ④當(dāng) X≤ 100時(shí)重復(fù)執(zhí)行②、③； ⑤輸出 SUM，顯示計(jì)算結(jié)果； ⑥過程結(jié)束。 Next j Print Next I End Sub 程序運(yùn)行時(shí)，單擊命令按鈕，輸出結(jié)果是： 35． 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() For i=1 to 4 X=4 For j=1 to 3 X=3 For k=1 to 2 X=X+6 Next k Next j Next i Print X End Sub 程序運(yùn)行后，單擊命令按鈕，寫出輸出結(jié)果 ： 36． 閱讀以下程序： Private Sub Form_Click() Dim k,n,m As Integer n=10 m=1 k=1 Do while k=n m=m*2 k=k+1 Loop Print m End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果為 _____。j。 30． 在窗體中添加名稱為 Command1和名稱為 Command2的命令按鈕測驗(yàn)文本框 Text1，然后編寫如下代碼： Private Sub Command1_Click() = AB End Sub Private Sub Command2_Click() = CD End Sub 首先單擊 Command2按鈕，然后再單擊 Command1按鈕，在文本框中顯示（ ） 31． Private Sub Command1_Click( ) a=5: s=0 do while a0 s=s+a a=a1 loop print s,a End Sub 程序運(yùn)行時(shí)，單擊命令按鈕，輸出結(jié)果是： 32． Private Sub Form_click( ) Dim I As Integer, isum As Integer For I = 1 To 5 isum = sum(I) Print isum=。 25．在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 ________。 Next j Print Next i End Sub 程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為： 9 10 12 13 15．在窗體上畫一個(gè)命令按鈕（其 Name 屬性值為 Command1），然后編寫如下代碼： Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i)=i+1 t=i+1 If t=3 Then Print a(i) a(t1)=a(i2) Else a(t)=a(i) End If If i=3 Then a(i+1)=（ t4） a(4)=1 Print a(i) Next i End sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ________。 11．設(shè)計(jì)一個(gè)程序，在窗體上當(dāng)按下鍵盤上的“ Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標(biāo)器的左鍵”。 Private Function TrDec(m As Integer,r As Integer)As String 有關(guān)的實(shí)現(xiàn)語句 End Function 設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。 7． 順序查找問題：在一個(gè)具有 n個(gè)元素的有序（升序）數(shù)組 A中，查找數(shù)據(jù) x，設(shè)計(jì)一個(gè)一查找函數(shù) Find，若找到則返回下標(biāo)值，找不到返回 1。 31． 從上題建立的 D 盤上的” ”的文件中讀取學(xué)生的姓名和成績，求出最高分、 最低分的學(xué)生姓名及成績存入 D:\ 中 典型編程練習(xí)題 要