【正文】 e Sub Command1_Click() Dim n%， s%， x% N=val() S=0 X=1 Do while x=n S=s+x X=x+1 Loop Text2=s End Sub 請輸入 N 運(yùn)算結(jié)果 計(jì)算 文本框 1： TEXT1 文本框 2： TEXT2 命令 按鈕 1： Command1 標(biāo)簽 1： Label1 標(biāo)簽 2： Label2 第一部分 練習(xí)題目 要求 : 要先給出所設(shè)計(jì)的窗體 ,并注明窗體上的各控件及其用途 ,然后給出處理步驟 ,并編寫代碼 . 1． 設(shè)計(jì)一個(gè)程序，完成利用文本框輸入任意兩個(gè)數(shù)的乘法運(yùn)算，并顯示計(jì)算結(jié)果。 2．對于表達(dá)式： 23 zyxxe x ???? ， 當(dāng) 輸入 x,y,z 值求該表達(dá)式的值 。 4．編寫一個(gè)華氏溫度與攝氏溫度之間的轉(zhuǎn)換程序，轉(zhuǎn)換公式為： F＝ 9/5 C＋ 32 及 C＝ 5/9（ F－ 32）；其中， F：華氏溫度； C：攝氏溫度。當(dāng)提供 A,B 的值后 ,輸出該式子 ， 例如 ,當(dāng) A=3,B=4, 輸出 :3X+4=0，并輸出方程的解。 7．輸入一個(gè)整數(shù)，判定是正數(shù)還是負(fù)數(shù)，并輸出結(jié) 果 8．輸入 x,y,z 三個(gè)數(shù)，按從小到大的次序顯示。 10．求 1+2+3+...+N的和， N利用 inputbox（）函數(shù)輸入， 11． 設(shè)計(jì)一個(gè)程序，對 Sum=1+2+3+...+N，求 Sum不超過 10000的最大整數(shù)項(xiàng)數(shù) N。完全數(shù)是指等于其所有因子和的數(shù)（包括 1 因子，但 1 不是完全數(shù)）；例如： 6的因子有 3，并且 6=1+2+3，則 6是完全數(shù)。 程序界面如下： 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ì)成績分布 22． 定義一個(gè)判斷 X 是否素?cái)?shù)的子過程，并調(diào)用此過程打印出前 100 個(gè)素?cái)?shù)。 23． 編寫一個(gè)子過程 (或函數(shù)過程 )，功能是求階乘，并調(diào)用該過程計(jì)算： S=1!+2!+3!+?? +n！的值，其中 n 的值可以通過鍵盤隨機(jī) 輸入，圖 271 是程序界面。 25．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 注意：回車鍵的 ASCII 碼是 13，其掃描碼也是 13 26． 設(shè)計(jì)一個(gè)程序，每間隔 1 秒，在文本框中顯示數(shù)字，依次是： 1 2 3 4 5 6 7 8 9 10 等等，直到顯示 30 止。 28． 編程把一個(gè)文本框中的內(nèi)容，以文件形式存入磁盤。 29． 編程建立一個(gè)包含若干行字符串的文本文件，然后將該文件的內(nèi)容按行讀出，加上行號(hào)后復(fù)制到另外一個(gè)文本文件中。 31． 從上題建立的 D 盤上的” ”的文件中讀取學(xué)生的姓名和成績，求出最高分、 最低分的學(xué)生姓名及成績存入 D:\ 中 典型編程練習(xí)題 要求 : 要先給出所設(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ù)。 6． 插入問題： 在一個(gè)具有 n個(gè)元素的有序（升序）數(shù)組 A中，插入數(shù)據(jù) x， 插入后數(shù)列仍然有序。 7． 順序查找問題：在一個(gè)具有 n個(gè)元素的有序（升序）數(shù)組 A中，查找數(shù)據(jù) x，設(shè)計(jì)一個(gè)一查找函數(shù) Find，若找到則返回下標(biāo)值，找不到返回 1。 8． 數(shù)制轉(zhuǎn)換 問題： 將一個(gè)十進(jìn)制整數(shù) m 轉(zhuǎn)換成 r進(jìn)制（ 2或 8進(jìn)制） 字符串。 Private Function TrDec(m As Integer,r As Integer)As String 有關(guān)的實(shí)現(xiàn)語句 End Function 設(shè)計(jì)另一個(gè)過程調(diào)用上述該過程，完成輸入、輸出。當(dāng)遇到回車鍵時(shí)，將剛輸入的字符串，在 TEXT2 框中顯示， 請?jiān)O(shè)計(jì)程序完成該功能。 11．設(shè)計(jì)一個(gè)程序，在窗體上當(dāng)按下鍵盤上的“ Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標(biāo)器的左鍵”。 i=1 s=0 Do until i10 s=s+i i=i+1 Loop Print s=。 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é)果是 ________。 17．在窗體上畫一個(gè)命令按鈕 (其 Name 屬性值為 Command1)，然后編寫如下代碼： Private Sub Command1_Click() Dim a(5,5) For i=1 To 3 For j=1 To 4 a(i,j)=i*j Next j Next i For n=1 To 2 For m=1 To 3 Print a(m,n) Next m Next n End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ________。 25．在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x y, x, y) End Function Private Sub Command1_Click()