相关试卷
-
1、在word中，对于一段两端对齐的文字，只选定其中的几个字符，用鼠标单击“居中”按钮，则（ ）A、整个段落均变成居中格式 B、只有被选定的文字变成居中格式 C、整个文档变成居中格式 D、格式不变，操作无效
-
2、会声会影是一个功能强大的（ ）软件。A、视频抓取 B、编辑 C、播放 D、视频编辑
-
3、（ ）是图像画面的明暗程度。A、对比度 B、亮度 C、色相 D、饱和度
-
4、在微型计算机系统中，I/O接口位于（ ）之间。A、主机和总线 B、主机和I/O设备 C、总线和I/O设备 D、CPU和内存设备
-
5、QQ音乐是一款付费音乐播放器。
-
6、AVI格式的文件主要采用无损压缩的方法，且压缩比较高。
-
7、采用JPEG标准压缩的图像，其图像质量一般都会有损失。
-
8、Excel排序功能不允许选取分散的单元格区域操作。
-
9、在Excel中使用自动填充功能时，只填充数据而不会复制单元格格式。
-
10、视频转换大师可以进行音频和视频格式的转换。
-
11、数码录音笔是通过数字音频存储的方式来记录声音的便携式录音设备。
-
12、BMP图像文件格式适用于网络传输。
-
13、浏览器中保存的“历史记录”占用的是计算机的内存空间。
-
14、多媒体在计算机信息领域中泛指一切信息载体。
-
15、在Word中通过连续三击左侧选定区可以选择整个段落。
-
16、在Excel中，可以打开多个工作簿，因此可以同时对多个工作簿操作。
-
17、在Word中编辑文档时，插入页码时都是从首页开始的。
-
18、使用美图秀秀软件不可以对照片添加饰品和文字。
-
19、高考期间，为了提高学生的学习效率和保证膳食营养，学校开展“教室就餐”，食堂提供A/B/C/D四种套餐，学生通过网络订餐，订餐后的数据都存在数据库中，套餐字母均为大写。现需要设计一程序，在窗体加载时，读取数据库中学生的订餐情况，并按班级编号升序排列，以班级+姓名+订餐情况输出至列表框List1中，在文本框Text1中输入班级，单击命令按钮Command1统计该班级的订餐情况，程序运行如图所示。
(1)、分析如下程序，可知数据库的文件名为。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Dim xm (1 To 1000) As String， bj(1 To 1000) As Integer
Dim tc1 (1 To 1000) As String， tc2(1 To 1000) As String ,n As Integer
Private Sub Form Load( )
'从数据库中按班级、学号有序地读取学生的姓名、班级、中午套餐、晚上套餐，依次存入xm、bj、tc1、tc2数组中，总人数存入n中，部分代码如下，其余代码略
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn ConncctionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" + "jiucan.accdb"
conn.Open
Set rs.ActiveConnection = conn
End Sub
Private Sub Command1_Click()
Dim k As Integer， i As Integer， t As Integer， m As Integer， s1 As String， s2 As Integer Dim zc (1 To 4) As Integer， wc (1 To 4) As Integer '用于统计套餐数量
Dim bs (0 To 20) As Integer , ljs (0 To 20) As Integer
t = Val (Text1. Text)：m = 0
For i = 1 To 4 '为数组赋初始值
zc（i） = 0： wc（i） = 0
Next i
For i = 0 To 20 '为数组赋初始值
bs（i） = 0： ljs（i） = 0
Next i
For i = 1 To n – 1 '按班级编号进行升序排序
For j = i To n- 1
If bj(j) < bj(k) Then k = j
Next j
s1 = xm(i): xm (i) = xm (k): xm (k) = s1
s2 = bj(i): bj (i) = bj (k): bj (k) = s2
s1 = tc1(i): tc1 (i) = tc1 (k): tc1 (k) = s1
s1 = tc2(i): tc2 (i) = tc2 (k): tc2 (k) = s1
bs(bj(i)) = bs(bj(i)) + 1
If bs(bj(i)) = 1 Then
Next i
bs(bj(i)) = bs(bj(i)) + 1
For i = 1 To m
Next i
For i = ljs(t) - bs(t) + 1 To ljs(t)
zc(fx(tc1(i))) = zc(fx(tc1(i))) + 1
wc(fx(tc2(i))) = wc(fx(tc2(i))) + 1
Next i
'查询班级的用餐情况，在列表框 List 中输出，代码略
End Sub
Function fx(a As String) As Integer
End Function
-
20、已知某数据加密方法如下：将字符的内码以字节为单位进行加密。将每个字节的后5位转换为十进制数，后面跟上“，”和该字节的前3个二进制位转换为十进制数，形成该字节的加密形式。例如：
内码（十六进制）
CA
B1
二进制
11001010
10110001
后5位十进制
10
17
前3位十进制
6
5
加密结果
10,6,17,5
按照上述规则，小明设计了一个解密的VB程序，功能如下：单击“解密”按钮，程序依次将文本框Text1中的字符提取，进行解密处理，并输出在文本框Text2中，程序效果如图a所示，请回答下列问题
(1)、要改变Command1对象上的字体颜色，可以改变Command1对象的属性的属性值。(单选，填字母：A . Caption/B . Font/C . Forecolor/ D . Additem)。(2)、实现上述功能的VB程序段如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Const n = 100
Dim s As String, ch As String, nm As String
Dim p As Integer, i As Integer, k As Integer, t As Integer Dim a(1 To n) As Integer
s = Text1.Text p = 0: k = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
Else
If k Mod 2 = 1 Then
Else
a(k+1) = p
End If
k = k + 1：p = 0
End If
Next i
a(k + 1) = p * 32 + a(k)
For i =
nm = nm + dtoh(a(i))
Next i
Text2.Text = nm
End Sub
Function dtoh(x As Integer) As String Const
st1 = "0123456789ABCDEF"
Do While x > 0
x = x \ 16
Loop
End Function
(3)、程序中加框处代码有错，请改正。