精品K12教育教学资料
程序功能如下：程序运行后 先自动生成 1000 个取值范围在 [1, 100]的随机数（保留两位小数） 并显示在 List1 中，在 Text1 和 Text2 中输入排序范围的起始位置和结束位置，在 b(i)中存储 a(i) 在该范围中的排位，并输出排位到列表框 List2, 实现上述功能的 VB 程序如下，但加框处代码 有错，请改正。
Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load() Randomize '生成 1000 个随机数 For i = 1 To 1000
a(i) = ((Rnd * 99 + 0.05) * 1000 \\ 10) / 100 + 1 '产生随机数，保留二位小数 b(i) = 1 '初始排位为 1 List1.AddItem \& i & \& a(i) Next i End Sub
Private Sub Command1_Click() Dim ks As Integer, js As Integer ks = Val(Text1.Text) js = Val(Text2.Text) For i = ks To js For j = ks To js
If a(j) < a(j-1) Then b(i) = b(i) + 1 Next j
精品K12教育教学资料
精品K12教育教学资料
Text1 Text2
第 16 题图
List2.AddItem \在 a(\中排位为\Next i End Sub
17.某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试 的资格线根据计划录取人数的 200%划定，即如果考试最终录取 x 人，则第 2*x 名选手的笔试分 数为面试资格的分数线（该分若有同分者可一同参与面试）。现在编写 VB 程序功能如下：自动 读取数据库中考生考号和笔试成绩，依次存储在数组 kh(i)、cj(i)中，并显示在 List1 列表框中。单 “入围划线”击按钮 Command1,面试分数线显示在文本框 Text2 中，入围面试最终人数显示在 Text3 中，进入面试的考生的考号和笔试成绩显示在 List2 列表框中，如果成绩相同，则按考号由小到 大的顺序显示。程序界面如 17 题图所示。
第 17
题图 Dim kh(1 to 500) As string,cj(1 to 500) As Integer Dim n As Integer ‘参加考试总人数 Private Sub Form_Load()
Dim conn as new ADODB.connection:Dim rs As New ADODB.Recordset
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” +App.Path+”\\BSCJ.accdb” 精品K12教育教学资料
精品K12教育教学资料
conn.Open
set rs.activeconnection=conn rs.Open“select*FROM scoreinfo” ‘本过程其他代码略 End Sub
Private Sub Command1_Click()
Dim m As Integer,i As Integer,j As Integer Dim t1 As Integer,t2 As String,flag As Boolean For i = 1 To n-1 ‘排序
For j = ① If
cj(i) t1 = cj(i):cj(i) = cj(j):cj(j) = t1 t2 = kh(i):kh(i) = kh(j):kh(j) = t2 Elseif cj(i) = cj(j) And kh(i) > kh(j) Then t2 = kh(i):kh(i) = kh(j):kh(j) = t2 End If Next j Next i m = ② If m <= n Then ‘统计进入面试人数 i = m flag = False Do While ③ If cj(i) = cj(i+1) Then i = i+1 Else flag = True End If Loop Text2.text = Str(cj(m)) 精品K12教育教学资料 精品K12教育教学资料 Text3.text = Str(i) For j = 1 To i List2.AddItem kh(j) + “ ” + Str(cj(i)) Next j Else Text2.Text=”面试人数超过总人数了” End If End Sub (1)读取的数据表名为 (2)(单选)可以填在①处的代码是（ ） A.i+1 To n B.n To i+1 C.1 To n-i (3)请在②、③划线处填入适当的代码。 第二部分 通用技术（共 50 分） 一、选择題（本大题共 13 小题，每小题 2 分,共 26 分。在每小题给出的四个选项中，只有一个是符 合题目要求的，不选、多选、错选均不得分） 1.如图是一款虚拟现实跑步机，使用者戴上 VR 头盔和相应装备沉浸在虚拟 环境中，其锻炼效果是传统跑步机所无法比拟的。从技术的性质角度分 析， 以下说法中正确的是（ ） A．先进的虚拟现实技术与传统跑步机相结合，体现了技术的综合性 B．厂商需要支付一定的技术使用费，体现了技术的专利性 C．在游戏的同时又锻炼了身体，体现了技术的实用性 D．虚拟现实跑步机成本高，体现了技术的两面性 精品K12教育教学资料
相关推荐：
loading