窗体创建实验分析怎么写

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 14:03:18
窗体创建实验分析怎么写

窗体创建实验分析怎么写
窗体创建实验分析怎么写

窗体创建实验分析怎么写
dim a() as integer
p=inputbox("Input data:")
if p<0 then msgbox("no data!"):exit sub
do
i=i+1
redim preserve a(i-1)
a(i-1)=p
p=inputbox("Input data:")
loop until p<0
for l=0 to i-1
s=s+a(l)
next l
ave=s/(i-1)
for l=0 to i-1
if a(l)<ave then flag=flag+1
next
msgbox("平均成绩:" & str(ave) & chr(13) & chr(10) & "低于平均成绩人数:" & str(flag))