中科新闻网辣鸡字图片大全:VB程序设计这道题有高手会写吗？
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 07:02:24
点击按钮的时候，程序计算1000以内能被7整除并且不能被3整除的偶数的个数，并将结果显示在文本框中 谢谢了
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 1000 Step 2
If (i Mod 7 = 0) And (i Mod 3 > 0) Then
j = j + 1
End If
Next
MsgBox j
End Sub
基本算法而已,有点做题的嫌疑
用C写，很好写的