1-40上机模拟试题答案.docVIP

1~40套模拟试题的简单应用和综合应用的答案 一： 2（1）： index n n+2 n f1 2（2）： s s,s1 str(n) 3: Private Sub C1_Click() Dim x As Integer x = 17999 Do While x 18000 If isprime(x) Then Exit Do x = x - 1 Loop Text1.Text = Str(x) End Sub Private Sub C2_Click() Open App.Path \out5.txt For Output As 1 Print #1, Text1.Text Close 1 End Sub 二： 2（1）： check1.value “” “#” text2.text 2（2）： 5 x str(x) 3： Dim i As Integer, j As Integer, n As Integer For i = 1 To 7 For j = 1 To 7 If i = 1 Or i = 7 Or j = 1 Or j = 7 Then Sum = Sum + a(i, j) If a(i, j) Mod 7 = 0 Then n = n + 1 End If Next j Next i lblFirst.Caption = Str(n) lblSecond.Caption = Str(Sum) 三： 2（1）： or num 2（2）：Avg is=85 is=60 end select n-1 3： Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer For i = 1 To 20 For j = 1 To 5 b(i) = b(i) + a(i, j) Next j b(i) = b(i) / 5 Next i max = b(1) For i = 2 To 20 If max b(i) Then max = b(i) Next i Text2.Text = Str(max) 四： 2（1）：true abc n form1 form2 2（2）：0 sellength t text2.text 3： For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next k For i = 1 To num - 1 For j = i + 1 To num If b(i) b(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i 五： 2（1）： x y 2（2）：list1,list2 l1.text l1.listindex list1.listcount-1 3： For i = 1 To n For j = 1 To n If i = j Or i + j = 8 Then If a(i, j) Mod 3 = 0 Then Counter = Counter + 1 End If If i = j Then Sum = Sum + a(i, j) Next j Next i lblFirst.Caption = Str(