vb 求能被97除余3,且中间两位数字（即千位、百位）相同的所有六位数之
答案:1 悬赏:20 手机版
解决时间 2021-01-31 03:24
- 提问者网友：咪咪
- 2021-01-30 18:44
vb 求能被97除余3,且中间两位数字（即千位、百位）相同的所有六位数之
最佳答案
- 五星知识达人网友：污到你湿
- 2021-01-30 19:08
Private Sub Command1_Click()
For i = 100000 To 999999
If i Mod 97 = 3 And i 1000 Mod 10 = i 100 Mod 10 Then
s = s + i
End If
Next i
Print "Sum ="; s
End Sub
For i = 100000 To 999999
If i Mod 97 = 3 And i 1000 Mod 10 = i 100 Mod 10 Then
s = s + i
End If
Next i
Print "Sum ="; s
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