3.
【加试题】运行下列VB程序,在文本框Text1中输入30,界面如图所示。
单击“计算”按钮Command1后,则在文本框Text2中显示的内容是,在文本框Text3中显示的内容是。
Private Sub Command1Click()
Dim s As Integer, t As Integer, n As Integer
n = Val(Text1.Text)
t = 0
s = 0
For i = 1 To n
If Int(Sqr(i)) = Sqr(i) Then
s = s + i
t = t + 1
End If
Next i
Text2.Text = Str(t)
Text3.Text = Str(s)
End Sub