VB编程:在文本框（Text1）中输入一个整数，单击标签框（Label1），找出该数的所有因子并显
VB编程:在文本框（Text1）中输入一个整数，单击标签框（Label1），找出该数的所有因子并显示在标签框（Label1）中...
VB编程:在文本框（Text1）中输入一个整数，单击标签框（Label1），找出该数的所有因子并显示在标签框（Label1）中
展开
1个回答
展开全部
Private Sub Label1_Click()
Dim i As Integer
Label1 = ""
For i = 1 To Val(Text1)
If Val(Text1) Mod i = 0 Then Label1 = Label1 + Str(i)
Next
End Sub
Dim i As Integer
Label1 = ""
For i = 1 To Val(Text1)
If Val(Text1) Mod i = 0 Then Label1 = Label1 + Str(i)
Next
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
