VB文本框中输入一个3位正整数，求各位数字之和。例如输入835，结果为16
填空dimaasintegerdimsasintegera＝_____（text1.text）fori＝1to_____s＝s＋_____a＝_______nextila...
填空
dim a as integer
dim s as integer
a ＝_____（text1.text）
for i ＝ 1 to _____
s ＝ s ＋ _____
a ＝ _______
next i
label1.caption ＝ Str（s） 展开
dim a as integer
dim s as integer
a ＝_____（text1.text）
for i ＝ 1 to _____
s ＝ s ＋ _____
a ＝ _______
next i
label1.caption ＝ Str（s） 展开
1个回答
展开全部
dim a as integer
dim s as integer
a = val(text1.text)
for i = 1 to 3
s = s + a mod 10
a = a \ 10
next i
label1.caption = str(s)
dim s as integer
a = val(text1.text)
for i = 1 to 3
s = s + a mod 10
a = a \ 10
next i
label1.caption = str(s)
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
在Excel中，进行文本相似度匹配通常涉及多种方法。常用的函数包括VLOOKUP和MATCH，但直接计算文本相似度的函数并不直接内置于Excel中。然而，你可以结合Excel的内置函数和逻辑来近似计算文本相似度，如使用LEN函数计算字符串长...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
