【文章內(nèi)容簡(jiǎn)介】 Next j If x = 0 Then Print i Next i End Sub 計(jì)算數(shù)列 4?? 9999 中能被 13整除的整數(shù)個(gè)數(shù) .用 VB編程 Private Sub Command1_Click() For i = 1 To 9999 If i Mod 13 = 0 Then 10 n = n + 1 End If Next i Print 共有 amp。 n amp。 個(gè)數(shù) End Sub 編寫程序，求表達(dá)式 22222 204321 ??????? 的值。 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的值。 Private Sub Command1_Click() Dim s As Double‘定義累加變量 s來儲(chǔ)存結(jié)果 Dim i As Double’定義 i為計(jì)數(shù)變量。 For i = 1 To 10 s = s + 1 / i ^ 2 Next i Print s End Sub 編寫程序，求表達(dá)式 1+3+5+7+9?? +99 Private Sub Command1_Click() Dim s As Double Dim i As Double For i = 1 To 99 step 2 s = s + i Next i Print s End Sub P的值 :P=1!+3!+5!+7!+9! Private Sub Form_Click() Sum = 0 11 For a = 1 To 9 Step 2 b = 1 For c = 1 To a b = b * a Next c Sum = Sum + b Next a Print Sum End Sub 1到 100自然數(shù)中被 7整除的數(shù)據(jù)的個(gè)數(shù)及他們的和 . Private Sub Form_Click() For a = 1 To 100 If a Mod 7 = 0 Then b = b + 1: Sum = Sum + a Next a Print b, Sum End Sub Private Sub Form_Load() Sum = 0 b = 0 End Sub 那個(gè)下劃線（也就是 “ 橫 ” ）左邊的是控件名（ Command1），右邊的是事件（ Click），括號(hào)里包含的是參數(shù)（空白就表示沒有參數(shù)）。 整個(gè)的意思就是：當(dāng)你用鼠標(biāo)點(diǎn)擊名為 Command1 的按鈕時(shí)，就執(zhí)行這一行 下面的多行代碼，直到遇到 End Sub結(jié)束 輸入長(zhǎng)方形的長(zhǎng)和寬，計(jì)算長(zhǎng)方形的面積，并輸出。 Private Sub mand1_click() Dim a%, b%, s% a = Val(InputBox(a)) b = Val(InputBox(b)) s = a * b Print s End Sub 輸入圓的半徑，計(jì)算圓的周長(zhǎng)，并輸出。 Private sub mand1_click() Const pi= Dim s,i% r=val(inputbox(請(qǐng)輸入半徑 )) s=2*pi*r print 圓的周長(zhǎng)為： 。s end sub 》計(jì)算 sum=1/2!+1/4!+1/6!+...+1/10! Private sub mand1_click() Dim i%,f,s F=1:s=0 各種語句中間加冒號(hào)（：） For i=1 to 10 12 F=f*i If i mod 2=0 then S=s+1/f End if Next i Print sum=1/2!+1/4!+1/6!+...+1/10!。=。s End sub 計(jì)算 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隨機(jī)輸出一個(gè)位于 [0， 100]的整數(shù)。 Private Sub Command1_Click() Dim s S=int(rnd *101) 39。括號(hào)里是 r n d ，不是 md Print 隨機(jī)整數(shù)為： 。s End sub 1編寫一個(gè)函數(shù)，其功能為求兩個(gè)數(shù)的最小數(shù)。 Private Sub Command1_Click() Dim x!, y! x = InputBox(輸入第一個(gè)數(shù)值 ) y = InputBox(輸入第二個(gè)數(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ù)是 。 Min End Function 1》輸入一個(gè)四位數(shù)，分別輸出它的個(gè)位數(shù)字、十位數(shù)字、百位數(shù)字和千位數(shù)字。 Private Sub Command1_Click() Dim n%, a%, b%, c%, d% n = InputBox(輸入 n的值 ) a = n \ 1000 13 b = (n a * 1000) \ 100 c = (n a * 1000 b * 100) \ 10 d = n a * 1000 b * 100 c * 10 Print 這個(gè)四位數(shù)的 千位數(shù)字是 :。 a Print 這個(gè)四位數(shù)的百位數(shù)字是 :。 b Print 這個(gè)四位數(shù)的十位數(shù)字是 :。 c Print 這個(gè)四位數(shù)的個(gè)位數(shù)字是 。 d End Sub 1隨機(jī)輸出一個(gè)小（大）寫字母。 Private Sub Command1_Click() Dim s s = Chr$(Int(Rnd * 26 + 97)) p = Chr$(Int(Rnd * 26 + 65)) Print 輸出的隨機(jī)小寫字母是 。 s Print 輸出的隨機(jī)大寫字母是 。 p End Sub 22. 輸入一個(gè)兩位數(shù)，分別輸出它的個(gè)位數(shù)字和十位數(shù)字。 Private Sub Command1_Click() Dim a!, n!, b! a = Val(InputBox(輸入以為二位數(shù) )) Print 輸入的一個(gè)二位數(shù)是 amp。 a n = a Mod 10 b = a \ 10 Print 十位數(shù)是 amp。 b Print 個(gè)位數(shù)是 amp。 n End Sub 2編寫一個(gè)函數(shù)，其功能為求兩個(gè)數(shù)的最大公約數(shù)。 Private Sub Command1_Click() Dim n%, m%, r%, t%, x%, y% m = InputBox(輸入的第一個(gè)自然數(shù) ) n = InputBox(輸入的第二個(gè)自然數(shù) ) If m n Then t = m: m = n: n = t x = m: y = n r = m Mod n Do While r 0 x = y y = r r = x Mod y Loop Print m amp。 和 amp。 n amp。 的最大公約數(shù)是 。y End Sub 2編寫一個(gè)函數(shù)，其功能為求兩個(gè)數(shù)的最小公倍數(shù)。 Private Sub Command1_Click() Dim n%, m%, r%, t%, x%, y% m = InputBox(輸入的第一個(gè)自然數(shù) ) n = InputBox(輸入的第二個(gè)自然數(shù) ) 14 If m n Then t = m: m = n: n = t x = m: y = n r = m Mod n Do While r 0 x = y y = r r = x Mod y Loop Print m amp。 和 amp。 n amp。 的最小公倍數(shù)是 。 m * n / y End Sub 2 》 編寫程序，計(jì)算并輸出下面級(jí)數(shù)前 n 項(xiàng) (n=20) 中奇數(shù)項(xiàng)的和。 1*2*32*3*4+3*4*54*5*6+ ? +( 1)^(n1)*n*(n+1)*(n+2)+ ? （其中， ^ 表示冪運(yùn)算） 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》計(jì)算 sum=1*2*3*...*10 private s