最新vb程序設(shè)計編程考試題及答案-文庫吧
2025-06-10 01:27 本頁面
【正文】 m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n LoopPrint m n 的最大公約數(shù)是：。 nEnd Sub8. 編程求200400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個數(shù)如果同時是7和5的倍數(shù)，則只能加一次。Private Sub Command1_Click()For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum iEnd IfNext iPrint “倍數(shù)之和=”。 SumEnd Sub9. 計算100~300之間所有能被3和7整除的數(shù)之和Private Sub Command1_Click()Dim iSum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iPrint SumEnd Sub10. 分別統(tǒng)計1100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少。Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNext iPrint 3的倍數(shù)。 s3Print 7的倍數(shù)。 s7End Sub11. 某次歌曲大獎賽，有7個評委。如果分別輸入7個評委對某個參賽者的打分?jǐn)?shù)，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox(輸入第 amp。 i amp。 個數(shù)))Next imax = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i) max Then max = a(i)If a(i) min Then min = a(i)s = s + a(i)Next is = s min maxs = s / 5Print 平均分。 sEnd Sub12. 輸入一串字符，統(tǒng)計其中字母A(不區(qū)分大小寫)出現(xiàn)的次數(shù)。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox(請輸入字符)For i = 1 To Len(b) c = UCase(Mid(b, i, 1)) If c = A Then a = a + 1 End If Next i Print a出現(xiàn)的
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1