230问答网 > 请计算机高手解释一道简单的有关visual basic 的问题

请计算机高手解释一道简单的有关visual basic 的问题

Private Sub Command1_Click()x = 1234s = 0Do While x <> 0m = x Mod 10x = x 尀 10s = s + mLoopPrint sEnd Sub

2024-12-20 06:33:15

推荐回答（1个）

回答1：

‘private sub的意思就是说这个过程是私有的，只能在这一个模块里被调用，这里定义一个私有过程
Private Sub Command1_Click()
'为x赋值1234
x = 1234
'为s赋值0
s = 0
'执行循环，直到x的值不等于零。
Do While x <> 0
'x的值取模，就是求余，也即是x除以10的余数，将结果放到m中
m = x Mod 10
'x整除10的结果放到x中
x = x \ 10
'把s加上们的m值放到s中
s = s + m
’循环结束
Loop
‘打印s的结果
Print s
’end sub 结束过程
End Sub