VB编程 求大神相助，不是太难吧

文字版： 在窗体上建立三个菜单（名称分别为read、calc、和save，标题分别为“读入数据”、“计算并输出” 和 “存盘” ），然后再添加一个文本框，名称为text1，MultiLine属性设置为true，scrollBsars属性设置为2. 程序运行后，如果执行“读入数据“命令，则读入文件datain1.txt 文件中的100个整数，放入一个数组中，数组的下界为1； 如果单击”计算并输出“按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求的和在窗体上显示出来； 如果单击”存盘“按钮，则把所求的和存入文件dataout.txt文件中。文件datain1.txt自行建立并输入1000以内100个不同的正整数。

来人啊，大神们 进来看看吧

不难，但是太晚了，明天搞！思路就是你要会随机数的产生，文本文件的读写，数组的应用。

来人啊

我给你弄一下，不过牵扯的东西比较多啊

Option Base 1
Dim Datapath As String
Dim b(100)
Dim He As Integer
Private Sub calc_Click()
Dim str As String
For i = 2 To 100 Step 2
str = str & b(i)
He = He + Int(b(i))
Next
Text1.Text = str
Print "下标为偶数的元素之和：" & He
End Sub
Private Sub Form_Load()
Text1.Text = ""
He = 0
Datapath = App.Path & "\datain1.txt"
If Dir(Datapath) = "" Then
Dim a(100) As Integer
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 1000)
For k = 1 To i - 1
If a(i) = a(k) Then
i = i - 1
Exit For
End If
Next
Next
Open Datapath For Output As #1
Close #1
Open Datapath For Append As #1
For i = 1 To 100
Print #1, a(i)
Next
Close #1
End If
End Sub
Private Sub read_Click()
Open Datapath For Input As #1
Do While Not EOF(1)
For i = 1 To 100
Line Input #1, b(i)
Next
Loop
Close #1
MsgBox "读入数据成功！", vbOKOnly, "提示"
End Sub
Private Sub sava_Click()
If Dir(App.Path & "\dataout.txt") = "" Then
Open App.Path & "\dataout.txt" For Output As #1
Close #1
End If
Open App.Path & "\dataout.txt" For Append As #1
Print #1, He
Close #1
MsgBox "存盘成功！", vbOKOnly, "提示"
End Sub