【正文】 。 問題：按下面的要求，問答各問題 （ 1）根據(jù)題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）； （ 2）給出在系統(tǒng)管理中，存放有關(guān)信息所必須的變量、數(shù)組、文件，并注明意義； （ 3）給出（畫出）實(shí)現(xiàn)該系統(tǒng)的菜單界面； （ 4）給出菜單項(xiàng)中各命令菜單項(xiàng)所對(duì)應(yīng)事件過程名及其對(duì)應(yīng)的參數(shù)（不需要編寫實(shí)現(xiàn)代碼），說明各部分的含義； （ 5）給出一組數(shù)據(jù)，并給出說明該系統(tǒng)的使用操作過程（對(duì)于你所給 出的功能都按處理次序至少要運(yùn)行一次）。 該類題目的求解方式如下 ： 解： (1)系統(tǒng)的功能劃分 ： 獎(jiǎng)學(xué)金評(píng)定系統(tǒng) 學(xué)生基本信息的管理 報(bào)表輸 出 修改學(xué)生信息 刪除學(xué)生 添加學(xué)生 成績(jī)錄入 排序（降序） 總成績(jī)計(jì)算 成績(jī)管 理 形成（生成）獎(jiǎng)學(xué)金 輸出一等獎(jiǎng)學(xué)金 輸出二等獎(jiǎng)學(xué)金 成績(jī)修改 （ 2） 存放有關(guān)信息所必須的變量、數(shù)組、文件 ： XM(200) 姓名 ,字符串類型 XH(200) 學(xué)號(hào) ,數(shù)值類型 CJ(200,8) 每個(gè)學(xué)生的單課成績(jī) ,數(shù)值類型 ZCJ(200) 總成績(jī) ,.數(shù)值類型 JXJ1(200) 獲獎(jiǎng)學(xué)金一等的學(xué)生學(xué)號(hào) JXJ1CJ(200) 對(duì)應(yīng) JXJ1 中各獲獎(jiǎng)學(xué)生的各課成績(jī) JXJ2(200) 獲獎(jiǎng)學(xué)金二等的學(xué)生學(xué)號(hào) JXJ2CJ(200) 對(duì)應(yīng) JXJ2 中各獲獎(jiǎng)學(xué)生的各課成績(jī) (3) 練習(xí)題目 1． 考勤信息記錄了學(xué)生的缺課情況，它包括：缺課日期、第幾節(jié)課、課程名稱、學(xué)生姓名、缺課類型（遲到、早退、請(qǐng)假及曠課）。 說明： （ 1）假設(shè)該教學(xué)班最多可能有 120 名學(xué)生，期末考試課程最多有 8 門課程。） 第 四 部分 綜合應(yīng)用題 下面給出該類題目的求解事例，供參考： 1．設(shè)計(jì)一應(yīng)用系統(tǒng)，完成一個(gè)教學(xué)班的學(xué)期末獎(jiǎng)學(xué)金的評(píng)定，并輸出一、二等獎(jiǎng)學(xué)金學(xué)生的學(xué)號(hào)和各門課成績(jī)。 8. 設(shè)某一個(gè)班共有 60 個(gè)學(xué)生，期末考試 5 門課程，請(qǐng)編一程序評(píng)定學(xué)生的獎(jiǎng)學(xué)金，要求打印輸出一、二等獎(jiǎng)學(xué)金學(xué)生的學(xué)號(hào)和各門課成績(jī)。選手的成績(jī)計(jì)算方法是： 10 個(gè)評(píng)委分?jǐn)?shù)中，去掉一個(gè)最高分和一個(gè)最低分，余下分?jǐn)?shù)的平均值為選手的最后得分。 6. 給出將三個(gè)整數(shù) A,B,C按從小到大的順序排列的處理步驟 。 4. 寫出計(jì)算 1!+2！ +3！ +4！ +......+20!的計(jì)算步驟 。 2. 寫出求 5的階乘的計(jì)算步驟 。 （ 3）用 流程圖描述的處理步驟： 注意：在考試中，（ 2）和（ 3）選一種即可。 第 三 部分 用語言或流程圖描述處理步驟 下面給出該類題目的求解事例，供參考： 例題： 對(duì)于 求 SUM=1+2+3+?? +98+99+100的計(jì)算過程， 請(qǐng) 用自然語言或流程圖描述處理步驟。 37． 閱讀程序： Private Sub Form_Click() num=0 Do while num=2 num=num+1 print num Loop End Sub 程序運(yùn)行后 ， 單擊窗體 ， 輸出結(jié)果是 ______。 。)=。,。 isum, Next I End Sub Private Function sum(n As Integer) Dim j As Integer j = j + n sum = j End Function 程序運(yùn)行時(shí)，單擊窗體，輸出結(jié)果是： 33． 閱讀下面的程序段 ： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 執(zhí)行上面的三重循環(huán)后 ， a 的值是多少 ？ 34． Private Sub Command1_Click() Dim a(3,2) As Integer For I=0 To 3 For j=0 To 2 a(I,j)=I*2+j Print a(。 28． 在窗體 (Name屬性為 Form1)上畫兩個(gè)文本框（其 Name屬性分別為 Text1和 Text2）和一個(gè)命令按鈕（ Name 屬性為 Cmd1），然后編寫如下兩個(gè)事件過程： Private Sub Cmd1_Click( ) a = + Print a End Sub Private Sub Form_Load() = = End Sub 程序運(yùn)行后，在第一個(gè)文本框（ Text1）和第二個(gè)文本框（ Text2）中分別輸入 123和 321，然后單擊命令按鈕，則輸出結(jié)果為 ( ) 29． 在窗體上畫一個(gè)文本框（其中 Name屬性為 Text1），然后編寫如下事件過程： Private Sub Form_Load( ) = For i=1 To 10 Sum=Sum+i Next i =Sum End Sub 上述程序的運(yùn)行結(jié)果是 ( ) 。 26． 設(shè)有如下程序 Private sub search(a() As variant,ByVal key As Variant,index%) Dim I% For I＝ LBound(a) To UBound(a) If key＝ a(I) Then index＝ I Exit Sub End If Next I Index＝ 1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b＝ Array(1,3,5,7,9,11,13,15) Call search(b,11,n) Print n End Sub 程序運(yùn)行后，輸出結(jié)果是 ________。 1 2 3 2 4 6 18．假定有如下的 Sub 過程： Sub s(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為： 19．閱讀程序 Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 1 F = a + b + c End Function Private Sub mand1_click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next