求vb作业解答...

2. 有一个随机文件“cpcj.dat”存放着某班学生的综合测评成绩，每个学生信息包括：

学号（8个字符） ，姓名（10个字符） ，是否三好学生（布尔值，True表示是，False表示不是） ，是否班干部（布尔值，True表示是，False表示不是） ，综合测评成绩（单精度数）

共5个数据项。请按如下条件更新测评成绩：

（1）若是三好学生的学生测评成绩加3分；

（2）若是班干部的加2分；

（3）若既是三好又是班干部的加4分。

首先打开“cpcj.dat”
接着：
dim SNo as string
dim SName as string
dim sanhao ,bangan as bool
dim Sscore as single
然后读入一条条数据，判断
if sanhao =1 then
if bangan =1 then
Sscore=Sscore+4
else Sscore=Sscore+3
endif
elseif bangan=1 then
Sscore=Sscore+2
endif

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/sfsspfq74.html