编写“寻找质因子”的程序,程序功能:在文本框Text1中输入[2,32767]之间的任意整数,单击“执行”按扭Command1后,在文本框Text2中显示该整数可分解出的所有质因子(若存在重复,只输出一次)。程序运行时界面如下图所示:
(1)
观察程序界面,不具有Caption属性的对象有(填数字)个。
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim n As Integer, m As Integer
Dim s As String
Dim bj As Boolean '用于标记该质因子是否已存在
n=Va1(Text1. Text)
s=" "
m= 2
bj= True
Do While n> 1
If n Mod m=0 Then
n=
If bj= True Then
s=s+Str( m)
bj= False
End If
Else
m=m+1
End If
Loop
Text2. Text= s
End Sub
(3)
运行,上述程序,若在文本框Text1中输入1024,单击“执行”按钮后,文本框Text2中显示的内容为 。
答案: 【1】2
【1】n\m或n/m【2】bj= True
【1】2