小吳 VBQA 程式設計討論

dim score (1 to j ,1 to 4)as integer在一般宣告
private sub cmd1 click()
k = val (text1,text)
score(k,1)=val (text2,text)
score(k,2)=val (text3,text)
score(k,3)=(score(k,1)+score(k,2)) / 2
score(k,4)=val(text6,text)
text1,text=""
text2,text=""
text3,text=""
text6,text=""
end sub
private sub cmd2 click()
k=val (text4,text)
text5,text=score (k,3)
text7,text=score (k,4)
end sub