vb編程代碼參考模板

1、計(jì)算二的n次冪代碼Private Sub Command1_Click() Dim n As Integer, mi As Double Dim i As Integer n = Int(Val(InputBox("") mi = 1 For i = 1 To n mi = mi * 2 Next i Print " 2 的" n; "次冪為：" miEnd Sub編寫程序，隨機(jī)生成100個(gè)兩位整數(shù)，并統(tǒng)計(jì)出其中小于等于40、大于40小于等于70及大于70的數(shù)據(jù)個(gè)數(shù)。代碼Private Sub Command1_Click() Dim

2、 x As Integer, i As Integer Dim cnt1 As Integer, cnt2 As Integer, cnt3 As Integer cnt1 = 0: cnt2 = 0: cnt3 = 0 Randomize For i = 1 To 100 x = Int(Rnd * 90 + 10) If x <= 40 Then cnt1 = cnt1 + 1 ElseIf x < 70 Then cnt2 = cnt2 + 1 Else cnt3 = cnt3 + 1 End If Next i Print cnt1, cnt2, cnt3End Sub編寫

3、程序，單擊窗體時(shí)在窗體上輸出如下所示的圖形。代碼Private Sub Form_Click() Dim i As Integer, begin As Integer begin = 5 For i = 1 To 5 Print Tab(begin); For j = 1 To 2 * i - 1 Print "*" Next j Print begin = begin - 1 Next i begin = 2 For i = 4 To 1 Step -1 Print Tab(begin); or j = 1 To 2 * i - 1 Print "*"

4、 Next j Print1 / 19 begin = begin + 1 Next iEnd Sub編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=80)的部分和。 1-1/2+1/3-1/4+1/5+1/n代碼Inputbox中輸入2，出現(xiàn)上述結(jié)果Private Sub Command1_Click() Dim n As Integer, i As Integer Dim sum As Double n = Val(InputBox("") sum = 0 For i = 1 To n If i Mod 2 <> 0 Then sum = sum + (1 / i)

5、 Else sum = sum - (1 / i) End If Next i Print sumEnd Sub有100匹馬，馱100擔(dān)貨：大馬馱3擔(dān)，中馬馱2擔(dān)，兩匹小馬馱1擔(dān)，問(wèn)有大、中小馬各多少？代碼顯示結(jié)果如上所示Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer Print "大馬", "中馬", "小馬" For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If (x * 3 + y * 2

6、+ z * 0.5) = 100 Then Print x, y, z End If Next y Next x編寫程序，要求從鍵盤輸入0-6中的任一個(gè)，可對(duì)應(yīng)得到星期日、星期一-星期六代碼Inputbox中輸入2 結(jié)果如上Dim n As Integer n = Int(Val(InputBox("") Select Case n Case 0 Print n; "：星期日" Case 1 Print n; "：星期一" Case 2 Print n; "：星期二" Case 3 Print n; "：

7、星期三" Case 4 Print n; "：星期四" Case 5 Print n; "：星期五" Case 6 Print n; "：星期六" Case Else Print n; "：錯(cuò)誤" End SelectEnd Sub編寫程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分。)代碼運(yùn)行結(jié)果如上圖所示Private Sub Command1_Click() Dim i As Integer, j As Integer, begin As Integer begin = 7 For i = 1

8、To 4 Print Tab(begin); For j = 1 To 2 * i - 1 Print "1 " '注意：雙引號(hào)中1后面必須有一個(gè)空格 Next j Print begin = begin - 2 Next iEnd Sub求公式：1/1!+1/2!+1/3!+1/n! 直到最后一項(xiàng)小于10(-6)時(shí)e的值。(注：寫在Command1的Click事件中。)代碼運(yùn)行結(jié)果如上圖所示Private Sub Command1_Click() Dim sum As Double, n As Long, nj As Double Dim i As Long su

9、m = 0 n = 1 Do nj = 1 For i = 1 To n nj = nj * i Next i sum = sum + 1 / nj n = n + 1 Loop While (1 / nj) >= 0.000001 Print sumEnd Sub編寫程序，輸出下列三角形： 總行數(shù)通過(guò)鍵盤輸入。代碼Inputbox輸入5 運(yùn)行結(jié)果如上圖所示Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, begin As Integer n = Int(Va

10、l(InputBox("") begin = 1 For i = 1 To n Print Tab(begin); For j = 1 To 9 - 2 * i Print "1 " Next j Print begin = begin + 2 Next iEnd Sub輸入一串?dāng)?shù)字，求其中偶數(shù)位數(shù)字之和。例如輸入1357986，則求3+7+8代碼Inputbox輸入5 運(yùn)行結(jié)果如上圖所示Private Sub Command1_Click() Dim str As String, s As String * 1, i As Long, sum As L

11、ong str = InputBox("") Print str sum = 0 For i = 2 To Len(str) Step 2 s = Mid(str, i, 1) sum = sum + Val(s) Print s Next i輸入一串?dāng)?shù)字，求其中奇數(shù)數(shù)字構(gòu)成的數(shù)與偶數(shù)數(shù)字構(gòu)成的數(shù)之差。例如輸入1654238，求1536428。代碼Inputbox輸入5 運(yùn)行結(jié)果如上圖所示Private Sub Command1_Click() Dim str As String, s1 As String, s2 As String, i As Long str = In

12、putBox("") Print str s1 = "" s2 = "" For i = 1 To Len(str) If i Mod 2 = 1 Then s1 = s1 & Mid(str, i, 1) Else s2 = s2 & Mid(str, i, 1) End If Next i Print s1; " - " s2; " = " Val(s1) - Val(s2)End Sub編寫程序，單擊窗體時(shí)在窗體上輸出如下所示的圖形。代碼Private Sub Comman

13、d1_Click() Dim begin As Integer, n As Integer, i As Long begin = 9 For i = 1 To 5 Print Tab(begin); For n = 1 To 2 * i - 1 Print "*" Next n Print begin = begin - 2 Next i begin = 3 For i = 1 To 4 Print Tab(begin); For n = 1 To 9 - 2 * i Print "*" Next n Print begin = begin + 2 Ne

14、xt iEnd Sub有一分?jǐn)?shù)序列:1 , 1/2 , 2/3 , 3/5 , 5/8 , 8/13 求出這個(gè)數(shù)列的前20項(xiàng)之和。代碼Option ExplicitPrivate Sub Command1_Click() Dim sum As Double Dim a1 As Long, a2 As Long, a3 As Long Dim b1 As Long, b2 As Long, b3 As Long Dim i As Long a1 = 1: a2 = 1 b1 = 1: b2 = 2 sum = a1 / b1 + a2 / b2 For i = 3 To 20 a3 = a1 +

