【正文】 InputBox(請輸入 x的值： ) y = InputBox(請輸入 y 的值： ) z = InputBox(請輸入 z 的值： ) If x y Then t = x: x = y: y = t If x z Then t = x: x = z: z = t If y z Then t = y: y = z: z = t Print x。 s End Sub 1．【程序說明】下面是一段計算數(shù)學(xué)表達(dá)式 的程序。（ 4）用 Print 方法輸出詳細(xì)結(jié)果。 b End Sub 2．編寫一段代碼，求給定的一個圓的周長和面積。 max print 最小值： 。 S(n)=(1*2)/(3*4)+(3*4)/(5*6)+(5*6)/(7*8)+?+[(2n 1)*2n]/[(2n+1)*(2n+2)]+? Private Sub Command1_Click() Dim i% 15 n = 20 For i = 1 To n s = s + ((2 * i 1) * (2 * i)) / ((2 * i + 1) * (2 * i + 2)) Next i Print 前 20項的和是 。 1*2*32*3*4+3*4*54*5*6+ ? +( 1)^(n1)*n*(n+1)*(n+2)+ ? （其中， ^ 表示冪運算） Private sub mand1_click() Dim i%,n%,sum% n=20 for i=1 to n step 2 sum= sum+ i*(i+1)*(i+2) Next Print sum End sub 2》計算 sum=1*2*3*...*10 private sub mand1_click() dim sum,i% sum=1 for i=1 to 10 sum=sum*i next print sum end sub 這個編程哪里有問題，為什么運行不了？ (應(yīng)該 dim sum) 3編寫程序，編寫程序，計算并輸出下面級數(shù)前 n （設(shè) n=50 ）項中所有奇數(shù)項的和。 和 amp。 n amp。 b Print 個位數(shù)是 amp。 s Print 輸出的隨機大寫字母是 。 b Print 這個四位數(shù)的十位數(shù)字是 :。 Private Sub Command1_Click() Dim x!, y! x = InputBox(輸入第一個數(shù)值 ) y = InputBox(輸入第二個數(shù)值 ) Min = f(x, y) End Sub Public Function f(m!, n!) Min = m If Min n Then Min = n f = Min Print 兩數(shù)中的較小數(shù)是 。s End sub 計算 sum=1+3+5+...+99 Private Sub mand1_click() Dim i%, sum% For i = 1 To 99 Step 2 sum = sum + i Next Print sum End Sub 1隨機輸出一個位于 [0， 100]的整數(shù)。 Private Sub mand1_click() Dim a%, b%, s% a = Val(InputBox(a)) b = Val(InputBox(b)) s = a * b Print s End Sub 輸入圓的半徑，計算圓的周長，并輸出。 Private Sub Form_Click() Dim i As Integer, sum As Long For i = 1 To 20 sum = sum + i ^ 2 Next i Print sum End Sub 編寫程序，求表達(dá)式 87654321 87654321 ??????? 的值 Private Sub Form_Click() Dim i As Long, sum As Long For i = 1 To 8 sum = sum + i ^ i Next i Print sum End Sub 編寫程序，求表達(dá)式 1/12+1/22+1/32+1/42+? +1/102的值。 n,zhe這句話的意思是在 text1的內(nèi)容的基礎(chǔ)上加上 5個空格，再加上某個素數(shù)，因此，第一次執(zhí)行時，在空格的基礎(chǔ)上加上 5個空格和第一個素數(shù)，這是第一個素數(shù)就是這樣，以后的素數(shù)也是這樣的原理，最后的 text1中的內(nèi)容是： ” r1 r2 r3.。 text1=textamp。記錄滿足條件的個數(shù) If (n Mod 20 = 0) Then 39。個位上的數(shù) If (l k And k j) Then 39。 Private Sub Command1_Click() Dim i, j, k, l, n For i = 100 To 999 39。 39。 i Next j Print S amp。 個 End Sub 用 0～ 9這十個數(shù)字可以組成能被 15整除且無重復(fù)數(shù)字的三位數(shù)的個數(shù) ” 并打印結(jié)果 Private Sub Command1_Click() For i = 1To 9 For x = 0 To 9 For y = 0 To 9 d = i amp。輸出它的個位數(shù) Private Sub Form_Click() Dim a As Integer Dim b As Integer a = Val() b = a Mod 10 Print b End Sub 由 1， 2， 3， 4四個數(shù)字，能組成多少個互不相同且無重復(fù)數(shù)字的三位數(shù)都是多少？ Private Sub Form_Activate() Dim c As Integer For i = 1 To 4 6 For j = 1 To 4 For w = 1 To 4 If i j And j w Then i amp。f=1 Next If f = 0 Then Print a amp。 *。定義按鈕 Dim a%, f%: Cls 39。 aver End Sub 以 1， 2， 3， 4， 5為邊長可以形成多少個三角形，不考慮相同情況，請輸出這些三角形的三個邊長 Private Sub Form_Click() Dim i%, j%, k%, m% 3 m = 0 Print 能構(gòu)成三角形的有： For i = 1 To 3 For j = 2 To 4 For k = 3 To 5 If i + j k And Abs(i j) k And i j And j k Then Print i, j, k m = m + 1 End If Next k Next j Next i Print 共有 amp。通過 InputBox函數(shù)輸入數(shù)據(jù)，在窗體上顯示和及平均值。 ,分?jǐn)?shù)為 amp。 ,分?jǐn)?shù)為 amp。 ,分?jǐn)?shù)為 amp。 ,分?jǐn)?shù)為 amp。 ,分?jǐn)?shù)為 amp。的最大公因子是： ?！迥旰?，全國人口為：″； P End Sub 3．從鍵盤上輸入兩個正整數(shù) M和 N，求最大公因子。 1 如需相應(yīng)的流程圖請聯(lián)系 1．編寫程序，計算 1+2+3+4+? +100。 解答：程序如下： Private Sub Form_Click( ) Dim p As Double Dim r As Single Dim n As Integer P=1202000000 r= While p1600000000 P = P + P* r N = N + 1 Wend P = Int(P) Print N。 n1。 n amp。 n amp。 n amp。 n amp。 n amp。 5．從鍵盤上輸入 4個數(shù)，編寫程序，計算并輸出這 4個數(shù)的和及平均數(shù)。 sum Print 4 個數(shù)的平均值為： 。 s End Sub VB編程，求出 S =1 乘 3乘 5加 2乘 4乘 6一直到加 20乘 22 乘 24的和 Private Sub Form_Load() Dim i, j, sum, a For i = 1 To 20 Step 6 a = 1 For j = i To i + 4 Step 2 a = a * j Next sum = sum + a a = 1 For j = i + 1 To i + 5 Step 2 a = a * j Next sum = sum + a Next MsgBox sum End Sub vb數(shù)組 0,5,6,10,11,12,15,16,17,18,20,21,22,23,24的代碼