【導讀】如需相應的流程圖請聯(lián)系。程序運行后，單擊窗體，輸出結果為：5050。2．我國現(xiàn)有人口為12億，設年增長率為1%，編寫程序，計算多少年后增加到16億。3．從鍵盤上輸入兩個正整數(shù)M和N，求最大公因子。Printm1;"和";n1;"的最大公因子是：";m. 該程序通過輾轉相除法求兩個正整數(shù)的最大公因子。和64，輸出結果為：96和64的最大公因子是：32. 7．從鍵盤上輸入一個學生的學號和考試成績，然后輸出該學生的學號、成績，并根據(jù)成績按下。面的規(guī)定輸出對該學生的評語：。MsgBox"學號"&n&",分數(shù)為"&s&",good". 通過InputBox函數(shù)輸入數(shù)。據(jù)，在窗體上顯示和及平均值。Print"4個數(shù)的和為：";sum. Print"能構成三角形的有：". VB編程，求出S=1乘3乘5加2乘4乘6一直到加20乘22乘24的和

　　

【正文】 tBox(請輸入 N的值 ) n1 = n While n 0 r = m Mod n m = n n = r Wend Print m1。和 。 n1。的最大公因子是 :。 m End Sub For j = 1 To 30 3 * i Print 39。1 個空格 Private Sub Form_Click() Dim m As Integer, n As Integer m = InputBox(請輸入 M的值 ) m1 = m n = InputBox(請輸入 N的值 ) n1 = n r = m Mod n While r 0 m = n n = r r = m Mod n Wend Print m1。 和 。 n1。 的最大公因子是： 。 n End Sub 19 編寫程序，打印如下的乘積表（將每行的數(shù)字分別與每列的數(shù)字相乘，并將乘積填入相應位置）。 * 3 6 9 12 14 ?? 15 ?? 16 ?? 17 ?? 18 ?? Private Sub Form_Click() Print *。 Tab(9)。 3, Tab(18)。 6。 Tab(27)。 9。 Tab(36)。 12 Print For i = 14 To 18 Print i。 For j = 3 To 12 Step 3 Print Tab(3 * j)。 j * i。 Next j Print Next i End Sub 1編程計算 e=1+1/1！ +1/2！ +...+1/n!,要求其誤差 (1/n!)小于 . Private Sub Form_click() Dim i%, namp。, t!, e! e = 0 i = 0 n = 1 t = 1 Do While t e = e + t i = i + 1 n = n * i t = 1 / n Loop Print 計算了 。 i。 項的和是 。 e End Sub 1求 N?。?N為自然數(shù)） Private Sub Form_Click() Dim n As Integer n = InputBox(Enter N:) k = 1 For i = 1 To n k = k * i Next i Print n。 !=。 k End Sub 20 1編寫程序，判斷一個正整數(shù)（ =3）是否為素數(shù)。 Private Sub Form_Click() Dim n As Integer n = InputBox(請輸入一個正整數(shù) (=3)) k = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then k = 1 Next i If k = 0 Then Print n。 是一個素數(shù) Else Print n。 不是素數(shù) End If End Sub 將 x,y,z三個數(shù)按從小到大的順序排列。 Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = InputBox(請輸入 x的值 ) 39。輸入 x的初值 y = InputBox(請輸入 y的值 ) z = InputBox(請輸入 z的值 ) If x y Then w = x: x = y: y = w 39。將 x,y中的小數(shù)存放于 x中 If x z Then w = x: x = z: z = w 39。x中存放 x,z中小數(shù) ,x 為最小數(shù) If y z Then w = y: y = z: z = w 39。y中存放 y,z中的小數(shù) Print x, y, z 39。在窗體上按從小到大的順序輸出 x,y,z的值 End Sub 2將學生成績的百分制轉換成 A、 B、 C、 D、 E等級制。 Private Sub Form_Click() score = InputBox(please input score 的值 ) If score 90 Then grade = A ElseIf score 90 And score = 80 Then grade = B ElseIf score 80 And score = 70 Then grade = C ElseIf score 70 And score = 60 Then grade = D Else grade = E End If Print 你的等級是 : amp。 grade 39。在窗體上打印出 grade的值 End Sub 21 2按正序和反序輸出 26 個大寫英文字母。 分析：用整型變量 i表示循環(huán)變量，大寫英文字母與 i之間對應關系可用 Chr 函數(shù)轉換 ，字母 “A”的 ASCII 序號為 65。正序和反序輸出可分別用 For 語句的步長為１（遞增）和步長為－１（遞減）來實現(xiàn)。 Private Sub Form_Click() Dim i As Integer For i = 1 To 26 39。正序輸出 26個大寫英文字母 Print Chr(64 + i)。 39。A的 ASCII序號為 65 Next i Print 39。換行 For i = 26 To 1 Step 1 39。反序輸出 26個大寫英文字母 Print Chr(64 + i)。 Next i End Sub 2編程計算累乘積超過 1000的最小 i值（ P=1*2*3...*i） Private Sub Form_click() P = 1: i = 1 Do While P 1000 i = i + 1 P = P * i Loop Print i End Sub 編程計算 12+34+56+...+n的值，其中 n由文本框輸入 。 方法 1：（ 在窗體上先畫一文 本框 text1） Private Sub Command1_Click() Dim n%, i%, s% n = CInt(Text1) s = 0 For i = 1 To n If i Mod 2 0 Then s = s + i Else s = s i End If Next i Text2 = s End Sub 3編程計算 2^02^1+2^22^3+...+2^10的值 . Private Sub Form_Click() Dim s%, i% s = 0 For i = 0 To 10 s = s + (1) ^ i * 2 ^ i Next i Print s=。 s End Sub 22 3編程計算 1^1+2^2+3^3+4^4+...+9^9+10^10的值。 Private Sub Form_Click() Dim s!, i% s = 0 For i = 1 To 10 s = s + i ^ i Next i Print s=。 s End Sub 3編程計算 1/1*2+1/2*3+1/3*4+1/4*5+...+1/n*(n+1)的值，其中 n=20。 Private Sub Form_Click() Dim s!, i%, p! s = 0 For i = 1 To 20 s = s + 1 / i * (i + 1) 39。不能寫成 1/(i+1)*i Next i Print s=。 s End Sub 3 e=1+1/1!+1/2!+1/3!+...+1/n!，計算 e的值（精確到 10 6 ）。 Private Sub Form_Click() Dim e, i%, pamp。 e = 1: i = 1: p = 1 Do Until 1 / p 10 ^ 6 39。不斷循環(huán)，直到單項 1/n!小于 10^6 e = e + 1 / p i = i + 1 p = p * i 39。p為 i的階乘 i! Loop Print e=。 e End Sub 3從鍵盤輸入一整數(shù)（個位不為 0） ,倒序輸出。 Private Sub Form_click() Dim m As Double, n As Double n = InputBox(請輸入 一個整數(shù) ) Do While n 0 m = m * 10 + n Mod 10 n = n \ 10 Loop Print m=。 m End Sub