dim sukoa1,sukoa2,heikin
sukoa1=inputbox("1回目")
sukoa2=inputbox("2回目")
label1=sukoa1
label2=sukoa2
heikin=Int((sukoa1+sukoa2) / 2)
label3=heikin
if sukoa1>=250 and sukoa2>=250 then
label4="超A級"
elseif heikin>=200 then
label4="A級"
elseif heikin>=100 then
label4="B級"
else
label4="C級"
end if