vb期末上機(jī)題整理結(jié)果

1、1 .聲明動(dòng)態(tài)數(shù)組，根據(jù)用戶輸入值n重定義數(shù)組元素個(gè)數(shù)；利用 rnd為該數(shù)組元 素賦值為兩位的隨機(jī)整數(shù)，將數(shù)組元素顯示到listl中； 單擊“逆序按鈕，實(shí)現(xiàn)數(shù)組逆序，將逆序 結(jié)果顯示到list2中。Opti on ExplicitOption Base 1Dim a(), b(), n As In teger, i As In tegerPrivate Sub Comma nd1_Click()n = InputBox("請(qǐng)")ReDim a(n)End SubPrivate Sub Comma nd2_Click()For i = 1 To na(i) = In t(R

2、nd * 100 + 1)Listl.Addltem a(i)Next iEnd SubPrivate Sub n ixu_Click()ReDim b(n)For i = LBou nd(b) To UBou nd(b)b(i) = a(n + 1 - i)List2.AddItem b(i)Next iEnd Sub2.從數(shù)組中刪除一個(gè)數(shù)。先定義一個(gè)一維數(shù)組，大小、數(shù)組的值自定。從鍵盤上 輸入一個(gè)數(shù)，假設(shè)這個(gè)數(shù)在數(shù)組當(dāng)中，就把它 刪除；假設(shè)這個(gè)數(shù)不在數(shù)組中，提示“該數(shù)不 在數(shù)組中文檔來自于網(wǎng)絡(luò)搜索注意：1)如果數(shù)組中存在多個(gè)與該數(shù) 相同的元素，每一個(gè)都能刪除；2)能實(shí)現(xiàn)屢次刪除Privat

3、e Sub Comma nd1_Click()Dim m(1 To 10), mid%, top%, bot%, find, x%Fori = 1 To 10m(i) = a(i)Next ix = Val(Text1.Text): find = 0: top = 10: bot =1Do While top >= bot And find = 0mid = In t(bot + top) / 2)If x = m(mid) The nfind = 1For i = mid To 9m(i) = m(i + 1)Next iFori = 1 To 9List2.AddItem m(i)N

4、ext iElseIf x > m(mid) The nbot = mid + 1Elsetop = mid - 1End IfLoopIf find = 0 The n MsgBox Str(x) + " 不在數(shù) 組中End Sub3數(shù)組a中存放著升序排列的數(shù)據(jù)， 使用array賦值，將inputbox輸入的新數(shù)插 入到數(shù)組中，插入后數(shù)組仍有序，將原數(shù)組 和插入后數(shù)組顯示到picture1中。資料個(gè)人收集整理，勿做商業(yè)用途注意：要求利用動(dòng)態(tài)數(shù)組，能夠?qū)崿F(xiàn)屢次插 入Private Sub Comma nd1_Click()x = Val(InputBox("請(qǐng)輸入一個(gè)

5、數(shù)",Int(Rnd * 100 + 1)ReDim d(UBou nd(a) + 1): c = -1For i = LBound(a) To UBound(a)d(i) = a(i)If x < a(i) The n Exit Forc = c + 1Next iFor i = c + 1 To UBou nd(a)d(i + 1) = a(i)Next id(c + 1) = xFor i = 0 To UBou nd(a) + 1Picture1.Pri nt d(i)Next iEnd Sub4. 6個(gè)評(píng)委為4位歌手打分，分?jǐn)?shù)介 于1-100之間。去掉一個(gè)最高分，一個(gè)

6、最低 分，求出每位選手的最后得分。將4位歌手得分從高到低排列輸出，同時(shí)輸出該選手的編號(hào)。資料個(gè)人收集整理，勿做商業(yè)用途如： 歌手3 95分歌手1 87分 歌手4 80分歌手270分Opti on ExplicitOption Base 1Dim a(4, 6) As In teger, aver As Si ngle Private Sub Comma nd1_Click()Dim n As In teger, i As In tegerFor n = 1 To 4Print"第 &n & 位選手得分為：；Fori = 1 To 6'a(n, i) = Int

7、(Rnd * 11 + 90)a(n, i) = InputBox("請(qǐng)第"& i & " 位評(píng)委 為第 &n & 位選手打分")資料個(gè)人收集整理， 勿做商業(yè)用途Do While a( n, i) < 1 Or a(n, i) > 100MsgBox "打分請(qǐng)?jiān)? 100之間a(n, i) = InputBox("請(qǐng)第"& i & " 位評(píng)委 為第 &n & 位選手打分")資料個(gè)人收集整理， 勿做商業(yè)用途LoopPrint a(n

