【正文】 下事件過程： Private Sub Command1_Click() x=0 Do while x50 x=(x+2)*(x+3) n=n+1 Loop =Str(n) =Str(x) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為 ： 2 72 12．寫出下列程序段的運(yùn)行結(jié)果 __s=55________。假定文件名為 c:\。 6．已知 3個(gè)數(shù)，設(shè)計(jì)一個(gè)求出最大值的程序。當(dāng)提供 A,B 的值后 ,輸出該式子 ， 例如 ,當(dāng) A=3,B=4, 輸出 :3X+4=0，并輸出方程的解。 28． 編程把一個(gè)文本框中的內(nèi)容，以文件形式存入磁盤。 11．設(shè)計(jì)一個(gè)程序，在窗體上當(dāng)按下鍵盤上的“ Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標(biāo)器的左鍵”。j。 7. 體操運(yùn)動(dòng)員參加自由體操?zèng)Q賽，有 10個(gè)評(píng)委為他們打分，請(qǐng)給出每位選手的比賽成績(jī)的處理流程圖。 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)行一次）。 3. 寫出求 1+2+3+...... +100 的計(jì)算過程 。 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=。 Private Function TrDec(m As Integer,r As Integer)As String 有關(guān)的實(shí)現(xiàn)語句 End Function 設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。 25．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 2．對(duì)于表達(dá)式： 23 zyxxe x ???? ， 當(dāng) 輸入 x,y,z 值求該表達(dá)式的值 。 12． 求出 100到 200之間所有的素?cái)?shù)及其平均值 ,并輸出 13． 利用循環(huán)，打印輸出下列圖形： A AAA AAAAA AAAAAAA AAAAAAAAA AAAAAAAAAAA AAAAAAAAAAAAA AAAAAAAAAAA AAAAAAAAA AAAAAAA AAAAA AAA A 14．找出 1000 以內(nèi)的所有的完全數(shù)。 4． 設(shè)計(jì)一個(gè)實(shí)現(xiàn)文件復(fù)制的程序 :即將文件“ C:\” 復(fù)制形成文件 ” d:\” 5． 利用隨機(jī)函數(shù)產(chǎn)生 100 個(gè) 1 到 100 之間的整數(shù)存放在一個(gè)數(shù)組 a 中，按照每行 10 個(gè)數(shù)輸出該數(shù)組，再將其按照由小到大的順序排序后輸出。 1 2 3 1 4 1 16．在窗體上畫一個(gè)命令按鈕 (其 Name 屬性值為 Command1)，然后編寫如下代碼： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12k Next k x=6 Print M(2+M(x)) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ___4_____。 37． 閱讀程序： Private Sub Form_Click() num=0 Do while num=2 num=num+1 print num Loop End Sub 程序運(yùn)行后 ， 單擊窗體 ， 輸出結(jié)果是 ______。） 第 四 部分 綜合應(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ī)。 說明： （ 1）假設(shè)該教學(xué)班最多可能有 120 名學(xué)生，期末考試課程最多有 8 門課程。 第 三 部分 用語言或流程圖描述處理步驟 下面給出該類題目的求解事例，供參考： 例題： 對(duì)于 求 SUM=1+2+3+?? +98+99+100的計(jì)算過程， 請(qǐng) 用自然語言或流程圖描述處理步驟。 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 i End Sub 運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為： 20．閱讀程序 Sub Sabp(b() As I