【加试题】小明设计了一个VB程序（界面如图16所示），随机产生n（n&lt;=100）个大于等于a(a&lt;=100)且小于等于b(b&lt;=100)的整数，并在列表框List1中降序显示。实现上述功能的VB代码如下：请在划线处填入合适代码。 Private Sub Command1Click() Dim a As Integer, b A...

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

浙江省“七彩阳光”新高考研究联盟2017届高三下学期信息技术期初联考试卷

【加试题】小明设计了一个VB程序（界面如图16所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

Dim a As Integer, b As Integer

Dim n As Integer, t As Integer

Dim m(1 To 100) As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

n = Val(Text3.Text)

If a > b Then t = a: a = b: b = t

Randomize

①

For i = 2 To n

m(i) = Int(Rnd * (b - a + 1)) + a

If m(i) > m(i - 1) Then

②

For j = i - 1 To 1 Step -1

If temp < m(j) Then Exit For

m(j + 1) = m(j)

Next j

③

End If

Next i

For i = 1 To n

List1.AddItem Str(m(i))

Next i

End Sub

程序①处的代码是

程序②处的代码是

程序③处的代码是

举一反三

有如下Visual Basic程序段，用于计算前n个自然数之和。程序划线处应填写的语句是（）

s = 0: i = 1

n = Val(Text1.Text)

Do While i < n

s = s + i

i = i + 1

Label1.Caption = Str(s)

下列VB程序段：

Dim x As Integer，y As Integer

x＝Val(Text1.Text)

If x>200 Then

y＝5*x

ElseIf x>＝50 Then

y＝10*x

Else

y＝4*x

End If

Text2.Text＝Str(y)

若要测试所有分支程序代码是否正确，以下测试数据中，最恰当的一组是（）

语句Dim a&(1 To 20), b#(2, -1 To 1)定义两个数组，其类型分别为（）

某对分查找算法的VB程序段如下：

i = 1: j = 8: s = ""

key =Text1.Text

Do While i <= j

m =(i + j) \ 2

If key = a(m) Then

s = s + "M"

Exit Do

ElseIf key > a(m) Then

j = m - 1: s = s + "L"

Else

i = m + 1: s = s + "R"

End If

Loop

Text1.Text = s

数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”，该程序段执行后，文本框Text1中显示的内容不可能是（）

以下Python程序运行后的输出结果为：（）

m=1

for i in range(10):

m=m*i

print(m)

在Python语言中，运行以下程序段后，显示的结果是（）

>>> a=8

>>> b=2

>>> a-=b

>>> b+=a

>>> a+b

相关试卷

公司介绍

服务介绍

帮助中心