vb 设n是一个自然数,s1是n的各位数字之和,s2是2*n的各位数字之和。若s1=s2，则n是
答案:3 悬赏:50 手机版
解决时间 2021-03-24 03:59
- 提问者网友：容嬷嬷拿针来
- 2021-03-23 08:04
vb 设n是一个自然数,s1是n的各位数字之和,s2是2*n的各位数字之和。若s1=s2，则n是
最佳答案
- 五星知识达人网友：你可爱的野爹
- 2021-03-23 08:53
Private Sub Button1_Click(）
Dim n As Integer, s1 As Integer, s2 As Integer, i As Integer
Do
n = n + 1
s1 = 0
s2 = 0
For I = 1 To Len(Str(n))
s1 = s1 + Val(Mid(Str(n), i, 1))
s2 = s2 + Val(Mid(Str(2 * n), i, 1))
Next
If s1 = s2 Then
If MsgBox("数字为：" + Str(n) + " 是否继续？", vbYesNo) = vbNo Then Exit do
End If
Loop
End Sub
结果是9的倍数
Dim n As Integer, s1 As Integer, s2 As Integer, i As Integer
Do
n = n + 1
s1 = 0
s2 = 0
For I = 1 To Len(Str(n))
s1 = s1 + Val(Mid(Str(n), i, 1))
s2 = s2 + Val(Mid(Str(2 * n), i, 1))
Next
If s1 = s2 Then
If MsgBox("数字为：" + Str(n) + " 是否继续？", vbYesNo) = vbNo Then Exit do
End If
Loop
End Sub
结果是9的倍数
全部回答
- 1楼网友：旧脸谱
- 2021-03-23 10:03
你说的是不清楚，不知道你想要的程序功能
- 2楼网友：拾荒鲤
- 2021-03-23 08:59
做个标记，有空了给你敲代码
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