【正文】 rm_Click() Dim i, j As Integer Dim sum0 As Double Dim sum As Double For i = 1 To 3 sum0 = 1 For j = 1 To i sum0 = sum0 * j Next j sum = sum + sum0 Next i Print sum End Sub 2． 編程輸出 3—— 200 之間的所有素數 Private Sub Form_Click() Dim i, j As Integer For i = 3 To 200 k = Sqr(i) For j = 2 To k If i Mod j = 0 Then Exit For Next j If j k Then Print i End If Next i End Sub 3． 輸入 10個整數，求出它們的總和與積，并打印其中既能被 5整除又能被 3整除的數。 Private Function TrDec(m As Integer,r As Integer)As String 有關的實現語句 End Function 設計另一個過程調用上述該過程，完成輸入、輸出。 Next j Print Next i End Sub 程序運行后，單擊命令按鈕，其輸出結果為： 9 10 12 13 15．在窗體上畫一個命令按鈕（其 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 程序運行后，單擊命令按鈕，輸出結果是 ________。 30． 在窗體中添加名稱為 Command1和名稱為 Command2的命令按鈕測驗文本框 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 程序運行時，單擊命令按鈕，輸出結果是： 32． Private Sub Form_click( ) Dim I As Integer, isum As Integer For I = 1 To 5 isum = sum(I) Print isum=。 Next j Print Next I End Sub 程序運行時，單擊命令按鈕，輸出結果是： 35． 在窗體上畫一個命令按鈕，然后編寫如下事件過程： 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 程序運行后，單擊命令按鈕，寫出輸出結果 ： 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 程序運行后，單擊窗體，輸出結果為 _____。 3. 寫出求 1+2+3+...... +100 的計算過程 。 （獎學金評定標準是：總成績超過全班總平成績 20%發(fā)給一個獎學金，超過 全班總平成績 10%發(fā)給二個獎學金。 2． 設計一應用系統(tǒng)，完成一個教學班的成績 管理，并 實現如下功能： 1) 設置學生的成績信息： 學生學號、姓名、所選課程名稱、平時成績、期末成績、平時成績所占百分比 2) 計算學生總評成績： 總評成績 =平時成績 *平時成績所占百分比 +期末成績 *（ 1平時成績所占百分比） 3) 顯示學生的姓名、所選課程名稱以及平時成績、期末成績和總評成績信息 4) 利用文件存儲學生成績信息，并在程序運行開始時讀入 數組 中； 當運行結束前，再將數組中 數據寫入文件中； 5) 編寫菜單將以上功能 組成一個應用系統(tǒng) 問題：按下面的要求，問答各問題 （ 1）根據題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）； （ 2）給出在系統(tǒng)管理中，存放有關信息所必須的變量、數組、文件，并注明意義； （ 3）給出（畫出）實現該系統(tǒng)的菜單界面； （ 4）給出菜單項中各命令菜單項所對應事件過程名及其對應的參數（不需要編寫實現代碼），說明各部分的含義； （ 5）給出一組數據，并給出說明該系統(tǒng)的使用操作過程（對于你所給出的功能都按處理次序至少要運行一次）。即規(guī)定實際教學班中，學生數目在 40120 之間，課程數目在 48 之間； （ 2）學生人數由于某些原因可能增加、減少，成 績也可能要變更； 問題：按下面的要求，問答各問題 （ 1）根據題目的描述和說明，給出該系統(tǒng)的功能劃分（該系統(tǒng)至少要完成哪些功能）； （ 2）給出在系統(tǒng)管理中，存放有關信息所必須的變量、數組、文件，并注明意義； （ 3）給出（畫出）實現該系統(tǒng)的菜單界面； （ 4）給出菜單項中各命令菜單項所對應事件過程名及其對應的參數（不需要編寫實現代碼），說明各部分的含義； （ 5）給出一組數據，并給出說明該系統(tǒng)的使用操作過程（對于你所給出的功能都按處理次序至少要運行一次）。 7. 體操運動員參加自由體操決賽，有 10個評委為他們打分，請給出每位選手的比賽成績的處理流程圖。 要求： 首先給出所使用的變量名稱、類型以及變量的用途： 解： （ 1）定義所用的變量： SUM： 整型變量，用于存放和值； X： 整型變量，用于存放加數，同時用于控制循環(huán)； （ 2）用自然語言描述的處理步驟： ①置初值 ： SUM為 0， X為 1； ② 累加求和 ： SUM=SUM+X； ③獲得下一個加數： X=X+1； ④當 X≤ 100時重復執(zhí)行②、③； ⑤輸出 SUM，顯示計算結果； ⑥過程結束。j。 25