VB上機練習測驗題

1、個人收集整理僅供參考學習13 / 10第1題程序填空（1分）（題號:532）【程序填空】”題目：輸入n個數，n由用戶輸入 '程序地功能是將輸入地 n個數反向輸岀？ 請在【】處填入正確地Private Sub Form_Load（）Dim n As IntegerDim k As IntegerDim m As IntegerDim h As IntegerDim t As IntegerShow請在【】處填入正確地內容Private Sub Command1_Click()Dim xx(6) As IntegerDim k%Open App.Path & "al.da

2、t" For Output As #1For I = 1 To 6I *SPACE*j =【?】Print #1, jNext IClose #1Open App.Path & "a1.dat" For Input As #2k = 0Do While Not EOF(2)Dim a(100) As Singlen = Val(lnputBox("輸入個數 n")Print "處理前數據:"I *SPACE*SPACE*k =【？】For k = 1 To 【？】a(k) = Val(InputBox("請

3、輸入第"& k & 個數")Print a(k);Next kInput #2, xx(k)LoopClose #2*SPACE*PrintI *SPACE*m = Int(【？】)For k = 1 To mFor I = k To k / 2 Step【？】Form1.Print xx(I)Next I*SPACE*t = a(h):【？】:a(k) = tNext kPrint "處理地結果 :"For k = 1 To nEnd Sub答案：1) .I * I2) .k + 1 或 1 + k3) .-1K第3題程序填空（1分）（

4、題號:501）Print a(k);Next k'【程序填空】”題目：本程序執(zhí)行后，最終在窗體上打印數字7.請在【】處填入正確地內容End Sub答案：1）.n2).n / 23).a(h) = a(k)第2題程序填空（1分）（題號:498）Private Sub Command1_Click()Dim a As StringI *SPACE*Open App.Path & "abc.bat" For 【？】 As #1'【程序填空】"題目：本程序執(zhí)行功能為，命令按鈕單擊一次后, 窗體上輸岀結果為：For I = 1 To nPrint #

5、1, I + 1Next I'36Close #1'25'16I *SPACE*Open App.Path & "abc.bat" For 【？】 As #1'9For I = 1 To nInput #1, aEnd SubIf I Mod 5 = 0 Then答案：'*space*1).score >=0 And score <= 100或Print CInt(a) +【？】0<=score And score <= 100 或 0<=scoreEnd IfAnd 100>=score

6、或 score >=0 AndNext I100>=scoreb5E2RGbCAPClose #12).scoreEnd Sub3).End Select答案：第5題程序填空（1分）（題號:503）1).Output'【程序填空】2).Input”題目：用戶界面如圖所示，用實現左右兩個組合框3).1中數據地左移和右移功能.第4題程序填空（1分）（題號:46）'程序開始運行時，在左邊組合框中生成10'【程序填空】個由小到大排列地隨機三位"題目：從鍵盤輸入學生分數， 統(tǒng)計學生總人數和各'正整數（假設在設計階段該組合框地Sorted分數段人數，屬

7、性值已設置為True）,現要求完成：'即優(yōu)秀（90-100）、良好（80-89 ）、中等'（1）單擊" >> "鈕，左邊組合框中地10(70-79)、個數全部移動到右邊組合框，并由大到'及格（60-69 ）、不及格（60以下）地人數.'小排列，同時使"vv "鈕能響應，">Private Sub Form_Click()>"鈕不能響應.Dim score%, n1%, n2%, n3%, n4%, n5%'（2）單擊"vv "鈕，右邊組合框中地10ms

8、g ="請輸入分數（-1結束）"個數全部移到左邊地組合框，并由小到msgtitile ="輸入數據"'大排列，同時使" >> "鈕能響應，IIscore = Val(lnputBox(msg, msgtitle)vv "鈕不能響應；'*space*'（3）單擊"結束"按鈕，結束程序運行.While【？】請在【】處填入正確地內容total = total + 1Private Sub cmdLeft_Click()'*space*Dim i As IntegerS

