浙江省稽阳联谊学校2020届高三上学期信息技术12月联考试卷
年级： 学科：信息技术（信息科技） 类型：月考试卷 来源：91题库
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求） （共12小题）
s = Text1.Text: sum = 0: t = 0: cnt = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
j=j+1
Else
If cnt Mod 2 = 1 Then sum = sum + val(mid(s,i-j,j))
j= 0：cnt = cnt + 1
End If
Next i
在文本框text1输入“12d6a3c4f20”，程序运行后sum的值是（ ）
Dim a(1 To 5) As Integer
a(1) = 1
For i = 2 To 5
a(i) = Int(Rnd() * 3) + 3
Next i
For i = 2 To 5
If a(i) Mod 2 = 1 Then
a(i) = a(i) + a(i - 1)
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是（ ）
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(1) = 1
For i = 2 To 12
a(i) = a(i - 1) + Int(Rnd * 2) + 1
Next i
Key = Val(Text1.Text)
i = 1: j = 12: cnt = 1: flag = False
Do While i <= j And flag = False
cnt = cnt + 1
m = (i + j + 1) \ 2
If a(m) = Key Then
flag = True
ElseIf Key > a(m) Then
i = m + 1
Else
j = m - 1
End If
Loop
程序运行后，下列说法正确的是（ ）
二、非选择题（本大题共4小题，4+8+7+7，共26分。） （共4小题）
图a
图b
图c
图a
图b
Private Sub Command1_Click()
Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer
Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String
s=text1.text
i = 1: k = 1: tmp1 = 0: tmp2 = ""
Do While i <= Len(s)
c = Mid(s, i, 1)
If c = "," Then
a(k) = tmp1: b(k) = tmp2
tmp1 = 0: tmp2 = ""
①
Else
If 
Then
tmp2 = tmp2 + c
Else
tmp1=tmp1*10+val(c)
End If
End If
i = i + 1
Loop
For i = 1 To 5
For j = 1 To 6 - i
If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1
If Len(b(j)) > Len(b(j + 1)) Or ② Then
tmp2 = b(j): b(j) = b(j + 1): b(j + 1) = tmp2
End If
Next j
Next i
For i = 1 To 6
List1.AddItem Str(a(i)) + b(i)
Next i
End Sub
① ②
|
题号 |
1-12 |
13-25 |
26-29 |
30-33 |
|
科目题型 |
信息客观题 |
通用客观题 |
信息主观题 |
通用主观题 |
|
满分分值 |
每题2分 |
每题2分 |
4/8/7/7 |
6/9/3/6 |
小李根据上述描述，设计了一个统计所有同学信息各题得分率的算法。程序运行后首先在列表框list1显示信息技术各小题得分，单击“计算”按钮“command1”，在列表框list2显示信息各题的题号和得分率，在文本框text1输出所有同学的信息平均分（平均分=各题得分率*各题分值的和）。算法的VB程序如下，回答下列问题。
Dim a(1 To 1000) As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim fz(1 To 16) As Integer 'fz数组存储信息各题满分值
Dim b(1 To 33) As Double '数组b存储全卷各题的得分率
For i = 1 To 16 ‘数组fz存储信息16个小题的满分值
If i <= 12 Then fz(i) = 2
fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7
Next i
For i = 2 To n '把数组a数据分别统计到各题中
b(j) = a(i ) + b(j)
Next i
For i = 1 To 33 '仅处理信息各题的平均分
If i <= 12 Then
b(i) = b(i) / (a(1) * fz(i))’计算信息选择题各题的得分率
ElseIf i >= 26 And i <= 29 Then
b(i) =
End If
Next i
For i = 1 To 16
If i > 12 Then j = i + 13 Else j = i
b(j) = Int(b(j) * 1000 + 0.5) / 10 '对结果四舍五入保留1位小数
List2.AddItem Str(i) + Str(b(j)) + "%"
ave=
Next i
Text1.Text = Str(ave / 100)
End Sub
Private Sub Form_Load()
‘读入数据到数组a，数据个数n，代码略
End Sub