1. 【加试题】运行下列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

【考点】
算法的控制结构;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
填空题 困难
基础巩固
能力提升
变式训练
拓展培优
真题演练
换一批