相关试卷
-
1、某程序功能如下：将自然数从1到100按某种方式排列起来，单击“输出”按钮Command1，在列表框List1中显示排列后的数表，运行结果如图所示。
(1)、下列对象中不具有Caption属性的是（单选，填字母：A ．Command1 /B ．Form1 /C ．List1）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Const n = 10
Dim i As Integer, j As Integer
Dim d(0 To 100) As Integer
For i = 1 To n
For j = 1 To n
If i = 1 Then
d(j) = j ^ 2
Else
If j = 1 Then
①
Else If j < i
d((i - 1) * n + j) = d((i - 2) * n + j) - 1
Else
②
End If
End If
Next j
Next i
‘在列表框List1中按每行10个输出数组d的所有元素，代码略
End Sub
①处代码为 ， ②处代码为。
(3)、程序中加框处代码有错，请改正。
应改为 -
2、用Flash软件打开“致敬逆行者.fla”文件，编辑界面如下图所示。
请回答下列问题：
(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于需求分析的是（多选，填字母：A .确定作品的结构类型为演示型/ B .明确作品的工作流程/ C .确定获取原始素材的方式/ D .确定作品的发布方式/ E .设计作品的三个模块的交互方式）(2)、文件中导入的声音设置如下图所示，动画播放一遍停止时，音乐播放时长是秒。
(3)、将动画GIF文件“飞奔.gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是。（选填，填字母：A .逐帧动画/B .形状补间动画/C .动画补间动画）(4)、为了使该场景动画播放到最后一帧自动退出动画，可以在按钮图层的最后一帧添加动作脚本(5)、测试该场景时，“英雄”图层内容在播放完第30帧后消失，为了使该图层第30帧内容再延续2秒，下列操作可行的是______。（多选题）A、选中“英雄”图层第31帧执行“清除关键帧”操作 B、将“英雄”图层第50帧执行“插入关键帧”操作 C、删除“英雄”图层第31帧，在第50帧执行“插入帧”操作 D、将“英雄”图层第31帧移动至50帧，在第50帧执行“清除关键帧”操作 E、选中“英雄”图层第50帧执行“插入帧”操作，在第31帧执行“清除关键帧”操作 -
3、阅读下列程序，写出运行结果。
Dim n as Long
Dim s as Long
Dim x as Long
n = Val (InputBox(“n =”))
s = 0
Do While n > 0
x = n Mod 10
s = s + x
n = n \ 10
Loop
Print s
程序运行时，输入518，运行输出结果是：
（提示：\ (整除运算)如：237\10=23；Mod (取余数运算)如：237 mod 10=7）
-
4、分析完善程序。
问题：输入一个正整数n，判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是统计2到n-1之间的所有能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。
根据以上方法，完善一下程序代码。
n = Val (InputBox(”n=”))
s = 0
For i = 2 To n-1
If n Mod i = 0 Then
s = ' 统计因数个数
End If
Next i
If Then
Print n & ”是素数”
Else
Print n &”不是素数”
End If
-
5、阅读下列程序，写出运行结果。运行输出结果是：
Dim Sum As Long
Dim i As Long
Sum=0
i=0
Do While Sum<10
i=i+1
Sum=Sum+i*i
Loop
Print Sum
-
6、下列程序段执行后，变量s的值是（ ）。
s=0
For i=1 To 10
s=s+i
Next i
A、1 B、0 C、55 D、10 -
7、分析完善程序。
以下是求解一元二次方程ax2+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：
a=Val(InputBox(“a=”))
b=Val(InputBox(“b=”))
c=Val(InputBox(“c=”))
d= ‘求判别式d
If d>0 Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print “x1=”;x1
Print “x2=”;x2
End If
If Then
Print “x=”; -b/(2*a)
End If
If d<0 Then
Print “无实数解！”
End If
-
8、阅读下列程序，写出运行结果。
Dim x As Integer
Dim y As Integer
y = 0
For i = 1 To 5
x = Val(InputBox("请输入"))
y = y + x
Next i
Print y
程序运行后，依次输入：10 20 30 40 50
运行输出结果是。
-
9、某算法流程图如下图所示，该流程图完整执行一次后，下列说法错误的是（ ）
A、变量s存储的值为[0， 30)区间内能被3整除的数的和 B、变量i的值为30 C、语句“s←s+i”共执行了10次 D、语句“i<30”共执行了30次 -
10、在VB中，以下语句错误的是：（ ）。A、S="信息技术" B、S="VB"&6 C、X=4X D、X=X+1
-
11、如下VB程序段“a=13 b=32 a=b”关于语句“a=b”的含义，下列叙述中正确的是（ ）。A、把变量a的值赋给变量b B、判断变量a的值是否等于变量b的值 C、把变量b的值赋给变量a D、把变量a的值与变量b的值交换
-
12、在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是。
-
13、求[0,100]之间所有偶数之和s的算法流程图如图所示。
为了实现此算法，图中判断框①和处理框②处可填入的是（ ）
A、① x ≤ 100？ ② x←x+2 B、① x ≤ 100？ ② x←x+1 C、① x ≥ 100？ ② x←x+2 D、① x ≥ 100？ ② x←x+1 -
14、对于语句abc. Caption=“你好”，下列理解正确的是（ ）A、Caption称为属性值 B、该对象可能是标签、按钮或文本框 C、该语句的作用是将对象属性进行赋值 D、若流程图表示此算法，该语句应该在处理框中
-
15、执行如图所示的程序段后，输出s的值是（ ）
s=0
For k=1 To 5
s=s * k
Next k
Print s
A、120 B、0 C、15 D、1 -
16、执行如下VB程序段，则s的值是（ ）
s=56
s1=s\10
s2=s Mod 10
s=s1+s2*10
Print "s="; s
A、5.6 B、6.5 C、56 D、65 -
17、下列程序段执行后，a和b的值分别是（ ）。
a=3
b=5
a=a+b
b=a-b
a=a-b
Print a，b
A、a=-2 1=-2 B、a=5 b=3 C、a=3 b=5 D、a=8 b=8 -
18、下列程序段执行后，变量a，b的值分别为（ ）。
a=15
b=20
a=a+b
b=a-b
a=a-b
PRINT a， b
A、20，15 B、35，35 C、5，5 D、15，20 -
19、下列属于正确的VB赋值语句的是（ ）。A、x+y=10 B、5=a+b C、p=True D、2a= Text1. Text
-
20、下面的程序段，执行后，变量S的值为（ ）
a=5
b=10
S=2*(a+b)
A、10 B、20 C、30 D、40