浙教版 高中信息技术 选修1 第四章 VB程序设计初级章末习题（困难程度）（含解析）

选修一第四章VB程序设计初级章末习题（困难程度）
一、选择题（本大题共14小题）
下面的 VB 程序运行后，i 的值为 5 的是（）。
A. B.
C. D.
有如下VB程序段：
s =""
For i = 1 To Len(Text1. Text)
? ch = Mid(Text1. Text, i, 1)
? If ch >= "a" And ch <= "z" Then
??? n = (Asc(ch) - Asc("a") + 4) Mod 26
??? s = s + Chr(Asc("a") + n)
? ElseIf ch >= "A" And ch <= "Z" Then
??? n = (Asc(ch) - Asc("A") + 4) Mod 26
??? s = s + Chr(Asc("A") + n)
? Else
??? s = s + ch
? End If
Next i
Text2. Text = s
文本框Text1的内容为“Python3.5”。执行程序后，文本框Text2中显示的内容是（）
A. tcxlsr B. Tcxlsr C. tcxlsr3.5 D. Tcxlsr3.5
某vb程序段如下，
S=”26170534” : n=len(s) :y= “”
For i=1 to n
?? arry(i)=mid(s,i,1)
Next i
For i=1 to n
? k=i
For j=i to n step 2
??? If arry (j)< arry (k) then? k=j
Next j
If k<>i then t= arry (k):a(k)= arry (i): arry (i)=t
y=y& arry (i)
Next i
Label1.caption=y
该程序运行后，标签中显示的内容是（）
A. 0123 B. 4567 C. 01234567 D. 04152637
下列赋值语句，语法错误的是
A. text1.text="vb语言" B. a+b=y
C. y=a+b D. i=i+1
在文本框中输出下列VB表达式的结果，其中结果显示为3的有
①7 mod—4； ?
②Abs(int(—4．8))—2；
③Mid(“apple123”，7，1)+“1”；?
④sqr(9)
A. ①②③ B. ①②④ C. ①③④ D. ②③④
某个VB应用程序中使用如下代码读取数据库中的信息:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n as Integer
Private Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;data source =" + App.Path + "\data\qizhong.accdb"??? ‘此行与上一行为同一行，因印刷排版限制而换行
conn.Open
sql = "select * from chengji"
Set rs.ActiveConnection = conn
rs.Open sql
n=1
Do while Not rs.EOF
?? ?List1.AddItem rs("姓名") + rs("技术")
?? ?rs.MoveNext
n=n+1
Loop
End Sub
运行上述程序，以下说法不正确的是（???? ）
A. 当前读取的数据库文件是Data文件夹中的qizhong.accdb文件
B. 数据库中存在一个名为student的数据表
C. List1列表框中将显示指定的数据表中所有记录的 "姓名" + ”技术”字段的值
D. 窗体加载完成后，读取的数据表中总记录数为n-1
阅读VB代码，此段代码能实现的功能是__________。
i=101
c=0
do while i<=997
??? if? (i+(i+2)) mod 7=0 then
?????? c=c+1
??? end if
i=i+2
loop
print c
A. ? 求100—999之间的两个连续偶数之和能被7整除的偶数对之和
B. ? 求100—999之间的两个连续偶数之和能被7整除的偶数对的个数
C. ? 求100—999之间的两个连续奇数之和能被7整除的奇数对之和
D. ? 求100—999之间的两个连续奇数之和能被7整除的奇数对的个数
某对分查找算法的VB程序段如下：（）
i = 1: j = 7
key = Int(Rnd() * 100)
Do While i <= j
??? m = (i + j) \ 2
??? If a(m) = Key Then
??????? Exit Do
??? ElseIf a(m) > Key Then
??????? j = m - 1
??? Else
??????? i = m + 1
??? End If
Loop
数组元素a(1)到a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是
A. j-i=0 B. i-j=2 C. i=8 D. m<=7
有如下VB程序段：
Private Sub Commandl_Click()
Dim i As Integer, s As Integer
s=0
For i = 1 To 3 step 2
? s = s + f(i)
Next i
Text1.Text = Str(s)
End Sub
Function f(n As Integer) As Integer
? If n = 1 Then
??? f=2
? Else
??? f = f (n - 1) + n
? End If
End Function
执行该程序段后s的值为（）
A. 2 B. 7 C. 9 D. 13
有如下VB程序段：
Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 3 To 30 Step 3
i = i + 3
s = s + i
Next i
Text1.Text = Str(s)
End Sub
程序执行后，Text1中显示的内容是
A. 60 B. 90 C. 126 D. 165
某查找算法的VB程序段如下：
k = Val(Text1.Text)
i = 1 : j = 8 : Label1.Caption = "" : f = False
Do While i <= j And Not f
?? m = Int((i + j) / 2 + 0.5)
?? If a(m) = k Then f = True
?? If a(m) > a(i) Then
???? If a(i) <= k And k < a(m) Then j = m - 1 Else i = m + 1
?? Else
???? If a(m) < k And k <= a(j) Then i = m + 1 Else j = m - 1
?? End If
?? Label1.Caption = Label1.Caption + Str(a(m))
Loop
数组元素a(1)到a(8)的值依次为“58 , 66 , 18 , 24 , 35 , 40 , 45 , 47”在文本框Text1中输入的值为66 ,执行该程序段，标签Label1中显示的值是（??? ）
A. 24 ?66 B. 35 ?18 24 C. 24 ?40 ?66 D. 35 ?18? 66
如图所示，为学校部分网络的拓扑结构，若IP地址为172.17.1.2的机房文件服务器突然发生断电故障，则以下学生在机房使用电脑的操作受影响有_________。

