【简答题】
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(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 Read_Click()
ReadData
End Sub
' 要求考生编写的程序
Private Sub Calc_Click()
Dim S As String
Sum = 0
For i = 1 To 100
If i Mod 2 <> 0 Then
Sum = Sum + Arr(i)
S = S & Str(Arr(i)) & " "
End If
Next i
Form1.Text1.Text = S
Me.Print "Sum = "; Sum
End Sub
' 要求考生编写的程序
Private Sub Save_Click()
WriteData "DataOut.txt", Sum
End Sub