我也不想直接问题的，但自己也试过，我还是会再试一下的，今天模拟的这道题，我不会，请大家指点一下
在窗体上建立一个文本框（名称为Text1,Multiline属性为true,Scrollbars属性为2）和两个命令按钮（名称分别为C1和C2，标题分别为“读入数据”和“计算保存”）要求运行程序后，如果单击“读入数据”按钮。则读入“in.txt”文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击“计算保存”按钮，则计算小于或等于700的所有数之和，并把求和结果在文本框Text1中显示出来，同时把该结果存入考生文件夹中“out.txt”中。

dim v(100),i,j as integer
private sub c1_click()
Open app.path & "\in.txt" for input as #1
for i = 1 to 100
Line input #1, a
v(i) = a
if v(i) <=700 then
    j = j + v(i)
end if
next i
Close #1
text1 = j
end sub
private sub c2_click()
    .......    '写入out.txt
end sub