相关试卷
-
1、因特网向用户提供服务的主要模式是（ ）。A、分层结构 B、子网结构 C、模块结构 D、客户机/服务器模式
-
2、小周同学用VB程序模拟考场座位的编排，将编号从001开始的n个学生按行、列数进行“蛇形排列”。程序功能如下：在文本框Text1中输入行数，Text2中输入列数，点击“生成座位”按钮，在列表框List1中输出排列结果。如图所示是运行界面为6行5列的座位排法(只排了一个试场)。
(1)、根据本题代码，如图中所示，数组元素b(2)的值为“”。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click ()
Dim a(1 To 200) As String ‘用来存储学号
Dim b(1 To 200) As String ‘关联a数组，用于矩阵输出
Dim i As Integer，j As Integer，k As Integer，pos As Integer
Dim row as Integer，column as Integer，s As String
For i=1 To 200 ‘产生3位数的学号
a(i)=Mid(“00”，1，(3-Len(CStr(i)))+CStr(i) ‘CStr()函数功能转换为字符串并去掉前面空格
Next i
row=Val (Text1.Text)
column= Val (Text2.Text)
k=1
For i=1 To column
If Then
pos=i ‘pos是b数组的下标，根据行列来关联a数组
For j=1 To row
b(pos)=a(k)
k=k+1
Next j
Else
pos=(row-1)*column+i
For j=1 To row
b(pos) = a(k)
pos=pos-column
k=k+1
Next j
End If
Next i
For i=1 To row ‘按行输出学生信息
s=“”
For j=1 To column
s=s+""+
Next j
List1 AddItem s
Next i
End Sub
-
3、IPV4点分十进制：IP地址可转换为十进制数字形式。编写“模拟IP过滤器”程序，程序功能如下：程序运行时，在列表框List1中显示能通过过滤的IP区间(IP区间按起始端点升序排序)，在文本框Text1中输入需要判断的IP地址，单击“验证”按钮Cmd1，若IP区间有重叠区间则作合并处理，并显示在列表框List2中，然后对输入的IP地址进行判断，判断结果显示在标签Labe14中。程序运行界面如图所示：
(1)、Cmd1对象属于类(单选，填字母：A . Form/B . Label/C . TextBox/D . CommandButton)。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 100) As Integer
Dim n As integer
Private Sub Form_Load()
‘本过程从数据库中读取n个IP地址区间数据，并依次存入数组a(1)、…、a(2*n)中对能通过过滤的IP区间按区间起始端点升序排序
代码略
End Sub
Private Sub Cmd1_Click()
Dim ip As Integer，L As Integer， R As Integer
Dim i As Integer，pos As Integer， f As Boolean
ip=Val (Text1. Text)
L=a(1)：R=a(2)：i=3：pos=1 ‘合并重叠区间
Do While i<=2*n-1
If Then
If a(i+1)>R Then R=a(i+1)
Else
a(2*pos-1)=L
a(2*pos)=R
pos=pos+1
L = a(i)
R=a(i+1)
End If
Loop
a(2*pos-1)=L：a(2*pos)=R ‘依次输出排序合并后的区间数据，代码略
If
Then ‘判断请求的IP地址Labe14. Caption= “IP需过滤”
Else
i=1：f=False
Do While i<=pos And Not f
If Then
i =i+1
else
Labe14. Caption=“IP不需过滤”
f=True
End If
Loop
If f=False Then Labe14. Caption=“IP需过滤"
End if
End sub
(3)、程序中加框处代码有错，请改正。 -
4、小华制作了“动物赛跑”为主题的多媒体作品：(1)、在制作作品前，小华进行了作品的设计，下列属于创作需求分析的是(多选：A . 确定作品的主题为“动物赛跑”/B . 设计了整体的工作流程与主要界面/C．制作了脚本大纲/D . 列出了作品制作需用的所有媒体元素信息/E . 决定在学校网络论坛上发布作品)(2)、小华使用Flash软件制作的多媒体作品，如图a所示，当前状态下，执行“测试影片”命令，则动画从场景(填场景名)开始播放。
图a
(3)、如图a所示，在“main”场景中，“马”图层补间动画创建失败的原因是。(4)、如图a所示，测试“main”场景时发现“action”图层的按钮在中途会消失，若要使得按钮在播放中途不消失，可进行的操作是。(5)、如图a所示，“main”场景“音乐”图层中音频的同步方式为“事件”，测试影片时，单击“main”场景的“重新开始”按钮，音乐停止并跳转至“片头”场景的第1帧播放，则该按钮的动作脚本为。 -
5、某班主任收集了本班级学生线上学习情况的数据，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、通过H3单元格中的公式，对数据区域H4： H12进行自动填充，则H3单元格中的公式是。(提示： COUNTIF函数用于计算某个区域中满足给定条件的单元格数目。例如： =COUNTIF( B2： B279，“语文”)表示B2：B279区域中课程名称是“语文”的单元格数目)
(2)、根据图a中数据制作的图表如图b所示，创建图表的数据区域是。
(3)、在区域A2：D280内找出“技术”课程中“认真度”最低的学生(若存在符合条件的多个记录，则全部选取)。下列方法可行的是 (多选，填字母)。A、以“课程名称”为“技术”、“认真度”为“最小1项”进行筛选，然后选取筛选出的全部记录 B、以“课程名称”为“技术”进行筛选，以“认真度”为关键字升序排序，选取排在前面的记录 C、以“课程名称”为主要关键字、“认真度”为次要关键字，均按升序排序，选取排在前面的记录 D、以“认真度”为关键字升序排序，再以“课程名称”为“技术”进行筛选，选取排在前面的记录 -
6、某VB程序段如下：
For i=1To n
h(i)=Int(Rnd * 20 + 1)
num(i)=1：ans=0
For j=1 To i
If h(j) < h(i) And num(j) >=num(i) Then
num(i)=num(j) + 1
end if
next j
Next i
执行该程序段后，在下列选项中，num (1)~num (8)各元素值可能的是( )
A、2，1，1，2，2，3，4，4 B、1，1，2，3，2，2，1，3 C、1，2，4，2，5，6，7，8 D、1，1，1，1，1，1，3，2 -
7、有如下程序段：
s=Text1. Text
t=””
For i=1 To Len(s)
c = Mid(s，i，1)
If c<“a”or c>“z” Then t=“”
t=c+t
Next i
Label 1. Caption = t
执行此程序段时，在文本框Text1中输入“2020 Nihao Wolaile”， 则标签Label 1中显示的内容是( )
A、elialoW B、elialo C、elia D、Eli -
8、有如下VB程序段：
f(10)=a(10)：ans=-100
For i=9 To 1 Step-1
f(i)=f(i+1)+a(i)
If f(i) > ans Then ans=f(i)
Next i
数组元素a(1)到a(10)的值依次为“6，-2，4，-8，2，5，0，9，-1，2”，执行该程序段后，变量ans的值为( )
A、-8 B、17 C、18 D、28 -
9、下列选项中，与语句“If x*y*z=0Thent=1 Else t=0”功能相同的是( )A、If x=0 And y=0 And z=0 Then t =1 Else t = 0 B、If Not(x=0 or y=0 or z=0) Then t=1 Else t=0 C、If x=y=z=0 Then t =1 Else t = 0 D、If x*y=0 or y*z=0 Then t=1 Else t=0
-
10、下列VB表达式中，随机产生两位数奇数的是( )A、Int (Rnd*45)*2+9 B、Int (Rnd*45)*2+11 C、Int (Rnd*46)*2+9 D、Int (Rnd*46)*2+11
-
11、将一个时长为10分钟、NTSC制式(每秒播放30帧)、图像分辨率为1024×768、32位真彩色的未经压缩AVI格式无声视频文件压缩为MPEG格式，可存放到可用容量为5GB的U盘中，则压缩比至少为( )A、5：1 B、11：1 C、20：1 D、25：1
-
12、使用Photoshop软件制作“大雪节气”作品，编辑界面如图所示。
下列说法正确的是( )
A、图中共有2个文字图层． B、当前状态下，“草堆”图层可以设置滤镜效果 C、将图中左下角的“38.33%”修改为“50%”，图像的存储容量不变 D、拷贝“大雪”图层的图层样式，可以直接粘贴到“背景”图层 -
13、使用Access软件打开某数据库，部分界面如图所示。
下列说法正确的是( )
A、“借阅ID”字段可能存在重复的字段值 B、当前状态下无法对“读者信息表”进行重命名 C、在该数据表中，“是”可以是“是否赔偿”字段的有效输入值 D、此数据库文件中的3张数据表均可存在“读者编号”字段 -
14、浙江省的“健康码”管理信息系统以真实数据为基础，连通重点人员动态管控清单等相关数据库，根据群众申报信息与后台数据的校验比对结果生成个人二维码。下列说法不正确的是( )A、群众录入申报信息是数据采集的过程 B、生成个人二维码属于信息的解码 C、健康码是大数据助力精准防疫的典型应用 D、健康码状态需要实时更新，体现了信息的时效性
-
15、编写“二进制加法”程序。
程序运行时，在文本框Text1和文本框Text2分别输入两个二进制数，单击按钮 Command11后在文本框Text3上输出两个二进制相加后的结果。
程序运行如图所示。
(1)、观察代码触发代码执行的事件名是。(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim b1 As String, b2 As String, ans As String, t As String
Dim dist As Integer, jw As Integer
b1=Text1.Text: b2 Text2.Text: ans=""
If dist <0 Then
t=b1: b1=b2: b2=t: dist=-dist
End If
For i=1 To dist
b2="0"+b2
Next i
jw=0
For i= Len（b1）To 1 Step-1
x= Val（Mid（b1, i, 1））+ Val（Mid（b2, i, 1））+jw
ans Str（x Mod 2）+ans
Next i
IfThen ans ="1"+ ans
Text3.Text=ans
End Sub
-
16、逆序数在一个排列中，如果一对数的前后位置与大小顺序相反，即前面的数大于后面的数，那么它们就称为一个逆序。一个排列中逆序的总数就称为这个排列的逆序数。逆序数为偶数的排列称为偶排列；逆序数为奇数的排列称为奇排列。例如序列2431，逆序依次为（2，1），（4，3），（4，1），（3，1），因此该序列的逆序数为4，为偶排列。
编写VB程序，功能如下：程序运行时，在文本框Text1中输入序列，单击“计算”按钮Command11，在文本框Text2中输出逆序数，并在 Label3中输出判断结果（偶排列或者奇排列）。程序运行界面如图所示。
(1)、如果序列为“5872469”，则逆序数为。(2)、实现上述功能的VB程序如下，完善填空。Function NiXuShu(s As String) As Integer '逆序数计算
Dim i As Integer, j As Integer, c As Integer , n(1 To 100) As Integer
c=0
For i= 1 To Len(s)
n(i) =Val(Mid(s, i, 1))
For j=1 To i- 1
ifThen
c=c+ 1
End If
Next j
Next i
End Function
Private Sub Command1_ Click()
Dim x As String, y As Integer
x = Text1.Text
Text2.Text = Str(y)
If y Mod 2= 0 Then Label3.Caption = "偶排列" Else Label3.Caption = "奇排列"
End Sub
-
17、编写VB程序实现如下功能程序运行时产生n个数据并按升序排序显示在列表框List1中，在文本框Text1中输入一个正整数key，单击“查找”按钮 Command1，则在标签Label2中显示查找结果。程序界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错误，请改正。
Const n=10
Dim d（1 To n）As Integer
Private Sub Form Load()
′随机产生n整数并存储在数组d中，并把数组d按升序排序
′在列表框中显示排序后的数据，代码略
End Sub
Private Sub Command1_Click()
Dim key As Integer， p As Integer
key =Val(Text1.Text)
‘①If p<>0 Then
Label2. Caption="该数据在第"+Str(p)+"个位置"
Else
Label2. Caption="没有找到! "
End If
End Sub
Function search(key As Integer) As Integer
i=1: j=n
Do While i<= j
m=(i+j)\2
If d(m)=key Then
search =m
Exit Function
ElseIf key<d(m)Then
j=m-1
Else
i=m+1
End If
Loop
‘②End Function
-
18、某对分查找算法的VB程序段如下：
t="": i=0: j=9: key=62: f=False
Do While i <=j And Not f
m=Fix((i+j)/2)
t=t+Str(m)
If a(m)= key Then
f=True
ElseIf a(m)>key Then
i=m+1
t=t+"→"
Else
j=m-1
t=t+"←"
End If
Loop
数组元素a（0）到a（9）的值依次为“99，94，90，87，78，70，63，56，45，36”执行该程序段的值是（ ）
A、"4→7←5→" B、"4→7←5→6→" C、"4→7←5→6" D、"4→7←-5" -
19、某排序算法的VB程序段如下:
For i=1 To 4
k=i
For j=5 To i+1 Step-1
If a(j)<a(k) Then k=j
Next j
If k<> i Then
tmp=a(k) : a(k)=a(i) : a(i)=tmp
f(i)=True
End If
Next i
当数组元素a（1）到a（5）的值依次为“8，2，1，21，3”数组f的初值均为 False，执行该程序段，f数组中元素值为True的个数有（ ）
A、1个 B、2个 C、3个 D、4个 -
20、下列程序执行后文本框Text1显示的内容是（ ）
Dimx As String， y As String， ans As Integer
x="12": y="100"
if x> Then ans=Val（x） Else ans=val（y）
Text1.Text Str（ans）
A、12200 B、12112 C、124 D、21210