- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省名校协作体2018-2019学年高二上学期信息技术9月联考试卷

用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。

（1）、若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是。（单选，填字母：A .Command1.Caption=“得分计算”/B .Form1.Name=“得分计算”/C .Form1.Text=“得分计算”/D .Form1.Caption=“得分计算”）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim n As Integer '裁判人数

Dim max As Integer， min As Integer， sum As Integer

Dim AveScore As Single '存储最终得分

n = Val(Text1.Text): sum = 0

If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")

If n > 2 Then

List1.Clear

Randomize

score = Int(Rnd() * 31) + 70

List1.AddItem Str(score)

max = score

min = score

For i = 2 To n

score = Int(Rnd() * 31) + 70

List1.AddItem Str(score)

If score > max Then max = score

If score < min Then min = score

sum = sum + score

Next i

AveScore =

Text2.Text = Str(AveScore)

End If

End Sub

（3）、若要将最终得分保留一位小数（四舍五入），下列代码可行的是______________________。

A、AveScore=int(AveScore+0.5) B、AveScore=int(AveScore*10+0.5)/10 C、AveScore=int(AveScore*100+0.5)/100

举一反三

采用如下对分查找算法对数组a中7个有序数据“15，38，51，66，77，81，99”进行查找，查找数据为“55”，

i = 1: j = 7: x = 55

Do While i <= j

m = (i + j) \ 2

If a(m) = x Then Exit Do

If a(m) > x Then j = m - 1 Else i = m + 1

Loop

经过上述代码查找后，下列表达式正确的是( )

【加试题】实现某对分查找算法的VB程序段如下：

a（1）=12：a（2）=32：a（3）=70：a（4）=88：a（5）=90：a（6）=97

i=1：i=6：n=0

key=Val(Text1．Text)

Do While i<=j

n=n+1

m=Fix((i+j)／2)

If key=a(m)Then Exit Do ‘Exit Do表示退出循环

If key<a(m)Then j=m-1 EIse i=m+1

Loop

Text2．Text=Str(n)

运行程序，在文本框Text1中输人100，程序段运行后，文本框Text2中显示的内容为（）

【加试题】张凡编写了二一租赁公司车辆信息查询的摆序，其中车辆的基本信息存放在数据文件“car．accdb”中的qicheinfo表，如图1所示。

该程序采用两种查询方式：

⑴按的汽车的排量查询信息

在文本框Text1中输入需要的汽车的排量，单击Command1按钮，在列表框List1中显示等于该排量汽车的相关车辆信息。

⑵按车主查询信息

在文本框Text1中输入车主信息(手机号码或姓名)，单击Command2按钮，在列表框List1中显示车辆信息。

该程序运行时的界面如图2所示。

实现上述功能的VB程序如下，请回答下列问题：

填空题

【加试题】已知数组元素 a(1)到 a(9)的值为{19,28,37,46,55,64,73,82,91},若在 Text1 中输入 29，然后执行下面程序段：

Key = Val(Text1.Text) \10 Text2.Text = ""

i = 1: j = 9: f = False

Do While i <= j And Not f m = (i + j)\ 2

If a(m) Mod 10 = Key Then search = m: f = True

ElseIf a(m) Mod 10 > Key Then i = m + 1

Else

j = m - 1 End If

Text2.Text = Text2.Text + Str(m) Loop

执行完该程序段后，Text2中显示的内容是（）

在文本框 TxtIn中输入原文，单击“加密”按钮，对文中所有英文字母进行加密，其它字符不变，在文本框 TxtOut中输出加密结果。

加密规则如下表所示：

原字

…

密字

…

注：“A”的ASCⅡ码值是65，“a”的ASCI码值是97。

相关试卷

公司介绍

服务介绍

帮助中心