大一大二專用VB

1、1編寫(xiě)程序，求2的n次冪，n的值通過(guò)鍵盤(pán)輸入。(要求用循環(huán)做，非循環(huán)不給分。)Private Sub Command1_Click()Dim i As Long, n As Integer, s As Long n = Int(Val(InputBox("請(qǐng)輸入n的值" + "輸入框") s = 1 For i = 1 To n s = s * 2 Next i Print s End Sub2從鍵盤(pán)上輸入兩個(gè)正整數(shù)A和B，求最大公約數(shù)。Private Sub Command1_Click()Dim a As Integer, b As Integer,

2、 n As Integer, i As Integer a = Text1.Text b = Text2.Text If a < b Then i = a: a = b: b = i Do While b <> 0 n = a Mod b: a = b: b = n Loop Text3.Text = n End Sub3編寫(xiě)程序，隨機(jī)生成100個(gè)兩位整數(shù)，并統(tǒng)計(jì)出其中小于等于40、大于40小于等于70及大于70的數(shù)據(jù)個(gè)數(shù)。Private Sub Form_Click()Dim n As IntegerDim cont1 As Integer, cont2 As Intege

3、r, cont3 As Integer n = Int(Rnd * 90 + 10) Print n cont1 = 0 cont2 = 0 cont3 = 0 If n < 40 Then cont1 = cont1 + 1 End If If n > 40 And n < 70 Then cont2 = cont2 + 1 End If If n > 70 Then cont3 = cont3 + 1 End If Print cont1: cont2: cont3 4編寫(xiě)程序，單擊窗體時(shí)在窗體上輸出如下所示的圖形。 * * * * * * * * *Private

4、 Sub Form_Click()Dim i As Integer, begin As Integerbegin = 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 = 1 To 4 Print Tab(begin); For j = 1 To 9 - 2 * i Print "*" Next j Print begin = begin + 1 Next iEn

5、d Sub5編寫(xiě)程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=80)的部分和。 1-1/2+1/3-1/4+1/5+1/n(n由鍵盤(pán)輸入 ，要求用循環(huán)做，非循環(huán)不給分。)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) Else sum = sum - (1 / i) End If Next i Pr

6、int sumEnd Sub6有100匹馬，馱100擔(dān)貨：大馬馱3擔(dān)，中馬馱2擔(dān)，兩匹小馬馱1擔(dān)，問(wèn)有大、中小馬各多少？Option ExplicitPrivate Sub Form_Click() Dim x As Integer, y As Integer, z As IntegerPrint "大馬", "中馬", "小馬" For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If (x * 3 + y * 2 + z * 0.5) = 100 Then Print x, y, z E

7、nd If Next y Next x Print Print "共7種方案。"End Sub7編寫(xiě)程序，要求從鍵盤(pán)輸入0-6中的一任一個(gè)，可對(duì)應(yīng)得到星期日、星期一-星期六。Private Sub Form_Click() 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

8、n; "：星期三" Case 4 Print n; "：星期四" Case 5 Print n; "：星期五" Case 6 Print n; "：星期六" Case Else Print n; "：錯(cuò)誤" End SelectEnd Sub8編寫(xiě)程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分。) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As

9、 Integer, begin As Integer begin = 7 For i = 1 To 4 Print Tab(begin); For j = 1 To 2 * i - 1 Print "1 " Next j Print begin = begin - 2 Next iEnd Sub9求公式：e=1/1!+1/2!+1/3!+1/n! 直到最后一項(xiàng)小于10(-6)時(shí)e的值。(注：程序代碼寫(xiě)在命令按鈕Command1的Click事件中。)Private Sub Command1_Click() Dim e As Double, nj As DoubleDim n

10、As Long, i As Long e = 0 n = 1 Do nj = 1 For i = 1 To n nj = nj * i Next i e = e + 1 / nj n = n + 1 Loop Until (1 / nj) < 0.000001 Print eEnd Sub10編寫(xiě)程序，輸出下列三角形： 總行數(shù)通過(guò)鍵盤(pán)輸入。(要求用循環(huán)做，非循環(huán)不給分。) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, beg

11、in As Integer n = Int(Val(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 Sub11輸入一串?dāng)?shù)字，求其中偶數(shù)位數(shù)字之和。例如輸入234567，則求357。Private Sub Command1_Click() Dim str As String, s As String * 1, i As Long, sum As

12、Long 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 Print "+=" sumEnd Sub12編寫(xiě)程序，單擊窗體時(shí)在窗體上輸出如下所示的圖形。 * * * * * * * * *Private Sub Command1_Click() Dim begin As Integer, n As Integer, i As Long begin = 9 For i

