题型：综合题 题类：常考题 难易度：普通
浙江省湖州市德清县第三中学2020-2021学年高二下学期信息技术3月月考试卷
Dim a(1 to 10) As Integer ‘存储原始数据
Dim b(1 to 10)As Integer ‘存放名次
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
For i=1 To 10 n=0
For j=1 To 10
If 
Then
Next j
Next i
b(i)= n
For i= 1 to 10
List2.Additem str(a(i))&“ ”&
Next i
End Sub
Private Sub Form_Load()
‘随机产生 10 个[60,100]之间的随机数，并显示在 List1 中，代码略。
End Sub
|
分数 |
0~59 |
60~69 |
70~79 |
80~89 |
90~99 |
|
等级 |
E级 |
D级 |
C级 |
B级 |
A级 |
现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能：程序运行时，将每位学生的得分(两位整数)存储到数组a中，并在列表框List1
中显示。单击“统计”按钮后，在列表框List2中显示从A级至E级，各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示：
请阅读代码，并回答以下问题：
Dim n As Integer
Dim a(1 To 50) As Integer
Private Sub Form_Load( )
Dim adocn As New ADODB. Connection
Dim adors As New ADODB. Recordset
Dim str1 As String
adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0；Data source=" +App. Path +”\school. accdb”
adocn. Open
str1 =“select * from students”
ardors.Open str1, adocn
'将每个学生的得分读入数组a中，并在列表框list1中显示，统计学生总人数n
'代码略
End Sub
Private Sub Comd1_C1ick( )
Dim cou As Integer，k as Integer
Dim b(0 To 4) As Integer
Const dj = “A级B级C级D级E级”
For i=1 Ton
k=a(i)\10-5
If k<0 Then ①
b(k)= b(k) + 1
Next i
For i=0 To 4
cou = 
'⑶改错
List2. AddItem ② + Str(cou) +“%”
Next i
End Sub
表1 某高校学考等级成绩折算表
| 学业水平考试等级 | A | B | C | D |
| 成绩折算(分) | 10 | 8 | 6 | 4 |
表2 某学生学考等级成绩单
| 科目 | 语文 | 数学 | 英语 | 物理 | 化学 | 生物 | 政治 | 历史 | 地理 | 技术 |
| 等级 | A | A | A | A | A | B | A | C | B | A |
编写Python程序实现学考成绩总分折算。表2学生的折合分数如图所示。
试题篮
