一个VB问题SOS统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除.

Question

一个VB问题 SOS
统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除.

Answer 1

Private Sub Form_Load()
'程序由L WORK STUDIO 制作.
'谢谢您的使用
'498483439
'LWORKSTUDIO 08.
'COUNT变量是记录共有多少个这样的数
Dim count
'把它的初始值改为0
count = 0
'这里声明了即将在你的区间中变化的整数I,也就是他完成计算的.
Dim i
'同样的初始值为零;这是习惯.
i = 0
'开始在你的区间中检索,遍历
For i = 526 To 5000
'为了后面提取数位方便;我们采取用String格式的变量;所以在这里声明II这个变量
Dim ii As String
'让它是i的值;容易操作
ii = i
'这里声明一个数组;存储数位
Dim x()
'这里声明并给初始值一个变量Temp用来循环并提取数位.
Dim temp
temp = 0
'这里将X的大小动态根据数位设置
ReDim Preserve x(Len(ii) - 1)
'提取数位
For temp = 0 To Len(ii) - 1
x(temp) = Mid(ii,temp + 1,1)
Next
'提取完成准备下一步操作
Dim xx
Dim old As Integer
old = 0
'这里的OLD变量用来存储数位的和
For Each xx In x
old = old + CInt(xx)
Next
'好了计算完成开始判断
If old / 7 = old \ 7 Then
count = count + 1
End If
Next
MsgBox ("共" & count & "个")
End Sub