VB 编个加减运算的小程序

微信公开课小程序热门讨论「VB 编个加减运算的小程序」最新回复-只修改2个地方，其他不变：PrivateSubCommand1_Click()DimtempAsStringOpenText1.TextForInputAs#1OpenText2.TextForOutputAs#2DoWhileNotEOF(1)LineInput#1,tempDimSAsString,AD=CDbl(Val(Text3.Text))S=tempA=Split(S,A)Fori=1ToUBound(A)IfLen(A(i))0ThenA(i)=D*3.141592/360*val(A(i))修改处EndIfNexttemp=join(a,Y)关键修改处Print#2,tempLoopClose#1Close#2form4.ShowUnloadMeEndSub
你认为哪里有问题？？？是计算不对，还是编译出错？？ 更多有关「VB 编个加减运算的小程序」的疑问请扫码关注微信公开课+小程序！了解更多