用vb编写一个小程序

微信公开课小程序热门讨论「用vb编写一个小程序」最新回复-楼主您好！代码如下：OptionExplicitPrivateSubCommand1_Click()Dimn(7)AsDoubleDimk(3)AsDoublek(3)=1DimjAsIntegerForj=1To7n(j)=Val(Controls(Text&CStr(j)).Text)NextjForj=1To7k(1)=k(1)+n(j)k(2)=k(2)n(j)k(3)=k(3)*n(j)NextjMe.Text8.Text=7个数的和为：&k(1)&vbCrLf&_7个数的差为：&k(2)&vbCrLf&_7个数的乘积为：&k(3)EndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To8Controls(Text&CStr(i)).Text=NextiEndSubPrivateSubForm_Load()DimiAsIntegerFori=1To8Controls(Text&CStr(i)).Text=NextiEndSub
PrivateSubCommand1_Click()Text8=Str(Val(Text1)+Val(Text2)+Val(Text3)+Val(Text4)+Val(Text5)+Val(Text6)+Val(Text7))EndSubPrivateSubCommand2_Click()Text1=:Text2=:Text3=:Text4=:Text5=:Text6=:Text7=:Text8=:EndSubPrivateSubForm_Load()Command1.Caption=计算Command2.Caption=清空Text1=:Text2=:Text3=:Text4=:Text5=:Text6=:Text7=:Text8=:EndSub 更多有关「用vb编写一个小程序」的疑问请扫码关注微信公开课+小程序！了解更多