相关试卷
-
1、下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a (9)的值依次为“72，61，3，95，39，38，64，65，98”，程序运行后，数组元素a(1)到a (9)的值依次为“98，72，64，39，3，38，61，65，95”。
m=(1+n)\2 ‘n为数组元素的个数，m为数组中间位置元素的下标
For i=1 To n
If a(i)<a (m) Then t=a(i)：a(i)=a(m)：a(m)=t
Next i
p=m：q=m
For i=1 To n-2
If i Mod 2=1 Then
k=q+1：q=q+1
Else
k=p-1：p=p-1
End If
pos=k
For j=1 To n
If
And a(j) <a(k) Then k=jNext j
If pos <> k Then
t = a(pos)： a(pos) = a(k)： a(k) = t
End If
Next i
上述程序段方框处的代码为( )
A、j<p And j>q B、j>p 0r j<q C、j<p 0r j>q D、j>p And j<q -
2、有如下VB程序段：
s = Text1. Text
ans =""： k=4
i = k-1：j=k+1：n=Len(s)
Do While k>0
If Mid(s，i，1) = Mid(s，j，1) Then
ans = ans + Mid(s，i，1)：k=k- 1
End If
i=(n+i-2) Mod n+1
j=j Mod n+1
Loop
Label1.Caption = ans
在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是( )
A、nana B、naba C、naan D、Naaa -
3、有如下VB程序段：
c=0：p=0：q=0
For i =1 To 5
b(i)= a (6-i)
Next i
For i=1 To 3
If (b(i)+b(i+1)*2+b(i+2)*3)Mod 5=0 Then
p=p+1
Else
q=q+1
End If
If p <=q Then c=c+1
Next i
数组元素a(1)到a(5)的值依次为“2，1，2，3，4”，执行该程序段后，c的值为( )
A、0 B、1 C、2 D、3 -
4、某算法的部分流程图如图所示。执行这部分流程，输入n的值为20191115，则输出s的值是( )
A、8 B、20 C、34 D、40 -
5、下列VB表达式中，值最大的是( )A、Va1(Mid(“3.1415926”，6， 2)) B、Int((Rnd-Rnd+1)/2) *100 C、6790 Mod 1000 \ 10 D、Int(Rnd * 80) + 10
-
6、下列有关信息和信息安全的说法，不正确的是（ ）A、中医通过“望、闻、间、切”来诊断病情，说明信息可通过多种方法和途径获取 B、学校对学生成绩数据进行统计得到平均分、标准差等信息，体现了信息的可加工处理性 C、某软件每次支付都会动态生成不同的付款码，是为了提高信息的安全性 D、相同的信息可以通过电话、微信等途径传递，说明信息的传递可以不依附于载体
-
7、若一个数从左向读与从右向左读是一样的，则这样的数称为回文数。若一个数不是回文数，则可以通过以下方法得到回文数，如十进制数87不是回文数：
第一步： 87+78=165
第二步： 165+561=726
第三步： 726+627=1353
第四步： 1353+3531=4884
即十进制数87最少经过4步可得到回文数。
给定一个n(2≤n≤10)进制数m，已知m的位数≤20，求最少经过几步可得到回文数，若步数≤30，则在标签Label2，上输出步数，否则输出“不可能得到回文数！”。程序运行界面如下图所示。
(1)、若在Text1、Text2中分别输入10和56，则在标签Label2中显示的内容是(2)、请在划线处填入合适的代码。Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
Dim n As Integer， m As Integer， step As Integer， x As Integer
n = Val(Text1.Text)： m = Val (Text2.Text)
i=1：step=0
Do While m<>0
a(i) =m Mod 10： m=m\10：i=i+1
Loop
x=
If Ishw(x) Then Label2.Caption = "step=" + Str(step)
Do While step <= 30
p=0
For i=1 To x
b(i) = (a(i) +a(x-i+1)+p) Mod n
p= (a(i)+a(x-i+1)+p)\n
Next i
step=step+1
If p< 0 Then x=x+ 1：
For i=1 To x
Next i
If Ishw(x) Then Label2． Caption = "step=" + Str(step)： Exit Do
Loop
End Sub
Function Ishw(y As Integer) As Boolean
Dim j As Integer
Ishw = True
For j=1 To y\2
If a(j) <> a(y- j + 1) Then Ishw = False： Exit For
Next j
End Function
-
8、双向选择排序。程序功能如下：随机生成n个整数，实现这n个数的升序排序。每一遍排序时，把最小数交换到最前面的同时，把最大数交换到最后面，依次进行，…直至所有的数按从小到大的顺序排列。该程序的VB代码如下所示，请回答下列问题：
Const n = 10
Dim a(n) As Integer
Private Sub Form_ Load ()
'随机生成数组元素a(i)，代码略
End Sub
Private Sub Command1_Click ()
Dim i As Integer， k1 As Integer， k2 As Integer
For i=1 To n\2
k1 = i：
'改错For j=i+1 To n-i+1
If a(k1)>a(j) Then k1=j
If a(k2)<a(j) Then k2=j
Next j
If k1<>I Then t=a(k1)：a(k1)=a(i)：a(i)=t
If k2=I Then '填空
t = a(k2)： a(k2) = a(n- i+1)：a(n-i+1) = t
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
(1)、代码“Private Sub Command1 _Click()” 中的Click是。(单选，填字母：A .对象名/B .事件名/C .事件处理过程名)(2)、程序代码中，将划线处的代码补全。(3)、程序代码中，加框处代码有错，请改正。(4)、若数组a的值依次是34，2，12，56，78，34，58，34，94，8，则第二遍排序完成后，数组元素a(2)的值为。 -
9、小王创作主题为“七夕”的多媒体作品。请回答下列问题：
图a
(1)、如图a所示，要去除“牛郎织女”图层的白色背景，下列操作中可行的是(多选，填字母： A .使用魔棒工具选择“牛郎织女”图层的白色背景，反选，按Delete键/B .使用魔棒工具选择“牛郎织女”图层的白色背景，按退格键/C .使用磁性套索工具选择“牛郎织女”图层的内容，反选，按Delete键/D .使用橡皮擦工具擦去“牛郎织女”图层的白色背景。)(2)、测试影片时，发现“标题”图层和“牛郎织女”图层内容不是同时出现的，若要使这两个图层的内容在动画开始时一起播放，正确的操作是。(3)、如图c所示，当前状态下，把帧频修改为15，则main场景完整播放一遍的时间会不会变化？(选填：会/不会)
(4)、测试影片时，首先播放的场景是 (填场景的名称)。(5)、如图b所示，为实现该场景动画播放完后自动停止，小王选中“按钮”图层最后1帧添加的脚本命令应该是。 -
10、小王收集了的浙江省部分城市降水量的有关数据，并使用Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、在B14单元格输入公式并利用自动填充功能完成区域B14 ：N14的计算，结果如图a所示，则B14单元格中的公式是(计算公式：降水比率=每月平均降水量/全年平均降水量)。若区域B4：B13数据被清空，则B14单元格将显示为。(单选，填字母：A . 0/B . 4.1%/C . #IV/0！ /D . #REF！)(2)、根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域可能是(多选，填字母： A . A3：A7， N3：N7/B . A4：A7， N4：N7/C . N3：N8/D . N4：N8)
-
11、编写VB程序实现如下功能：随机生成一个正奇数n并显示在文本框Text1中，单击“生成”按钮后，在文本框Text2中显示“1 3~n-2 n n-2…3 1”。例如n=9时，显示为“135797531”。划线处填入的代码应该是( )
Private Sub Command1_Click()
Dim n As Integer， i As Integer， s As String
Randomize
n = Int(Rnd*20) *2+1： ①
s=“”
For i =1 To n
If i <=n\2+1 Then
s=s+Str(2*i-1)
Else
s=s+ ②
End If
Next i
Text2.Text = s
End Sub
A、①n = Val(Text1.Text) ②Str(2* (n-i+ 1)) B、①Text1. Text = Str(n) ②Str(2 * (n-i+ 1)) C、①n = Val (Text1.Text) ②Str(2* (n-i)+ 1) D、①Text1.Text = Str(n) ②Str(2*(n-i)+ 1) -
12、若在文本框Text1中输入3，则List1中显示的内容是( )
Dim x As Integer， y As Integer，s As String， n As Integer
x= 1：y=1：s=""： n = Val (Text1. Text)
Do While y<=n
s=s+"*"
If x =y Then
List1. AddItem s：y=y+1：x=1
End If
x=x+1
Loop
A、
B、
C、
D、
-
13、下列程序段运行后，数组元素a(j)的值是( )
a(1)=96：a(2)=75：a(3)=4：a(4)=37：a(5)=48
For i =1To 3
k=i
For j=4 To i+1 Step-1
If a(j) > a(k) Then k= j
Next j
Ifi <> k Then t=a(i)：a(i)=a(k)：a(k)=t
Next i
A、4 B、37 C、75 D、96 -
14、若在文本框Text1中输入“20191001”，下列程序段运行后，文本框Text2显示的内容是（ ）
n = Len(Text1.Text)： c= 0
Do While n> 1
s1 = Mid(Text1. Text， n， 1)： s2 = Mid(Text1.Text， n- 1，1)
If Abs(Asc(s1) - Asc(s2)) Mod2= 1 Then c=c+ 1
n=n-1
Loop
Text2.Text = Str(n)
A、0 B、1 C、2 D、3 -
15、要得到[-50，50]之间的随机整数，正确的VB表达式是（ ）A、Int(Rnd * 50) B、Int(Rnd * 50) - 50 C、Int(Rnd * 100) - 50 D、Int(Rnd * 101) - 50
-
16、某算法的部分流程图如图所示。执行这部分流程，则输出x，y的值是（ ）
A、16，3 B、16，0 C、2，3 D、2，0 -
17、某未经压缩音频文件的部分属性如图所示，则该音频文件的大小为（ ）
A、86KB B、172KB C、1.4MB D、344.5KB -
18、使用GoldWave软件打开某音频文件，部分界面如图所示。下列说法正确的是（ ）
A、文件“音乐． wav”的采样频率为705kbps B、在当前状态下，插入1秒静音，则该音频时长变为5秒 C、在当前状态下，执行“删除”操作，则该音频时长变为2秒 D、在当前状态下，执行“静音”操作，则左声道第0秒至第4秒都为静音 -
19、使用UltraEdit软件观察字符“My name is 张三”的内码，部分界面如图所示。
下列说法中正确的是（ ）
A、图中共有15个ASCII码字符 B、字符“ok”内码值的十六进制表示为696B C、字符“Y”内码值的二进制表示为0101 1001 D、汉字“二”内码值的十六进制表示为C8 FC -
20、使用Access软件创建的数据表，部分界面如图所示。下列说法中正确的是（ ）
A、当前数据库文件名为“通讯录” B、当前数据表中共有7条记录 C、当前状态下，可以把“Birthday”修改为“生日” D、在该数据表中，“2001-02 -30”可以是“Birthday”字段的有效输入值