End if 3.在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮 Comd I(“查找”)。 Private Sub Comd l Click “查找” Dim n As Integer n= Val(TextI Text) ie k= If Not (n Mod 7=0)Then List. Additem n End if End sub 4.程序代码如下: Private Sub Form Load O n=Val( InputBox("正整数n=")) For i= to n +1 To n k =j+ I To n Print"(";i;",";j;",";k:") End sub 5.在窗体上建立一个列表框List和一个“显示表项”命令按钮Comm 程序代码如下 Private Sub Commandl click 显示表项”按钮单击事件 cl For i =0 To list. ListCount 逐项判断 If Listl Selected (i)Then 真时为选中 Print Listl List(i) 6. (1)Textl Text (2)UCase(x) (3)t >="A"And t <="Z"(4)y+x 7.程序代码如下: Private Sub Form Load Show Dim a As single, xno As Single, xnl As Single Val( InputBox("请输入一个正数") nI=a Loop While Abs(xn0-xn1)>=0.00001 Print a:"的平方根为";xnl End sub 第6章习题 单选题7 End If Next i End Sub 3. 在窗体上建立一个文本框 Text1(初始值)、一个列表框 List1(显示结果)和一个命令按钮 Comd1(“查找”)。 Private Sub Comd1_Click() '“查找” Dim n As Integer n = Val(Text1.Text) List1.Clear:k = 0 Do While k <= 99 If Not (n Mod 7 = 0) Then List1.AddItem n k = k + 1 End If n = n + 1 Loop End Sub 4. 程序代码如下： Private Sub Form_Load() Show n = Val(InputBox("正整数 n=")) For i = 1 To n For j = i + 1 To n For k = j + 1 To n If i * i + j * j = k * k Then Print "("; i; ","; j; ","; k; ")" End If Next k Next j Next i End Sub 5．在窗体上建立一个列表框 List1 和一个“显示表项”命令按钮 Command1。程序代码如下： Private Sub Command1_click() '"显示表项"按钮单击事件 FontSize = 12 Cls For i = 0 To List1.ListCount - 1 '逐项判断 If List1.Selected(i) Then '真时为选中 Print List1.List(i) End If Next i End Sub 6．(1) Text1.Text (2) UCase(x) (3) t >= "A" And t <= "Z" (4) y + x 7．程序代码如下： Private Sub Form_Load() Show Dim a As Single, xn0 As Single, xn1 As Single a = Val(InputBox("请输入一个正数")) xn1 = a Do xn0 = xn1 xn1 = (xn0 + a / xn0) / 2 Loop While Abs(xn0 - xn1) >= 0.00001 Print a; "的平方根为"; xn1 End Sub 第 6 章习题 一、单选题