在名称为Form1的窗体上建立一个文本框，名称为Text1，可以多行显示文本，具备垂直滚动条，再建立两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”。要求程序运行后，如果单击“读入数据”按钮，则读入in010。txt文件中的100个整数，放入一个数组中，数组下界为1。同时在文本框中显示出来。如果单击“计算保存”按钮，则计算小于或等于100的所有数之和，并把求和结果在文本框Text1中显示出来，同时把该结果存入考生文件夹中的文件out010.txt中。在考生文件夹下有标准模块文件mode010.bas添加到自己的工程中，直接调用此过程。
注意：
文件必须存放在考生文件夹下，窗体文件名为djks010.frm，工程文件名为djks010.vbp，计算结果存入out010.txt文件，否则没有成绩。程序运行时的窗体界面如下图所示。
参考答案：第一步：单击考试界面的“功能”选项，从弹出的荣单中选择“启动应用程序”选项。Visual Basic启动后，新建一个工程文件。打开考生文件夹下的Mode0A0.bas文件。
第二步：单击工具箱的命令按钮，在窗体上拖拉出两个命令按钮，Name属性分别为CmdA和CmdB，Caption属性分别为“读入数据”和“计算保存”。再单击工具箱中的文本框控件，Name属性为TextA，Text属性为空，ScrollBars属性为B，MultiLine属性为True。
第三步：双击窗体的任何部分，进入程序编写窗口，补充程序如下：
在窗体模块中编写如下代码：
A Option Explicit
B Option Base A
C Dim t a(A00)
D Dim i As Integer
E Dim n As Integer
F Dim f As Integer
G Dim s As Long
H Private Sub CmdA Click( )
I Open App Path &"\in0A0.txt"For Input As #A
A0 For i=A To A00
AA Input #A, n
AB a(i)=n
AC TextA.Text=TextA. Text &a(i) &""
AD Next i
AE Close #A
AF End Sub
AG Private Sub CmdB Click( )
AH For i=A To A00
AI If a(i)＜=A00 Then s=s+a(i)
B0 Next i
BA Call WriteData("out0A0.txt"，s)
BB TextA.Text=s
BC End Sub
第四步：填写完毕，调试程序，确定无误后，将工程与窗体按照djks0A0的文件名保存在考生文件夹下，并执行一次操作，将程序运行得到的结果存到考生文件夹的out0A0.txt文件中。
解析： Visual Basic中文件的打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中Output、Append打开的文件主要用来输出数据，与Print #、Write #等方法配合使用；以Input方式打开的文件主要用来输入数据．它与Input#与Line Input#语句配合使用。本题的Cmd1的事件过程中，使用Input语句读入数据，由于Input读入数据时按照数据项来读入，这一点与Line Input不同，故可以使用For循环来逐一接收读入的数据项，并将这些数据项逐一赋给一个数组。本题赋给了数组a。在Cmd2的事件过程中，再次使用For循环逐一判断a数组中的元素，使得该元素小于等于100的时候就累加到s中，最后调用窗体模块中WriteData过程，保存结果。
可见，数据项的读入与For循环联系紧密。特别是当读入一组数据并将这组数据赋给一个数组时，使用For循环相当方便。