中國海洋大學(xué)VB上機(jī)試題

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1某數(shù)組有20個(gè)元素，其值為隨機(jī)產(chǎn)生的兩位整數(shù)。現(xiàn)要求將前10個(gè)元素與后10個(gè)元素對換。即第1個(gè)元素與第20個(gè)元素互換，第2個(gè)數(shù)與第19個(gè)元素互換，第10個(gè)元素與第11個(gè)元素互換。在窗體上輸出數(shù)組原來各元素的值與對換后各元素的值。Option ExplicitDim a(1 To 20) As Integer, i As Integer, j As Integer, t As IntegerPrivate Sub Form_Load()me.ShowPrint "原始數(shù)組是："RandomizeFor i = 1 To 20 a(i) = Int(

2、Rnd * 90+10) '10 to 99 Print a(i); If i Mod 10 = 0 Then PrintNext iPrintPrint "現(xiàn)在數(shù)組是："For i = 1 To 10 j = 21 - i t = a(i): a(i) = a(j): a(j) = tNext i For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next iEnd Sub2從數(shù)組中刪除一個(gè)數(shù)。先定義一個(gè)一維數(shù)組，大小、數(shù)組的值自定。從鍵盤上輸入一個(gè)數(shù)，若這個(gè)數(shù)在數(shù)組當(dāng)中，就把它刪除；若這個(gè)數(shù)不在數(shù)組中，

3、提示“該數(shù)不在數(shù)組中”注意：1）如果數(shù)組中存在多個(gè)與該數(shù)相同的元素，每一個(gè)都能刪除；2）能實(shí)現(xiàn)多次刪除Dim a() As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, m As Integer, flag As Booleann = InputBox("查找的數(shù)是：")i = 0: flag = FalseDo If a(i) = n Then j = i: flag = True For k = j To UBound(a) -

4、 1 a(k) = a(k + 1) Next k ReDim Preserve a(UBound(a) - 1) i = i - 1 End If i = i + 1Loop While (i <= UBound(a)If flag = False Then MsgBox (n & "不在該數(shù)組中")ElsePrint "刪除" & n & "后的數(shù)組是:" For i = 0 To UBound(a) Print a(i); Next iEnd IfEnd SubPrivate Sub Form_Lo

5、ad()Dim i As IntegerReDim a(9) As IntegerShowRandomizePrint "原來數(shù)組為："For i = 0 To 9 a(i) = Int(Rnd * 99 + 1) Print a(i); Next iPrintEnd Sub3數(shù)組a中存放著升序排列的數(shù)據(jù)，使用array賦值，將inputbox輸入的新數(shù)插入到數(shù)組中，插入后數(shù)組仍有序。注意：要求利用動(dòng)態(tài)數(shù)組，能夠?qū)崿F(xiàn)多次插入Option Base 1Dim a() As Integer, i As Integer, k As Integer, m As Integer, n

6、 As IntegerPrivate Sub Command1_Click()Print "隨機(jī)產(chǎn)生的原數(shù)組："ReDim Preserve a(10) n = 10For i = 1 To nRandomizea(i) = Int(Rnd * 99 + 1)NextFor i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Print a(i); Next i Print a(n) End Sub Private Sub

7、 Command2_Click()n = n + 1ReDim Preserve a(n)m = InputBox("輸入一個(gè)正整數(shù)")PrintPrint "插入" m; "后的數(shù)組為" If a(1) < m And a(n - 1) > m Then For i = 2 To n - 2 If a(i) <= m And a(i + 1) >= m Then j = i: Exit ForNexta(j + 1) = mFor i = 1 To nPrint a(i);NextEnd IfIf m <

8、;= a(1) Then For i = n To 1 Step -1 a(i + 1) = a(i) Nexta(1) = mFor i = 1 To nPrint a(i);NextEnd If If m >= a(10) Then a(n) = m For i = 1 To n Print a(i); Next End If End Sub 3數(shù)組a中存放著升序排列的數(shù)據(jù)，使用array賦值，將inputbox輸入的新數(shù)插入到數(shù)組中，插入后數(shù)組仍有序。注意：要求利用動(dòng)態(tài)數(shù)組，能夠?qū)崿F(xiàn)多次插入Option ExplicitOption Base 1Dim a() As Integer

