【正文】 求 : 要先給出所設(shè)計(jì)的窗體 ,并注明窗體上的各控件及其用途 ,然后給出處理步驟 ,并編寫代碼 . 1． 編程求 S=1！ +2！ +3！ +┅┅ +20！ Private Sub Form_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ù)。 28． 編程把一個(gè)文本框中的內(nèi)容，以文件形式存入磁盤。 25．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 程序界面如下： 20． 用隨機(jī)函數(shù)產(chǎn)生 100 個(gè) [0， 99]范圍內(nèi)的隨機(jī)整數(shù)，統(tǒng)計(jì)個(gè)位上的數(shù)字分別為 1， 2， 3， 4， 5，6， 7， 8， 9， 0 的數(shù)的個(gè)數(shù)并打印出來 21． .統(tǒng)計(jì)成績(jī)分布 22． 定義一個(gè)判斷 X 是否素?cái)?shù)的子過程，并調(diào)用此過程打印出前 100 個(gè)素?cái)?shù)。 10．求 1+2+3+...+N的和， N利用 inputbox（）函數(shù)輸入， 11． 設(shè)計(jì)一個(gè)程序，對(duì) Sum=1+2+3+...+N，求 Sum不超過 10000的最大整數(shù)項(xiàng)數(shù) N。當(dāng)提供 A,B 的值后 ,輸出該式子 ， 例如 ,當(dāng) A=3,B=4, 輸出 :3X+4=0，并輸出方程的解。 2．對(duì)于表達(dá)式： 23 zyxxe x ???? ， 當(dāng) 輸入 x,y,z 值求該表達(dá)式的值 。第一部分 程序設(shè)計(jì)部分 程序設(shè)計(jì)題的設(shè)計(jì)格式及其處理步驟： （ 1）先畫出處理界面（窗體） ，并注明各控件的名稱 ； （ 2）再給出處理步驟， （ 3）寫出程序代碼： 下面給出該類題目的求解事例，供參考： 例如：設(shè)計(jì)程序，求 1+2+3+...+N 的和 值。 3．利用 InputBox 函數(shù)輸入一個(gè)正實(shí)數(shù)，用 Print 方法在窗體上打印出其平方值、平方根、立方值 ,結(jié)果保留 2 位有效數(shù)字。 6．已知 3個(gè)數(shù)，設(shè)計(jì)一個(gè)求出最大值的程序。 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ù)。 提示：子過程的入口參數(shù)是 X（整型），出口參數(shù)是 W（整型）， W為 1,表示 X是素?cái)?shù)， W為 0，表示X 不是素?cái)?shù)。當(dāng)遇到回車鍵時(shí)，將剛輸入的字符串，在 TEXT2 框中顯示， 請(qǐng)?jiān)O(shè)計(jì)程序完成該功能。假定文件名為 c:\。 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ù)組，再將其按照由小到大的順序排序后輸出。 Private Function Find(a() As Single, n As Integer， x As Single)As Integer 有關(guān)的實(shí)現(xiàn)語(yǔ)句 End Function 設(shè)計(jì)另一 個(gè)過程調(diào)用上述該過程，完成輸入、輸出。 9．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 第 二 部分 分析程序，寫出程序的運(yùn)行結(jié)果或功能 1．下面程序 X$=a Y$=b Z$=c For i=1 To 2 X$=Y$ Y$=Z$ Z$=X$ Next i Print X$+Y$+Z$ 運(yùn)行后的輸出結(jié)果是： cbc 2．下面程序 For i=10 To 40 step 6 Print i Next i 的循環(huán)次數(shù)為： 6 3．下面程序 For i=1 To 2 s=1 For j=0 To i1 s=s+s*1 Next j Print s Next i 執(zhí)行后輸出的結(jié)果為： 2 4 4．下面程序 i=0 n=0 Do while i32 i=(i+1)*(i+1) n=n+1 Loop Print n 運(yùn)行后的結(jié)果為“ 4 5．下面程序 For I=1 To 3 If I=1 Then a=3 If I=2 Then a=2 If I=3 Then a=1 Print a Next I Print I 運(yùn)行時(shí)輸出的結(jié)果是： 1 1 1 4 6．下面程序段 Dim x x=Int(Rnd)+4 Select Case x Case 5: Print 90~100 Case 4: Print 80~90 Case 3: Print 70~80 Case 2: Print 60~70 Case 1: Print 0~60 End Select 顯示的結(jié)果是： 80~90 7．下面程序段 For i=1 To 3 Step 1 Print Spc(5i) For j=1 To 2*i1 Print * Next j Print Next i 運(yùn)行結(jié)果為： * * * * * * * * * 8．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Prinate 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é)果是： 15 9．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() x=0 Do until x=1 a=InputBox(請(qǐng)輸入 a 的值 ) a=Val(a) b=InputBox(請(qǐng)輸入 b 的值 ) b=Val(b) x=InputBox(請(qǐng)輸入 x 的值 ) x=Val(x) a=a+b+x Loop Print a End Sub 程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入 5， 4， 3，