浙江省温州市2018届高三下学期信息技术3月适应性考试(二模)试卷
年级: 学科:信息技术(信息科技) 类型: 来源:91题库
一、选择题 (共12小题)

s = "ERROR:Divisor must not be zero!"
flag = False : m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
If Not flag Then
m = m + 1 : flag = True
End If
Else
flag = False
End If
Next i
Text1.Text=Str(m)
For i=1 to 3
For j=1 to 5-i
If a(j)>a(j+1) Then
t=a(j) : a(j)=a(j+1) : a(j+1)=t
End If
Next j
Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后,文本框Text1显示的内容是( )
二、非选择题 (共5小题)
图a
请回答下列问题:
图 b
图 c
Private Sub Command1_Click()
Dim s As String, tmp As String, c As String
Dim n As Integer, i As Integer
Dim flag As Boolean
Dim cnt As Integer '存储符合条件的单词数
s = Text1.Text
n = Len(s)
flag = False
List1.Clear
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then
If c = Text2.Text Then flag = True: cnt = cnt + 1
Else
If flag Then List1.AddItem tmp
tmp = ""
End If
Next i
If cnt = 0 Then
List1.AddItem "找不到符合条件的单词."
End If
End Sub
图 a
图 b
为此,编写了一个 VB 程序,功能如下:运行程序,窗体加载时随机产生 10 个随机整数,并在列表框 List1 中依次显示排序前数据,单击“排序”按钮 Command1,在列表框 List2 中
显示经过上述排序算法后的数据,运行结果如图 b 所示。实现上述功能的 VB 代码如下,但加框处代码有错,请改正。
Const n = 10
Dim a(1 To n) As Integer '生成 n 个随机数,存储在 a 数组,代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 2 To n
t = a(i) : j = i - 1
Do While t < a(j)
a(j + 1) = a(j) j = j – 1
If Then Exit Do ①
Loop
②
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
① ②
实现上述功能的 VB 程序如下,请回答下列问题:
Dim xm(1 To 600) As String '存储学生姓名
Dim xx(1 To 600) As Integer '存储信息成绩
Dim ty(1 To 600) As Integer '存储通用成绩
Dim n As Integer '存储记录总数
Private Sub Form_Load()
'本过程从数据库中读取学生数据,存储在相应的变量中,并在 List1 中显示'代码略
End sub
Private Sub Command1_Click()
Dim key As Integer, mid As Integer
Dim i As Integer, L As Integer, R As Integer, k As Integer
Dim tmp1 As String, tmp2 As Integer
'以“信息”为主要关键字、“通用”为次要关键字排序
For i = 1 To n - 1
k = i
For j = i + 1 To n
If xx(k) < xx(j) or Then
k = j
End If
Next j
If k <> i Then
tmp1 = xm(k) : xm(k) = xm(i) : xm(i) = tmp1
tmp2 = xx(k) : xx(k) = xx(i) : xx(i) = tmp2
tmp2 = ty(k) : ty(k) = ty(i) : ty(i) = tmp2
End If
Next i '查询记录
key = Val(Text1.Text) L = 1 : R = n
Do While L <= R
mid = (L + R) \ 2
If Then
L = mid + 1
Else
R = mid - 1
End If
Loop
List2.Clear
' vbTab 相当于是键盘上制表符 TAB 按键的功能
List2.AddItem "姓名" & vbTab & "信息" & vbTab & "通用"
For i = 1 to
List2.AddItem xm(i) & vbTab & xx(i) & vbTab & ty(i)
Next i
End sub