常見VB考試題型

1、.1輸入半徑,求圓面積和球體積。Private Sub Form_Load()Dim r As Single, s As Single, v As Singler = InputBox(請(qǐng)輸入半徑r：, 輸入數(shù)據(jù))s = 3.14 * r 2v = 4 / 3 * r 3 * 3.14Print 圓面積為:; sPrint 球體積為:; vMsgBox (圓面積為: & s & Space(2) & 球體積為: & v)End Sub2輸入兩個(gè)數(shù)存放在x和y中 ，比較大小，保證大數(shù)放在x中，小的數(shù)放在Y中。Private Sub Command1_Click()Print 比較前:X = In

2、putBox(請(qǐng)輸入X)Y = InputBox(請(qǐng)輸入Y)Print X=; X, Y=; YIf X Y Then Z = Y Y = X X = ZEnd If Print 比較后:Print X=; X, Y=; YEnd Sub3 判斷一個(gè)整數(shù)的奇偶性Private Sub Form_Click()x = Val(InputBox(請(qǐng)輸入一個(gè)數(shù);)If x Mod 2 = 0 Then MsgBox (x & 是偶數(shù))Else MsgBox (x & 是奇數(shù))End IfEnd Sub4 帳號(hào)和密碼Private Sub Command1_Click()If Text1.Text =

3、 12345 Then If Text2.Text = 12345 Then MsgBox 登錄成功, 64 + 1, 登錄 Else MsgBox 密碼錯(cuò)誤,請(qǐng)重新輸入, 16 End IfElse MsgBox 用戶不存在, 16 + 1, 登錄End IfEnd Sub5 判斷一個(gè)數(shù)是整數(shù)還是小數(shù)，如果是整數(shù)再判斷其奇偶性 。 Private Sub Form_Click()x = InputBox(請(qǐng)輸入一個(gè)數(shù);)If InStr(1, x, .) = 0 Then If x Mod 2 = 0 Then MsgBox (x & 是整數(shù),是偶數(shù)！) Else MsgBox (x & 是

4、整數(shù),是奇數(shù)！) End IfElse MsgBox (x & 是小數(shù))End IfEnd Sub6 書店優(yōu)惠售書Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)Select Case x Case Is = 100 y = x * 0.8 Case Is = 200 y = x * 0.7 Case Is = 300 y = x * 0.5 Case Else y = x * 0.3End SelectLabel3.Caption = y & 元End Sub7 設(shè)計(jì)一個(gè)計(jì)程車收費(fèi)程序Pri

5、vate Sub Command1_Click()X = Val(Text1.Text)Select Case X Case Is = 3 Label3.Caption = 6 Case Is = 30 Label3.Caption = 6 + (X - 3) * 1.5 Case Else Label3.Caption = 6 + 27 * 1.5 + (X - 30) * 2End SelectEnd Sub8 輸入10個(gè)數(shù)，輸出累加之和。Private Sub Command1_Click()Dim S As Single, i As Integer, x As SingleS = 0F

