题目

编写“寻找质因子”的程序,程序功能:在文本框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
信息技术 试题推荐
最近更新