全国计算机二级VB 40 8合一试题答案.docx

140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As Integer140套模拟试题的简单应用和综合应用的答案一：2（1）： index n n+2 n f12（2）： s s,s1 str(n) 3:Private Sub C1_Click() Dim x As Integer x = 17999 Do While 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-13：Dim b(20) As Single, i As Integer, j As Integer Dim max As IntegerFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x y2（2）：list1,list2 l1.text l1.listindex list1.listcount-13：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 iFor 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(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i五：2（1）： x b(i) Then min = b(i) Next i Label3.Caption = Str(n) Label4.Caption = Str(min)八：2（1）：len asc b 2 x(i).caption2（2）：la.listcount la la3： eof(1) str(a(i)Dim i As Integer, j As Integer, t As IntegerFor i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then lblFirst.Caption = Str(Counter)lblSecond.Caption = Str(Sum)六：2（1）： 2 true flag2（2）： 0 sellength t text2.text3：For k = 1 To 100 For i = 2 To a(k) - 1 If a(k) Mod i = 0 Then Exit For Next i If i = a(k) Then num = num + 1 b(num) = a(k) End If Next k七：2（1）：true height false2（2）：tmp*a tmp xn(t,i) str(z)3:Dim i As Integer, min As Integer Dim b(40) As Integer, n As Integer For i = 1 To 40 If prime(arr(i) Then n = n + 1 b(n) = arr(i) End If Next i min = b(1) For i = 2 To n If min b(i) Then min = b(i) Next i Label3.Caption = Str(n) Label4.Caption = Str(min)八：2（1）：len asc b 2 x(i).caption2（2）：la.listcount la la3： eof(1) str(a(i)Dim i As Integer, j As Integer, t As IntegerFor i = 1 To 9 For j = i + 1 To 1