9、, i As Integer, k As Integer, m As Integer, n As Integer, j As Integer, t As IntegerPrivate Sub Command1_Click()n = n + 1ReDim Preserve a(n)m = Val(InputBox("請輸入要插入的數(shù)據(jù)")For i = 1 To n - 1If m < a(i) Then Exit ForNext iFor k = n To i - 1 Step -1a(k) = a(k - 1)Next ka(k) = mFor i = 1 To n

10、 - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Print a(i); Next i Print a(n) PrintEnd SubPrivate Sub Form_Load()Shown = 8ReDim a(n)a(1) = 5: a(2) = 10: a(3) = 15: a(4) = 20: a(5) = 30: a(6) = 90: a(7) = 108: a(8) = 1025For i = 1 To nPrint a(i);NextPrintE

11、nd Sub46個(gè)評委為4位歌手打分，分?jǐn)?shù)介于1-100之間。去掉一個(gè)最高分，一個(gè)最低分，求出每位選手的最后得分。將4位歌手得分從高到低排列輸出，同時(shí)輸出該選手的編號。如： 歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分Option ExplicitOption Base 1Private Type cj '自定義類型 na As String * 3fs As IntegerEnd TypeDim a(4, 6) As SinglePrivate Sub Command1_Click()Dim i As Integer, j As IntegerFor i =

12、1 To 4 For j = 1 To 6 a(i, j) = InputBox("請第" & j & "位評委給第" & i & "位選手打分") NextNext End SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, b(4) As cjDim max As Single, sum As Single, min As Single, ave As Single, t As cjFor i = 1 To 4 max = a

13、(i, 1): sum = 0 min = a(i, 1): ave = 0 For j = 1 To 6 If a(i, j) > max Then max = a(i, j) If a(i, j) < min Then min = a(i, j) sum = sum + a(i, j) Next ave = (sum - max - min) / 4b(i).na = "歌手" & i: b(i).fs = aveNextFor i = 1 To 3 For j = i + 1 To 4 If b(i).fs < b(j).fs Then t

