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

44.题目:输入两个正整数m和n，求其最大公约数。 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox(输入m的值：) n = InputBox(输入n的值：) Do While n 0 m = n Loop Print 两数的最大公因子为：; End Sub 45．题目：下面程序将10个整数从大到小排序------------------------------------------------ Option Explicit Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); ; Next m Print For m = 1 To 9 t = m Next n w = a(m) a(m) = a(t) a(t) = w End If Next m For m = 1 To 10 Print a(m) Next m End Sub 46题目：求s=72+102+132+……832的值。 ------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim s As Long Dim i As Integer s = s + i Print s End Sub 47.题目：下面程序用于将十个数字从小到大排序------------------------------------------------ Option Explicit Option Base 1 Private Sub Form_Click() Cls Dim a(10) As Integer Dim i As Integer, j As Integer, temp As Integer If i Mod 2 = 0 Then a(i) = i Else a(i) = -i Print a(i); Next Print For i = 1 To 10 For j = 1 To 10 - i temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If For i = 1 To 10 Print a(i); Next End Sub