创建如图L3-7-1所示的界面:(一个标签,一个文本框,一个命令按钮,一个列表框)。 操作要求: (1)单击“查询”按,根据文本框中输入的数字,在列表框中显示该数范围内的同构数。 (2)同构数说明:同构数为自然数,假设n为同构数,s是n的平方,则n会出现在s的最右边。比如5是同构数,5*5=25;6是同构数,6*6=36;25是同构数,25*25=625。 请根据上述要求,完善以下“查询”按钮单击事件的代码。 Private Sub Command1_Click() Dim i&, n&, s&, p& lst1.Clear n = Val(Text1.Text) For i = ________'1 s = ____________'2 p = i * i If right(p,s)= _________ Then '3 _____________'4 End If Next End Sub