6、or i = 1 To 10x = Val(InputBox(請(qǐng)輸入第 & i & 個(gè)數(shù))Print 第 & i & 個(gè)數(shù) & xS = S + xNext iPrint 十個(gè)數(shù)累加之和為 & SEnd Sub9 輸入10個(gè)數(shù)，輸出偶數(shù)之和。Private Sub Command1_Click()Dim S As Single, x As SingleDim n As Integer, i As IntegerS = 0For i = 1 To 10x = Val(InputBox(請(qǐng)輸入第 & i & 個(gè)數(shù))Print 第 & i & 個(gè)數(shù) & xIf x Mod 2 = 0 ThenS =

7、 S + Val(x)End IfNext iPrint 十個(gè)數(shù)中偶數(shù)累加之和為 & SEnd Sub10 求S=1+2+3+100Private Sub Command1_Click()Dim I As Integer, S As LongS = 0For I = 1 To 100S = S + INext IPrint Tab(10); S=; SEnd Sub11 求S=1+3+5+99Private Sub Command1_Click()s = 0For i = 1 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub12 S=1+22+32

8、+102，計(jì)算并輸出sPrivate Sub Command1_Click()s = 0For i = 1 To 10 s = s + i 2Next iPicture1.Print s=; sEnd Sub13 S=1+22+32+n2，問n為多少時(shí)，s的值大于100000？Private Sub Command1_Click()s = 0n = 0Do While s 10 (-5) S1 = 1 J = 1 Do While J = 10 (-5)S = S + (1 / x) * (-1) (n + 1)x = x * (n * 2) * (2 * n + 1)n = n + 1Loo

9、pPrint S=; SEnd Sub21 s=2+22+222+2222+22222+222222Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integers = 0For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + 2 * 10 (j - 1) Nexts = s + s1Next Print s=; sEnd Sub22 S=a+aa+aaa+aaaa（N個(gè)a）其中a是一個(gè)1，9的隨機(jī)整數(shù)，N是一個(gè)5，10的隨機(jī)整數(shù)。Private Sub C

10、ommand1_Click()Dim a As Integer, n As IntegerDim s As Long, s1 As Long, i As Integer, j As IntegerClsRandomizea = Int(9 * Rnd) + 1n = Int(6 * Rnd) + 5s = 0For i = 1 To n s1 = 0 For j = 1 To i s1 = s1 + a * 10 (j - 1) Next j s = s + s1Next i Print 當(dāng)a=; a, n=; n; 時(shí) Print Print s=; sEnd Sub23 S=1+12+12

11、3+1234+12345+123456Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integers = 0s1 = 0For i = 1 To 6s1 = s1 * 10 + iPrint s1s = s + s1Next iPrint s=; ss = 0For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + j * 10 (i - j) Next j s = s + s1Next iPrint s=;sEnd Sub24 將一字符串逆序輸出Priva

12、te Sub Command1_Click()Dim n As Integer, s1 As String, s2 As Strings1 = Text1.Texts2 = n = Len(Trim(Text1.Text)For i = n To 1 Step -1 s2 = s2 & Mid(s1, i, 1)Next iText2.Text = s2End Sub25 判斷任給一大于3的整數(shù)是否是素?cái)?shù)。Private Sub Command1_Click()Dim N As Integer, I As IntegerN = InputBox(請(qǐng)輸入一個(gè)大于3的整數(shù))For I = 2 To

13、 N - 1 If N Mod I = 0 Then Exit For End IfNext IIf N = I Then MsgBox (N & 是素?cái)?shù))Else MsgBox (N & 不是素?cái)?shù))End IfEnd Sub26 輸出3100之間的素?cái)?shù)輸出Private Sub Command1_Click()Dim n As Integer, i As IntegerFor n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then Print n End IfNext n

14、End Sub換行輸出Private Sub Command2_Click()Dim n As Integer, i As IntegerDim m As Integerm = 0For n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then m = m + 1 If m Mod 5 = 0 Then Print n Else Print n; End If End IfNext nEnd SubPrivate Sub Command2_Click()Dim n As In

15、teger, i As Integerdim m as inm = 0For n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then m = m + 1 If m Mod 5 = 0 Then Print Tab(6 * m); n m = 0 Else Print Tab(6 * m); n; End If End IfNext nEnd Sub27 輸出100999之間的水仙花數(shù)Private Sub Command1_Click()Dim I As Integer,

16、A As IntegerDim B As Integer, C As IntegerFor I = 100 To 999 A = Int(I / 100) B = Int(I / 10) - A * 10 C = I - A * 100 - B * 10 If A 3 + B 3 + C 3 = I Then Picture1.Print I; End IfNext IEnd Sub28陳婷的QQ密碼是一個(gè)5位數(shù)。但因?yàn)橛幸欢伪容^長的日子沒上了，陳婷把這個(gè)密碼給忘了。不過陳婷的生日是8月1日，她媽媽的生日是9月1日，她特別喜歡把同時(shí)是8l和9l的倍數(shù)用作密碼。陳婷還記得這個(gè)密碼的中間一位(百位

17、數(shù))是l。你能設(shè)計(jì)一個(gè)程序幫她找回這個(gè)密碼嗎? Private Sub Command1_Click()陳婷密碼：5位數(shù)，能被81，91整除，百位是1Dim i As Long, x As IntegerFor i = 10100 To 99199 x = i 100 Mod 10 If x = 1 Then If i Mod 91 = 0 And i Mod 81 = 0 Then MsgBox 密碼是 & i End If End IfNext iEnd Sub29 百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元?，F(xiàn)在有100元錢要求買100只雞（每種雞至少一只），編程列出所

