2014内蒙古计算机类综合考试模拟试题九带答案.doc

35.题目：以下程序功能是输入三个数，由大到小排序。------------------------------------------------ Option Explicit Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please input first integer, 输入正整数)) B = Val(InputBox(Please input second integer, 输入正整数)) C = Val(InputBox(Please input third integer, 输入正整数)) nTemp = A A = B B = nTemp End If nTemp = A A = C C = nTemp End If nTemp = B B = C C = nTemp End If Print The integers in order is; A; B; C End Sub 36.题目：用辗转相除法求两个整数的最大公约数。 ------------------------------------------------ Option Explicit Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 n = r r = m Mod n Loop End Function Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(输入一个整数) b = InputBox(输入一个整数) a = Val(a) b = Val(b) Print a, b, c End Sub 37.题目:下面的程序用“冒泡”法完成数组a中的10个整数 按升序排列，请修正程序中错误。------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9 a1 = a(i) a(i) = a(j) End If Next j Next i For i = 0 To 9 Print a(i) Next i End Sub