窗体创建实验分析怎么写

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 05:15:48
窗体创建实验分析怎么写
xQ=k1+oo;^3bDqdo("RJ{J'ˉCzLtjhW-~0ż^-E)% V*ٹn}:'PɐH?r1ѽ|G7Ak܉K L_@z"="J:dF5I/dAh$.VHO/9@$(\kʎetK`:BcT45%HHN-;l;`xq\9z feb߾w"h2ۑW'r(v\UeY?}.-IT ̻{6

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

窗体创建实验分析怎么写
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))