杭州交通信息网高仿名表手表批发市场:请大家帮我解决一下这个vb程序!!!!!!
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 23:14:41
原题如下：
5． 3．综合应用（1小题，计30分）
注意：下面出现的"考生文件夹"均为
在名称为Form1的窗体上建立一个文本框（名称为Text1，Multiline属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"result.txt"中。（在prog.bas，其中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。
Dim Data(1 To 100) As Integer
'声明一个数组，下标从1开始的
Private Sub cmd1_Click()
Dim S As String
Dim i As Integer
Open "e:\in.txt" For Input As #1 '以文件号为1的文件号打开"e:\in.txt"的文件
Do While Not EOF(1) '当不是文件结束时循环，
Line Input #1, S '读出一行字符，并且传给变量S
i = i + 1 '因为读出的第一行文件的下标是从0开始的，而数组要从1开始，故i先自加
Data(i) = CInt(S) '将字符s强制转换为整形
Text1.Text = Text1.Text + S + vbCrLf
'显示数据
Loop
Close
'关闭文件
End Sub
'保存结果的过程
Sub Putdata()
'假设将结果存在"e:\result.txt"
Open "e:\result.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
Private Sub cmd2_Click()
Dim i As Integer
Dim Cnt As Integer
Cnt = 0
For i = 1 To 100
If Data(i) >= 400 And Data(i) < 800 Then
Cnt = Cnt + Data(i)
End If
Next
Text1.Text = Str(Cnt)
Putdata
'保存结果
End Sub
注:
此处读出路数据路径为"e:\in.txt",路径自己修改,这样运行就能马上得出你要的答案.
hehe
够详细！