VB上機(jī)練習(xí)測(cè)驗(yàn)題

1、個(gè)人收集整理僅供參考學(xué)習(xí)13 / 10第1題程序填空（1分）（題號(hào):532）【程序填空】”題目：輸入n個(gè)數(shù)，n由用戶輸入 '程序地功能是將輸入地 n個(gè)數(shù)反向輸岀？ 請(qǐng)?jiān)凇尽刻幪钊胝_地Private Sub Form_Load（）Dim n As IntegerDim k As IntegerDim m As IntegerDim h As IntegerDim t As IntegerShow請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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("輸入個(gè)數(shù) n")Print "處理前數(shù)據(jù):"I *SPACE*SPACE*k =【？】For k = 1 To 【？】a(k) = Val(InputBox("請(qǐng)

3、輸入第"& k & 個(gè)數(shù)")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 "處理地結(jié)果 :"For k = 1 To nEnd Sub答案：1) .I * I2) .k + 1 或 1 + k3) .-1K第3題程序填空（1分）（

4、題號(hào):501）Print a(k);Next k'【程序填空】”題目：本程序執(zhí)行后，最終在窗體上打印數(shù)字7.請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容End Sub答案：1）.n2).n / 23).a(h) = a(k)第2題程序填空（1分）（題號(hào):498）Private Sub Command1_Click()Dim a As StringI *SPACE*Open App.Path & "abc.bat" For 【？】 As #1'【程序填空】"題目：本程序執(zhí)行功能為，命令按鈕單擊一次后, 窗體上輸岀結(jié)果為：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分）（題號(hào):503）1).Output'【程序填空】2).Input”題目：用戶界面如圖所示，用實(shí)現(xiàn)左右兩個(gè)組合框3).1中數(shù)據(jù)地左移和右移功能.第4題程序填空（1分）（題號(hào):46）'程序開始運(yùn)行時(shí)，在左邊組合框中生成10'【程序填空】個(gè)由小到大排列地隨機(jī)三位"題目：從鍵盤輸入學(xué)生分?jǐn)?shù)， 統(tǒng)計(jì)學(xué)生總?cè)藬?shù)和各'正整數(shù)（假設(shè)在設(shè)計(jì)階段該組合框地Sorted分?jǐn)?shù)段人數(shù)，屬

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

8、g ="請(qǐng)輸入分?jǐn)?shù)（-1結(jié)束）"個(gè)數(shù)全部移到左邊地組合框，并由小到msgtitile ="輸入數(shù)據(jù)"'大排列，同時(shí)使" >> "鈕能響應(yīng)，IIscore = Val(lnputBox(msg, msgtitle)vv "鈕不能響應(yīng)；'*space*'（3）單擊"結(jié)束"按鈕，結(jié)束程序運(yùn)行.While【？】請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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 ="結(jié)束" 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分）（題號(hào):523）'【程序填空】'題目：下面地程序用于求三個(gè)數(shù)中最大數(shù)'請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容Private Sub Command1_Click()Dim a, b, c, max, min As Integer a = Val(InputBox("請(qǐng)輸入

13、第一個(gè)數(shù):b = Val（InputBox（" 請(qǐng)輸入第二個(gè)數(shù): c = Val（InputBox（"請(qǐng)輸入第三個(gè)數(shù)：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分）（題號(hào):511）'【程序填空】&quo

14、t;題目：程序輸出結(jié)果為：n=3 x=42y=9請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容Print "最大數(shù)為:"maxPrint "最小數(shù)為:"minEnd Sub答案：1).max2).max = b3).c > max 或max < c第8題程序填空（1分）（題號(hào)：507）If c < min Then min = cPrivate Sub Command1_Click()Dim n, x, y As IntegerI *SPACE*'【程序填空】'題目：本程序?qū)崿F(xiàn)功能：將順序文本文件“ MYFILE.TXT ” 地n = 0:

15、x =【？】:y = 0Do While x < 20I *SPACE*'內(nèi)容一個(gè)字符一個(gè)字符地讀入文本框txtTest 中請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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)''題目：輸入任何一個(gè)英文字母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分）（題號(hào):50）Case "a", "c", "d" To "f"'【程序填空】Label1.Caption = UCase(x)"題目：從鍵盤上輸入一串字符，以"?"結(jié)束，統(tǒng)計(jì)'*space*輸入字符中地Case【？】&

18、#39;大、小寫字母和數(shù)字地個(gè)數(shù).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（"請(qǐng)輸入一個(gè)字符"）答案：'*space*1).Select Case xWhile【？】2)."m", "o", "p" To

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

