Question

vb 习题 计算20个整数的和并在文本框TEXT1中显示出来 怎么编代码 ？

在考生文件夹下有一工程文件SJT3.VBP,请在窗体上画一文本框TEXT1,宽1500，高500，居中显示，黑体三号字,再画一命令按钮C1,标题为“计算”，宽1000，高350，编写适当事件过程，当单击“计算”按钮时将考生文件夹下的IN31.DAT文件中的20个整数读出，计算出这20个整数的和并在文本框TEXT1中显示出来。(如：示例)
注意：
1）程序至少运行一次，并点击窗体标题栏右边的“关闭”按钮结束程序运行。
2）程序中已有代码不得做任何改动，否则不得分。
3）作完后请按原文件名存盘。

题目已知内容

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Text1 = ""
C1_Click
Open "[PATH]out3.dat" For Output As #1
Print #1, Text1
Close #1
End Sub

计算20个整数的和并在文本框TEXT1中显示出来

这部分的代码怎么添加，

Answer 1

窗体上画一文本框TEXT1,宽1500，高500，居中显示，黑体三号字,再画一命令按钮C1（设置其 name为“C1”）,标题为“计算”，宽1000，高350,自己完成。代码窗口中添加以下代码。
Private Sub c1_Click()
Dim s As Integer, a As Integer
Open app.path & "\in31.dat" For Input As #2
Do While Not EOF(2)
Input #2, a
s = s + a
Loop
Close #2
Text1.Text = s
End Sub

Answer 2

Private Sub C1_Click() ' ’计算'按钮的Name为C1
dim s as string,sum as integer
Open "[考生文件夹]\in31.dat" for input as #1
Do While Not EOF(1)
Line input #1,s
sum=sum+val(s)
Loop
Close #1
End Sub
考生文件夹目录你自己改下

Answer 3

dim txt as string,a as long,sum as long
a=0
sum=0
Open "IN31.DAT" for Input as #1
Line Input #1,txt
do while Not Eof(1)
a=val(txt)
sum=sum+a
Line Input #1,txt
loop
close #1
text1.text=sum

Answer 4

建议不要直接回答老师出的题目！！首先应该学会自己查查，那点不会的可以问问具体的那一个点，不要把题目网上一贴，鄙视！

追问

同学， 你考试的时候也不直接回答老师问题？
你是 考试 还是觉得 我在拿vb 当娱乐活动
挺有意思啊，
闲的