选择题(本大题共12小题,每小题2分,共24分。)
- A、 计算机处理数字化后的信息通常需要软件支持
- B、 信息可以传递和共享,在传递过程中可以有多种方式
- C、 信息本身是看不见摸不着的,因此不可以用某种方式表现
- D、 信息的表达技术有电视、广播、微信、微博、QQ等
- A、 保存网页就是收藏网页地址
- B、 HTTP语言可以描述网页内容
- C、 以“网页,仅HTML”方式保存网页,可以保存网页中的超链接、表格和图片
- D、 记事本可以编辑网页,IE浏览器可以解析网页内容
- A、 当前状态下,可以对“抢险人员”数据表进行重命名
- B、 添加一条新记录,该记录的“ID”字段值不一定是8
- C、 在数据表视图下,删除“姓名”字段,此操作不可以撤销
- D、 若将“性别”字段类型修改为“文本”,该字段值会变为True或者False
- A、 大写字母“R”对应的内码值为52 68H
- B、 小写字母“z”对应的内码值为80H
- C、 图中共有10个ASCII码字符
- D、 字符“!”的内码二进制形式为10100011 10100001B
- A、 执行“删除”操作,音频时长减少3秒
- B、 先执行“复制”操作,再执行“粘贴”操作后,音频时长增加3秒
- C、 执行“静音”操作后直接保存,音频文件的存储容量变小
- D、 执行“剪裁”操作后直接保存,音频文件的存储容量变为原来的4/5
- A、 4∶1
- B、 19∶1
- C、 94∶1
- D、 112∶1
Dim t As Integer, s As String, i As Integer
s = "20PYt22hoN"
t = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
If c >= "A" And c <= "Z" Then
t = t + 1
Else
t = t - 1
End If
Next i
Text1.Text = Str(t)
执行该程序段后,文本框Text1中显示的内容是( )
- A、 -1
- B、 0
- C、 1
- D、 2
Dim a(1 To 10) As Integer
Dim i, j As Integer
For i = 1 To 10
j = i
Do While j <= 10
If j Mod i = 0 Then
a(j) = a(j) + 1
End If
j = j + 1
Loop
Next i
Text1.Text = Str(a(3))
数组a各元素初值为0,执行上述程序段后,文本框Text1中显示的内容为( )
- A、 1
- B、 2
- C、 3
- D、 4
- A、 3,8,2,7,5,6,9
- B、 5,8,3,7,2,6,9
- C、 8,3,2,7,5,6,9
- D、 2,8,9,7,5,6,3
key = Val(Text1.Text)
i = 1: j = 9
Do While i < j
m = (i + j) \ 2
If Then
i = m + 1
Else
End If
Loop
Label1.Caption = Str(i)
已知数组a存储一组升序数“2,5,9,11,13,15,18,23”。要查找第一个大于key的元素的下标并输出,则下列选项中正确的是( )
- A、 ①a(m) <= key ②j = m
- B、 ①a(m) < key ②j = m - 1
- C、 ①a(m) <= key ②j = m - 1
- D、 ①a(m) < key ②j = m
非选择题(本大题共4小题;4+8+7+7;共24分。)
请回答下列问题:
Private Sub Search_Click()
Const n = 12
Dim s As String, c As String
Dim i As Integer, t As Integer
Dim rs(0 To n) As Integer '数组rs存储班级人数
Dim bj(1 To n) As Integer '数组bj存储班级编号
Dim flag As Boolean
s = Text1.Text
t = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = ①
flag = True
ElseIf flag = True Then
rs(t) = rs(t) + 1
flag = False
t = 0
End If
Next i
For i = 1 To n
bj(i) = i
Next i
For i = 1 To n-1
k = i
For j = i + 1 To n
If ② Then k = j
Next j
If k <> i Then
t = rs(k): rs(k) = rs(i): rs(i) = t
t = bj(k): bj(k) = bj(i): bj(i) = t
End If
Next i
For i = 1 To n
List1.AddItem Str(bj(i)) + "班有:" + " " + + "人"
Next i
End Sub