有如下VB程序段：Dim a(l To 5) As Integer, i As Integer, c As Integera(l) = 2 : a(2) = 1 : a(3) = 3 : a(4)=4...

题型：单选题题类：常考题难易度：困难

浙江省杭州市夏衍中学2015-2016学年高二上学期期末考试技术试题（信息技术部分）

有如下VB程序段：

Dim a(l To 5) As Integer, i As Integer, c As Integer

a(l) = 2 : a(2) = 1 : a(3) = 3 : a(4)=4 : a(5) = 5

c=0

For i = 3 To 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Textl. Text = Str(c)

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

A、1 B、2 C、3 D、4

举一反三

下列控件中可用于接受用户输入文本，又可用于显示文本的是( )

填空题

在Visual Basic中，下列能作为变量名的是（）

随机生成15个100以内[1,100]的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer

Private Sub Form_Load()

Dim i As Integer, t As Integer

Dim s1 As String, s2 As String

Randomize

s1 = ""

For i = 1 To 15

a(i) = ①

s1 = s1 + Str(a(i))

Next i

Text1.Text = s1

End Sub

Private Sub Com1_Click()

s2 = ""

For i = 1 To 15

s2 = ②

Next i

Text2.Text = s2

End Sub

下面程序的功能是：产生20个[1，100]范围内的随机整数，并统计这20个随机数中的整数的个数(重复出现算1个)，结果显示在标签Label 1中。例如：5个随机数[10，20，20，31，32]中不重复数字个数为3。程序部分代码如下：

count=0

For i=1 To 20

a(i) =Int(Rnd*100) + 1

Next i

For i= 1 To 20

①

Next i

For i= 1 To 100

If b(i) <> 0 Then count =count+1

Next i

Label 1.caption=“不重复数字个数”+Str(count)

为实现上述功能，则程序①处应填入的语句为（）

下列不是Python基本数据类型的是（）

相关试卷

公司介绍

服务介绍

帮助中心