14、= b(i): b(i) = b(j): b(j) = t End If NextPrint b(i).na; Spc(1); b(i).fs & "分"NextPrint b(4).na; Spc(1); b(4).fs & "分"End Sub5編寫函數(shù)求一元二次方程ax2 bx c=0的解。注意：要求考慮方程有兩相等實(shí)根、兩不等實(shí)根和兩個(gè)虛根的情況。Private Sub Command1_Click()a = CSng(InputBox("請輸入二次項(xiàng)系數(shù)")b = CSng(InputBox("請輸

15、入一次項(xiàng)系數(shù)")c = CSng(InputBox("請輸入常數(shù)項(xiàng)")Print getresult(a, b, c)End SubPublic Function getresult(ByVal a As Single, ByVal b As Single, ByVal c As Single) As StringIf b 2 - 4 * a * c > 0 Then X1 = (-1) * b + (b 2 - 4 * a * c) 0.5) / (2 * a) X2 = (-1) * b - (b 2 - 4 * a * c) 0.5) / (2 * a

16、) getresult = "x1=" & CStr(X1) & Chr(9) & "x2=" & cstr(X2)Else X = (-1) * b / (2 * a) If b 2 = 4 * a * c Then getresult = "x=" & CStr(X) Else y = (4 * a * c - b 2) 0.5 getresult = "x1=" & CStr(X) & "+" & CStr(y) &

17、"i" & Chr(9) & "x2=" & CStr(X) & "-" & CStr(y) & "i" End IfEnd IfEnd Function6. 任意輸入一組字符，統(tǒng)計(jì)出大寫字母多少個(gè)，小寫字母多少個(gè)，數(shù)字多少個(gè)？要求用過程實(shí)現(xiàn)。Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 0: b = 0: c = 0S = Len(Text1)For i = 1

18、 To S If Mid(Text1, i, 1) <> 32 Then '沒空格 If Asc("a") < Asc(Mid(Text1, i, 1) And Asc(Mid(Text1, i, 1) < Asc("z") Then a = a + 1 '小寫字母 If Asc("A") < Asc(Mid(Text1, i, 1) And Asc(Mid(Text1, i, 1) < Asc("Z") Then b = b + 1 '大寫的 If 48

19、 < Asc(Mid(Text1, i, 1) And Asc(Mid(Text1, i, 1) < 57 Then c = c + 1 '數(shù)字 End IfNext i Print "小寫字母共有" & a & "個(gè)" Print "大寫字母共有" & b & "個(gè)" Print "數(shù)字共有" & c & "個(gè)" Print "其它（包括空格）共有" & S - a - b -

20、c & "個(gè)" Print "字符個(gè)數(shù)：" & SPrintEnd Sub7隨機(jī)產(chǎn)生一個(gè)5*5的矩陣，將主對角線和次對角線元素都置為1，并求出矩陣的四周元素之和，顯示在列表框中。Private Sub Form_Click()Dim i%, j%, s1%, s2%, s3%, s4%, s%Dim mat(1 To 5, 1 To 5) '定義矩陣For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then '主對角線和次對角線 mat(i, j) = 1 Else m

21、at(i, j) = Int(Rnd * 8 + 2) '其他位置產(chǎn)生隨機(jī)的大于2的一位數(shù) End If NextNextFor i = 1 To 5 For j = 1 To 5 Print mat(i, j); '一定不能忘記分號； Next PrintNext i '以下為求和For i = 1 To 5 s1 = s1 + mat(i, 1) '計(jì)算第一縱行的和 s2 = s2 + mat(i, 5) '計(jì)算第五縱行的和NextFor j = 1 To 5s3 = s3 + mat(1, j)s4 = s4 + mat(5, j)NextPrin

22、t s1, s2, s3, s4End Sub8編寫一個(gè)函數(shù)，能將字母按下列規(guī)律譯成密碼：A<->Z a<->zB<->Y b<->y即第1個(gè)字母與第26個(gè)字母互換，第i個(gè)字母與第(26-i+1)個(gè)字母互換。在文本框中任意輸入一個(gè)字符串，調(diào)用該函數(shù)將密碼顯示在另一個(gè)文本框中。Option ExplicitDim str1 As String, str2 As String, a As String, ss As StringDim i As Integer, n As IntegerPrivate Sub Command1_Click()Text

23、1.Text = "": Text2.Text = ""End SubPrivate Sub Text1_Change()str1 = Text1.Textn = Len(str1)For i = 1 To n a = Mid(str1, i, 1) '從字符串str1中的第i個(gè)字符開始向后截取1個(gè)字符 If Asc(a) >= 97 And Asc(a) <= 122 Then '說明是小寫字母 str2 = Chr(219 - Asc(a) '122 97-i使首尾對調(diào) ElseIf Asc(a) >= 65

24、 And Asc(a) <= 90 Then '說明是大寫字母 str2 = Chr(155 - Asc(a) End IfNext iss = ss & str2Text2.Text = ssEnd Sub9編寫2個(gè)函數(shù)，分別求兩個(gè)正整數(shù)的最大公約數(shù)和最小公倍數(shù)，用戶任意輸入兩個(gè)數(shù)，采用函數(shù)嵌套調(diào)用，該函數(shù)將它們在窗體顯示。Private Sub Form_Click()Dim A As Integer, B As IntegerA = InputBox("請輸入第一個(gè)數(shù)：")B = InputBox("請輸入第二個(gè)數(shù)：")Pri

25、nt "兩個(gè)數(shù)為：" A; BPrint "最大公約數(shù)為：" Maxg(A, B)Print "最小公倍數(shù)為：" Ming(A, B)End SubRem 求最大公約數(shù)Private Function Maxg(A As Integer, B As Integer)Dim X As Integer, Y As Integer, r As IntegerX = IIf(A >= B, A, B)Y = IIf(A <= B, A, B)Dor = X Mod YIf r = 0 Then Exit DoX = Y: Y =

26、rLoopMaxg = YEnd FunctionRem 求最小公倍數(shù)Private Function Ming(A As Integer, B As Integer)Ming = A * B / Maxg(A, B) '使用函數(shù)套用End Function10. 編寫計(jì)算階乘的Function過程，利用ex的下列公式計(jì)算e（直到最后一項(xiàng)小于10-6為止）的近似值。ex1 x/1! x2/2! x3/3! xn/n! Private Sub Form_Load()ShowDim x As Integer, n As Integer, s As Doublex = InputBox(&q

27、uot;請輸入一個(gè)數(shù)n：")n = 1: s = 1Do s = s + (x n) / (jc(n) '調(diào)用函數(shù)來計(jì)算階乘 n = n + 1 Loop Until x n / (jc(n) < 10 (-6) '計(jì)算結(jié)果到達(dá)一定精度停止循環(huán)Print sEnd SubPublic Function jc(n As Integer) As DoubleDim i As Integer, s As Doubles = 1For i = 1 To n s = s * i '利用累乘計(jì)算階乘Next ijc = sEnd Function11輸入整數(shù)N，顯示

28、具有N行的楊輝三角形，要求按正三角形的形式在圖片框中顯示。Option ExplicitPrivate Sub Form_Load()WindowState = 2ShowDim a(), n As Integer, i As Integer, j As Integer, g As Integer, e As Integern = InputBox("請輸入一個(gè)數(shù)：")ReDim a(n, n)e = 110For i = 1 To n e = e - 5: g = e 'e=5使兩邊對稱 For j = 1 To n If j > i Then a(i, j

29、) = 0 Else If i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j) + a(i - 1, j - 1) '形成楊輝三角方式加和 End If End If If a(i, j) = 0 Then '如果j>i，則退出這一行的書寫，開始寫下一行 Exit For Else Picture1.Print Tab(g); a(i, j); g = g + 10 End If Next j Picture1.Print '一行一行輸出Next iEnd SubPrivate Sub Picture1_Click(

30、)End Sub12編寫一個(gè)過程，輸出以下菱形圖形： A BBB CCCCC DDDDDDD CCCCC BBB A主程序輸入一個(gè)奇數(shù)（>3），調(diào)用過程在窗體上輸入圖形。Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, a As Integern = InputBox("請輸入行數(shù)n")If n Mod 2 = 0 Or n < 2 Then '如果輸入的不是奇數(shù)就報(bào)錯(cuò) a = MsgBox("請輸入奇數(shù)")Else Call tp(n)End IfEnd Sub

31、Private Sub tp(x As Integer)Dim i As Integer, m As Integerm = 26 '先將m放在中間位置，使圖像展開For i = 1 To (x + 1) / 2 '直到最多的那行 m = m - 1 '每多一個(gè)字母，向前寫一位 Print Tab(m); String(2 * i - 1, Chr(64 + i) '確定每行寫幾個(gè)，后面的按字母順序輸出Next i 'String(N,S)是重復(fù)輸出N個(gè)S字符 大寫A是65 小寫a是97For i = (x + 1) / 2 + 1 To x '從

32、最多的那行下一行開始寫 m = m + 1 Print Tab(m); String(2 * (x + 1 - i) - 1, Chr(64 + x + 1 - i)Next iEnd Sub13編寫一個(gè)將十進(jìn)制轉(zhuǎn)換為二進(jìn)制字符串輸出的函數(shù)。調(diào)用函數(shù)計(jì)算用戶輸入一個(gè)十進(jìn)制數(shù)，在文本框中輸出二進(jìn)制值。注意：輸入數(shù)據(jù)為負(fù)數(shù)，應(yīng)該將符號位輸出如 -13 結(jié)果 -1101Dim n As IntegerPrivate Sub Form_Load()Dim x%n = InputBox("請輸入一個(gè)十進(jìn)制數(shù)")If n < 0 Then x = -n Else x = nejz

33、 (x)End SubPublic Function ejz(m As Integer) As IntegerDim r As Integer, ss As Stringr = m Mod 2Do While m >= 1 ss = Str(r) & ss 'Str函數(shù)把數(shù)值轉(zhuǎn)換為字符型 m = m 2 '注意此處為整除運(yùn)算符"",一定不能寫為"/" r = m Mod 2LoopIf n < 0 Then Text1.Text = "-" & ss Else Text1.Text = ss

34、End Function14輸入一個(gè)整數(shù)N，產(chǎn)生N個(gè)隨機(jī)數(shù)（范圍110*N），然后采用任何2種算法實(shí)現(xiàn)由小到大的排序。將排序前后的數(shù)據(jù)顯示出來。Dim a() As Integer, n As IntegerPrivate Sub Form_Load()Shown = InputBox("請輸入正整數(shù)n")ReDim a(n)Print "排序前"For i = 1 To n a(i) = Int(Rnd * (10 * n) + 1)Print a(i);Next iEnd SubPrivate Sub Command1_Click()Dim i As

35、 Integer, j As Integer, t As IntegerPrintPrint "用比較交換法排序："For i = 1 To n - 1 For j = i + 1 To n If a(j) < a(i) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Print a(i);Next i Print a(n)End SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As IntegerPrintPrint "用

36、冒泡法排序："For i = 1 To n - 1 For j = 1 To n - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t '依次從第一個(gè)開始同最后一個(gè)比較，把越大的放在越后面 End If Next '一輪比較從1到n-1Next '開始下一輪比較，從1到n-2For i = 1 To n Print a(i);NextEnd SubPrivate Sub Command3_Click()Dim i As Integer, j As Integer, t As

37、 IntegerPrintPrint "用選擇法排序："For i = 1 To n - 1 k = i For j = i + 1 To n If a(k) > a(j) Then k = j Next t = a(i): a(i) = a(k): a(k) = t Print a(i); NextPrint a(n)End Sub15 編寫程序，在窗體上輸出3100之間的所有素?cái)?shù)。要求每行顯示4個(gè)數(shù)。Private Sub Command1_Click()Print "3-100之間的所有素?cái)?shù)為"Dim n As IntegerFor n =

38、3 To 100 If isprime(n) Then Call prtprime(n) '調(diào)用 函數(shù)和過程N(yùn)ext nEnd SubFunction isprime(a As Integer) As BooleanDim i As Integerisprime = TrueFor i = 2 To Int(Sqr(a) '平方根 If a Mod i = 0 Then isprime = False Exit For End IfoNext iEnd FunctionSub prtprime(b As Integer)Static cnt As Integer '靜態(tài)變量cnt用來計(jì)數(shù)Print b;cnt = cnt + 1If cnt Mod 4 = 0 Then PrintEnd Sub16