输出从1到100能被7整除的整数，如何编程啊，用vb

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 100
If i Mod 7 = 0 Then
Print i
End If
Next
End Sub

用mod函数
这个函数的意思就是，比如 x mod y 那么意思就是x除以y得到的余数
如果是0，那么就是代表整除了。
所以代码可以写成(扩展代码)

Private Sub Command1_Click()
Dim i As Integer,k
k=inputbox("请输入要检验的最大的数")
For i = 1 To val(k)
If i Mod 7 = 0 Then
Print i
End If
Next
End Sub

这段程序就不只是检测一百以内的了，你可以输入任意的数来检测

复制代码,运行,界面点一下就行

Private Sub Form_Click()
dim i
For i = 7 To 100 step 7
Print i
next i
End Sub

Private Sub Form_Click()
For a = 1 To 100
If a Mod 7 = 0 Then Print a;
Next a
End Sub