采用FOR循環結構，輸入10個學生的整數成績（0-100），編程找出其中的最高分、最低分和平均分。

dim max ,min,i as integer

dim s as single 's存放平均值

max=0:min=120:s=0 '初始化

for i=1 to 10 '找最大

if val(text1(i).text)>=max then max=val(text1(i).text) end if

next i

for i=1 to 10 '找最小

if val(text1(i).text)<=min then min=val(text1(i).text) end if

next i

for i=1 to 10

s=s+val(text1(i).text)

next i

s=s/10 '平均數

輸出我就不說了哦！（您可以將他們輸出在另壹個文本框裏）