使用VB求数的约数

1、打开VB软件，进入界面，选择“打开”

4、输入代码，Dim a%, i%a = InputBox("请输入一个正整数")For i = 2 To a - 1If a Mod i = 0 ThenText1.Text = iEnd IfNext

6、进入运行状态，输入数字

7、保存