vb課程復(fù)習(xí)題word版-在線瀏覽
2025-02-26 17:26本頁面
【正文】 12+22+32+? +n2+?，當(dāng)其和恰好大于或等于某一整數(shù) m時(shí)的和及此時(shí)的 n值。從文本框 Text1 輸入 m 值，用 Command1 實(shí)現(xiàn)計(jì)算，在 Picture1 中顯示結(jié)果。 Sum n=, i End Sub 15．編寫一個(gè)程序，打印如圖 所示的圖形。 For j = 1 To 2 * i 1 Print * 。 1 答案源代碼： Private Sub Command1_Click() Const n = 50 Dim a(n) As Integer For i = 1 To n a(i) = Val(InputBox()) Sum = Sum + a(i) Next i Avg = Sum / 50 39。 Print Avg Max = a(1) For i = 2 To n If a(i) Max Then Max = a(i) Next i Print Max 39。 Min = a(1) For i = 2 To n If a(i) Min Then Min = a(i) Next i Print Min 39。 End Sub 17. 輸入某學(xué)生的某科目考試成績（ 100 分制），輸出該生的成績等級(jí)。 1 答案源程序： Private Sub Command1_Click() grade = Val(InputBox()) Select Case grade Case 90 To 100 Print 優(yōu)秀 Case 80 To 89 Print 良好 Case 70 To 79 Print 中等 Case 60 To 69 Print 及格 Case Else Print 不及格 End Select End Sub 18. 編寫一程序，輸入一段英文文本，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù)（大小寫字母不區(qū)分）并顯示其結(jié)果。, ., Chr(13), Chr(10)’碰到空格就減去空格 ’ nw = nw 1 End Select End If last = char Next i = 共有詞數(shù) : amp。 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 20. 隨機(jī)生成 10 個(gè)兩位數(shù)的隨機(jī)整數(shù)，存于數(shù)組 a 中，然后向數(shù)組中的指定位置插入一個(gè)指定的兩位整數(shù)，如果指定位置小于或等于零，則將指定的數(shù)插在數(shù)組的第一個(gè)位置，如果指定位置大于現(xiàn)有數(shù)據(jù)的個(gè)數(shù)，則將指定的數(shù)插在數(shù)組的最后一個(gè)位置。 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)。 2 答案源程序： Private Type Stu clno As Integer 39。 stno As Integer 39。 score As Integer 39。 End Type Private Sub Command1_Click() Dim a(40) As Stu 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。 x = x + 1 If x Mod 5 = 0 Then x = 1 End If a(i).score = Int(Rnd * 78 + 10) 39。 a(i).stno = z + Int(Rnd * 25 + 1) 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).stno。 a(p).score End Sub 22. 某班級(jí)學(xué)生的某科目成績存放在一個(gè)自定義數(shù)據(jù)類型數(shù)組 A 中， A 中的每一個(gè)元素的類型為自定義數(shù)據(jù)類型 Student， 其中的成員有學(xué)號(hào) (num)、姓名（ name）、成績（ Score）。數(shù)據(jù)的輸入通過 文本框?qū)崿F(xiàn)。界面設(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)輸入成績 )) 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é)生成績平均分為 amp?；驹恚簩⒂⑽淖址?ASCII 碼加上某個(gè)值，使其變成另外一個(gè)字符，實(shí)現(xiàn)加密。完成以下填空，使各過程函數(shù)實(shí)現(xiàn)加密解密操作。 c Next k ff = a End Function Public Function ffff(ch As String) As String ‘解密函數(shù) Dim a As String, b As String, c As String Dim n% n = Len(ch) For k = 1 To n
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1