vb課程復(fù)習(xí)題word版(編輯修改稿)
2025-02-05 17:26 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 g Dim st As String, char As String, last As String st = (): last = : n = Len(st) For i = 1 To n char = Mid(st, i, 1) If UCase(char) = A And UCase(char) = Z Then nw = nw + 1 Select Case last Case , , 。, ., Chr(13), Chr(10)’碰到空格就減去空格 ’ nw = nw 1 End Select End If last = char Next i = 共有詞數(shù) : amp。 nw End Sub 19. 輸入 10 名同學(xué)的成績(jī)，分別用選擇法和起泡法對(duì)其按升序（由小到大）排序。 1 答案源代碼： 選擇法排序： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For I = 1 To 10 a(I) = Val(InputBox()) Next I For j = 1 To n 1 p = j For k = j + 1 To n If a(p) a(k) Then p = k Next k temp = a(j): a(j) = a(p): a(p) = temp Next j For I = 1 To 10 Print a(I)。 Next I End Sub 起泡法排序： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For I = 1 To 10 a(I) = Val(InputBox()) Next I For j = 1 To n 1 For k = 1 To n j If a(k) a(k + 1) Then temp = a(k): a(k) = a(k + 1): a(k + 1) = temp End If Next k Next j For I = 1 To 10 Print a(I)。 Next I End Sub 20. 隨機(jī)生成 10 個(gè)兩位數(shù)的隨機(jī)整數(shù)，存于數(shù)組 a 中，然后向數(shù)組中的指定位置插入一個(gè)指定的兩位整數(shù)，如果指定位置小于或等于零，則將指定的數(shù)插在數(shù)組的第一個(gè)位置，如果指定位置大于現(xiàn)有數(shù)據(jù)的個(gè)數(shù)，則將指定的數(shù)插在數(shù)組的最后一個(gè)位置。 答案源代碼： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For i = 1 To 10 a(i) = Int(Rnd * 52 + 10) Next i For i = 1 To 10 a(i)。 Next i p = Val(InputBox(輸入插入二位數(shù)的位置 , p)) q = Val(InputBox(輸入二位數(shù) , q)) If p = 0 Then a(1) = q ElseIf p = 10 Then a(10) = q End If Print For i = 1 To 10 Print a(i)。 Next i End Sub 21. 有 5 個(gè)班（假設(shè)每班學(xué)生均為 8 人）參加某科目的考試，編寫一個(gè)程序求出考試成績(jī)最高分的學(xué)生，即要求找出該學(xué)生所在的班號(hào)以及在班中的學(xué)號(hào)。 2 答案源程序： Private Type Stu clno As Integer 39。班級(jí)號(hào) 39。 stno As Integer 39。39。 score As Integer 39。39。 End Type Private Sub Command1_Click() Dim a(40) As Stu 39。四十個(gè)人的信息 39。 Dim x As Integer Dim z As Integer Dim maxs As Integer x = 1 z = 2022 For i = 1 To 40 a(i).clno = x 39。5 個(gè)班級(jí) 39。 x = x + 1 If x Mod 5 = 0 Then x = 1 End If a(i).score = Int(Rnd * 78 + 10) 39。成績(jī)隨機(jī) 39。 a(i).stno = z + Int(Rnd * 25 + 1) 39。學(xué)號(hào)按順序生產(chǎn) 39。 Next i maxs = a(1).score For j = 1 To 40 If maxs a(j).score Then maxs = a(j).score End If Next j For k = 1 To 40 If maxs = a(k).score Then p = k End If Next k Print 本科最高分的學(xué)生的班級(jí)是 amp。 a(p).clno。 班； 。 學(xué)號(hào)是 : amp。 a(p).stno。 成績(jī)是 : amp。 a(p).score End Sub 22. 某班級(jí)學(xué)生的某科目成績(jī)存放在一個(gè)自定義數(shù)據(jù)類型數(shù)組 A 中， A 中的每一個(gè)元素的類型為自定義數(shù)據(jù)類型 Student， 其中的成員有學(xué)號(hào) (num)、姓名（ name）、成績(jī)（ Score）。試編寫一個(gè)程序，用數(shù)組 A 模擬學(xué)生成績(jī)庫(kù)，建立成績(jī)庫(kù)的過(guò)程就是輸入數(shù)據(jù)成員的過(guò)程。數(shù)據(jù)的輸入通過(guò) 文本框?qū)崿F(xiàn)。此外，要求程序具有插入數(shù)據(jù)和求學(xué)生成績(jī)平均分的功能。界面設(shè)計(jì)如圖所示 . 2 答案源代碼： Dim a() As Student Private Type Student Num As Long Nam As String Score As Single End Type Private Sub Command1_Click() Do Dim no As Long, nm As String, sc As Single no = Val(InputBox(請(qǐng)輸入學(xué) 號(hào) )) If no = 0 Then Exit Do nm = InputBox(請(qǐng)輸入姓名 ) If Len(nm) = 0 Then Exit Do sc = Val(InputBox(請(qǐng)輸入成績(jī) )) If sc = 0 Then Exit Do ReDim Preserve a(UBound(a) + 1) With a(UBound(a)) .Nam = nm .Num = no .Score = sc .Num, .Nam, .Score End With Loop End Sub Private Sub Command2_Click() Dim i As Long, s As Single For i = 1 To UBound(a) s = s + a(i).Score Next 學(xué)生成績(jī)平均分為 amp。 s / (i 1) End Sub Private Sub Command3_Click() p = Val(InputBox(輸入追加學(xué)生的學(xué)號(hào) , p)) For k = 1 To UBound(a
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1