关于文件的一个vb二级题

来源：百度知道 编辑：UC知道 时间：2024/06/10 08:17:52
在名称为Form1的窗体上,有两个命令按钮(一个开始,一个退出),数据文件stud1.txt存放考生的考号,姓名,成绩,自定义一个数据类型stu,字符型长度为10,按开始按钮后,能从stud1.txt中读取数据存放在stud.txt文件中,,执行完后,"开始"变成"完成",且无效

首先读出与输入的数据类型必先相同，否则无法读出数据.其次，题目中未给出文件的容量或者说数据的个体数，这很难办,所以只能用动态数组录入
option base 1
private type stu
stunum as string * 10'考号
stuperf as string * 10'成绩
stunane as string * 10'姓名，变量名你可以根据实际修改
end type
dim stufile() as stu
private sub command1_click()
dim i as integer
i=0
open "stud1.txt" for input as #1
do while NOT EOF(1)
i=i+1
redim preserve stufile(i)
input #1,stufile(i).stunum,stufile(i).stuname,stufile(i),stuperf
loop
close #1
command1.caption="完成"
command1.enable=false
end sub
private sub command2_click()
Unload Me
end sub
private sub Form_load()
comamnd1.caption ="开始"
command2.caption ="退出"
end sub
未检验，自己再看一下

数据格式未知 所以无法作答

现给与执行完后,"开始"变成"完成",且无效 的代码吧

Private Sub Command1_Click()
If Command1.Caption = "开始" Th