UC知道vb中form文本怎么提取
来源：百度知道 编辑：UC知道 时间：2024/06/29 02:09:19
问题如题目，在form里面的文本显示的不美观，我想添加到 text或者list里，请问如何添加？？代码如下
Private Sub Form_Click()
Dim n As Integer
Cls
AutoRedraw = True
n = InputBox("请输入一个大于3的正整数")
For m = 3 To n Step 1
i = 2
swit = 0
k = Int(Sqr(m))
While i <= k And swit = 0
If m Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend
If swit = 0 Then
Print m
End If
Next m
End Sub
Private Sub Form_Click()
Dim n As Integer
Cls
AutoRedraw = True
n = InputBox("请输入一个大于3的正整数")
For m = 3 To n Step 1
i = 2
swit = 0
k = Int(Sqr(m))
While i <= k And swit = 0
If m Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend
If swit = 0 Then
Print m
End If
Next m
End Sub
'这样总可以了吧
Private Sub Form_Click()
List1.Clear
Dim n As Integer
Cls
AutoRedraw = True
n = InputBox("请输入一个大于3的正整数")
For m = 3 To n Step 1
i = 2
swit = 0
k = Int(Sqr(m))
While i <= k And swit = 0
If m Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend
If swit = 0 Then
Print m
List1.AddItem m
End If
Next m
End Sub