- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省稽阳联谊学校2020届高三上学期信息技术12月联考试卷

生成10个不重复的随机整数，保存在数组a中，并升序排列，实现算法的VB程序如下。

Dim a(1 To 10) As Integer, f(1 To 20) As Boolean

'f数组各元素的初值设为False，代码略

For i = 1 To 10

t =int(rnd()*20+1)

If Not f(t) Then

a(i) = t: ⑴

For j = i To 2 Step -1

If ⑵ Then

tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp

End If

Next j

Else

⑶

End If

Next i

上述程序中3处下划线应填入的程序代码是（）

A、⑴f(t) = True ⑵a(j) < a(j - 1) ⑶i=i-1 B、⑴f(t) = True ⑵a(j) > a(j - 1) ⑶i=i-1 C、⑴f(t) = True ⑵a(j) < a(j - 1) ⑶t =int(Rnd()*20+1) D、⑴f(t) = False ⑵a(j) > a(j - 1) ⑶t =int(Rnd()*20+1)

举一反三

编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按钮Command1，在标签Label1中显示将n转换为八进制的数值，程序代码如下。

Private Sub Command1Click()

Dim y As Integer '用于存储输入的十进制自然数

Dim s As String '用于存储转换后的结果

Dim r As Integer

n = Val(Text1.Text)

s = ""

Do While n <> 0

r = ① '采用除八取余法

s = Str(r) + s '将余数添加到结果s中

n = n \ 8

Loop

Label1.caption=s

End Sub

请根据题意将程序补充完整。

统计“英文句子单词平均长度”的程序，其实现功能为在文本框Text1中输入要统计的英文句子，单击“统计”按钮Command1。进行统计，求出句子中共有几个单词、句子单词的平均长度，并显示在标签框Label1中。程序运行界面如图所示。

有如下VB程序段：

i = 1

Do While i <= 6

t = Int(Rnd * 10) + 1

If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

k = 1

For j = 1 To 6 - i * 2

If a(j) * k > a(j + 2) * k Then

t = a(j) : a(j) = a(j + 2) : a(j + 2) = t

End If

k = -k

Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

有如下 VB 程序段：

i=1：n=5

Do while i<=n

x=Int(Rnd*9)+1

If x Mod 2=1 Then

a(i)=x

Else

a(n)=x:n=n+1

End If

i=i+1 Loop

数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（）

编写一个查找最接近的数的VB程序：程序运行时，在文本框Text1中输人产生随机数的个数（1到100之间），单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数，然后在文本框Text2中输入要查找的整数，单击命令按钮"查找"后，在标签Label3中显示随机整数序列中与待查找数最接近的整数（当最接近的数有2个时，输出较大的一个）。程序运行效果如图所示：

实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer '存储随机数的个数

Dim f(1To100)As Boolean

'f(i)为True时表示随机整数i已经产生过

Dim a(1 To 100)As Integer

'依次存放升序排序后的n个随机数

Private Sub Command1_Click()

'命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

t=Int(Rnd * 100+1)

Do While f(t)=True

t=Int(Rnd * 100+1)

Loop

{#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100 '实现排序并输出

If f(i)=True Then

{#blank#}2{#/blank#}

a(j)=i

List1.AddItem Str(i)

End If

Next i

End Sub

Private Sub Command2_Click()

'命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)): Exit Sub

If key >=a(n) Then Label3. Caption=Str(a( n)): Exit Sub

L=1: R=n

Do While L<=R '找到与 key 较为接近的两个数a(R)和a(L)

m=(L+R)\2

If key<=a(m)Then

R=m-1

Else

L=m+1

End If

Loop

If {#blank#}3{#/blank#}Then

'在a(R)和 a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a L))

End If

End Sub

下列流程图属于选择结构的是（）。

相关试卷

公司介绍

服务介绍

帮助中心