-
1、小李和小王在玩一个猜数游戏，随机生成10个元素的未排序的整数数组num () (范围是[-9，9])，请小李找出其中没有出现的最小的正整数。现编写如下VB代码，完成这个猜数游戏，先对所有正整数进行升序排列，选取出缺少的最小正整数。程序运行界面如第15题图所示。
(1)、如图所示，窗体中有个对象。(2)、实现上述功能的部分VB代码如下，请在划线处填入合适的代码。Private Sub Command1_ Click()
Dim num(100) As Integer
Dim i As Integer， j As Integer， p As Integer， t As Integer ；
Dim ch As String， k As String
i =1：j=1
Do While i <=10
Num (i)=
ch=ch+num(i)+“，”
i=i+1
Loop
Text1. text=mid(ch，1，len(ch)-1)
For i=1 To 10
For j=10 To i+1 Step-1
If Then
t = num(j)： num(j) = num(j - 1)： num(j -1) = t
End If
Next j
If Then Label2． Caption = Str(i)： Exit For
Next i
End Sub
(3)、程序中加框处的代码有误，请修改。 -
2、小明制作主题为“我心向党"的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：(1)、用Photoshop软件制作“党建"作品，部分编辑界面如题图a所示。下列说法正确的是 ；
A、可以将“图层1”的图层名改为“党徽” B、可以用魔棒选中党徽后，将颜色填充为黄色 C、将该文件以jpg格式保存，背景不是透明的 D、可以对“图层1”添加图层样式(2)、制作动画作品的部分界面如题图b所示，已知舞台大小为550×400，则第10帧中“党徽”实例在舞台中的位置坐标约是(单选，填字母： A .(120， 110)/B .(40， 18)/C .(250， 200))，若要使“按钮”图层中的实例从动画一开始就出现，小明对该图层第1帧执行删除帧操作，是否可以实现所要效果 (填：是/否)
(3)、“播放”按钮的功能是使动画继续播放，“暂停”按钮的功能是暂停动画播放。这两个按钮实例上的动作脚本分别是 (多选，按顺序填字母)。A、on (release) { play( )；} B、on (release) {gotoAndplay (1) ；} C、on (release) { gotoAndstop(1)；} D、on (release) { stop( )；}(4)、“播放”按钮元件的编辑如题图c所示，若要使该按钮能够响应鼠标事件，需要对文字图层执行的操作是：
-
3、小王收集了2021年8月我国50个城市部分食品平均价格变动情况数据，并使用Excel软件对数据进行处理，如图a所示。
请回答下列问题：
(1)、区域F3：F12 的数据是通过公式计算得到的，在F3单元格中输入公式 ， 再使用自动填充功能完成区域F4：F12的计算。(2)、完成F3：F12的计算后，小王误删了第14行，则F3单元格中显示为(单选，填字母：A . #REF！\ B . #VALUE！\C . 30．93)(3)、小王根据EXCEL表中数据创建了如图b所示柱形图。结合图b，下列说法正确的有 。(多选，填字母)。
A、创建图b的数据区域为B2：E5 B、由图可知，三种水产品8月份的价格相对稳定 C、对区域A6：F12根据列C进行升序排列，则第13题图b会随之改变 D、删除第13题图b中活草鱼中旬价格的柱子，则第13题图a中D4单元格的数值也会消失 -
4、某对分查找算法的VB程序段如下：
i=1：j=7 ： s=””
key = Int (Rnd * 100)
Do While i <=j
m=(i+j)\2
If key = a(m) Then
s = s+"M"：Exit Do 'Exit Do表示退出循环
ElseIf key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Text1.Text = s
数组元素a(1)到a(7)的值依次为“24， 35， 38， 41，45， 69， 78”。若该程序段执行后，文本框Text1中显示的内容是LLR，则Key的值可能是( )
A、36 B、34 C、40 D、42 -
5、如下VB程序段实现对数组元素a(1)到a(10)中数据螺旋升序排列，排序后a(1)-a(10)的显示结果为：7，35，9，33，11，30，13， 28， 15， 26。程序段如下：
For i=1 To 9 '排序的遍数
For j=10 To i+1 Step-1
If ① then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
则代码中①处的语句不适合的为( )
A、a(j)*(-1)^ (i-1) < a(j-1)*(-1)^ (i-1) B、a(j)*(-1)^(i mod 2)< a(j-1)*(-1)^ (i mod 2) C、a(j)*(-1)' i> a(j-1)*(-1)^ i D、i mod 2=1 and a(j)<a(j-1) or i mod 2=0 and a(j)>a(j-1) -
6、有如下VB程序段：
x =" acababaab"
s = s+Mid(x, 1, 1)：i=1
Do While i <= Len(x)
flag = True
For j=1 To Len(s)
If Mid(x, i, 1) = Mid(s, j, 1) Then flag = False
Next j
If flag=True Then s=s+Mid(x, i, 1)
i=i+2
Loop
执行程序段后，变量S的值是（ ）
A、"ab” B、"acb" C、"aba” D、"abb" -
7、现有字符串s，以下程序段实现将字符串中的“ 热情”都替换成“激情”，下列选项中填写到①处无法实现本程序段功能的是( )
s = Text1. Text
i=1
Do While i<=Len(s)-1
If Mid(s， i， 2) =“热情”Then
s=Mid(s，1，i-1)+“激情”+Mid(s，i+2)
①
Else
i=i+1
End If
Loop
A、i=i+2 B、Exit DO C、i=i+1 D、Text1.Text = s -
8、VB表达式-3^2+ 12\4*3的值是( )A、-9 B、0 C、10 D、-8
-
9、某算法的部分流程图如图所示，数组a的值为“4，3，5，2，9，6”，执行这部分流程。则sum输出值为( )
A、23 B、36 C、18 D、27 -
10、将一幅未经压缩的1024X800像素、256 色的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量为160KB，则BMP文件与JPEG文件的存储容量比约为( )A、5：1 B、16：1 C、63：1 D、126：1
-
11、使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是( )
A、执行“删除”操作后，播放时有3秒静音 B、先执行“剪切”操作，再执行“粘贴”操作后，音频时长增加了3秒 C、将文件另存为单声道，其它参数不变，文件容量不变。 D、执行“剪裁”操作后直接保存，音频的时长变短 -
12、下列有关信息编码的说法，正确的是( )A、十六进制数65H与Asc("A")的值相等 B、根据GB2312-80标准，“信息”两字的内码共占4个bit C、已知大写字母“X"的ASCII码值为58H， 则大写字母“Z”的ASCII码值是60H D、某7位二进制数1*1****， 将其转换为十进制数后的值大于等于80
-
13、用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如图所示的数据，发放序号中前4位表示年份、后4位表示月份和序号。
下列关于“物资流向”数据表的描述，正确的是( )
A、该数据表的字段数只能是6个 B、该数据表的数据可以从Excel文件导入，但不可以导出到Excel中 C、该数据表中的FFRQ字段可以输入不同格式的日期 D、将FFXH字段的类型设成自动编号也能满足“发放序号”列数据的需求 -
14、下列有关网页与浏览器的说法，不正确的是( )A、HTML文件可以用浏览器进行解释执行 B、在收藏夹中可以创建文件夹，用于网址的分类保存 C、某天猫商城的好评率为90%属于个人评价 D、在IE浏览器中，保存一个网页可能得到多个文件
-
15、下列关于信息与信息技术的描述，不正确的是( )A、利用信息技术计算机通过执行程序可以把信息从一种形态转换为另一种形态 B、我们一时一刻也离不开信息，信息无处不在 C、计算机处理的数据必须要经过数字化 D、谣言的传播源于片面的信息加工
-
16、对分查找算法可用于求解方程的近似值。现要求方程x3-4x2+x+5=0的一个近似值，可设f(x)= x3-4x2+x+5，若有区间[a，b]，使f(a)与f(b)异号，则该区间内必存在该方程的一个解。小明为此编写了VB程序，功能如下：程序运行时，在文本框Text1、Text2中输入区间值a、b，要求a<b，单击“计算”按钮Command1，若该区间有解，则计算出该区间内的一个近似值(精确到0.00001)，否则提示“请重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行效果如下图所示。
实现上述功能的VB程序如下，请在划线处填入合适的语句。
Function f(x As Double) As Double
Dim y As Double
f = y
End Function
Private Sub Command1_Click()
Dim a As Double, b As Double, m As Double, x As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
If f(a) * f(b) < 0 And a < b Then
Do While a <= b
If Abs(f(m)) < 0.00001 Then Exit Do
If Then
b = m
Else
a = m
End If
Loop
x = Format(m, “0.00000”) ′Format函数用于定义输出的小数位数
List1.AddItem “[” & Text1.Text & “，” & Text2.Text & “]” & “解为：” & x
Else
List1.AddItem “[“ & a & ”，“ & b & ”]” & “请重新输入区间”
End If
End Sub
-
17、大家期盼的校运会要来了，同学们踊跃报名，共有20人报了100米，30人报了200米。小明编写了一个VB程序，用于查询同时报名参加100米和200米比赛的学生，并统计学生数。具体功能如下：程序运行时，在列表框List1中显示报100米的学生学号和姓名，在列表框List2中显示报200米的学生学号和姓名，单击“排序”按钮Command1后，将List2中数据按“姓名”升序排序，并将排序后的数据重新显示在列表框List2中；单击“查询并统计”按钮Command2后，在列表框List3中显示同时报名参加100米和200米比赛的学生信息，并在该列表框的最后显示同时报名这两项比赛的学生数。程序运行界面如下图所示：
为实现上述功能的程序如下，请在划线处填入合适的语句或代码。
Dim xm1(1 To 20) As String, xh1(1 To 20) As String′数组xm1、xh1分别存储选报课程1的学生的姓名和学号
Dim xm2(1 To 30) As String, xh2(1 To 30) As String′数组xm2、xh2分别存储选报课程2的学生的姓名和学号
Const n = 20, m = 30
Private Sub Form_Load()
'获取选报数据，并显示在列表框List1和List2中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, tt As String
List2.Clear
For i = 1 To m - 1
For j =Step -1
If xm2(j) < xm2(j - 1) Then
tt = xm2(j): xm2(j) = xm2(j - 1): xm2(j - 1) = tt
tt = xh2(j): xh2(j) = xh2(j - 1): xh2(j - 1) = tt
End If
Next j
Next i
For i = 1 To m
List2.AddItem xh2(i) + “ ” + xm2(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, w As Integer, tt As String, k As Integer
For i = 1 To n
p = 1
Do While p <= q
w = (p + q) \ 2
If xm1(i) = xm2(w) Then
List3.AddItem xh1(i) + “ ” + xm1(i)
k = k + 1
End If
If Then
q = w - 1
Else
p = w + 1
End If
Loop
Next i
List3.AddItem “共有” + Str(k) + “ 位同学”
End Sub
-
18、小华写了一个模糊查询的VB程序，具体功能如下：程序运行时，在列表框List1中显示热门书籍名称，在文本框Text1中输入查询关键词后，单击“开始查询”按钮Command1，则在列表框List2中显示包含此关键词的书籍名称，并统计找到的书籍数；若找不到，则在列表框List2中输出“查无此书”。程序运行界面如下图所示：
为实现上述的功能的程序如下，加框处的代码有误，请改正。
Dim book(1 To 20) As String, st As String
Const n = 20
Private Sub Form_Load()
'读入n个数据，存储在数组book中，并显示在列表框List1中
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, len1 As Integer, len2 As Integer，k As Integer
st = Text1.Text
List2.Clear
len1 = Len(st)
k = 0
For i = 1 To n
len2 = Len(book(i))
'①Do While j <= len2 - len1 + 1
If
Then '②List2.AddItem book(i)
k = k + 1
End If
j = j + 1
Loop
Next i
If k> 0 Then
List2.AddItem “共找到”+Str(k) + “条信息”
Else
List2.AddItem “查无此书”
End If
End Sub
程序中加框①处应改正为；
加框②处应改正为。
-
19、小明编写了一个查找替换的VB程序，其功能为：在一串由汉字、空格和标点符号组成的文本中，把文本中的某个字符串用另一个字符串替换。
程序界面如下图所示，程序运行时，在文本框Text1中输入一段文本，在文本框Text2中输入查找的字符串，在文本框Text3中输入替换为的字符串，单击“查找替换”按钮Command1，则在文本框Text4中输出替换后的文本，在标签Label6中显示替换的次数。
实现上述功能的VB程序如下，请在程序划线处填入合适的代码。
Private Sub Command1_Click()
Dim st1 As String, st2 As String
Dim i As Integer, n As Integer, count As Integer
Dim st3 As String, ch As String, result As String
result = “ ”
st1 = Text1.Text
st2 = Text2.Text
st3 = Text3.Text
len1 = Len(Text2.Text)
result = “ ”
i = 1
Do While i <= n
If ch = st2 Then
result = result + st3
count = count + 1
i = i + len1
Else
i = i + 1
End If
Loop
Text4.Text = result
Label6.Caption = Str(count)
End Sub
-
20、编写一个单词查找程序，其功能是：在文本框Text1中输入要查找的单词，单击“查找”按钮Command1后，在标签Label4中输出查找结果。程序运行效果如下图所示。
算法说明：
1)英语单词存放在数组words中。
2)如果在数组words中找到要查找的单词，则在标签Label4中显示“查找成功！”，并显示单词在数组words中出现的次数，如果未找到则显示“无此单词，请重输！”。
实现上述功能的VB程序如下，请在程序划线处填入合适的语句。
Dim n As Integer
Dim words(1 To 100) As String
Private Sub Command1_Click()
Dim key As String, i As Integer, times As Integer
key = Text1.Text
times = 0
For i = 1 To n
If key=words(i) Then
Next i
If times > 0 Then
Label4.Caption=“查找成功！共找到”+ +“个”
Else
Label4.Caption = “无此单词，请重输！”
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim word As String
word = Text1.Text
If KeyAscii = 13 Then
n = n + 1
List1.AddItem Str(n) + “：” + word
Text1.Text = “ ”
End If
End Sub