相关试卷
-
1、VB中标准函数功能的实现是在VB内部通过相应的程序代码完成的。为了探索Val函数功能实现的原理，编写了以下程序。已知Val(“12”)的结果为12，即Val函数的功能是将字符型转换成数值型；而Val(“12AB”)和 Val(“12AB34”)的结果也为12，即在转换的时候如果遇到非数字符号就停止转换。编写模拟转换过程的时候，为简化程序，只考虑正整数的转换。运行程序时，在文本框Text1中输入字符串，点击命令按钮Command1后在文本框Text2中显示结果，运行结果如图所示。
VB程序如下，请回答以下问题：
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer
Dim r As Integer, result As Integer
Dim flag As Boolean
s = Text1.Text
i = 1:result = 0:flag = True
Do While
ch = Mid(s, i, 1)
r = ①
If r > 9 Or r < 0 Then
flag = False
Else
②
End If
i = i + 1
Loop
Text2.Text = Str(result)
End Sub
(1)、窗体对象的Caption属性值为：(2)、加框处语句有错，请改正：(3)、请将横线处的语句补充完整① ②
-
2、小禾编写了一个VB程序，功能如下：在文本框Text1中输入英语文章，并在文本框Text2中输入要查找的英语单词，单击“开始查找”按钮Command1后，在文本框Text3中显示英语文章中出现该单词的次数，在文本框Text4中显示该单词在英语文章中两次出现的最大间距，程序运行界面如下图所示。请回答以下问题：
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer '数组a存储文中出现该指定单词的各个位置
Dim s, c, ch As String
Dim n, max, i As Integer
s = Text1.Text
①
n = 0
max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ②
If ch = c Then
n = n + 1
③
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > max Then max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = Str(n)
Text4.Text = Str(max)
End Sub
(1)、该应用程序中共有个对象组成，分别属于类控件(2)、请将横线处的语句补充完整① ② ③
-
3、使用多媒体软件创作主题为“我和我的祖国”的多媒体作品，根据要求回答下列问题：(1)、在创作之前对作品所需的硬件设备和素材处理软件等进行分析，这属于（选填字母︰A .应用需求分析/B .创作需求分析/C .功能模块设计/D .媒体元素分解）。(2)、在利用Photoshop软件设计“我和我的祖国”效果图时，部分界面如下图所示，当前状态下，下列操作可行的是：（多选，填字母：A .对“背景”图层直接用“渐变工具”填充渐变色/B .使用“移动”工具,对“上海”图层中的内容进行移动/C .将“水”图层移至“背景”图层下方/D .将“山”图层的名称改为“田园”/E.直接给“我和我的祖国”图层的添加滤镜效果）。
(3)、在同一幅图像中，规则物体和规则背景的表面物理特性具有相关性，这些相关性的光成像结构在数字化图像中表现为（选填字母︰A .空间冗余/B .结构冗余/C .视觉冗余/D .时间冗余）。(4)、为了接下来制作主题为“我和我的祖国”的动画作品，小明用GoldWave软件处理“幸福拍手歌.wav”文件作为动画的背景音乐，编辑界面如下图所示，则该音频文件的存储容量约为（MB）。（保留整数位）
-
4、小张使用Excel软件对某地区2017年～2019年初中招生数据进行处理，如下图所示。
请回答下列问题：
(1)、如上图表格所示，要计算每所学校2019年招生增长率，可先在单元格E3中输入公式，然后使用自动填充功能完成其他单元格的计算，则单元格E3中的公式为。(提示：2019年招生增长率=(2019年招生数-2018年招生数)/2018招生数×100)(2)、如上图表格所示，每一年的招生合计是在B15单元格中使用求和函数SUM计算所得，然后使用自动填充功能完成其他单元格的计算，则单元格D15中的公式为。(3)、如上图表格所示，要计算2019年各校招生人数比例，可先在单元格F3中输入公式，然后使用自动填充功能完成其他单元格的计算，则单元格F10中的公式为。 (提示：2019年各校招生人数比例（%）=2019年招生数/2019年招生总人数×100)(4)、如上图表格所示，要将表格中数据按“2019年招生增长率(%)”降序排序，则应选择的数据区域为。(5)、根据上图表格中数据制作的图表如下图所示，创建该图表的数据区域为。
(6)、分析上图中的数据，2019年招生数比2018年呈增长趋势的学校有个。 -
5、有如下VB程序段：
Dim a(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
s = ""
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) =a(j)+1
Next j
Next i
For i = 1 To 5
If a(i) <> 1 Then s = Str(i) + s
Next i
Text1.Text = s
若数组a的初始值都为0，则运行该程序段后，Text1中显示的内容为（ ）
A、14 B、235 C、532 D、41 -
6、下列VB表达式的值等于15的是( )A、Mid(“3.14159”, 5, 2) B、Abs(Int(-15.2)) C、90 Mod 6 D、3^3-38\3
-
7、一幅16位色JPG图像的存储容量约为316KB，是由未经压缩的BMP图像转换得到，转换时压缩比为8：1，若其宽度为1440像素，则高度约为（ ）A、450像素 B、500像素 C、900像素 D、1200像素
-
8、使用Access软件创建数据表，其设计视图的部分界面如下图所示，下列说法正确的是（ ）
A、如果该表已经有数据，那么不可以把“编号”字段的类型改为“数字”类型 B、“发行时间”字段值可以输入“2018\2\16” C、“价格”字段的内容可以输入“2019” D、“编号”字段在数据表视图中可以被删除 -
9、使用Word软件编辑某文档，部分界面如下图所示。
下列说法正确的是（ ）
A、拒绝所有修订后最后一行的文字是“祝中华人民共和国成立70周年”纪念币” B、删除批注内容“1949年-2019年”，其对应的批注对象同时被删除 C、文档中图片的环绕方式为“嵌入型” D、当前光标位于倒数第二行，按“Delete”键一次，“游”字被删除 -
10、十进制n转化为十六进制数，该十六进制数末位是F，下列说法不正确的是（ ）A、可以确定n是奇数 B、若该十六进制数的位数为2，则n的最小值为31 C、若将该十六进制数末尾的F去掉后，再转化为十进制数，所得的值为n\16 D、十进制数n和n+1分别转化为十六进制，这两个十六进制数的位数肯定不相同
-
11、下列有关信息和信息技术的说法，正确的是（ ）A、计算机只要安装杀毒软件就不会中病毒 B、数字、字母、汉字、图像、声音、视频等在计算机内部都采用十六进制代码表示 C、信息可以传递和共享，也可以被重复使用，并且不会产生损耗 D、现代信息技术包括计算机技术、通信技术、电视技术等
-
12、下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer, p As Integer
p＝0
For i＝100 To 999
If Then
List1.AddItem Str(i)
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句。
-
13、有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是( )
A、
B、
C、
D、
-
14、窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是( )A、Command1_Click B、Form_Keypress C、Form_Load D、Form_DblClick
-
15、运行如下VB程序：
Private Sub Command1_Click( )
Dim x As Integer
Dim y As String
x＝Val(Text1.Text)
If x＞＝95 Then
y＝“非常满意”
ElseIf x＞＝80 Then
y＝“满意”
ElseIf x＞＝60 Then
y＝“基本满意”
Else
y＝“不满意”
End If
Label1.Caption＝y
End Sub
在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示( )
A、非常满意 B、满意 C、基本满意 D、不满意 -
16、字符串变量a的值为“Hello, world！”，下列Visual Basic表达式的值是“world”的是( )A、Len(a，6，5) B、Mid(a，6，5) C、Mid(a，7，4) D、Mid(a，7，5)
-
17、小明在VB中定义了以下函数，功能是求a和b的最大公约数。
Function gcd(a As Integer, b As Integer) As Integer
Do While b＞0
c＝a Mod b
a＝b
b＝c
Loop
End Function
调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是( )
A、函数名有错 B、变量c没有定义 C、函数没有返回值 D、b＞0应该改为b＞＝0 -
18、下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。
Function lsc(x，y) As Integer
If x＞y Then
lsc＝x－y
Else
lsc＝y－x
End If
End Function
Private Sub Command1_Click( )
Dim a1 As Integer，a2 As Integer
a1＝Val(Text1.Text)
a2＝Val(Text2.Text)
Label1.Caption＝
End Sub
要实现上述功能，程序画线处应填入的语句为( )
A、lsc(x，y) B、lsc(Text1.Text，Text2.Text) C、lsc D、lsc(a1，a2) -
19、有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
c＝Mid(s，i，1)
If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )
A、2014 B、ChinaIT C、hina D、CIT -
20、有如下Visual Basic程序段：
m = a(1)
i =2
Do While i <= 10
If m < a(i) Then m = a(i)
i =i+ 1
Loop
该程序段执行后，变量m中存储的是（ ）
A、a(1)至a(10)中的最大值 B、a(1)至a(10)中的最小值 C、a(2)至a(10)中的最大值 D、a(2)至a(10)中的最小值