①在浏览器中阅读资料进行学习
②把做好的VB文件上传到该机房文件服务器172.17.1.2
③在浏览器中输入ftp：//172.16.1.1，对该服务器上的资源进行下载
④使用Ping命令测试PC1与PC2的连通实验
A. 1个 B. 2个 C. 3个 D. 4个
有如下 VB 程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（??? ）
A. 52，95，46，74，77，83 B. 50，55，46，70，21，97
C. 62，78，57，61，69，50 D. 31，54，48，72，50，82
有如下VB程序段：
a(1) = 6: a(2) = 9:a(3) = 3: a(4) = 7: a(5) = 8: a(6) = 1
t = 2 * Int(Rnd * 3) + 1
For i = t To 5
k = i
For j = i + 1To 6
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp
End If
Next i
执行该程序段后，a(1)~a(6)各元素的值不可能是（??? ）
A. 6，1，3，7，8，9 B. 6，9，1，3，7，8
C. 6，9，3，7，1，8 D. 1，3，6，7，8，9
二、非选择题（本大题共9小题）
小张用VB编写如下的整数提取VB程序，具体功能如下：在文本框Text1中输入字符串，单击“确定”按钮，程序将从中取出最大的整数，并显示在文本框Text2中。运行界面如下图所示。

（1）“确定”按钮的对象名为_____________。
（ 2）实现上述功能的 VB 代码如下，请在划线处填入合适代码。

（3）根据上述程序，在文本框 Text1 中输入:“1918-2018 百年老店 Happy Birthday!”，单击“确定”按钮，在文本框 Text2 中显示的内容是?___________。
对于任意给定的数值X，四舍五入后保留至小数点后的第二位，VB表达式式为??????????
VB操作题??? 鸡兔同笼。有若干只鸡和兔关在同一个笼子里，从上面数，有60个头；从下面数，有200只脚。请问笼中有几只鸡和兔？王鹏想设计一个VB应用程序来解决问题，通过输入头和脚的个数，求出鸡兔的数量。运行界面如下图所示。

