输入一个正整数，拆分它的各个数字相乘求积。如果积是7的倍数，则输出“Yes!”否则输出“No!”。

Question

快

Answer 1

1x7 7就是7的倍数啊 任何数本身都是这个数的倍数

Answer 2

VB6写的
Private Sub Form_Click()
Dim a%, b%, c%, d%, e%
d = 1
a = InputBox("输入一个整数")
b = Len(RTrim(a))
For c = 1 To b
e = Mid(a, c, 1)
d = d * e
Next c
If d Mod 7 = 0 Then
MsgBox "yes!"
Else
MsgBox "No!"
End If
End Sub