写VB表达式~

你要的程序来了,自己试试吧!!!

Private Sub Command1_Click()
Dim i, s As Integer
s = InputBox("输入一个数字:", "提示")
For i = 1 To s
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Print i
End If
Next
End Sub

以后共同学习哦!!!

if x mod 5=0 or x mod 7=0 then
msgbox x,64,"x 是5或是7的倍数"

x mod 5 = 0 or x mod 7 = 0

符合以上条件的x则是5或7的倍数。