高校问答西德牧羊犬多少钱一只:vb 编程的问题~^ ^~(要完整的过程)在线等
来源：百度文库 编辑：高校问答 时间：2024/05/02 20:27:49
输入n个学生的学号和睦门课程成绩,编程输出平均成绩高于80分的成绩和学号
老师留的题就这样啊,帮帮忙啊~~ ^ ^ ~~ 啊 !!!
老师留的题就这样啊,帮帮忙啊~~ ^ ^ ~~ 啊 !!!
写一个过程，你自己调用。
private sub Ot(byval SfilePath as string,NumOfKC as long)
'文件路径，科目数
dim Sid as string
dim xx() as double
dim xxcount as long
redim xx(1 to numofkc+1) as double
open sfilepath for input as #3
do until eof(3)
input #3,sid
xx(numofkc+1)=0
for i=1 to numofkc
input #3,xx(i)
xx(numofkc+1)=xx(numofkc+1)+xx(i)
next i
if xx(numofkc+1)/numofkc>80 then
xxcount=xxcount+1
print sid
for i =1 to numofkc
print xx(i)
next i
end if
loop
close #3
end sub
这样描述怎么看都不像是vb程序
- -!
你悬赏的分数只有5分，还不够费尽的，我估计你等不找了！
这题我会呀就是你给的分太少了呀