9、elect Case【？】For i = 0 To comboRight.ListCount - 1Case Is >= 90comboLeft.AddItem comboRight.List(i)n1 = n1 + 1Next iCase Is >= 80comboRight.Clearn2 = n2 + 1'*space*Case Is >= 70【?】=Falsen3 = n3 + 1'*space*Case Is >= 60【？】=Truen4 = n4 + 1End SubCase ElsePrivate Sub cmdRight_Click(

10、)n5 = n5 + 1Dim i As Integer'*space*'*space*【？】For i = 0 To 【？】-1score = Val(InputBox(msg, msgtitle)comboRight.AddItem comboLeft.List(i)WendNext iPrint n1, n2, n3, n4, n5,total'*space*【？】.Clear cmdRight.Enabled = False cmdLeft.Enabled = True End SubPrivate Sub Command3_Click()EndEnd SubP

11、rivate Sub Form_Load()Dim i As IntegerLabel1.Caption ="組合框 1"Label2.Caption ="組合框 2" cmdRight.Caption =">>" cmdRight.Enabled = True cmdLeft.Caption ="<<" cmdLeft.Enabled = False cmdExit.Caption ="結束" comboLeft.Text =""Fori = 1 T

12、o 10comboLeft.Addltem Int(Rnd * 900) + 100Next icomboRight.Text =""Form1.Print "y=" & Str(y)End Sub答案：1）.12）.+ 13）.Loop第7題程序填空（1分）（題號:523）'【程序填空】'題目：下面地程序用于求三個數中最大數'請在【】處填入正確地內容Private Sub Command1_Click()Dim a, b, c, max, min As Integer a = Val(InputBox("請輸入

13、第一個數:b = Val（InputBox（" 請輸入第二個數: c = Val（InputBox（"請輸入第三個數：I *SPACE*【？】=amin = a*SPACE*If b > max Then 【？】If b < min Then min = b)")")End Sub答案：1).cmdLeft.Enabled2).cmdRight.Enabled3).comboLeft.ListCount4).comboLeft*SPACE*If 【？】Then max = c第6題程序填空（1分）（題號:511）'【程序填空】&quo

14、t;題目：程序輸出結果為：n=3 x=42y=9請在【】處填入正確地內容Print "最大數為:"maxPrint "最小數為:"minEnd Sub答案：1).max2).max = b3).c > max 或max < c第8題程序填空（1分）（題號：507）If c < min Then min = cPrivate Sub Command1_Click()Dim n, x, y As IntegerI *SPACE*'【程序填空】'題目：本程序實現功能：將順序文本文件“ MYFILE.TXT ” 地n = 0:

15、x =【？】:y = 0Do While x < 20I *SPACE*'內容一個字符一個字符地讀入文本框txtTest 中請在【】處填入正確地內容n = n【？】Private Sub Form_Click()x = x * (x + 1)Dim InputData As String * 1 txtTest.Text =""*SPACE*I *SPACE*【？】Form1.Print "n=" & Str(n)Form1.Print "x=" & Str(x)Open App.Path & &

16、quot;MYFILE.TXT"【？】As #1I *SPACE*ForDo While 【？】EOF(1)''題目：輸入任何一個英文字母x,若x地值 為Input #1, InputData"a","c","d-f",則'*space*'顯示x地大寫字母；若x地值為"m","o","p-z",txtTest.Text = txtTest.Text +【？】則顯示x地Loop'小寫字母；若為其它地值，則顯示xa （如輸Clos

17、e #1入地X地值是End Sub'g，則顯示ga）.答案：Private Sub Command1_Click()1).Inputx = Text1.Text2).Not'*space*3).InputData【?第9題程序填空（1分）（題號:50）Case "a", "c", "d" To "f"'【程序填空】Label1.Caption = UCase(x)"題目：從鍵盤上輸入一串字符，以"?"結束，統(tǒng)計'*space*輸入字符中地Case【？】&

18、#39;大、小寫字母和數字地個數.Label1.Caption = LCase(x)Private Sub Form_Click()'*space*Dim ch$, n1%, n2%, n3%【?n1 = 0Label1.Caption = Trim(x) + "a"n2 = 0End Selectn3 = 0End Subch = InputBox（"請輸入一個字符"）答案：'*space*1).Select Case xWhile【？】2)."m", "o", "p" To

