Question

VBvscrollbar怎么用

Private Sub Command1_Click()
x = Val(Text1)
i = 1
Do
r = x Mod i
If r = 0 Then
Print i
End If
i = i + 1
Loop Until i > x
End Sub
我想把X的值输入到text里面怎么办
额貌似主题弄错了。。

Answer 1

是i的值吧？

Private Sub Command1_Click()
x = Val(Text1)
For i = 1 To X
If x Mod i = 0 Then Text2 = Text2 & i & " "
Next
End Sub

这是把能被x整除的i值放到text2中。另外对你的代码进行了简化。