15、 a2 b3 = b1 + b2 sum = sum + a3 / b3 a1 = a2 a2 = a3 b1 = b2 b2 = b3 Next i Print sumEnd Sub編寫程序，計(jì)算下面級(jí)數(shù)前n項(xiàng)中(n=50)奇數(shù)項(xiàng)的和，并輸出該級(jí)數(shù)最后兩項(xiàng)之差的絕對(duì)1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+代碼Option ExplicitPrivate Sub Command1_Click() Dim sum As Long, dif As Long, n As Long sum = 0 For n = 1 To 49 Step 2 sum = sum + n * (

16、n + 1) * (n + 2) Next n dif = (49 - 52) * 50 * 51 Print sum Print Abs(dif)End Sub編程打印如下圖形,總行數(shù)通過(guò)鍵盤輸入。(要求用循環(huán)做，非循環(huán)不給分。按原圖形直接打印者無(wú)效。)代碼Inputbox輸入5 運(yùn)行結(jié)果如上圖所示Option ExplicitPrivate Sub Command1_Click() Dim f1 As Long, f2 As Long, f3 As Long Dim n As Long, begin As Long Dim i As Long, j As Long n = Int(Val(

17、InputBox("") begin = 4 * n - 3 f1 = 1 f2 = 1 For i = 1 To n f3 = f1 + f2 Print Tab(begin); For j = 1 To 2 * i - 1 Print Trim(f3); Spc(4 - Len(Trim(f3); '相鄰兩數(shù)的位置差4 Next j Print begin = begin - 4 f1 = f2 f2 = f3 Next i End Sub編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=30)的部分和。 1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1

18、)+代碼Option ExplicitPrivate Sub Command1_Click() Dim sum As Double, n As Long sum = 0 For n = 1 To 30 sum = sum + 1 / (n * (n + 1) Next n Print sumEnd Sub編寫程序，輸出下列三角形： 代碼Option ExplicitPrivate Sub Command1_Click() Dim code1 As Integer, code2 As Integer For code1 = Asc("G") To Asc("A&qu

19、ot;) Step -1 For code2 = code1 To Asc("G") Print Chr(code2); Next code2 Print Next code1End Sub勾股定理中三個(gè)數(shù)的關(guān)系是：a2 + b2 =c2 編寫程序，輸出100以內(nèi)滿足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。代碼Press enter star this 還有兩列結(jié)果未顯示Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Double Dim cnt c

20、nt = 0 For a = 1 To 99 For b = 1 To 99 c = Sqr(a * a + b * b) If c < 100 And Int(c) = c Then Print a; " " b; " " c; " ", cnt = cnt + 1 If cnt Mod 4 = 0 Then Print End If Next b Next aEnd Sub通過(guò)鍵盤輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的"HEJISUANJISHIYANSHI"變換成"IHSNA

21、YIHSIJNAUSIJEH"。 代碼先后輸入5和a后顯示結(jié)果如上Option ExplicitPrivate Sub Command1_Click() Dim s1 As String, s2 As String Dim i As Long s1 = InputBox("請(qǐng)輸入原始字符串") s2 = "" For i = Len(s1) To 1 Step -1 s2 = s2 & Mid(s1, i, 1) Next i Print s1 Print s2End Sub求1000以內(nèi)分別被3、5、7除，余數(shù)都為1的正整數(shù)的個(gè)數(shù)及其

22、和代碼Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, sum As Double Dim cnt As Integer sum = 0 cnt = 0 For n = 1 To 1000 If (n Mod 3 = 1) And (n Mod 5 = 1) And (n Mod 7 = 1) Then Print n cnt = cnt + 1 sum = sum + n End If Next n Print Print "共" cnt; "個(gè)" Print "和為&

23、quot; sumEnd Sub代碼圖形1_Click()圖形4_Click()圖形6_Click()Private Sub 圖形1_Click()ClsPrint For n = 1 To 8 Print Tab(2 * n + 2); For m = 1 To 8 Print Spc(1); "*" Next Print NextEnd SubPrivate Sub 圖形4_Click()ClsFor i = 1 To 5 Print Tab(20 - 3 * i); For j = 1 To 2 * i - 1 Print i; Next j PrintNext iE

24、nd SubPrivate Sub 圖形6_Click()Cls k = 1For i = 1 To 6 For j = 1 To i Print Tab(5 * j); k; k = k + 1 Next j PrintNext iEnd Sub水仙花數(shù)_Click()圖形2_Click()圖形3_Click()Private Sub 水仙花數(shù)_Click()'一個(gè)三位數(shù)，如果它等于各位數(shù)的立方和，'如153=13+53+33,稱為水仙花數(shù)。求所有的水仙花數(shù)。ClsFor i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = 100 * i

25、 + 10 * j + k b = i 3 + j 3 + k 3 If a = b Then Print Tab(4); a Next k Next jNext iEnd SubPrivate Sub 圖形2_Click()Cls Print For n = 1 To 5 Print Tab(n + 2); For m = n To 10 - n Print "*" Next Print Spc(4); For m = 1 To 2 * n - 1 Print "*" Next Print NextEnd SubPrivate Sub 圖形3_Clic

26、k()Cls Print For n = 1 To 6 Print Tab(8 - n); For m = 1 To 2 * n - 1 Print "*" Next m Next n For n = 1 To 5 Print Tab(n + 2); For m = n To 10 - n Print "*" Next m Next nEnd SubPrivate Sub 矩陣_Click()Cls Dim a(10, 10) As IntegerDim m As Integer, n As Integer For n = 1 To 10 For m =

27、 1 To 10 If n = m Or n = 11 - m Then a(n, m) = 1 Else a(n, m) = 0圖形5_Click()乘積表_Click() End If Next Next Print For n = 1 To 10 For m = 1 To 10 Print Tab(m * 3); a(n, m); Next Print NextEnd SubPrivate Sub 圖形5_Click()Cls' 編寫程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分)' G ' FG ' EFG ' DEFG ' CDE

28、FG 'BCDEFG 'ABCDEFGDim a As String, i As Integer, k As Integera = "ABCDEFG"k = Len(a)For i = 1 To k Print Tab(3); Right(a, i)Next iEnd SubPrivate Sub 乘積表_Click()' 編寫程序，打印如下的乘積表：'* 3 6 9 12'15'16'17'18Dim i As Integer, j As IntegerClsPrint " * 3 6 9 12&q

29、uot;For i = 15 To 18 Print i; " " For j = 3 To 12 Step 3 Print i * j; " " Next j PrintNext iEnd SubPrivate Sub 數(shù)列_Click()'有一數(shù)列：1、1、2、3、5、8、13、21，求出這個(gè)數(shù)列的前20項(xiàng)之和ClsDim f1 As Single, f2 As Single, f3 As SingleDim i As Integer, sum As Singlef1 = 1f2 = 1數(shù)列_Click()階梯數(shù)_Click()圖形7_Cli

30、ck()Print Tab(3); f1Print Tab(3); f2sum = 2Do While i <= 20 - 3 f3 = f1 + f2 f1 = f2 f2 = f3 sum = sum + f3 i = i + 1 Print Tab(3); f3Loop Print Tab(3); "其和是：" sumEnd SubPrivate Sub 階梯數(shù)_Click()'有一個(gè)長(zhǎng)階梯，如果每步跨2階最后剩1階，'如果每步跨3階最后剩2階，如果每步跨4階最后剩3階，'如果每步跨5階最后剩4階，如果每步跨6階最后剩5階，'只有

31、當(dāng)如果每步跨7階時(shí)恰好走完，問(wèn)這個(gè)階梯至少有多少階?Dim a As Integer, i As IntegerClsDo While True i = i + 1 If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print Tab(3); "該階梯至少有" i; "階" Exit Do End IfLoopEnd SubPrivate Sub 圖形7_Click()' 編寫程序，輸出下列三角形：

32、 (要求用循環(huán)做，非循環(huán)不給分)' 河 ' 河南 ' 河南農(nóng) ' 河南農(nóng)業(yè) ' 河南農(nóng)業(yè)大 '河南農(nóng)業(yè)大學(xué) ClsDim a As String, i As Integer, k As Integera = "河南農(nóng)業(yè)大學(xué)"k = Len(a)For i = 1 To k Print Tab(3); Left(a, i)Next iEnd Sub階乘累加和代碼Private Sub Form_Click() Dim sum As Long, jc As Long Dim i As Integer, n As Integer s

33、um = 0 For n = 1 To 10 jc = 1 For i = 1 To n jc = jc * i Next i sum = sum + jc Next n Print sumEnd Sub求高次方根代碼Option ExplicitPrivate Sub Form_Click() '說(shuō)明：此題題目中要求的區(qū)間【1，2】有誤，忽略之 Dim x As Double, fx As Double, fpx As Double, d As Double x = 1.5 Do d = (3 * x * x * x - 4 * x * x - 5 * x + 13) / (9 *

34、x * x - 8 * x - 5) x = x - d Loop Until Abs(d) <= 0.0001 Print "方程的根是 " xEnd Sub數(shù)字三角形代碼輸入5后運(yùn)行結(jié)果如圖Private Sub Form_Click() Dim i As Long, j As Long Dim n As Long, begin As Long n = Val(InputBox("請(qǐng)輸入總行數(shù)") begin = 2 * n - 1 For i = 1 To n Print Tab(begin); For j = 1 To (2 * i - 1

35、) Print Trim(2 * i - 1); " " Next j Print begin = begin - 2 Next iEnd Sub求階梯數(shù)目；每步跨2階，剩余1；跨3剩2；4剩3；5剩4；6剩5，7不剩代碼運(yùn)行結(jié)果如圖Private Sub Command1_Click()Dim n%n = 7Do While True If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do End If n = n

36、 + 1 Loop Print nEnd Sub代碼Private Sub Form_Click() Dim i As Long, n As Long Dim cnt As Long, sum As Long Dim flag As Boolean cnt = 0 sum = 0 For n = 100 To 1000 flag = True For i = 2 To n - 1 If n Mod i = 0 Then flag = False Exit For End If Next i If flag = True Then cnt = cnt + 1 sum = sum + n Prin

37、t n, If cnt Mod 5 = 0 Then Print End If Next n Print Print Print "找到" cnt; "個(gè)質(zhì)數(shù)，" "和為" sumEnd Sub球從100處自由落，每次反彈回原高度一半，再落，第十次落地后經(jīng)歷？m，最后一次反彈高度代碼Private Sub Command1_Click()Dim s!, d!, i!s = 0d = 100For i = 1 To 10s = s + d + d / 2d = d / 2Next iPrint "總共距離" s; &

38、quot;最后一次的高度" dEnd Sub321米鋼料，a種17米，b種27米，求ab各多少段，余料最少為多少代碼Private Sub Command1_Click()Dim i%, j%, min%, m%, n%min = 321For i = 1 To 321 / 17For j = 1 To 321 / 27If 321 - i * 17 - j * 27 < min And 321 - i * 17 - j * 27 >= 0 Thenmin = 321 - i * 17 - j * 27m = in = jEnd IfNext jNext iPrint &

39、quot;17米" m; "段", "27米" n; "段", "最小殘料" minEnd Sub猴子每天吃掉一半多一個(gè)，到第七天只剩一個(gè)，求桃子總數(shù)代碼Private Sub Command1_Click()Dim x1%, x2%, i%x1 = 1For i = 6 To 1 Step -1x2 = (x1 + 1) * 2Print "第" i; "天桃子個(gè)數(shù)為：" x2x1 = x2Next iEnd Sub評(píng)委打分，去掉最高、最低，輸出平均分代碼Priv

40、ate Sub Command1_Click()Dim s%, a%, min%, max%, i%min = 100max = 0s = 0For i = 1 To 7a = InputBox("分?jǐn)?shù):")Print a;s = s + aIf a > max Then max = aIf a < min Then min = aNext iPrintPrint max, minPrint "平均分" (s - max - min) / 5End Sub輸入任意字符串，然后倒置顯示代碼Private Sub Command1_Click()

41、Dim a As StringDim i%a = Text1.TextPrint aFor i = 1 To Len(a)Print Mid(a, Len(a) - i + 1, 1)Next iEnd Sub輸入一個(gè)正整數(shù)，找出大于或等于該樹的第一個(gè)質(zhì)數(shù)代碼Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextDo While tureFor i = 2 To a - 1If a Mod i = 0 Then Exit ForNext iIf i = a ThenExit DoElsea = a + 1End IfLoopPrint a; "為滿足條件的質(zhì)數(shù)"End Sub100以內(nèi)滿足勾股