19、"z"Select Case ch3).Case ElseCase "a" To "z"第11題程序填空（1分）（題號:65）n1 = n1 + 1'【程序填空】'*space*'題目：根據輸入地學習成績，分別顯示優(yōu)秀（90分以Case【？】上）,良好（75n2 = n2 + 1'分以上），及格（60分以上）,不及格幾個等級.Case "0" To "9"Private Sub Command1_Click()n3 = n3 + 1x = Val(Text1.Te

20、xt)End SelectIf x >= 90 Thench = InputBox（"請輸入一個字符"）Print "優(yōu)秀"'*space*'*space*【？】【？】Print n1, n2, n3Print "良好"End SubElseIf x >= 60 Then答案：'*space*1).ch <> "?"【？】2)."A" To "Z"'*space*3).Wend【？】K第10題程序填空（1分）（題號:62

21、）Print"優(yōu)秀"End If'【程序填空】End Sub答案：1）.Elself x >= 75 Then 或 Elself 75 <= xThen2）.print "及格"3）.Else第12題程序填空（1分）（題號:60）'【程序填空'題目：輸入任何一個英文字母x,' 若x地值 為"a","c","d-f",則顯示x地大寫字母；' 若x地值為"m","o","p-z",則顯示x

22、地小寫字母；'若為其它地值，則顯示xa （如輸入地X地值是g,則顯示ga）.Private Sub Command1_Click（）x = Text1.Text*SPACE*【？】*SPACE*Case【？】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else*SPACE*【？【Ejd SelectEnd Sub答案：1) . Select Case xI *SPACE*'顯示加密2)

23、 ."a", "c", "d" To "f"3) .Labell.Cap o ion = Trim(x) + "a"第13題程序填空(1分)(題號:495)'【程序 偫犧】'題目：本程序將利用文本框txtinput輸入地一行字符串中地所有'字母加密，加密，加密結果在文本框txtCode中顯示.加密方法如'下：將每個字母地序號移動 5個位置，即"A"->"F"，"a ->"f"，

24、9;"B"->"G""Y"->"D","Z"->"E".程序段如下：'請在【】處填兡正確地內容Code = Left$(Code, i - 1) + Chr$(iAsc)ElseCode = Left$(Code, i - 1) + strTempEnd IfLoop【？】結果End Sub答案：Private Sub Form_Click()Dil strinput As String * 70 '輸入字符串Dim Code AS Stri

25、ng * 70Dim strTemp As String * 1Dim i As IntagerDim Length As IntegerDim iAsc As In 宅ge2*SPACE【？】'加密結果'當前處理地字符'字符串長度'第i個字Ascii碼叆字符串'strInput = txtInput.Text 'Length = Len(RTrim(strInput) 'strTemp = Mid(strInput, i, 1) 'txtCode.Text = CodetxtCode =plEanqFDPwCode ="

26、;"*SPACE*【?符串右邊地空格，求真正地長度'去掉字DXDiTa9E3dDo While (i <= Length)*SPACE*【？】取第i個字符If (strTemp >= "A" And strTemp <= "Z")TheniAsc = Asc(strTemp) + 5If iAsc > Asc("Z") Then iAsc = iAsc -26Code = Left$(Code, i - 1) +Chr$(iAsc)ElseIf (strTemp >= "a&q

27、uot; And strTemp<="z") ThenCode答案：1) .strlnput=txtlnput 或strlnput=txtlnput.Text2) .Length = Len(RTrim(strInput)3) .strTemp = Mid(strInput, i, 1)4) .txtCode.Text = Code 或 txtCode = Code第14題程序填空(1分)(題號:531)'【程序填空】"題目：打印出100-999之間地所有水仙花數'如果一個數地 百位，十位，個位數地立方和等于這個數本身'則這個數為水仙

28、花數請在【】處填入正確地內容Private Sub Command1_Click()Dim i As Integer, a As Integer, b As Integer, cAs Integer RTCrpUDGiT*SPACE*For i = 100 To 【？】* *SPACE *a = Int(i /【？】)b = Int(i - 100 * a) / 10)* *SPACE *c = i - 100 * a -【？】TheniAsc = Asc(strTemp) + 5If iAsc > Asc("z") Then iAsc = iAsc -If a *

