1. (2019·浙江模拟) 两个整数的平方差称为好数，如 ，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

1. （1） 若要在Text1中填写序数为100，则应修改Text1对象的 属性
3. （2） 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

   Private Sub Command1_Click()

    Dim n, k, i ,sAs Integer

    s = Val(Text1.Text)  :  k = 2

    Do While n < s

       For i = 1 To k \ 2

           If k Mod i = 0 Then

              

               If (m + i) Mod 2 = 0 And (m - i) Mod 2 = 0 Then

                   n = n + 1

                   Exit For

               End If

           End If

       Next i

       k = k + 1

    Loop

    Label2.Caption = "第" + Text1.Text + "个好数是" +

   End Sub

5. （3） 由上述算法可知，数字21是第个好数。