【正文】 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 之間的所有素?cái)?shù) 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個(gè)整數(shù)，求出它們的總和與積，并打印其中既能被 5整除又能被 3整除的數(shù)。 Private Function TrDec(m As Integer,r As Integer)As String 有關(guān)的實(shí)現(xiàn)語句 End Function 設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。 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é)果是 ________。 30． 在窗體中添加名稱為 Command1和名稱為 Command2的命令按鈕測(cè)驗(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=。 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é)果為 _____。 3. 寫出求 1+2+3+...... +100 的計(jì)算過程 。 （獎(jiǎng)學(xué)金評(píng)定標(biāo)準(zhǔn)是：總成績(jī)超過全班總平成績(jī) 20%發(fā)給一個(gè)獎(jiǎng)學(xué)金，超過 全班總平成績(jī) 10%發(fā)給二個(gè)獎(jiǎng)學(xué)金。 2． 設(shè)計(jì)一應(yīng)用系統(tǒng)，完成一個(gè)教學(xué)班的成績(jī) 管理，并 實(shí)現(xiàn)如下功能： 1) 設(shè)置學(xué)生的成績(jī)信息： 學(xué)生學(xué)號(hào)、姓名、所選課程名稱、平時(shí)成績(jī)、期末成績(jī)、平時(shí)成績(jī)所占百分比 2) 計(jì)算學(xué)生總評(píng)成績(jī)： 總評(píng)成績(jī) =平時(shí)成績(jī) *平時(shí)成績(jī)所占百分比 +期末成績(jī) *（ 1平時(shí)成績(jī)所占百分比） 3) 顯示學(xué)生的姓名、所選課程名稱以及平時(shí)成績(jī)、期末成績(jī)和總評(píng)成績(jī)信息 4) 利用文件存儲(chǔ)學(xué)生成績(jī)信息，并在程序運(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)所對(duì)應(yīng)事件過程名及其對(duì)應(yīng)的參數(shù)（不需要編寫實(shí)現(xiàn)代碼），說明各部分的含義； （ 5）給出一組數(shù)據(jù)，并給出說明該系統(tǒng)的使用操作過程（對(duì)于你所給出的功能都按處理次序至少要運(yùn)行一次）。即規(guī)定實(shí)際教學(xué)班中，學(xué)生數(shù)目在 40120 之間，課程數(shù)目在 48 之間； （ 2）學(xué)生人數(shù)由于某些原因可能增加、減少，成 績(jī)也可能要變更； 問題：按下面的要求，問答各問題 （ 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)行一次）。 7. 體操運(yùn)動(dòng)員參加自由體操?zèng)Q賽，有 10個(gè)評(píng)委為他們打分，請(qǐng)給出每位選手的比賽成績(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é)束。j。 25