使用VB求数的约数

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

2、找到文本框按键，拖动鼠标建立恩独文本耕低框

3、双击空白处，进入代码界面。

4、输入代码，Dim a%, i%

a = InputBox("请输入一个正整数")

For i = 2 To a - 1

If a Mod i = 0 Then

Text1.Text = i

End If

Next

5、按运行按钮，进行检验。

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

7、保存