8、, i);NextPrintNextComma nd2.E nabled = TrueComma nd3.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click()'Me.ClsDim n As Integer, i As Integer, max As Integer, min As Integer, sum As Integer 資料個(gè)人收集整 理，勿做商業(yè)用途For n = 1 To 4max = a(n, 1)min = a(n, 1)sum = 0Fori = 1 To 6If a( n, i) > max The n max

9、 = a( n, i)If a(n, i) < min Then min = a(n, i)sum = sum + a(n, i)Nextaver( n) = (sum - max - min) / 4Print"第 &n & 位選手的最高得分是："& maxPrint "最低得分是： & minPrint "去掉一個(gè)最高分，去掉一個(gè)最低 分，第 &n & 位選手的最終得分是： & aver( n)資料個(gè)人收集整理，勿做商業(yè)用途PrintNextEnd SubPrivate Sub Comma

10、 nd3_Click()Dim i As In teger, j As In teger, a(10) As In teger, n As Integer資料個(gè)人收集整理，勿做商業(yè)用途For i = 1 To 4Forj = 1 To 4a(i) = 1If aver(i) < aver(j) The n a(i) = a(i) + 1NextNexti = 1Do While i <= 4For n = 1 To 4If a(n) = i Then Print "第"& n & "位選手 "aver( n)Nexti = i

11、 + 1LoopEnd Sub5 .編寫函數(shù)求一元二次方程 ax2+bx+c=0 的解。注意：要求考慮方程解有如下情況a=0、有兩相等實(shí)根、有兩不等實(shí)根和 兩個(gè)虛根6.多行文本框中任意輸入多行文字， 統(tǒng)計(jì)并輸出每個(gè)字母和數(shù)字出現(xiàn)次數(shù)。 如字母AZ分別出現(xiàn)多少次，數(shù)字09分別出現(xiàn)多少次？要求用過程實(shí)現(xiàn)(大小寫不 敏感，即大寫 A和小寫a都記為字母 A)資 料個(gè)人收集整理，勿做商業(yè)用途Public Sub zifu(s, ByRef n1, ByRef n 2, ByRef n3)Dim s1 As Stri ng, i As In tegerFor i = 1 To Len(s)s1 = Mid

12、(s, i, 1)If Asc(s1) >= Asc(A)And Asc(s1) <= Asc(Z)The n n1 = n1 + 1 資料個(gè)人收集整理，勿 做商業(yè)用途If Asc(s1) >= Asc("a") And Asc(s1) <= Asc("z") The n n2 = n2 + 1 資料個(gè)人收集整理，勿 做商業(yè)用途If Asc(s1) >= Asc("0") And Asc(s1) <= Asc("9") The n n3 = n3 + 1 資料個(gè)人收集整理，勿 做

13、商業(yè)用途NextEnd SubPrivate Sub Comma nd1_Click()Dim s As String, n1 As Integer, n2 As Integer, n3 As Integer資料個(gè)人收集整理，勿做商業(yè)用途 s = Text1.Textzifu s, n1, n2, n3Text2.Text = 字符中含有大寫字母 & n1 & 個(gè)； & 含有小寫字母 & n2 & 個(gè)； & 含有數(shù)字"& n3 & "個(gè)"資料個(gè)人收集整理，勿做商 業(yè)用途End Sub7.隨機(jī)產(chǎn)生一個(gè)5

14、*5的矩陣，每個(gè)元 素值介于1099之間，將主對(duì)角線和次對(duì)角 線元素都置為1，矩陣顯示在 picture1中， 求出矩陣的四周元素之和，顯示在列表框 中。資料個(gè)人收集整理，勿做商業(yè)用途Opti on ExplicitDim a(5, 5) As In tegerPrivate Sub Comma nd1_Click()Dim i As In teger, j As In tegerFor i = 0 To 4Forj = 0 To 4If i = j Or i + j = 4 The na(i, j) = 1ElseRan domizea(i, j) = In t(R nd * 9 + 1)E

15、nd IfList1 .List(i) = List1.List(i) & a(i, j) & IINextNextEnd SubPrivate Sub Comma nd2_Click()Dim i As In teger, j As In teger, sum As In tegerFor i = 0 To 4sum = sum + a(i, 0) + a(i, 4)NextForj = 0 To 4sum = sum + a(0, j) + a(4, j)Nextsum = sum - a(0, 0) - a(4, 4) - a(0, 4) - a(4, 0) List1.

