相关试卷
-
1、有如下 VB 程序段：
Dim s As String, ch As String
Dim i As Integer, t As Integer
s = Text1.Text : t = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then t = t * 2 + Val(ch)
Text2.Text = Text2.Text + Str(t)
Next i
执行该程序，当文本框Text1中输入了“11，10”时，文本框text2中输出的是（ ）
A、3 2 B、1 3 7 14 C、1 3 3 7 14 D、1 3 3 7 14 14 -
2、某地为各个村之间建立灌溉管道，现需实现用最短的管道距离使得所有村庄可以连通。如图a 所示，[V1,V2,V3,V4,V5]每个节点表示村庄，两个节点之间的数值表示两个村庄之间的边距离。
算法思路如下：
①首先按边距离升序排序；
②找到边距离最小值1，以及相应的两个节点V1 和V3；
③以V1或V3作为起点，搜寻连接新节点且距离最小的边，发现(V1, V4)边最小为4；
④以V1、V3、V4作为起点，搜寻连接新节点且距离最小的边，发现(V4, V5)边最小为2；
⑤以V1、V3、V4、V5作为起点，搜寻连接新节点且距离最小的边，发现(V2, V5)边最小为3；因此可知，连通5个村庄的最短管道距离是1+4+2+3=10，效果如图b所示。
现设计了如下VB程序，界面如图c所示，请回答下列问题：
(1)、V2到V5的边距离若为6，则连通5个村庄的最短管道距离是。(2)、请在划线处填入合适的代码。Const n = 5 '村庄数
Const m = 8 '管道线路数
Dim pointAB(1 To 2 * m) As Integer '存储连接的两个村庄节点
Dim length(1 To m) As Integer '存储两个村庄之间的距离
Dim res(1 To 100) As Integer '存储管道规划结果
Private Sub Form_Load()
'村庄节点数据存储在pointAB数组，两个村庄的距离数据存储在length数组。
'如图c所示，(V1,V3)边距离为1，则pointAB(1)=1，pointAB(2)=3，length(1)=1；
(V1,V2)边距离为6，则pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次类推，代码略。
End Sub
Function check(x As Integer) As Integer '判断x节点是否已在规划中
check = 0
For i = 1 To 100
If x = res(i) Then check = 1: Exit Function
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, tmp As Integer
Dim total As Integer, sum As Integer
For i = 1 To m - 1
For j = m To i + 1 Step -1
If Then
tmp= pointAB(2 * j - 1) :pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp
tmp = pointAB(2 * j) : pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp
tmp = length(j): length(j) = length(j - 1): length(j - 1) = tmp
End If
Next j
Next i
'开始规划管道
total = 1
res(1) = pointAB(1): res(2) = pointAB(2)
sum = length(1)
Do While total <
For i = 2 To m
If Then
total = total + 1
res(2 * total - 1) = pointAB(2 * i - 1)
res(2 * total) = pointAB(2 * i)
sum = sum + length(i)
Exit For
End If
Next i
Loop
'输出连通结果res 以及管道总长度sum，代码略。
End Sub
-
3、某程序功能如下：将自然数从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)、程序中加框处代码有错，请改正。
应改为 -
4、用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帧执行“清除关键帧”操作 -
5、阅读下列程序，写出运行结果。
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）
-
6、分析完善程序。
问题：输入一个正整数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
-
7、阅读下列程序，写出运行结果。运行输出结果是：
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
-
8、下列程序段执行后，变量s的值是（ ）。
s=0
For i=1 To 10
s=s+i
Next i
A、1 B、0 C、55 D、10 -
9、分析完善程序。
以下是求解一元二次方程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
-
10、阅读下列程序，写出运行结果。
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
运行输出结果是。
-
11、某算法流程图如下图所示，该流程图完整执行一次后，下列说法错误的是（ ）
A、变量s存储的值为[0， 30)区间内能被3整除的数的和 B、变量i的值为30 C、语句“s←s+i”共执行了10次 D、语句“i<30”共执行了30次 -
12、在VB中，以下语句错误的是：（ ）。A、S="信息技术" B、S="VB"&6 C、X=4X D、X=X+1
-
13、如下VB程序段“a=13 b=32 a=b”关于语句“a=b”的含义，下列叙述中正确的是（ ）。A、把变量a的值赋给变量b B、判断变量a的值是否等于变量b的值 C、把变量b的值赋给变量a D、把变量a的值与变量b的值交换
-
14、在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是。
-
15、求[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 -
16、对于语句abc. Caption=“你好”，下列理解正确的是（ ）A、Caption称为属性值 B、该对象可能是标签、按钮或文本框 C、该语句的作用是将对象属性进行赋值 D、若流程图表示此算法，该语句应该在处理框中
-
17、执行如图所示的程序段后，输出s的值是（ ）
s=0
For k=1 To 5
s=s * k
Next k
Print s
A、120 B、0 C、15 D、1 -
18、执行如下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 -
19、下列程序段执行后，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 -
20、下列程序段执行后，变量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