1.判断题- (共10题)
2.选择题- (共40题)
11.
用FrontPage设计一个站点如图1、图2，用浏览器浏览该站点如图3所示，点击主页上含有“环游世界”的图片，打开图片属性如图4所示，下面叙述不正确的是( )
| A．该站点的默认主页为index.htm |
| B．默认主页的网页标题是“环游世界” |
| C．在默认主页上有个图片：banner.jpg,位于images文件夹下 |
| D．可以删除index.htm，把Asia.htm改名为默认主页名 |
13.
下列叙述正确的是：（ ）
| A．将banner.jpg改名为ban.jpg后，网页index.htm中的图片任然能正常显示 |
| B．将banner.jpg文件移动到sound文件夹下，网页index.htm中的图片任然能正常显示 |
| C．将index.htm改名为“home.htm”后，网页index.htm中的图片任然能正常显示 |
| D．将index.htm文件移动sound文件夹下，网页index.htm的图片任然能正常显示 |
14.
下列有关网页制作的说法不正确的是( )
| A．网页的三要素指的是文字、图形图像、超链接 |
| B．网页发布时，只需将主页一个文件上传到服务器 |
| C．网页还可以使用“表格”、“表单”、“音乐”和内嵌程序等构件，起到美化网页的作用 |
| D．网站和网页的地址用URL（统一资源定位器）标识 |
15.
为index.htm网页中的亚洲简介设置超链接，链接到网页Asia.htm, 在“创建超链接”对话框中（如图所示），设置正确的是：
| A．Asia.htm |
| B．ftp:// Asia.htm |
| C．http:// Asia.htm |
| D．mailto: Asia.htm |
16.
下列关于“控件”属性的说法正确的是( )
| A．控件的每一个属性都具有同样的默认值； |
| B．所有对象都具有同样的属性； |
| C．控件的属性只能在设计时设置，不能在运行时修改； |
| D．单击窗体中某控件，在属性窗口中的属性列表框中找到要设置的属性，即可设置其属性值； |
19.
在算法执行流程中，对于循环模式下列说法正确的是（ ）
| A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二； |
| B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推，直到条件为假时结束； |
| C．仅用循环模式就可以用来判断某个输入的数是不是整数； |
| D．循环模式中，可以嵌套选择模式，而选择模式不能嵌套循环模式； |
20.
将文本框Text2内输入的数据送到字符型变量n 中，则应使用的语句是（ ）
| A．n = text2 |
| B．n = text2.text |
| C．n = val(text2) |
| D．n = val(text2.text) |
21.
根据下列程序段运行后a的值 ，划线处应该填入的合理数据类型为 （ ）
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i
| A．Integer | B．Long | C．Single | D．Double |
22.
（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。 被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；
若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：
找到情况 未找到情况
总结顺序查找数据结果判断条件：
(1)、 当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；
(2)、 当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。
顺序查找的主程序段如下：
Private Sub 顺序查找_Click()
n个数据放入d(1)到d(n)中
Key =" Val(Text1.Text):" i =___1___‘变量Key从文本框Text1取的数要查找的数；
Do While ①
i =" i" + 1
Loop
If i <=" n" Then
Text2.Text = "在d(" + Str(i) + ")中" ‘例如在文本框Text2显示：“在d(6)中”
Else
Text2.Text = "找不到"
End If
End Sub
上程序Do While的条件 ① 是（ ）
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。 被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；
若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：
找到情况 未找到情况
总结顺序查找数据结果判断条件：
(1)、 当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；
(2)、 当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。
顺序查找的主程序段如下：
Private Sub 顺序查找_Click()
n个数据放入d(1)到d(n)中
Key =" Val(Text1.Text):" i =___1___‘变量Key从文本框Text1取的数要查找的数；
Do While ①
i =" i" + 1
Loop
If i <=" n" Then
Text2.Text = "在d(" + Str(i) + ")中" ‘例如在文本框Text2显示：“在d(6)中”
Else
Text2.Text = "找不到"
End If
End Sub
上程序Do While的条件 ① 是（ ）
| A．Key <> d（i） |
| B．i <= n |
| C．Key <> d(i) And i <= n |
| D．Key <> d(i) or i <= n |
23.
在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是（ ）
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是（ ）
| A．software and hardware |
| B．software |
| C．hadrware |
| D．and |
24.
Sub test2()
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是( )
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是( )
| A．"monday" | B．"tiger" | C．"mondaytiger" | D．"" |
26.
在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？
| A．1个 | B．2个 | C．3个 | D．4个 |
27.
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是 ( )
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是 ( )
| A．15 | B．18 | C．42 | D．24 |
29.
有关下列语句说法不正确的是（ ）
① If a="b=c" Then Msgbox(“这三个数相等”) Else Msgbox(“这三个数不相等”)
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox (a+b=c)
① If a="b=c" Then Msgbox(“这三个数相等”) Else Msgbox(“这三个数不相等”)
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox (a+b=c)
| A．语句①能运行，但逻辑上有错误 |
| B．语句②能运行，且无任何逻辑错误 |
| C．语句③不能运行 |
| D．语句④不能运行 |
30.
在数组变量A中，A（1）、A（2）、…、A(10依次放了1号、2号、…、10号同学的成绩，下面一段程序的功能是实现反次序在列表框list1中输出这10个同学成绩，即输出次序为： A（10）、A（9）、…、A(1)， 程序段如下：
Dim A(-20 To 20) As Integer
for i=① to ② step ③
List1.AddItem A( ④ )
Next i
上程序中的①,②,③,④依次填入有下面几个可能答案：
（1）、 10， 1， -1， i
（2）、 1， 10， 1， 11-i
（3）、 -5， 4, 1, 5-i
（4）、0.2, 2, 0.2, 11-i/0.2
上面答案中，正确的有（ ）
Dim A(-20 To 20) As Integer
for i=① to ② step ③
List1.AddItem A( ④ )
Next i
上程序中的①,②,③,④依次填入有下面几个可能答案：
（1）、 10， 1， -1， i
（2）、 1， 10， 1， 11-i
（3）、 -5， 4, 1, 5-i
（4）、0.2, 2, 0.2, 11-i/0.2
上面答案中，正确的有（ ）
| A．1个 | B．2个 | C．3个 | D．4个 |
31.
Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（ ）
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（ ）
| A．5 15 | B．6 15 | C．5 21 | D．6 21 |
32.
Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（ ）
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（ ）
| A．2 | B．120 | C．30 | D．60 |
33.
Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（ ）
For i =" 1" To 6
S =" S" + (-1) ^ i *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（ ）
| A．126 | B．-126 | C．-42 | D．42 |
34.
下列对程序解决问题的过程描述中，哪个是正确的（ ）
| A．编写程序 设计算法 分析问题 调试运行与检测结果 |
| B．设计算法 分析问题 编写程序 调试运行与检测结果 |
| C．设计算法 分析问题 调试运行与检测结果 编写程序 |
| D．分析问题 设计算法 编写程序 调试运行与检测结果 |
38.
有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
| A．1 | B．4 | C．5 | D．6 |
39.
理论上，Fix((Timer() Mod 60)*Rnd()+Asc(“F”)- Asc(“A”))的最小值和最大值分别是：（ ）
| A．0,60 | B．5,63 | C．5,64 | D．5,65 |
40.
以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）
| A．穷举法、公式法 | B．循环法、递归法 |
| C．查找法、函数法 | D．枚举法、解析法 |
41.
有如下visual basic程序：
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（ ）
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（ ）
| A．顺序结构、树型结构 |
| B．顺序、选择结构 |
| C．顺序、选择和循环结构 |
| D．顺序、循环结构 |
42.
下面是一段关于计算变量S的算法，下列能正确描述S的算式是（ ）
①变量S的初值是0，变量T的初值是1，循环变量A的初值为1；
②循环变量A从1循环到100，且步长为2，做第③步中的2个语句；
③ T="-T:" S=S+A*T
④输出变量S的值
①变量S的初值是0，变量T的初值是1，循环变量A的初值为1；
②循环变量A从1循环到100，且步长为2，做第③步中的2个语句；
③ T="-T:" S=S+A*T
④输出变量S的值
| A．1+3+5+7…+100 | B．1+3+5+7…+99 |
| C．1-3+5-7…-99 | D．-1+3-5+7…+99 |
43.
对数组声明语句：Dim a(0 to 3,0 to 4) As Integer，下面说法不正确的是( )
| A．a(1,2)=50000,执行后系统会提示“溢出”错误 |
| B．a数组共有12个下标变量 |
| C．a(1,2)是a数组中的元素 |
| D．若j="1," a(1,0)=3则a(j-1,a(1,0))就是a(0,3) |
44.
Sub test1()
a=320
a1="a\100"
a2=(a-100*a1)\10
a3="(a-100*a1-10*a2)"
B=100*a3+10*a2+a1
MsgBox B、
End sub
该程序的运行结果是 （ ）
a=320
a1="a\100"
a2=(a-100*a1)\10
a3="(a-100*a1-10*a2)"
B=100*a3+10*a2+a1
MsgBox B、
End sub
该程序的运行结果是 （ ）
| A．320 | B．32 | C．230 | D．23 |
45.
Sub test3()双重循环运行 输出图形 与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
| A．33333 | B．55555 | C．12345 | D．54321 |
46.
如果要保持上程序的算法（输出结果）不变，下面说法正确的是( )
| A．这行If x < y Then t =" x:" x =" y:" y = t可去掉； |
| B．这行a =" x:" b = y可去掉，MsgBox (Str(a * b / s))改成MsgBox (Str(x * y / s))就可以了； |
| C．输出结果是a,b的最大公约数； |
| D．上面说法都错； |
47.
Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
| A．64 | B．13 | C．61 | D．62 |
试卷分析
-
【1】题量占比
判断题:(10道)
选择题:(40道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：50