Private Sub Command1_Click() Dim a As String, n As Integer Dim s As Integer,

PrivateSubCommand1_Click()DimaAsString,nAsIntegerDimsAsInteger,iAsIntegera=Text1.Text... Private Sub Command1_Click()
Dim a As String, n As Integer
Dim s As
Integer, i As Integer
a = Text1.Text
n = Len(a)
s = 0
For i
= 1 To n
s = s + Val(Mid(a, i, 1))
Next i
Label1.Caption =
Str(s)
End
Sub
运行该程序,在文本框Text1中输入2012,单击命令按钮Command1,在标签Label1中显示的是__________。
急啊
展开
 我来答
xlzzc
推荐于2018-03-21 · TA获得超过7301个赞
知道大有可为答主
回答量:4205
采纳率:50%
帮助的人:1432万
展开全部
等于5.
这个程序的功能就是求数的各个数位上的数字之和。
风雪剑无痕
2013-09-15 · TA获得超过1253个赞
知道大有可为答主
回答量:1691
采纳率:100%
帮助的人:1673万
展开全部
单击命令按钮Command1,在标签Label1中显示的是数字5
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式