编程： 在窗体上有一个名称为Cmd1的命令按钮，显示文本为“计算”，再增加一个名称为List1的列表框和一个

Question

在窗体上有一个名称为Cmd1的命令按钮，显示文本为“计算”，再增加一个名称为List1的列表框和一个名为Lable1的标签。程序运行后，单击命令按钮，即可计算出0～1000范围内能被5整除或能被7整除的整数数值，在列表框中逐项显示出来，并计算出个数，在标签中显示。

Answer 1

你在一个新的窗体上添加三个控件：一个listbox、一个label和一个command，并将command控件的名称改成你上述设定的名称“Cmd1”，其他均为默认，然后将以下代码复制到代码窗口中即可运行成功达到你要的目的啦：

Private Sub Cmd1_Click()

  Dim a As Long, b As Long

  b = 0

  For a = 0 To 1000

    If a Mod 5 = 0 Or a Mod 7 = 0 Then

      List1.AddItem a

      b = b + 1

    End If

  Next

  Label1.Caption = "满足条件的数量=" & b & "个"

End Sub

Private Sub Form_Load()

  Cmd1.Caption = "计  算"

  Me.Caption = "计算0到1000能被5或7整除的所有数据"

End Sub

Answer 2

你找一下那个被5整除或能被7整除的算法、然后.Tostring（）就OK啦！这个不是很难吧？都是数学算法！