【简答题】
' 提供给考生的程序
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
' 提供给考生的程序
Sub ReadData1()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub ReadData2()
Open App.Path & "\" & "datain2.txt" For Input As #1
For i = 1 To 20
Input #1, Arr2(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
参考答案
' 要求考生编写的程序
Dim Sum As Integer
' 要求考生编写的程序
Private Sub C1_Click()
ReadData1
ReadData2
End Sub
' 要求考生编写的程序
Private Sub C2_Click()
Dim Arr3(20) As Integer
Sum = 0
For i = 1 To 20
Arr3(i) = Int(Arr1(i) / Arr2(i))
Sum = Sum + Arr3(i)
Next i
Print "Sum = "; Sum
End Sub
' 要求考生编写的程序
Private Sub C3_Click()
WriteData "DataOut.txt", Sum
End Sub
题库