18、有可能的購雞方案Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, Y As IntegerDim z As Integer, I As IntegerI = 0For X = 1 To 100 For Y = 1 To 50 For z = 1 To 33 If X + Y + z = 100 And 0.5 * X + 2 * Y + 3 * z = 100 Then I = I + 1 Picture1.Print 方案 & I & :小雞 & X & 只, _ & 公雞 & Y & 只, & 母雞 & z & 只。

19、End IfNext z, Y, XEnd Sub30 雞兔合籠共20只,腳46只問雞幾只?兔幾只?Private Sub Command1_Click()Dim x As Integer, y As IntegerFor x = 1 To 20 For y = 1 To 20 - x If x + y = 20 And 2 * x + 4 * y = 46 Then Print 雞 & x & 只 , 兔 & y & 只 End IfNext yNext xEnd Sub31 找出100之內(nèi)的自然數(shù)對(duì) 。 (兩數(shù)的和是某個(gè)自然數(shù)的平方，兩數(shù)的差也是某數(shù)的平方）Private Sub Comm

20、and1_Click()For i = 1 To 99 For j = i + 1 To 100 If Int(Sqr(j - i) = Sqr(j - i) And Int(Sqr(j + i) = Sqr(j + i) Then Print i, j End If Next j Next iEnd Sub32 找出1000-9999之間的玫瑰花數(shù)。Private Sub Command1_Click()Dim i As IntegerDim a1 As Integer, a2 As IntegerDim a3 As Integer, a4 As IntegerFor i = 1000 To

21、 9999 a1 = i 1000 a2 = i 100 Mod 10 a3 = i 10 Mod 10 a4 = i Mod 10 If a1 4 + a2 4 + a3 4 + a4 4 = i Then Print i End IfNext iEnd Sub33 猴子吃桃子。小猴在某天摘桃若干個(gè)，當(dāng)天吃掉一半多一個(gè)；第二天吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天要吃時(shí)只剩下一個(gè)，問小猴共摘下了多少個(gè)桃子？Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, I As IntegerX = 1

22、For I = 6 To 1 Step -1X = (X + 1) * 2Picture1.Print 第 & I; 天桃子數(shù)是: & X & 個(gè)。Next IEnd Sub34瓜農(nóng)有西瓜1020個(gè)，每天能賣掉前一天剩下的總數(shù)的一半還多兩個(gè)，問多少天能賣完。Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, I As IntegerX = 1020I = 0 Do While X 0 X = X / 2 - 2 I = I + 1 LoopLabel4.Caption = 第 & I & 天能賣完.End Sub35一球從1

23、0米高空落下,每次彈起高度為落下高度的40%,求第8次落下，小球經(jīng)歷的路程。Private Sub Command1_Click()Dim s As Single, h As Single, i As Integers = 10h = 10For i = 2 To 8 h = h * 0.4 s = s + h * 2 Next iPicture1.Print 球第八次落下經(jīng)歷的路程是：; s; 米End Sub36 輸入十個(gè)數(shù)，輸出其中的最大數(shù)和最小數(shù)Private Sub Command1_Click()Dim x As Single, i As IntegerDim max As Sin

24、gle, min As Singlex = Val(InputBox(請(qǐng)輸入第1個(gè)數(shù))Print xmax = x: min = xFor i = 2 To 10 x = Val(InputBox(請(qǐng)輸入第 & i & 個(gè)數(shù)) Print x If x max Then max = x Else If x MAX Then MAX = C(I) Else If C(I) = n Then x = n Else x = m End If For i = 1 To x If m Mod i = 0 And n Mod i = 0 Then Max = i End If Next i Label3.

25、Caption = 最大公約數(shù)是 & MaxEnd SubPrivate Sub Command2_Click()Dim m As Integer, n As IntegerDim i As Integer, mas As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m = n Then x = m Else x = n End If Max = x For i = x To m * n If x Mod i = 0 And x Mod i = 0 Then Min = i Exit For End If Next i Label3.C

26、aption = 最小公倍數(shù)是 & MinEnd Sub39 統(tǒng)計(jì)1100之間能被3整除和能被7整除的數(shù)各有多少個(gè)?Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integerm = 0: n = 0For i = 1 To 100 If i Mod 3 = 0 Then m = m + 1 End If If i Mod 7 = 0 Then n = n + 1 End IfNext iPrint 能被3整除的數(shù)有 & m & 個(gè) & vbCrLf & 能被7整除的數(shù)有 & n & 個(gè)End Sub40 統(tǒng)計(jì)

27、字符串中字母“A”出現(xiàn)的次數(shù)(不區(qū)分大小寫)Option ExplicitPrivate Sub Command1_Click()Dim N As Integer, I As Integer, x As StringN = 0x = Text1.TextFor I = 1 To Len(x) If Mid(x, I, 1) = A Or Mid(x, I, 1) = a Then If UCase(Mid(x, I, 1) = A Then N = N + 1 End IfNext IText2.Text = NEnd Sub41統(tǒng)計(jì)字符串中大寫字母、小寫字母、數(shù)字字符的個(gè)數(shù)分別是多少？Pri

28、vate Sub Command1_Click()Dim N1, N2, N3, IN1 = 0: N2 = 0: N3 = 0For I = 1 To Len(Text1.Text)X = Mid(Text1.Text, I, 1)Select Case XCase A To Z N1 = N1 + 1Case a To z N2 = N2 + 1Case 0 To 9 N3 = N3 + 1End SelectNextPicture1.Print 大寫字母個(gè)數(shù):; N1Picture1.Print 小寫字母個(gè)數(shù):; N2Picture1.Print 數(shù)字字符個(gè)數(shù):; N3End Sub42

29、 簡單圖形輸出Private Sub Command1_Click()Picture1.ClsDim N As Integer, I As IntegerDim J As Integer, A As IntegerN = Val(Text1.Text)For I = 1 To N Picture1.Print Tab(10 - I); For J = 1 To 2 * I - 1 Picture1.Print Trim(Str(I); Next JPrintNext IN = Val(Text1.Text)For I = 1 To N Picture1.Print Tab(15 - I); F

30、or J = 1 To 2 * I - 1 Picture1.Print Chr(64 + I); Next JPicture1.PrintNext IEnd Sub43輸出一個(gè)55矩陣，該矩陣主對(duì)角線元素為1，其余元素為0。Private Sub Command1_Click()Dim a(5, 5) For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); Next j Print Next iEnd Sub44隨機(jī)產(chǎn)生10個(gè)1100之間的 整數(shù)，并按從小到大

31、順序輸出。Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10 a(i) = Int(100 * Rnd() + 1 Print a(i);Next iFor i = 1 To 9 For j = 1 To 10 - i If a(j) = a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i Print Print 排序后 For i = 1 To 10 Print a(i); Next i End Sub45求nn矩陣每行

32、元素之和（n值由鍵盤輸入，矩陣元素隨機(jī)產(chǎn)生，范圍在20-50之間。Private Sub Command1_Click()Dim a() As Integer, S As Integern = Val(InputBox(請(qǐng)輸入n)ReDim a(n, n)For i = 1 To n S = 0 For j = 1 To n a(i, j) = Int(31 * Rnd + 20) Print a(i, j); S = S + a(i, j) Next j Print 第; i; 行元素之和：; S Next iEnd Sub46 ：輸入10個(gè)同學(xué)3門課成績，求每個(gè)同學(xué)的總分，并按總分從高到低

33、順序輸出。（每個(gè)同學(xué)名次）Private Sub Command1_Click()Dim a(10, 5) Print 成績1; Tab(6); 成績; Tab(12); 成績; Tab(18); 總分; Tab(24); 名次 For i = 1 To 3 a(i, 4) = 0 For j = 1 To 3 a(i, j) = Val(InputBox(第 & i & 個(gè)同學(xué)第 & j & 門成績) a(i, 4) = a(i, 4) + a(i, j) Next j Next i For i = 1 To 3 a(i, 5) = 1 For j = 1 To 3 If a(j, 4) a

34、(i, 4) Then a(i, 5) = a(i, 5) + 1 End If Next j Next i For i = 1 To 3 For j = 1 To 5 Print Tab(j - 1) * 6); a(i, j); Next j Print Next i End Sub47：出一個(gè)55矩陣的每行最大元素，及最大元素的下標(biāo)值。該矩陣每個(gè)元素為1，100之間的隨機(jī)整數(shù)。Private Sub Command1_Click()RandomizeDim a(5, 5) As Integer, i As Integer, j As IntegerDim max As Integer,

35、h As IntegerFor i = 1 To 5 max = 0: h = 0 For j = 1 To 5 a(i, j) = Int(100 * Rnd + 1) Print Tab(4 * j); a(i, j); If a(i, j) max Then max = a(i, j) h = j End If Next j Print Tab(4 * j); 第; i; 行最大元素是; max; 是第; h; 個(gè)元素Next iEnd Sub48：Sub過程和Function過程的創(chuàng)建均可采用兩種方法：1、直接在代碼窗口輸入過程的結(jié)構(gòu)語句和過程語句Private Sub Command

36、1_Click()m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nText3.Text = jc(m) / jc(n) / jc(mn)End SubPrivate Function jc(x)s = 1For i = 1 To x s = s * iNext ijc = sEnd FunctionPrivate Sub Command2_Click()Text1.Text = : Text2.Text = : Text3.Text = End Sub2、通過“工具”菜單中的添加“過程”過程1Private Sub Command1_Click(

37、)m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nCall jc(m)m = sCall jc(n)n = s Call jc(mn)mn = sText3.Text = m / n / mnEnd SubPrivate Sub jc(x)s = 1 For i = 1 To x s = s * i Print sNext iEnd SubPrivate Sub Command2_Click()Text1.Text = : Text2.Text = : Text3.Text = End Sub過程2Dim sPrivate Sub Command

38、1_Click()m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nCall jc(m)Call jc(n) Call jc(mn)mn = sText3.Text = m / n / mnEnd SubPrivate Sub jc(x)s = 1 For i = 1 To x s = s * iNext ix = sEnd SubPrivate Sub Command2_Click()Text1.Text = : Text2.Text = : Text3.Text = End Sub49：編寫一個(gè)求三角形面積的Function過程Option E

39、xplicitPrivate Sub Command1_Click()Dim A, B, CA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)If A + B C And B + C A And A + B C ThenPicture1.Print 三角形面積: & Format(JS(A, B, C), 0.00)ElseMsgBox A,B,C不能構(gòu)成三角形,請(qǐng)重新輸入!, 48, 警告Text1.Text = Text2.Text = Text3.Text = End IfEnd SubPrivate Function JS

40、(A, B, C) Dim X, S X = (A + B + C) / 2 S = Sqr(X * (X - A) * (X - B) * (X - C) JS = SEnd FunctionPrivate Sub JS1(A, B, C)Dim X, SX = (A + B + C) / 2S = Sqr(X * (X - A) * (X - B) * (X - C)Picture1.Print SEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusElse If

41、 Chr(KeyAscii) 9 Or Chr(KeyAscii) 9 Or Chr(KeyAscii) 9 Or Chr(KeyAscii) 0 Then MsgBox 請(qǐng)輸入數(shù)字符號(hào), 64, 提示 KeyAscii = 0 End IfEnd IfEnd Sub50：Public Sub test( i As Integer) i = i + 1End SubPrivate Sub Form_Click() Dim x As Integer x = 4 Print x; Call test(x) Print xEnd SubPublic Sub test(ByVal i As Integ

42、er)i = i + 1end subSub S2(A As Integer, ByVal B As Integer) A = 2 * A B = B + 2End SubPrivate Sub Command1_Click() X = 4 Y = 4 Call S2(X, Y) Print X + YEnd SubSub S2(A, ByVal B) A = 2 * A B = B + 2End Sub51: 在文本框中輸入字符，通過單選按紐和復(fù)選框設(shè)置字體、字型Option ExplicitPrivate Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd Sub