相关试卷
-
1、在word中，修改文档“1.doc”后另存为“2.doc”，则原文档1.doc未修改未关闭。
-
2、Snagit只是一款捕捉静止图像的软件，它不支持捕获动态图像。
-
3、在Windows 7操作系统中，对话框和窗口组成中均有标题栏。
-
4、若计算机显示器的分辨率为1027×768，其中“1024”指的是水平扫描的线数。
-
5、Word中段落对齐方式有五种。
-
6、在资源管理器中，要选择不相邻的多个文件，需使用Shift键。
-
7、剪贴板是Windows在RAM中开辟出的一块临时存放交换信息的区域。
-
8、内存的容量总是大于外存。
-
9、个人计算机属于小型计算机。
-
10、DOS操作系统是一种单用户、多任务的操作系统。
-
11、小强为预防使用的操作系统光盘损坏，他另外制作了一份备份，这是合法的。
-
12、填写n阶（n为奇数）幻方的口诀：
1居上行正中央，依次斜填切莫忘，上出框界往下写，右出框时左边放，重复便在下格填，出角重复一个样。
1）1居上行正中央：数字1放在首行最中间的格子中；
2）依次斜填切莫忘：向右上角斜行，依次填入数字；
3）上出框界往下写：如果右上方向出了上边界，就以出框后的虚拟方格位置为基准，将数字竖直降落至底行对应的格子中；
4）右出框时左边放：同上，向右出了边界，就以出框后的虚拟方格位置为基准，将数字平移至最左列对应的格子中；
5）重复便在下格填：如果数字｛N｝右上的格子已被其它数字占领，就将｛N＋1｝填写在｛N｝下面的格子中；
6）出角重复一个样：如果朝右上角出界，和“重复”的情况做同样处理
Dim a(1 To 1000) As Integer
Dim k As Integer, i As Integer, s As String
Dim n As Integer, j As Integer
Function geshi(s1 As String, x As Integer) As String
‘此函数用于输出时补足空格对齐
Do While Len(s1) < x
s1 = " " + s1
Loop
geshi = s1
End Function
Private Sub Command1_Click() '生成幻方
List1.Clear: Text1.Enabled = False: Command1.Enabled = False
Command2.Enabled = True: Command4.Enabled = True
n = Val(Text1.Text)
k =
a(k) = 1
num = 2
Do While num <= n * n
If k < n Then '当前位置是第1行，但不是最右边列
k = k + (n - 1) * n + 1
ElseIf k = n Then '当前位置是第1行最右边列
k = k + n
ElseIf Then '非第1行的最右边列时
k = k - 2 * n + 1
Else '一般情况
k = k - n + 1
End If
If a(k) <> 0 Then k = k + 2 * n - 1 '新位置处已有数字时
a(k) =
num = num + 1
Loop
s = ""
For i = 1 To n * n
s = s + geshi(Str(a(i)), 5) '每项输出宽度为5个字符的位置
If i Mod n = 0 Then
List1.AddItem s
s = ""
End If
Next i
List1.AddItem "--------------------------------"
End Sub
-
13、 已知数组a中的元素按非递减有序排列，在程序运行时显示在Text1中。编写程序实现如下功能：删除数组的重复元素，并更新数组的长度，在Text2输出新的数组元素值。程序运行界面如图所示。
(1)、要是程序运行时，窗体Form1标题立即立即显示为“删除重复数组元素”，可在（单 选：A . Form_Load()/B . Form_click()/C . Command1_Click()）事件过程中添Form1.Caption=”删除重复数组元素”语句来实现。(2)、为实现上述功能的VB程序如下，请在划线处补充缺失的代码。Const n = 20
Dim a(1 To n) As Integer
Dim lena As Integer
'数组a的实际长度
Dim s As String
Private Sub Form_Load()
'生成lena个长度的非递减序列，并输出到文本框text1中，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i < lena
If a(i) <> a(i + 1) Then
i =
Else
For j = i + 1 To lena
a(j - 1) =
Next j
End If
Loop
s = ""
For i = 1 To lena
s = s + Str(a(i))
Next i
Text2.Text = s
End Sub
-
14、编写VB程序采用逢二进一的方法模拟“写二进制数”过程。程序功能如下：
在文本框Text1中输入一个不大于100的数字n，点击“写二进制数”按钮，在列表框List1中逐一显示1到n之间所有的二进制数。
(1)、在设计程序界面时，可用上图中所示“控件工具箱”中的（填写相应编号）添加用于显示二进制值的列表框。(2)、实现上诉功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim d(1 To 7) As Integer ‘数组d用于存储二进制数值的每一位的值
n = Val(Text1.Text)
For i = 1 To 7
d(i) = 0
Next i
For i = 1 To n
‘最低位加1后，“逢二进一”处理进位，从而产生下一个二进制数
d(k) = d(k) + 1
s = ""
For k = 1 To 6
If d(k) = 2 Then
d(k + 1) = d(k + 1) + 1
End If
Next k
List1.AddItem Str(i) + " " + str(d(k)) + s
Next i
End Sub
-
15、小明收集了“电子商务创新活力城十强榜单”数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、如图a所示，区域A3:A12的数据是通过排名函数Rank计算得到的：在A3单元格中输入公式 ， 再利用自动填充功能完成区域A4：A12的计算。(2)、已知I3单元格中的内容是由公式“=SUM(C3:H3)”计算得到，若将C3:H3单元格的数值小数位数设置为0，则I3单元格中显示的值。（单选，填字母：A ．变大/ B ．不变/ C ．变小）(3)、根据图a中数据，制作一张“综合指数对比”图表，如图b所示。该图表的数据区域是。
图b
(4)、对数据区域A2:I12进行筛选操作，“电子商务交易指数”和“网上市场指引力指数”的筛选设置均如图c所示，则筛选出的城市是（填城市名称）。
图c
(5)、小明从书籍上拍照获取“电子商务”相关内容后，在使用OCR软件进行字符识别，下列说法正确的是 ；A、该文字识别技术属于联机手写体汉字识别 B、文件“电子商务.tif”可能是识别的结果文件 C、通过“倾斜校正”操作有助于提高识别率 D、使用“识别”命令进行字符识别前应先进行文稿的校对(6)、将Excel制作的图表应用到Word软件，编辑文档界面如图所示：
下列说法正确的是 。
A、有两个用户“wz1”和“wz2”各添加了一条批注 B、可以用替换方法将文中的“电子商务”全部更改为“E-Commerce” C、删除文中的批注对象“电子交易”，相关的批注内容也会消失 D、拒绝所有修订后，倒数第二行变为“电子商务通常是指在全世界全球各地广泛的商业贸” E、文章中图片环绕方式为“嵌入型” -
16、下列VB程序段实现把文本框Text和Text2中输入的升序字符串合并成一个升序字符串，并在文本框Tex3中显示。
s1=Text1.Text: s2=Text2.Text
n=Len(s1): i=1: j= 1
Do While i<n+j-1 And j<=Len(s2)
If Mid(s1, i, 1)<Mid(s2, j, 1) Then
①
Else
s1= Mid(s1, 1, i-1)+Mid(s2, j, 1)+ Mid(s1, i, n+j-i)
②
End If
Loop
If ③ Then s1=s1+Mid(s2, j, len(s2)-j+1)
Text2.Text=s1
横线①②③处的代码为（ ）
A、j=j+1 i=i+1 j<=len(s1) B、i=i+1 j=j+1 j<=len(s1) C、j=j+1 i=i+1 j<=len(s2) D、i=i+1 j=j+1 j<=len(s2) -
17、有如下 VB 程序段：
t = "abcd123456" : x = Int(Sqr(Len(t))) : y=1
If x > 3 Then
y =2
ElseIf x > 2 Then
y=3
ElseIf x > 1 Then
y=4
End If
执行该程序段后，变量 y 的值为 （ ）
A、4 B、3 C、2 D、1 -
18、某算法的部分流程图如图所示：
执行完该流程，数组a各元素的值可能为（ ）
A、8，14，9，6，2，12 B、2，4，10，22，10，10 C、8，12，0，11，2，10 D、6，12，0，10，4，8 -
19、下列VB表达式计算结果为True的是（ ）A、Int(Sqr(10)) > 2 ^ 2 B、Mid("0123", 3, 2) > "56" C、Len("654321") > Int(Rnd * 3) ^ 2 D、Not (3 = 4 Or 5 > 3)
-
20、有一段未压缩的有声视频，时长3分钟，帧频25fps，16位增强色，分辨率是1024*768，视频中的音频比特率为1441 kbps，则该视频的存储容量约是 （ ）A、0.8G B、1.6G C、3.3G D、6.6G