请完成以下题目：
（1）计算机的基本功能是：?????? ②????? （填字母）
A.计算
B.图像处理
C.音频处理
D.视频处理
（2）用VB进行程序设计时，一般需经历的阶段：A.运行调试程序；B.应用程序界面设计；C.代码编写。正确的顺序是：?????? ②????? （填字母）???
（3）图窗体中共有几个对象 ???_? ③_（填： 3 / 4 / 5 / 6）。
（4）图中标注A处的对象类型可能为标签类对象？ ???④ ?????（填：对 / 错）。
（5）标注B处 Command1对象属性肯定被修改过的是_____⑤__（填：Caption / Font）
（6）在窗体中，创建文本框类对象（text1）时应选择工具箱中的______⑥ _____(填字母: A / B / C / D)
A.
B.
C.
D.
用VB程序设计语言表达数学表达式：，写为_______________。
?【程序设计】 “回文”是指正读反读都能读通的句子，它是古今中外都有的一种修辞方式和文字游戏，如“我为人人，人人为我”等。在数学中，具有这样的特征的数字，称为回文数（palindrome number）。例如：123321为回文数，且为奇数回文数；234432为回文数，且为偶数回文数。
请完成如下VB程序的填写，实现判断一个四位数是否为奇偶回文数的功能。
Private Sub Command1_Click()
??? Dim x As Integer, z1 As Integer, z2 As Integer, z3 As Integer, z4 As Integer
??? x = Val(Text1.Text)???
??? z1 = x Mod 10
z2 = x \ 10 Mod 10
??(1)????
??(2)????
??? If ??(3)???Then
??????? If ??(4)??Then
??????????? Text2.Text = "是偶数回文数！"
??????? Else
????????? ??Text2.Text = "是奇数回文数！"
? ??(5)??
? ??(6)??
??????? Text2.Text = "不是回文数！"
??? End If
End Sub
_____________
_____________
_____________
_____________
_____________
_____________
对于一组升序不重复的正整数，在任意数字位置分成两段，并交换前后两段的位置，存入数组a。例如6、17、25、36、44、58，在数字6处分成两段，交换位置后为：
a（1）
a（2）
a（3）
a（4）
a（5）
a（6）
6
17
25
36
44
58
在数字44处分成两段，交换位置后为：
a（1）
a（2）
a（3）
a（4）
a（5）
a（6）
44
58
6
17
25
36
依据对分查找思想，设计一个在数组a中查找最小值，并输出在Text1中的程序，实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n ＝ 6
Dim a（1 To n） As Integer
Dim i As Integer，j As Integer，m As Integer
’读取数据，按上述规则存入数组a中，代码略
i ＝ 1︰j ＝ n
If?Then Text1．Text＝Str（a（i））??? ’（1）
Do While i ＜＝ j
? m ＝（ i ＋ j）＼ 2
? If a（m）＜a（j） Then
???????’（2）
? Else
?? ?i ＝ m ＋ 1
? End If
?Loop
?Text1．Text ＝ a（j）
End Sub
阅读VB程序代码，如果执行时依次输入8和15，则输出m的结果是__________。
center0
小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串 s 进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串 s 第 23 个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串 s 的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如图 a 所示。
? ? ? 小王编写的“模拟撤销”VB 程序如下，文本框 Text1 中的内容是撤销前字符串，文本框 Text2 中的内容是历史记录，单击“撤销”按钮 Command1 后，在标签 Label1 中显示撤销过程，程序运行界面如图b 所示。
（1）实观上述功能的 VB 程序如下，在程序中出现的对象没有 Caption 属性的是_____。（单选，填字母：A.Label1 / B.Command1 / C.Text1 和 Text2）
（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
________①________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + c + ________②________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss= ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框 Text1 中的内容是"April"，文本框 Text2 中的内容是”－3p+3ri－6e”，单击撤销按钮，For 循环语句执行完成后，字符串 s 的值是_____________________。
下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以11的余数即为编号（其中若余数为0，编号为11），编号与字符对照表如下：
编号
1
2
3
4
5
6
7
8
9
10
11
字符
V
i
s
u
a
l
B
A
S
I
C
从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：
数字
2
0
1
8
位置
1
2
3
4
编号
3
2
4
1
加密字符
s
i
u
V
小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1，将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如第图a所示。
（1）在设计程序界面时，应使用第图b所示“控件工具箱”中的(填写相应编号)添加“解密”按钮Command1。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_ Click()
Dim s As String，s1 As String，s2 As String，ch As String，num As Integer
s＝"Visual BASIC"
s1＝Text1. Text
s2＝"":ch＝""
i＝1
??? Do While_________①_________
???? ch＝Mid(s1，i，1)
??? For j＝1 To Len(s)
??? If ch＝Mid(s，j，1)Then Exit For? Exit For退出For循环
Next j
_________②_________
??? s2＝s2+CStr (num)?????? ?Cstr(x)在返回的字串前不加空格
??? i＝i+1
??? Loop
??? Text2. Text＝s2
??? EndSub
（3）若密文是“Bus”，则明文是__________________。
答案和解析
1.【答案】D
阅读程序，分析得出：
A选项中程序运行后，i 的值为4，故A不符合题意；
B选项中程序运行后，i 的值为6，故B不符合题意；
C选项中程序运行后，i 的值为6，故C不符合题意；
D选项中程序运行后，i 的值为5，故D符合题意。
?故选D。
2.【答案】D
文本框Text1的内容为“Python3.5”,
执行程序后，
对原字符的asscal码转换，
文本框Text2中显示的内容是“Tcxlsr3.5 ”
?故选D.
3.【答案】D
本题考查选择排序算法，要掌握各种排序算法的核心思想。
选择排序：第一次从下标为0的开始下标为0的这个数与后面的n-1个进行比较；找出最小或者最大的放在下标为0的这个位置；第二次从下标为1的开始比较；查询剩下的最大或者最小值；放在?下标为1的位置；以此类推；直到排序完成。
【解答】
本题是选择排序的变形，步长为2，数组ch元素的值依次是：2，6，1，7，0，5，3，4；
I=1时，从ch（1）、ch（3）、ch（5）、ch（7）找最小值和ch（1）交换；
I=2时，从ch（2）、ch（4）、ch（6）、ch（8）找最小值和ch（2）交换；
I=3时，从ch（3）、ch（5）、ch（7）找最小值和ch（3）交换…最终数组ch的元素依次为：0，4，1，5，2，6，3，7。
故选D。
4.【答案】B
解:B:将a+b赋值给y的代码为y=a+b，故错误，
?故选B.
5.【答案】B
【分析】本题考查的是VB的表达式的运算，难度不大。熟悉VB中的各种函数即可正确解答。
?【解答】①7 mod—4运算结果是3；
②Abs(int(—4．8))—2运算结果是3；
③Mid(“apple123”，7，1)+“1”运算结果是2+“1”；
④sqr(9)运算结果是3；
故①②④符合题意。
?故选B。
6.【答案】B
本题考查的是VB读取数据库文件的操作，属于一般题。
【解答】
A.从代码中可以看出：当前读取的数据库文件是Data文件夹中的qizhong.accdb文件，故A说法正确；
B.从代码中可以看出：数据库中存在一个名为?chengji的数据表，故B说法错误，但符合题意；
C.从代码中可以看出：List1列表框中将显示指定的数据表中所有记录的 "姓名" + ”技术”字段的值，故 C说法正确；
D.从代码中可以看出：窗体加载完成后，读取的数据表中总记录数为n-1，故D说法正确。
故选B。
7.【答案】D
【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
阅读程序，分析得出，该段代码能实现的功能是：求100—999之间的两个连续奇数之和能被7整除的奇数对的个数，故 D正确。
故选D .
8.【答案】B
本题考查二分查找算法以及程序的阅读能力。二分查找又称折半查找，优点是比较次数少，查找速度快，平均性能好；其缺点是要求待查表为有序表，且插入删除困难；因此，折半查找方法适用于不经常变动而查找频繁的有序列表；首先，假设表中元素是按升序排列，将表中间位置记录的关键字与查找关键字比较，如果两者相等，则查找成功；否则利用中间位置记录将表分成前、后两个子表，如果中间位置记录的关键字大于查找关键字，则进一步查找前一子表，否则进一步查找后一子表；重复以上过程，直到找到满足条件的记录，使查找成功，或直到子表不存在为止，此时查找不成功。
【解答】
数组元素a(1)到a(7)的值依次为“25,42,53,66,77,83, 98”，运行上述程序段后，运行上述程序段后，下列条件表达式肯定不成立的是i-j=2，故B符合题意。
故选B。
9.【答案】C
本题主要考查VB程序设计的问题，本部分内容与其它选修课程相比较难。
【解答】
由语句“If n ＝ 1 Thenf ＝ 2Elsef 　＝ f(n － 1) ＋ n”得出，f(1)、f(2)、f(3)的值分别为：2、4、7，执行两次语句“For i ＝ 1 To 3 Step 2s ＝ s ＋ f(i)”后，s 的值应为：2+7=9，故C正确。故选C。
10.【答案】B【解析】略
11.【答案】D
本题考查DO While循环语句，使用DO While语句要注意循环条件的判断以及各变量的变化情况。程序中使用DO While循环语句实现对分查找算法，查找的条件是元素个位数和十位数之和和key的关系；DO While循环语句的一般格式：DO While（条件）循环体LOOP
【解答】
数组元素a(1)到a(8)的值依次为“58 , 66 , 18 , 24 , 35 , 40 , 45 , 47”在文本框Text1中输入的值为66 ,执行该程序段，标签Label1中显示的值是35 、18 、66，故D正确。
?故选D。
12.【答案】A
【解析】分析】
本题考查的内容为计算机网络方面的知识。了解计算机网络的主要功能，分类和拓扑结构，知道网络服务器的主要作用与基本原理。
【解答】
?由机房网络拓扑图，机房交换机发生故障，凡是连接到交换机上的设备都无法获取上一级交换机上的数据，学生机和机房文件服务器都通过机房交换机连接上一级网络中心服务器上，故当机房交换机发生断电故障，①①③均不能实现，只有④可以实现，故学生在机房使用电脑的操作受影响有3个，故A正确。
?故选A。
13.【答案】C
【解析】
【分析】
本题考查的是VB程序的运行与调试，难度不大。
从此段程序可以看出，flag=True i=1，
如果i <= 6，后面执行，
x为1-101中的随机整数，
如果 flag为ture 或者 x>50，继续执行，
i=i+1
结果如果
循环。
【解答】
A.i=1，a（1）=52>50，flag=true，继续执行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=95>50，falg=false，继续执行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=46<50，flag=true，继续执行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=74>50，falg=false，继续执行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=77>50，flag=true，继续执行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=83>50，falg=false，继续执行，flag=Not flag=True，i=i+1=7；
故A各元素值可能，但不符合题意；
B.i=1，a（1）=50=50，flag=true，继续执行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=55>50，falg=false，继续执行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=46<50，flag=true，继续执行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=70>50，falg=false，继续执行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=21<50，flag=true，继续执行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=97>50，falg=false，继续执行，flag=Not flag=True，i=i+1=7；
故B各元素值可能，但不符合题意；
C.i=1，a（1）=62>50，flag=true，继续执行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=78>50，falg=false，继续执行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=57>50，flag=true，继续执行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=61>50，falg=false，继续执行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=69>50，flag=true，继续执行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=50=50，falg=false，不能继续执行，跳出；
故C中a（6）不可能，但符合题意；
D.i=1，a（1）=31<50，flag=true，继续执行，flag=Not flag=False，i=i+1=2；
i=2，a（2）=54>50，falg=false，继续执行，flag=Not flag=True，i=i+1=3；
i=3，a（3）=48<50，flag=true，继续执行，flag=Not flag=False，i=i+1=4；
i=4，a（4）=72>50，falg=false，继续执行，flag=Not flag=True，i=i+1=5；
i=5，a（5）=50=50，flag=true，继续执行，flag=Not flag=False，i=i+1=6；
i=6，a（4）=82>50，falg=false，继续执行，flag=Not flag=True，i=i+1=7；
故D各元素值可能，但不符合题意。
故选C。
14.【答案】A
根据题意，原数组的数值为：a(1) = 6: a(2) = 9:a(3) = 3: a(4) = 7: a(5) = 8: a(6) = 1，变量t的范围为：【1,6】，然后分析程序，将通过For循环语句，对数组a进行排序，当?k <> i时，a(i) 与a(k)进行交换，最终得出结论BCD正确，A错误。
?故选A。
15.【答案】（1）comm；（2）①t+c；② ?max< val(t)；（3）2018
本题考查VB代码的阅读与填空，是对该软件的一个综合运用，难度较大。
【解答】
（1）“确定”按钮的对象名为comm；
（2）根据此段程序实现的功能：在文本框Text1中输入字符串，单击“确定”按钮，程序将从中取出最大的整数，并显示在文本框Text2中；
阅读程序，分析得出：①处应填t+c；?②处应填 max< val(t)；
（3）根据上述程序，在文本框 Text1 中输入:“1918-2018 百年老店 Happy Birthday!”，单击“确定”按钮，在文本框 Text2 中显示的内容是2018.
故答案为：?（1）comm；（2）①t+c；?②?max< val(t)；（3）2018。
16.【答案】int(x*100+0.5)/100?
本题主要考查VB表达式的相关知识，难度较易。
【解答】
对于任意给定的数值X，四舍五入后保留至小数点后的第二位，VB表达式式为int(x*100+0.5)/100。
故答案为：?int(x*100+0.5)/100 。
17.【答案】（1）A；
（2）BCA；
（3）6；
（4）对；
（5）Caption；
（6）A
本题考查的是VB程序的基础知识，难度不大。
【解答】
（1）计算机的基本功能是计算，故选A；
（2）用VB进行程序设计时，一般需经历的阶段：B.应用程序界面设计；C.代码编写；A.运行高度程序；
（3）图中共有6个对象；
（4）图中A处为标签对象，故是对的；
（5）标注B处 Command1对象属性被修改过的是：Caption；
（6）在窗体中，创建文本框类对象（text1）时应选择工具箱中的A。
故答案为：（1）A；（2）BCA；（3）6；（4）对；（5）Caption；（6）A。
18.【答案】?(-b+sqr(b^2-4*a*c))/(2*a)
本题考查的是VB语言中的表达式，熟悉函数和表达式的写法即可正确解答。
【解答】
数学表达式转换为VB语言中的表达式为(-b+sqr(b^2-4*a*c))/(2*a)。
故答案为：(-b+sqr(b^2-4*a*c))/(2*a)。
19.【答案】【小题1】Z3=x\100 mod 10
【小题2】?Z4=x\1000
【小题3】?Z1=Z4 and Z2=Z3
【小题4】?Z1 mod 2 = 0
【小题5】?end if?
【小题6】?else
【解析】
1.
【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入Z3=x\100 mod 10。
故答案为：Z3=x\100 mod 10。
2.【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入Z4=x\1000。
故答案为：Z4=x\1000。
3.?【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入Z1=Z4 and Z2=Z3。
故答案为：Z1=Z4 and Z2=Z3。
4.??【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入Z1 mod 2 = 0。
故答案为：Z1 mod 2 = 0。
5.???【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入end if?。
故答案为：end if?。
6.???【分析】
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
根据题意，分析可知，该程序实现了判断一个四位数是否为奇偶回文数的功能，结合程序上下段，此处应填入else?。
故答案为：else?。?
20.【答案】（1）a(i) < a(j) 或 a(i) < a(n) 或 a(1) < a(n) 或 a(1) < a(j)；
（2） j = m
本题考查VB代码的阅读与改错，是对该软件的一个综合运用，难度较难。
【解答】
（1）根据对分查找思想，在数组a中查找最小值，并输出在Text1中，故If语句后面的条件应改为：a(i) < a(j)；
（2）阅读整段程序，分析得出，此处应改为?j = m。
故答案为：?（1）a(i) < a(j) 或 a(i) < a(n) 或 a(1) < a(n) 或 a(1) < a(j)；（2） j = m
21.【答案】23
本题主要考查的是VB程序的相关知识，熟悉VB程序的代码是解题的关键。
【解答】
分析程序，m=8，n=15，
因为8 mod 5 =Int（15/5）=3，
故执行m=m+n=8+15=23，
故答案为23.
22.【答案】（1）C；
（2）①ch=mid(t,i,1)；
②mid(s,n,len(s)-n+1)；
（3）Apple
本题考查的是VB编程的应用，难度不大。
【解答】
（1）实观上述功能的 VB 程序如下，在程序中出现的对象没有 Caption 属性的是Text1 和 Text2，故选C；
（2）分析前后语句①处应填：ch=mid(t,i,1)；
②处应填mid(s,n,len(s)-n+1)；
（3）运行该程序，若文本框 Text1 中的内容是"April"，文本框 Text2 中的内容是”－3p+3ri－6e”，单击撤销按钮，For 循环语句执行完成后，字符串 s 的值是Apple。
故答案为：（1）C；（2）①ch=mid(t,i,1)；②mid(s,n,len(s)-n+1)；（3）Apple。
23.【答案】?（1）③；
（2）①处代码为：i<=Len(s1)或i<=Len(Text1.Text)；
②处代码为：num=(j-i+11) mod 11；
（3）“620”或620
【解析】
【分析】
本题考查的是VB语言的应用。
【解答】
（1）在设计程序界面时，应使用第图b所示“控件工具箱”中的③添加“解密”按钮Command1；
（2）①处变量s1存放明文，即从文本框Text1中获取的数字，然后通过循环对明文中的数字逐个加密，当i<=Len(Text1.Text)进入循环，即此处为i<=Len(Text1.Text)；
②处是对编号进行除11取余计算，即num=(j-i+11) mod 11；
（3）根据加密算法，若密文是“Bus”，则明文是620。
故答案为：?（1）③；（2）①处代码为：i<=Len(s1)或i<=Len(Text1.Text)；②处代码为：num=(j-i+11) mod 11；（3）“620”或620。