【加试题】运行下列VB程序，在文本框Text1中输入30，界面如图所示。单击&ldquo;计算&rdquo;按钮Command1后，则在文本框Text2中显示的内容是，在文本框...

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷七

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

举一反三

如下VB程序段：

x = InputBox("输入x的值：")

If x > 3 Then

If x <= 6 Then

y = 2 * x

Else

y = 3 * x

End If

Else

y = 4 * x

End If

Print y若x、y均是整型变量，程序运行并输入6，则y的值是（）

某算法的部分流程图如下图所示，执行这部分流程，则“s≤100?”被执行的次数是（）

以下程序段运行时出现如图所示的错误提示：

For i=1 To 100

If Rnd>0.5 Then

n=n+1

Else

m=m+1

Next i

分析该程序段，该代码中缺少了（）

有如下VB程序段：

For i=1 To 100

For j=i To 100

If j Mod i=0 Then a(j)=a(j)+1

Next j

Next i

Text1. Text=Str(a(30))

数组a各元素的初值为0，执行上述程序段后，文本框Text中输出的内容为（）

有如下VB程序段：

s=0

For k =3 To 1 Step-1

If k <=1 Then x=1

If k <=2 Then x=2

If k <=3 Then x=3

s=s+x

Next k

Text1. Text= Str(s)

该程序段运行后，文本框Text1中显示的内容是（）

下面是某网约车计费流程图，其中V1表示时长费用（元），V2表示里程费（元），S表示实际里程（公里），T表示实际时长（分钟），cost表示支付费用（元）。请仔细观察并回答相关问题。

相关试卷

公司介绍

服务介绍

帮助中心