13、= 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 Next i End Sub13有一分?jǐn)?shù)序列:1 , 1/2 , 2/3 , 3/5 , 5/8 , 8/13 , 13/21 求出這個(gè)數(shù)列的前20項(xiàng)

14、之和。Private 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 = 2 To 20 a3 = a1 + a2 b3 = b1 + b2 sum = sum + a3 / b3 a1 = a2 a2 = a3 b1 = b2 b2 = b3 Next i Pri

15、nt sumEnd Sub14輸入一串?dāng)?shù)字，求其中奇數(shù)數(shù)字構(gòu)成的數(shù)與偶數(shù)數(shù)字構(gòu)成的數(shù)之差。例如輸入1654238，求1536428。Private Sub Command1_Click() Dim str As String, s1 As String, s2 As String, i As Long str = InputBox("") Print str s1 = "" s2 = "" For i = 1 To Len(str) If i Mod 2 = 1 Then s1 = s1 & Mid(str, i, 1) El

16、se s2 = s2 & Mid(str, i, 1) End If Next i Print s1; " - " s2; " = " Val(s1) - Val(s2) End Sub16編寫(xiě)程序，計(jì)算下面級(jí)數(shù)前n項(xiàng)中(n=50)奇數(shù)項(xiàng)的和，并輸出該級(jí)數(shù)最后兩項(xiàng)之差的絕對(duì)值。 (要求用循環(huán)做，非循環(huán)不給分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+Private Sub Command1_Click() Dim sum As Double, plus As Double, n As Long sum = 0 For n

17、 = 1 To 50 Step 2 sum = sum + n * (n + 1) * (n + 2) Next n plus = (49 - 52) * 50 * 51 Print sum Print Abs(plus)End Sub17輸入3個(gè)數(shù)x,y,z，按大小順序把它們輸出來(lái)。Private Sub Command1_Click() Dim x As Double Dim y As Double Dim z As Double Dim t As Double x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) If x

18、 < y Then t = x: x = y: y = t '交換x和y，使x>y End If If y < z Then t = y: y = z: z = t '交換y和z，使z最小 If x < y Then t = x: x = y: y = t '交換x和y，使x最大 End If End If Text1.Text = Str(x) Text2.Text = Str(y) Text3.Text = Str(z) End Sub19編程打印如下圖形,總行數(shù)通過(guò)鍵盤(pán)輸入。(要求用循環(huán)做，非循環(huán)不給分。按原圖形直接打印者無(wú)效。) 2 3

19、3 3 5 5 5 5 5 8 8 8 8 8 8 8 13 13 13 13 13 13 13 13 13Private 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(InputBox("") begin = 4 * n - 3 f1 = 1 f2 = 1 For i = 1 To n f3 = f1 + f2 Print Tab(begin); For j = 1 T

20、o 2 * i - 1 Print Trim(f3); Spc(4 - Len(Trim(f3); Next j begin = begin - 4 f1 = f2 f2 = f3 Next i End Sub20編寫(xiě)程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)(n=30)的部分和。 (要求用循環(huán)做，非循環(huán)不給分。) 1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+ Private Sub Command1_Click() Dim sum As Double, n As Long sum = 0 For n = 1 To 30 sum = sum + 1 / (n * (n + 1)

21、Next n Print sumEnd Sub22編寫(xiě)程序，輸出下列三角形： (要求用循環(huán)做，非循環(huán)不給分。) G FG EFG DEFG CDEFG BCDEFG ABCDEFGPrivate Sub Command1_Click() Dim code1 As Integer, code2 As Integer For code1 = Asc("G") To Asc("A") Step -1 For code2 = code1 To Asc("G") Print Chr(code2); Next code2 Print Next c

22、ode1End Sub23編寫(xiě)程序，計(jì)算下面級(jí)數(shù)前n項(xiàng)(n=20)的部分和，并輸出該級(jí)數(shù)最后兩項(xiàng)之差的絕對(duì)值。 (要求用循環(huán)做，非循環(huán)不給分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+Private Sub Command1_Click() Dim sum As Double, plus As Double, n As Long sum = 0 For n = 1 To 20 sum = sum + n * (n + 1) * (n + 2) Next n plus = (19 - 22) * 20 * 21 Print sum Print Abs(plus) End Sub24勾股定理中三個(gè)數(shù)的關(guān)系是：a2 + b2 =c2 編寫(xiě)程序，輸出100以內(nèi)滿足上