29、a * a + b * b * b + c26Print iEnd IfNext iEnd Sub答案：'公因數和最小公倍數.Private Sub Form_Click()Dim a%, b%, num1%, num2%, temp num1 = InputBox("請輸入一個正整數")1).999num2 = InputBox（"請輸入一個正整數")2). 100'*space*3).10 * b 或 b * 10If 【？】Then第15題程序填空（1分）（題號:36）temp = num1: num1 = num2: num2 =

30、temp'【程序填空】End If"題目：以下程序地功能如（圖1）.a = num1Private Sub Form_Click()b = num2Dim a%, b%, c%, d!'*space*Dim x1, x2While【？】Dim p, q, rtemp = a Mod ba = lnputBox("請輸入a地值")a = bb = InputBox("請輸入b地值")'*space*c = InputBox("請輸入c地值")【？】d = b * b - 4 * a * cWendp =

31、 -b / (2 * a)Print "最大公因數為："aIf d >= 0 ThenPrint "最小公倍數為："num1 * num2 / a'*space*End SubIf 【？】Then答案：r = Sqr(d) / (2 * a)1).num1 < num2 或 num2 > num1x1 ? p + r2).b <> 0x2 = p - r3).b = tempElse第17題程序填空（1分）（題號:520）x1 = p'【程序填空】x2 = p'題目：完成程序，使程序輸岀值為15

32、9;*space*'請在【】處填入正確地內容Private Sub Command1_Click()【？】Print "x仁"：x1, "x2=" x2I *SPACE*SPACE*【？】q = Sqr(-d) / (2 * a)Dim i, j, x,【？】 As IntegerFori = 1 To 4Print "x 1=" p; "+" q; "i", "x2=" p; "-" q; "i"x = 4End IfFor

33、j = 1 To 3End Subx = 3答案：'*space*1).d > 0 或 0 < dFor 【？】=1 To 22).End If'*space*3).Elsex = x +【？】K第16題程序填空（1分）（題號:47）Next k'【程序填空】'題目：以下程序段用于實現：輸入兩個正整數m和n，求其最大Next jNext iPrint xEnd Sub答案：1）.k2）.k3）.6第18題程序填空（1分）（題號:539）'【程序填空】'題目：隨機生成10個數存入數組中，并將數組排序后輸出'請在【】處填入正確地內

34、容Private Sub Command1_Click（）Dim a（10） As IntegerDim i, j, t As IntegerFori = 1 To 10Val(Text3.Text) 5PCzVD7HxAd = Val(Text4.Text): e = Val (T ext5.Text): f =Val (T ext6.Text)jLBHrnAILgCall max(a, b, c, m)Call max(m, d, e, m)Call max(m, f, f, m)*SPACE*Text7.Text =【？】End SubI *SPACE*Sub max(x, y, z,【

35、？】)If x > y Then*SPACE*a(i) = Clnt(10【？】Rnd + 1)Elsem = yEnd IfNext*SPACE*Fori = 1 To 9If m < 【？】Then*SPACE*Forj =【？】To 10I *SPACE*If a(i) >【？】Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iEnd Sub答案：1).m2).z, m3).zEnd IfFori = 1 To 10第20題程序填空（1分）（題號:56）'【程序填空】Print a(i)NextEnd Su

36、b答案：1).*2).i + 1 或 1 +3).a(j)”題目：代碼功能：輸入數字1-7,顯示其對應地星期 幾側瀚入'1,顯示星期日，如果輸入其它內容，一律顯示"輸入錯誤"Private Sub Command1_Click() dim x as integer dim y as string第19題程序填空（1分）（題號:537）'【程序填空】"題目窗體中有 Text1-Text7共7個文本框，單擊按鈕Command1在' Text7中顯示前6個文本框中地數值地最大 數請在【】處填入正確地內容x=val(text1.text)I *SP

37、ACE*Private Sub Command1_Click()Dim a, b, c, d, e, f, m As Integera = Val (T ext1.Text): b = Val(Text2.Text): c =【?】case 1y="今天是星期日”case 2y="星期一 “case 3y="星期二"case 4*SPACE*SPACE*y="星期三”case 5y="星期四"case 6【？】case 7y="星期六"【？】y ="輸入錯誤"end selectText2.Text = yEnd Sub答案：1) .select case x2) .y="星期五"3) . Case Else版權申明本文部分內容，包括文字、 圖片、以及設計等在網上搜