如何利用VB解决整数倍的问题？例题：1，输入1个不等于零的正整数，如果此数能被3整除，就显示“是3的倍数”，否则就显示“不是3的倍数”。2，找出200~300之间能被9整除的数。3，找出200~3

Question

如何利用VB解决整数倍的问题？
例题：
1，输入1个不等于零的正整数，如果此数能被3整除，就显示“是3的倍数”，否则就显示“不是3的倍数”。
2，找出200~300之间能被9整除的数。
3，找出200~300之间第一个同时被3和7整除的数。

Answer 1

Dim x As Long
    x = Round((Form1.Text1.Text * (0.4 + (20 / 1000)) * 24) / (Form1.Combo2.Text * 0.6 * Form1.Text2.Text))
    If x Mod 3 > 0 Then x = Int(x / 3) * 3
    Form5.Text1.Text = x