相关试卷
-
1、基姆拉尔森公式可根据日期判断是星期几。基姆拉尔森公式在VB中的计算式如下：week=（d+2*m+3*（m+1）15+y+y\4-y\00+y\400+1）Mod7。在公式中d表示日期中的日数，m表示月份数，y表示年数。余数为0表示星期日，余数为1表示星期一，以此类推。在公式中有个特殊的地方：把一月和二月看成上一年的十三月和十四月，例：如果是2004-1-10，则换算成2003-13-10代人公式计算。小明编写了VB程序，运行界面如图所示，程序代码如下。
Private Sub Commandl_Click（）
Dim y As Integer，m As Integer，d As Integer，week As Integer
Dim ss As String，weekday As String
ss = "日一二三四五六"
y = Val（Text1.Text）
m = Val（Text2.Text）
d = Val（Text3.Text）
If ① Then
m = m + 12
y = y - 1
End If
week =（d + 2 * m + 3 *（m + 1）\5 + y + y\4-y\100 + y\400 + 1）Mod 7
weekday = ②
Labell.Caption = "星期" & weekday
End Sub
(1)、代码“Private Sub Commandl_Click（）”中的Command1_Click（）是（单选，填字母：A .对象名/B .事件/C .事件处理过程）。(2)、为实现上述功能，请在划线处填入合适的代码。①②
(3)、由上述算法可知，2010年2月5日应为星期。 -
2、某密码强度判断程序功能如下：在文本框Text1中输入由大写字母、小写字母、数字和其他字符4种不同类型字符组成的密码字符串，单击“判断”按钮Cmd1，在标签框Label3中显示判断结果。程序运行界面如图所示。
密码强度判断条件如下：密码长度小于6，则强度为“弱”。在密码长度大于等于6的情况下，若只出现一种字符，则密码强度为“弱”；若出现两种不同字符，则密码强度为“中”，出现3种以上不同字符，则密码强度为“强”。
(1)、Cmd1对象属于类。（单选，填字母：A .Label/B .TextBox/C .CommandButton）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Cmd1_Click（）
Dim n As Integer，i As Integer，m As Integer，s As String，c
As String
①
If n<6 Then
Label3.Caption ="弱"
Else
s= "0000"
For i = 1 To n
c=Mid（Text1.Text，i，1）
If c > = "0"And c<= "9" Then
Mid（s，4，1）= "1"'将字符串s第4位上的字符替换为"1"
Elself c > ="A" And c<="Z" Then
Mid（s，3，1）= "1"
Elself c>="a" And c<="z" Then
②
Else
Mid（s，1，1）= "1"
End If
Next i
m = 0
For i = 1 To 4
If Mid（s，i，1）= "1" Then ③
Next i
If m< 2 Then
Label3.Caption="弱"
Elself m = 2 Then
Label3.Caption="中"
Else
Label3.Caption="强"
End If
End If
End Sub
①②③
(3)、若文本框Text1中输入的内容为“a26$gh2！”，单击判断按钮Cmd1，事件过程运行结束时，变量s的值为。 -
3、一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：寻找前1000个自然数中所有A类数，在List1中输出，并统计个数，在Text1中输出。
请在下面划线处填入合适的代码。
Private Sub Command1_Click（）
Dim i，n，s，t，k As Integer 's为A类数的个数，t为二进制数中“1”的个数，k为“0”的
个数
s = 0
For i = 1To 1000
n = i：t = 0：k= 0
Do While n > 0
If ① Then t=t+1Else k=k+1
②
Loop
If t>k Then
List1.Addltem Str（i）
s = s+1
End If
Next i
Text1.Text=Str（s）
End Sub
①②
-
4、一个VB程序的运行界面如图所示。下列说法不正确的是（ ）
A、文本框Text1的Caption 属性值为“H” B、标签Label1的Caption 属性值为“输入字符" C、命令按钮Command1的Caption属性值为“查询” D、窗体的Caption属性值为“查询字符ASCⅡ码” -
5、要使程序运行时，按钮Command1上的文字显示为“计算”，可在事件过程中添加语句Command1.Caption=“计算”。（单选，填字母：A .Command1_Click/B .Form_Load/C .Command1_DblClick）。
-
6、VB语句List1.Addltem d（i）的作用是把数组d的数据添加到列表框对象List1中。该语句中的“AddItem”是（ ）A、属性名 B、属性值 C、方法 D、事件
-
7、纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格（不超过w），以逗号分隔，在文本框Text2中输入限定值w，单击“分组”按钮，在标签Label2上输出最少的分组数。程序运行界面如图所示。
(1)、要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在Form_Load事件过程中添加语句（单选，填字母：A .Form 1="纪念品分组"/B .Form 1.Name="纪念品分组"/C .Form 1.Caption="纪念品分组"/D .Form1.Text="纪念品分组"）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。Private Sub Commandl_Click（）
Dim a（1 To 1000），n As Integer，w As Integer，t As Integer
Dim i As Integer，j As Integer，cnt As Integer
Dim s As String，ch As String
Dim p As Integer， q As Integer
s='Text1.Text：w=Val（Text2.Text）：n=0
For i = 1 To Len（s）
ch = Mid（s， i，1）
If ch ="，" Then
n = n +1：a（n）= t：t= 0
Else
t = ①
End If
Next i
For i = n To 2 Step-1
For j = 1 To n-i ‘②
If a（j）<a（j+1）Then
t= a（j）：a（j）= a（j+1）：a（j+1）= t
End If
Next j
Next i
cnt=0
p= 1：q = n
Do While p<q
cnt = cnt + 1
If ③ Then
p=p+1：q=q-1
Else
p=p+1
End If
Loop
If p = q Then cnt = cnt+1
Label2.Caption = Str（cnt）
End Sub
①②③
(3)、若在文本框Text1中输入“50，30，100，70，80，40，50，20，”，文本框Text2中输入“l10”，单击“分组”按钮，标签Label2中显示的内容是。 -
8、食堂排队买菜问题。在食堂排队买菜时，每个同学都有一个窗口买菜时间，如果某同学的等待时间超过他在窗口买菜时间的3倍，他就会不愉快，并且不参与排队，反之是愉快的。等待时间是指排在该同学之前的所有人的买菜时间之和。已知每个同学在窗口的买菜时间，请确定如何排队才能使愉快的人数最多，并输出最多的人数。例如：10个同学的买菜时间如下表所示，则最多有8个人是愉快的。
学生编号
1
2
3
4
5
6
7
8
9
10
买菜时间
3
2
5
5
6
7
1
8
1
3
最终是否参与排队
是
是
是
是
否
是
是
否
是
是
Const n = 10
Dim a（1 To n）As Integer
Private Sub Command1_Click()
Dim i As Integer，s As Integer，ans As Integer，t As Integer
'读取每个学生的买菜时间，依次存储在数组a中，代码略
For i = 1 To n-1
k = i
For j = n To i + 1 Step - 1
If Then k = j
Next j
If a（i）<>a（k）Then t=a（i）：a（i）= a（k）：a（k）=t
Next i
s = 0：ans = 0
For i = 1 To n
If
Then s=s + a（i）：ans = ans + 1Next i
Label1.Caption ="共有"+ Str（ ans）+"个人是愉快的，且参与排队买菜。"
(1)、代码“Private Sub Command1_Click()”中的Command1是（单选，填字母:A .对象名/B .事件名/C .事件处理过程名）。(2)、请在划线处填入合适代码。(3)、程序代码的加框处有错，请改正。(4)、若10个同学的买菜时间都相同，则有个人是愉快的，且参与排队。 -
9、有如下VB程序段：
n = 8
For i= 1 To n
d（i）= Int（Rnd * 10）+1
Next i
For i= 2 To n -1
k = 1
For j=1 To n-i
If d（j）*k>d（j+2）*k Then
Temp=d（j）：d（j）=d（j+2）：d（j+2）=temp
End If
Next j
Next i
执行该程序段后，d数组各元素可能是（ ）
A、3，10，3，5，4，4，10，1 B、0，3，4，5，6，6，7，8 C、2，1，3，4，5，6，8，7 D、6，4，5，6，5，7，1，10 -
10、下列VB程序段的功能为：对数组a中的n个元素进行排序，生成左右交替上升的数据序列。如排序前a中元素依次为：48，34，86，46，85，100，程序运行后a中元素依次为：34，48，86，100，85，46。
For i=1 To
k=i
For j=i+1 To n-i+1
If a（k）>a（j）Then k=
Next j
If k<>i Then t=a（k）：a（k）=a（i）：a（i）=t
For j=
If a（j）< a（j+1）Then t=a（j）：a（j）=a（j+1）：a（j+1）= t
Next j
Next i
上述程序段3个方框处的表达式分别为（ ）
A、（1）n-1 （2）j+1 （3）i To n-i+1 B、（1 ）n-1 （2）j+1 （3）i To n-i C、（1）n\2 （2）j （3）i+1 To n-i+1 D、（1）n\2 （2）j （3）i+1 To n-i -
11、有以下VB程序段：
For i=1 To 3
For j=i To 5
If a（j）> a（j+1）Then
t=a（j）：a（j）= a（j+1）：a（j+1）=t
End If
Next j
List1.Addltem Str（a（i））
Next i
a（1）到a（6）的初始值依次为“8 6 5 7 9 3”,经过该程序段“加工”后，列表框List1中显示的是（ ）
A、8 7 6 B、8 7 9 C、6 5 3 D、5 6 7 -
12、有如下VB程序段：
Dim a（1 To 6）As String
Text 1.Text = " "
For i = 1 To 3
For j = 1 To 6 -i
If a（j）<a（j+1）Then t = a（j）：a（j）= a（j+1）：a（j + 1）= t
Next j
Text1.Text = Text1.Text + a（j）
Next i
数组元素a（1）到a（6）的值依次是“231”“123”“12”“59”“41”“33”。该程序段执行后，文本框Text 1中显示的内容是（ ）
A、123341 B、23112359 C、12123231 D、594133 -
13、下列程序段运行后，数组元素a（3）的值是（ ）
a（1）=55：a（2）=44：a（3）=11
a（4）=22：a（5）=33
For i = 1 To 2
For j = 1 To 4-i
If a（j）>a（j+1）Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
End If
Next j
Next i
A、44 B、33 C、22 D、11 -
14、使用GoldWave软件编辑“演出.wav”文件，选择其中一段音频后的部分编辑界面如图所示。
下列说法正确的是（ ）
A、该音频量化位数是16位，采样频率是1411kbps B、当前状态下，执行“剪裁”操作，则音频文件总时长变为10秒 C、当前状态下，执行“删除”操作，则左声道第10秒到第20秒变为静音 D、当前状态下，执行“插入10秒静音”操作，按原参数保存文件，则音频文件的容量变为原来的4/3 -
15、使用GoldWave软件编辑某音频文件，部分界面如图所示，在当前状态下执行“删除”命令，再插入2秒静音后按原格式参数保存，则保存后的声音文件存储容量约为（ ）
A、516.8KB B、689KB C、1MB D、2MB -
16、用GoldWave软件编辑声音，界面如图所示，下列操作可使生成的WAV文件容量最小的是（ ）
A、在当前状态下，点击“剪裁”按钮，然后将文件按原格式保存 B、在当前状态下，点击“删除”按钮，然后将文件按原格式保存 C、在当前状态下，设置静音效果，然后将文件按原格式保存 D、重新选区，选中整个音频的左声道并删除，然后将文件按原格式保存 -
17、使用GoldWave软件打开某音频文件，选中其中一段音频后的部分界面如图所示。
下列说法正确的是（ ）
A、当前选中的声道是右声道 B、音频的量化位数为16bit，采样频率为44.1kHz C、仅将当前选中部分设为“静音”后直接保存，文件大小发生变化 D、仅将当前选中部分“剪裁”后直接保存，音频的时长为2秒 -
18、使用GoldWave软件打开某音频文件，部分界面如图所示。
下列说法中正确的是（ ）
A、从图中可知，该音频文件为WAV格式，采样频率为11025kHz，量化位数为32 B、在当前状态下，选择“左声道”后执行“静音”操作，则左声道的第0至10秒变为静音 C、在当前状态下，执行“更改音量”操作将音量降低为原来的1/2，并按原参数保存，该音频文件的容量变为原来的1/2 D、在当前状态下，连续执行两次“删除”操作，该音频的时长不变 -
19、制作主题为“元宵节”的多媒体作品。用Photoshop设计作品背景，用Flash创作动画。
图a
图b
请回答下列问题：
(1)、如图a所示，当前不能直接用滤镜添加特效的图层是（至少写出2个）。(2)、如图b所示，“music”图层中添加的声音“元宵节-节选.mp3”在播放时（选填：由轻到响/由响到轻）；已知“action”图层最后1帧上添加了动作脚本“stop（）；”，则当前场景动画播放完时，声音会（选填：随之停止/继续播放）；想要实现单击“无声”按钮即可停止所有声音的效果，可在“无声”按钮上添加的动作脚本是。(3)、如图b所示，舞台左下角的宫灯在该场景动画播放完后仍不停闪亮，可知它是（选填：位图/影片剪辑/按钮/图形）实例。(4)、如图b所示，在“宫灯”图层中添加了“重播”按钮，若要实现单击该按钮，动画跳转到该场景第1帧并停留，则在该按钮上添加的动作脚本是。(5)、图b中“标题”图层第1帧的属性面板如图c所示，可知该场景实际播放时，标题文字“元宵节”的旋转逐渐（选填：加速/减速）。
图c
-
20、小明制作主题为“皮影熠彩”的多媒体作品，她先用Photoshop软件制作一张背景图片，然后用Flash软件制作动画。请回答下列各题：
图a
(1)、如图a所示，当前状态下，下列说法不正确的有（多选，填字母：A .可以对“龙柱”图层选择区域并填充颜色/B .用“仿制图章”工具对“灯笼”图层操作将会新增一个图层/C .将“熠彩”的图层样式拷贝到“皮影”之后，“皮影”的图层样式将被替换/D .可以设置“背景”图层的不透明度）。(2)、如图b所示，“人物”图层第5帧到32顿实现了人物实例旋转一周且淡入的动画效果，该动画类型为（单选，填字母：A .形状补间/B .动画补间/C .逐帧动画）。
图b
(3)、调试作品，发现“进入”按钮会在最后消失，以下对“按钮”图层的操作可实现该按钮一直在舞台上的有（多选，填字母：A .把第1帧移动到第60帧/B .选择第60帧，执行“清除帧”操作/C .选择第60帧，执行“清除关键帧”操作/D .对第1帧“复制帧”，选择第60帧“粘贴帧”/E .选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧”）。(4)、为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放，应在该按钮上添加动作脚本。(5)、经上述操作之后，若要测试“进入”按钮的效果，则应（单选，填字母：A .测试场景/B .测试影片/C .播放）。