用VB语言实现一个小程序

微信公开课小程序热门讨论「用VB语言实现一个小程序」最新回复-小程序很简单，不用控件，代码如下：DimA(4)AsString,B(4)AsInteger,C(4)AsString,StAsStringDimIAsInteger,JAsInteger,H1AsInteger,H2AsIntegerPrivateSubForm_Load()Form1.AutoRedraw=TrueA(1)=葡萄牙A(2)=西班牙A(3)=意大利A(4)=德国Label1.Visible=FalseLabel2.Visible=FalseText1.Visible=FalseText2.Visible=FalseText1.Text=Text1.Visible=TrueForm1.Width=7200Print比赛队伍;Space(4);ForI=1To4PrintSpace(9);A(I);NextPrintForI=1To3ForJ=I+1To4St=A(I)&&A(J)H1=Val(InputBox(St&:&A(I),输入比分))H2=Val(InputBox(St&:&A(J),输入比分))SelectCaseH1H2Case0H1=1H2=1CaseIs0H1=3H2=0CaseIs0H1=0H2=3EndSelectB(I)=B(I)+H1B(J)=B(J)+H2PrintSt;Tab(10+15*I);H1;Tab(10+15*J);H2NextNextPrint总分;ForI=1To4PrintTab(10+15*I);B(I);NextEndSub已经运行过，最终列出各队的总得分。之所以没有列出最终的冠军、亚军、季军、殿军是因为如果出现分数相同时，会有变化。所以，由楼主根据得分自己去判断啦！
= = 更多有关「用VB语言实现一个小程序」的疑问请扫码关注微信公开课+小程序！了解更多