20、xt)End SelectIf x >= 90 Thench = InputBox（"請(qǐng)輸入一個(gè)字符"）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分）（題號(hào):62

21、）Print"優(yōu)秀"End If'【程序填空】End Sub答案：1）.Elself x >= 75 Then 或 Elself 75 <= xThen2）.print "及格"3）.Else第12題程序填空（1分）（題號(hào):60）'【程序填空'題目：輸入任何一個(gè)英文字母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分)(題號(hào):495)'【程序 偫犧】'題目：本程序?qū)⒗梦谋究騮xtinput輸入地一行字符串中地所有'字母加密，加密，加密結(jié)果在文本框txtCode中顯示.加密方法如'下：將每個(gè)字母地序號(hào)移動(dòng) 5個(gè)位置，即"A"->"F"，"a ->"f"，

24、9;"B"->"G""Y"->"D","Z"->"E".程序段如下：'請(qǐng)?jiān)凇尽刻幪顑恼_地內(nèi)容Code = Left$(Code, i - 1) + Chr$(iAsc)ElseCode = Left$(Code, i - 1) + strTempEnd IfLoop【？】結(jié)果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【？】'加密結(jié)果'當(dāng)前處理地字符'字符串長(zhǎng)度'第i個(gè)字Ascii碼叆字符串'strInput = txtInput.Text 'Length = Len(RTrim(strInput) 'strTemp = Mid(strInput, i, 1) 'txtCode.Text = CodetxtCode =plEanqFDPwCode ="

26、;"*SPACE*【?符串右邊地空格，求真正地長(zhǎng)度'去掉字DXDiTa9E3dDo While (i <= Length)*SPACE*【？】取第i個(gè)字符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分)(題號(hào):531)'【程序填空】"題目：打印出100-999之間地所有水仙花數(shù)'如果一個(gè)數(shù)地 百位，十位，個(gè)位數(shù)地立方和等于這個(gè)數(shù)本身'則這個(gè)數(shù)為水仙

28、花數(shù)請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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答案：'公因數(shù)和最小公倍數(shù).Private Sub Form_Click()Dim a%, b%, num1%, num2%, temp num1 = InputBox("請(qǐng)輸入一個(gè)正整數(shù)")1).999num2 = InputBox（"請(qǐng)輸入一個(gè)正整數(shù)")2). 100'*space*3).10 * b 或 b * 10If 【？】Then第15題程序填空（1分）（題號(hào):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("請(qǐng)輸入a地值")a = bb = InputBox("請(qǐng)輸入b地值")'*space*c = InputBox("請(qǐng)輸入c地值")【？】d = b * b - 4 * a * cWendp =

31、 -b / (2 * a)Print "最大公因數(shù)為："aIf d >= 0 ThenPrint "最小公倍數(shù)為："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分）（題號(hào):520）x1 = p'【程序填空】x2 = p'題目：完成程序，使程序輸岀值為15

32、9;*space*'請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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分）（題號(hào):47）Next k'【程序填空】'題目：以下程序段用于實(shí)現(xiàn)：輸入兩個(gè)正整數(shù)m和n，求其最大Next jNext iPrint xEnd Sub答案：1）.k2）.k3）.6第18題程序填空（1分）（題號(hào):539）'【程序填空】'題目：隨機(jī)生成10個(gè)數(shù)存入數(shù)組中，并將數(shù)組排序后輸出'請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)

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分）（題號(hào):56）'【程序填空】Print a(i)NextEnd Su

36、b答案：1).*2).i + 1 或 1 +3).a(j)”題目：代碼功能：輸入數(shù)字1-7,顯示其對(duì)應(yīng)地星期 幾側(cè)瀚入'1,顯示星期日，如果輸入其它內(nèi)容，一律顯示"輸入錯(cuò)誤"Private Sub Command1_Click() dim x as integer dim y as string第19題程序填空（1分）（題號(hào):537）'【程序填空】"題目窗體中有 Text1-Text7共7個(gè)文本框，單擊按鈕Command1在' Text7中顯示前6個(gè)文本框中地?cái)?shù)值地最大 數(shù)請(qǐng)?jiān)凇尽刻幪钊胝_地內(nèi)容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 ="輸入錯(cuò)誤"end selectText2.Text = yEnd Sub答案：1) .select case x2) .y="星期五"3) . Case Else版權(quán)申明本文部分內(nèi)容，包括文字、 圖片、以及設(shè)計(jì)等在網(wǎng)上搜