- 二一组卷

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

浙江省丽水市2018-2019学年高二下学期信息技术期末考试试卷

小王编写了一个“学生体能情况分析”程序，其功能是分项计算名次和优秀率（分数90分及以上为优秀）。运行程序时，在列表框List1中显示所有学生的3项体能测试分数，在文本框Text1中输入测试项目代码（1表示游泳，2表示跑步，3表示跳远），单击“计算”按钮Command1后，计算结果分别显示在列表框List2和标签Label2中。程序运行界面如图1所示。

程序设计过程中数据的存储和计算方法如下：

⑴学生体能分数的存储：如图2所示，第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里，第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里，以此类推。

⑵计算名次的算法：先统计每个分数的个数，存入数组a，如图3中a(96)值为9，表示共有9个96分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次存入数组b，分数相同时名次并列，如图3中b(96)值为10，表示96分的名次是（并列）第10名，以此类推。

请回答下列问题：

（1）、根据图1中列表框List1中的信息和图2所示的数据存储方法可知，数组元素score(23)的值为（填数字）。

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

Dim m As Integer ' 学生人数

Dim score(1 To 3000) As Integer ' 存放学生分数

Dim xm(1 To 1000) As String ' 存放学生姓名

Private Sub Command1_Click()

Dim i As Integer, t As Integer, code As Integer, mc As Integer

Dim a(0 To 100) As Integer '存放每个分数的个数

Dim b(0 To 100) As Integer '存放每个分数的名次

Dim code_n(1 To 3) As String

code_n(1) = "游泳" : code_n(2) = "跑步" : code_n(3) = "跳远"

code = Val(Text1.Text)

For i = 0 To 100

a(i) = 0

Next i

sum = 0

For i = 1 To m '计算每个分数的个数及体能测试优秀的人数

t = ①

a(score(t)) = a(score(t)) + 1

If score(t) >= 90 Then sum = sum + 1

Next i

mc = 1

For i = 100 To 0 Step -1 '计算每个分数的名次

If a(i) <> 0 Then

b(i) = mc

mc = ②

End If

Next i

List2.Clear

List2.AddItem " 姓名 " + ③ + " 名次"

For i = 1 To m

'在List2中输出m个学生的姓名、指定项目的分数及名次，代码略

Next i

sum = Int(sum / m * 10000 + 0.5) / 100

Label2.Caption = "优秀率是：" + Str(sum) +"%"

End Sub

Private Sub Form_Load()

’从数据库读取姓名存入数组xm，体能测试数据存入数组score，总人数存入变量m。

’代码略

End Sub

①②③

举一反三

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

统计学中的“中位数”是这样的一种数：一组数据里的一半的数据比它大，而另外一半数据比它小。计算一组数据的中位数的方法是：把所有数据按照非升的次序排列。如果数据的个数是奇数，则中间那个数就是这组数据的中位数；如果个数是偶数，则中间两个数的算术平均值是中位数。

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了Access数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮Command1后先以工资按非升的次序排序，然后找出中位数。

Dim a(1 To 1000) As String

Dim b(1 To 1000) As Single

Dim n As Integer

‘数据库读取所有人员的数据代码略

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim tmp1 As Single, tmp2 As String

Dim median As Single

For i = n To 2 step -1

k = i

For j = i-1 To 1 step -1

If Then

k = j

End If

Next j

If k <> i Then

tmp1 = b(k): b(k) = b(i): b(i) = tmp1

tmp2 = a(k): a(k) = a(i): a(i) = tmp2

End If

Next i

For i = 1 To n

List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))

Next i

If n Mod 2 = 0 Then

median =

Else

median = b(n\2+1)

End If

Label1.Caption = "中位数是：" & Str(median)

End Sub

“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13……要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：

Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

a = b: b = c

c = a + b

s = s + Str(c)

i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（）

下列问题适合用解析算法求解的是（）

有如下程序段：

For i = 2 To 6

For j = 1 To i - 1

If a(j) <= a(i) And d(j) >= d(i) Then

d(i) =d(j)+1 : pre(i) = j

End If

Next j

Next i

max = 0 : k = 0

For i = 1 To 6

If d(i)>max Then max = d(i) : k = i

Next i

Do While k <> 0

st = a(k) & ","& st

k=pre(k)

Loop

Text1.Text = Mid(st, 1, Len(st) - 1)

数组元素a（1）到a(6)的值依次为“2，6，5，9，8，8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是( )

相关试卷

公司介绍

服务介绍

帮助中心