永发信息网

vb求和语言

答案:3  悬赏:10  手机版
解决时间 2021-03-31 14:16
vb求和语言
最佳答案
Private Sub Command1_Click()
a = Val(Text1)
s = Len(a)
Sum = 0
For i = 1 To s
Sum = Sum + a Mod 10
a = a \ 10
Next i
Text2 = Str(Sum)

End Sub
Private Sub Command2_Click()
Text1 = ""
Text1.SetFocus
Text2 = ""
End Sub

Private Sub Command3_Click()
End
End Sub
全部回答
Private Sub Command1_Click()
Dim sum As Integer, i As Integer
s = 0
For i = 1 To Len(Text1.Text)
s = s + Val(Mid(Text1.Text, i, 1))
Next i
Text2.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
老大,一个数字怎么求和啊?
你这个提完全了是基础啊。。。
求和:text3=ext1+text2
清除并焦点:text1="":tex2="":text1.sefocus
结束:unload me
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
长了智齿不拔,磨平磨小点行么?
石家庄春天里停工无施工许可证怎么办?
DN250无缝镀锌钢管1米有多重
河北女人的特点是什么
Q(根号2+根号3)是否等于Q(根号2)Q(根号3
能发下哆啦A梦:大雄的平行西游记DVD中字的种
格林豪泰(六安磨子潭路店)地址在什么地方,
sosoonx10新手怎么使用方法
C++模板类和类模板
合租房里一个总电表一个分电表,分电表就我一
湖南哪些高职院校有航空高铁航海委培专业
我的偶像是MissA成员裴秀智,怎么赞美她好一
歌词中间的说唱部分为一帆风顺两全其美三阳开
1.Peter helps people in need.He is _.
床垫一般多少钱,床垫一般价钱
推荐资讯
昆明有泛海银行吗,我泛海银行卡忘记密码了要
求红花会so fresh 百度网盘资源
用spss分析问卷的信度,问卷有6个维度,26个
景观总图各点标高如何算出的,还是说建筑方原
丢手绢的玩法
为什么++在前面跟在后面的结果不同??
为什么秦岭到西安突然就变成平原了
求雀帝4下载地址
唐吉诃德·罗西南迪的介绍
怎样开好袜子店
《再见阿郎》中阿郎在第几部第多少集恢复记忆
分号(;)是什么意思?用在什么地方合适?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?