UC知道vb程序设计,谢谢
来源：百度知道 编辑：UC知道 时间：2024/09/22 11:30:55
Private Sub COMSTART_Click()
Dim i As Integer
Dim total As Integer
Dim aver As Single
Dim num(10), namstring(10), sexstring(10), wages(10)
MyFile1 = App.Path & "\" & "worker.dat"
MyFile2 = App.Path & "\" & "worker1.dat"
Open MyFile1 For Input As #1
Open MyFile2 For Output As #2
For i = 1 To 10
Input #1, num(i), namstring(i), sexstring(i), wages(i)
total = total + wages(i)
Next i
aver = total / 10
For i = 1 To 10
If wages(i) > aver Then Write #2, num(i), namstring(i), sexstring(i), wages(i)
Next i
COMSTART.Caption = "完成"
COMSTART.Enabled = False
End Sub
Input #1, num(i), namstring(i), sexstring(i), wages(i)是什么意思?对应的有没有output 这样的写法?
Dim i As Integer
Dim total As Integer
Dim aver As Single
Dim num(10), namstring(10), sexstring(10), wages(10)
MyFile1 = App.Path & "\" & "worker.dat"
MyFile2 = App.Path & "\" & "worker1.dat"
Open MyFile1 For Input As #1
Open MyFile2 For Output As #2
For i = 1 To 10
Input #1, num(i), namstring(i), sexstring(i), wages(i)
total = total + wages(i)
Next i
aver = total / 10
For i = 1 To 10
If wages(i) > aver Then Write #2, num(i), namstring(i), sexstring(i), wages(i)
Next i
COMSTART.Caption = "完成"
COMSTART.Enabled = False
End Sub
Input #1, num(i), namstring(i), sexstring(i), wages(i)是什么意思?对应的有没有output 这样的写法?
Input #文件号，变量1，变量2，变量3……，从指定文件号的文件里读取数据，按顺序赋值给变量1变量2变量3……
Input #1, num(i), namstring(i), sexstring(i), wages(i) 就是从#1号文件（worker.dat)中读数据并赋值给那个四个数组中的第i个元素。该句所在的FOR循环读10次赋值给四个数组各自的10个元素。
output,你看后面的 Write #2, num(i), namstring(i), sexstring(i), wages(i)，这是写变量的数据到文件中。
Input #1, num(i), namstring(i), sexstring(i), wages(i)
就是把文件内容读取出，依次赋值给数组变量 num(i), namstring(i), sexstring(i), wages(i)
对应的写入语句没有output
通常我们用 write 写入，用 input 读取；因为能用 input 读取就需要原先写入的时候有一定的规则，而 write 语句就提供这个规则
注意 为了能够用 Input # 语句将文件的数据正确读入到变量中，在将数据写入文件时，要使用 Write # 语句而不使用 Print # 语句。使用 Write # 语句可以确保将各个单独的数据域正确分隔开。