16、List(5)= 四周元素之和為： & sum End Sub&編寫一個(gè)函數(shù)，能將字母按以下規(guī) 律譯成密碼：A<->Za<->zB<-> Yb<->y即第1個(gè)字母與第26個(gè)字 母互換，第i個(gè)字母與第(26-i+1) 個(gè)字母互換。在文本框中任意輸 入一個(gè)字符串，調(diào)用該函數(shù)將密 碼顯示在另一個(gè)文本框中。資料個(gè)人收集整理，勿做商業(yè)用途Opti on ExplicitDim str1 As Stri ng, str2 As Stri ng, array1(100)As String資料個(gè)人收集整理，勿做商業(yè)用途Dim i As In te

17、ger, n As In teger Private Sub Text1_Cha nge()str1 = Text1.Textn = Len( str1)For i = 1 To narray1(i) = Mid(str1, i, 1)If Asc(array1(i) >=97 AndAsc(array1(i) <= 122 Then資料個(gè)人收集整理，勿 做商業(yè)用途array1(i) =Chr(219-Asc(array1(i)ElseIf Asc(array1(i) >=65 AndAsc(array1(i) <= 90 The n 資料個(gè)人收集整理，勿 做商業(yè)用途a

18、rray1(i) =Chr(155-Asc(array1(i)End IfNext istr2 = Join(array1,"")Text2.Text = str2End Sub9編寫2個(gè)函數(shù)，分別求兩個(gè)正整數(shù)的 最大公約數(shù)和最小公倍數(shù)，用戶任意輸入兩個(gè)數(shù)，采用函數(shù)嵌套調(diào)用，該函數(shù)將它們?cè)?窗體顯示。資料個(gè)人收集整理，勿做商業(yè)用途Opti on ExplicitPrivate Sub Form_Load()Textl = "": Text2 =""End SubPrivate Sub Text1_KeyPress(KeyAscii A

19、s In teger)If KeyAscii = 13 The n Text2.SetFocusEnd SubPrivate Sub Text2_KeyPress(KeyAscii As In teger)Dim p As In teger, q As In teger, xClsIf KeyAscii = 13 The np = Text1.Textq = Text2.TextIf p < 0 Or q < 0 The nx = MsgBox("請(qǐng)輸入正數(shù)", vbCritical + vbOKCa ncel)If x = vbCa ncel The nEnd

20、ElseText1 = "": Text2 =""Text1.SetFocusEnd IfElseCall gys(p, q)Print Text1.Text & "和"& Text2.Text & "的最大公約數(shù)是："& gys(p, q) & gbs(p, q) 資料個(gè)人收集整理，勿做商業(yè)用途End IfEnd IfEnd SubPrivate Function gys(m, n) As In tegerDim x As Integer, r As Integer, t

21、As In tegerIf m < n The nt = m: m = n: n = tEnd Ifr = m Mod nWhile r <> 0m = n: n = r: r = m Mod nWendgys = nEnd FunctionPrivate Function gbs(m, n) As In tegerDim a As In teger, b As In tegera = Text1.Text gys(m, n): b = Text2.Text gys(m, n)資料個(gè)人收集整理，勿做商業(yè)用途gbs = a * b * gys(m, n)End Function

22、10. 編寫計(jì)算階乘的Function過程，利用ex的以下公式計(jì)算e (直到最后一項(xiàng)小 于10-6為止)的近似值。資料個(gè)人收集整理，勿做商業(yè)用途ex 1+x/1!+x 2/2!+x 3/3!+ +xn/n!Opti on ExplicitPrivate Sub Form_Load()ShowDim x As Integer, n As Integer, s As Double x = InputBox("請(qǐng)輸入一個(gè)數(shù)：") n = 1: s = 1Dos = s + x A n / (jieche ng(n)n = n + 1Loop Un til x a n / (jie

23、che ng( n) < 10 a (-6)Print sEnd SubPublic Function jiecheng(n As Integer) AsDoubleDim i As In teger, s As Doubles = 1For i = 1 To ns = s * iNext ijieche ng = sEnd Function11. 輸入整數(shù)N，顯示具有N行的楊 輝三角形，要求按正三角形的形式在圖片框中顯示。Opti on ExplicitPrivate Sub Form_Load()Win dowState = 2ShowDim a(), n As Integer, i

24、 As Integer, j AsInteger, g As Integer, e As Integer 資料個(gè)人收集 整理，勿做商業(yè)用途n = InputBox("請(qǐng)輸入一個(gè)數(shù)：")ReDim a(n, n)e = 80For i = 1 To ne = e - 5: g = eForj = 1 To nIf j > i The na(i, j) = 0ElseIf i = j The na(i, j) = 1Elsea(i, j) = a(i - 1, j) + a(i - 1, j - 1)End IfEnd IfIf a(i, j) = 0 The nExit

25、 ForElsePicture1.Pri nt Tab(g); a(i, j);g = g + 10End IfNext jPicture1.Pri ntNext iEnd Sub12. 編寫一個(gè)過程，輸出以下菱形圖形：Opti on ExplicitPrivate Sub Form_Load()Win dowState = 2ShowDim n As In tegern = InputBox("請(qǐng)輸入一個(gè)數(shù) (>=3的奇 數(shù))：")If n Mod 2 = 1 Then Call tuxing(n)End SubPublic Sub tux ing(n As In

26、teger)Dim i As In teger, j As In tegerFor i = 1 To (n + 1) / 2Print Tab(43 - i); String(2 * i - 1, Chr(Asc("A") - 1 + i)資料個(gè)人收集整理，勿做商業(yè) 用途Next iFor j = (n - 1) / 2 To 1 Step -1Print Tab(43 - j); String(2 * j - 1, Chr(Asc("A") - 1 + j)資料個(gè)人收集整理，勿做商業(yè) 用途NextEnd Sub13. 編寫一個(gè)將十進(jìn)制轉(zhuǎn)換為二進(jìn)制字符

27、串輸出的函數(shù)。調(diào)用函數(shù)計(jì)算用戶輸入一個(gè) 十進(jìn)制數(shù)，在文本框中輸出二進(jìn)制值 資料個(gè)人 收集整理，勿做商業(yè)用途Opti on ExplicitPrivate Sub Form_Load()Dim x As In tegerx = InputBox("請(qǐng)輸入一個(gè)十進(jìn)制數(shù)：")erjin zhi (x)If x < 0 The nText1.Text = "-" & erjin zhi(x)ElseText1.Text = erjin zhi(x)End IfEnd SubPublic Function erjinzhi(m As Integer)

28、 As Stri ngDim r As In teger, ss As Stringr = Abs(m) Mod 2Do While Abs(m) >= 1ss = Str(r) & ssm = m 2r = Abs(m) Mod 2Looperjin zhi = ssEnd Function14 .輸入一個(gè)整數(shù)N，產(chǎn)生N個(gè)隨機(jī)數(shù)(范圍1 10*N )，然后采用任何2種算法實(shí)現(xiàn)由小到大的排序。將排序前后的數(shù)據(jù)顯 示出來 資料個(gè)人收集整理，勿做商業(yè)用途Opti on ExplicitOptio n Base 1Dim n As In teger, a() As In tegerPr

29、ivate Sub Comma nd1_Click()Dim i As In teger, j As In teger, b As In tegerFor i = 1 To n - 1For j = i + 1 To nIf a(i) < a(j) Thenb = a(i)a(i) = a(j)a(j) = bEnd IfNextNextList2.Addltem ("用第一種排序法排序得：")For i = 1 To nList2.AddItem (a(i)NextEnd SubPrivate Sub Comma nd2_Click()Dim i As In teg

30、er, j As In teger, b As In tegerFor i = 1 To n - 1For j = 1 To n - iIf a(j) < a(j + 1) The nb = a(j)a(j) = a(j + 1)a(j + 1) = bEnd IfNextNextList3.AddItem ("用第二種排序法排序得： ")For i = 1 To nList3.AddItem (a(i)NextEnd SubPrivate Sub Comma nd3_Click()List1.Clearn = Val(Text1.Text)ReDim a(n)Dim

31、 i As In tegerRan domizeList1.AddItem ("原隨機(jī)數(shù)組為：")For i = 1 To na(i) = Int(Rnd * 10 * n + 1)List1.AddItem (a(i)NextEnd Sub15 .編寫程序，在窗體上輸出3100之間 的所有素?cái)?shù)。要求每行顯示4個(gè)數(shù)Private Sub Form_Load()ShowDim n As Integer, i As Integer, a As Integer, b As Integer, c As Integer資料個(gè)人收集整理，勿做 商業(yè)用途For n = 3 To 100

32、'for 循環(huán)For i = 2 To n - 1If n Mod i = 0 Then'驗(yàn)證素?cái)?shù)c = 0Exit ForElsec = nEnd IfNext iIf c <> 0 The n'打印素?cái)?shù)，四個(gè)每行If a > 0 And a Mod 4 = 0 The n PrintPrint c;a = a + 1'素?cái)?shù)計(jì)數(shù)End IfNext nEnd Sub16. 設(shè)計(jì)程序，單擊“求素?cái)?shù)按鈕， 將2個(gè)文本框范圍內(nèi)的素?cái)?shù)添加到列表框 中。單擊“寫入文件按鈕，將列表框中所 有末位數(shù)字是9的數(shù)寫入到“從“ c:sushu9.txt 。中。界

33、面如下：資料個(gè)人收集整理，勿做商業(yè)用途Opti on ExplicitPrivate Sub Comma nd1_Click()Dim a As In teger, b As In teger, i As In teger,n As Integer資料個(gè)人收集整理，勿做商業(yè)用途a = Text1.Text: b = Text2.TextFor n = a To bFor i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i = n Then List1.AddItem nNext nEnd SubPrivate Sub Comma nd2_C

34、lick()Dim i As Integer, n As Integer, m As Integern = List1.ListCo untFor i = 1 To nm = Val(List1丄 ist(i)If (m + 1) Mod 10 = 0 The nOpe n "c:sushu9.txt" For Output As #1Print #1, m;Close #1End IfNext iEnd Sub17. 編寫2個(gè)函數(shù)，分別采用遞歸法和遞 推法求斐波納契數(shù)列的第 n個(gè)月的兔子數(shù)， n使用inputbox輸入，調(diào)用函數(shù)的結(jié)果在窗 體上顯示。資料個(gè)人收集整理，勿做

35、商業(yè)用途Opti on ExplicitPrivate Sub Comma nd1_Click()Dim n As Integer, a() As Integer, i As In tegerMe.Clsn = InputBox("請(qǐng)輸入n的值")ReDim a(n)a(1) = 1a(2) = 1For i = 3 To na(i) = a(i - 1) + a(i - 2)NextPrint"用遞歸法得數(shù)列：For i = 1 To nPrint a(i);NextPrintPrint"第n個(gè)月的兔子數(shù)為：;a(n)End SubPrivate Su

36、b Comma nd2_Click()Me.ClsDim n As Integer, a As Integer, b As Integer, c As Integer, i As Integer資料個(gè)人收集整理，勿做 商業(yè)用途n = InputBox("請(qǐng)輸入n的值")a = 1b = 1Print"用遞推法得數(shù)列：Print a; b;For i = 1 To n - 2c = a + ba = bb = cPrint c;NextPrintPrint "第n個(gè)月的兔子數(shù)為："cEnd Sub18. 有一個(gè)數(shù)列：1，1，2，3，5，8,13,

37、 21，按規(guī)律計(jì)算出前40項(xiàng)的和，結(jié)果寫入到順序文件(out.txt)中。資料個(gè)人 收集整理，勿做商業(yè)用途界面設(shè)計(jì)見圖1，寫入結(jié)果的數(shù)據(jù)文件out.txt用“記事本翻開如圖2Opti on ExplicitOptio n Base 1Dim a(40) As Long, s As LongPrivate Sub Comma nd1_Click()Dim i As In tegera(1) = 1a(2) = 1s = a(1) + a(2)For i = 3 To 40a(i) = a(i - 1) + a(i - 2)s = s + a(i)NextEnd SubPrivate Sub Co

38、mma nd2_Click()Open "c:out.txt" For Output As #1Print #1,"數(shù)列1，1，2，3，5的總和 是："sClose #1End Sub19. 單擊讀數(shù)按鈕從文件 in.txt中讀入 一個(gè)整數(shù)(先用記事本創(chuàng)立一個(gè) in.txt文件, 其中輸入任意一個(gè)素?cái)?shù)， 如圖3中輸入的是 101 )，單擊計(jì)算按鈕那么計(jì)算出大于該數(shù)的第1個(gè)素?cái)?shù)，單擊存盤將結(jié)果保存到文件 out.txt中，如圖5。資料個(gè)人收集整理，勿做商業(yè)用 途Opti on ExplicitDim a%Private Sub Comma nd1_Click()Ope n "C:i n.txt" For In put As #1In put #1, aClose #1Textl.Text = aEnd SubPrivate Sub Comma nd2_Click()a = Text1.TextDoa = a + 1Loop Un til isprime(