Question

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

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