2. 计算机
  3. 编写程序，要求输入一个正整数，计算各位数字之和，并将计算结果显示在窗体上。程序如下： Private Sub Command1_Click() Dim Sum As Integer, k As Long k = Val(InputBox("

编写程序，要求输入一个正整数，计算各位数字之和，并将计算结果显示在窗体上。程序如下： Private Sub Command1_Click() Dim Sum As Integer, k As Long k = Val(InputBox("

admin2020-06-30  69
问题 编写程序，要求输入一个正整数，计算各位数字之和，并将计算结果显示在窗体上。程序如下：
Private Sub Command1_Click()
    Dim Sum As Integer, k As Long
    k = Val(InputBox("输入正整数："))
    Do While k > 0
      Sum = Sum + ( __________ )
      k = k \ 10
    Loop
    Print Sum
End Sub
程序不完整，应该在_______ 处填写的内容是
选项 A、k Mod 10
B、k
C、left(CStr(k), 1
D、mid (CStr(k), 1，1)
答案A
解析 k = Val(InputBox("输入正整数："))的意思是将输入对话框中输入的数据转换成数字赋给变量k。 在内层循环中，循环体的意思是将k除10的余数（k mod 10）加入到sum变量中，然后k重新赋值， k除以10的整数赋值给k。执行循环体，直到k=0为止。最后得到的sum就是输入整数的各位数字之和，故选择A项。
转载请注明原文地址:https://www.kaotiyun.com/show/a9Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)