使用VB求数的约数

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

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

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

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

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

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

7、保存