vb读入问题

来源：百度知道 编辑：UC知道 时间：2024/06/23 15:35:23
单击按钮，读入in.txt文件中的100个整数，放入一个数组中，同时在文崩框中显示出来，单击另一个按钮，显示小于或等于700的所有数之和，并显示出来

option base 1
private innum()

sub command1_click()
dim num as integer

open "<in.txt的绝对路径>" for input as #1
do until eof(1)
line input #1,num & ","
loop
close #1

num=left(num,len(num)-1)
innum=split(num,",")

end sub

sub command2_click()
dim themin as long

for i = 1 to ubound(innum)
if innum(i) <= 700 then
themin = themin + innum(i)
end if
next i

msgbox "小于700的所有数之和是：" & themin
end sub

'变量themin是所有小于700的所有数之和。

_________________________
由于这机没有VB环境，这就这样写的。。。我想思路就是这样吧，您试着调试下。。。不对的自己改，好吗？