www.examda.com 考试大
（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是
A）Private Sub Form _Click（） PopupMenu cut End Sub
B）Private Sub Command l Click（） PopupMenu edit End Sub
C）Private Sub Form_ Click（） PopupMenu edit End Sub End Sub
D）Private Sub Form_lick（） PopupMenu cut PopupMenu paste
（33）请阅读程序： Option Base I
Private Sub Form_ Click（） Dim Arr（4, 4）As Integer For i=1 To 4 For j=I To 4
Arr（i, j）=（i - 1）*2＋j Next j Next i
For i=3To4 For j=3 To 4 Print Arr（j, i）; Next j Print Next i End Sub
程序运行后，单击窗体，则输出结果是
www.examda.com 考试大
A）5 7 B）6 8 C）7 9 D）8 10 6 8 7 9 8 10 8 11
（34）一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= \ch= \则函数的返回值为：\
Function delchar（str As String, ch As String）As String Dim k As Integer, temp As String, ret As String ret=\
For k=1 To Len（str） temp=Mid（str, k, 1） If temp= ch Then ret=ret＆temp End If Next k delchar=ret End Function
但实际上函数有错误，需要修改。下面的修改方案中正确的是 A）把ret=ret＆temp改为ret=temp
B）把If temp=ch Then改为If temp＜＞ ch Then C）把delchar=ret改为delchar=temp D）把ret =\改为temp=\
（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Dim S I As String, S2 As String Private Sub Form Load（） Text 1 .Text=\ Text2.Text=\
Text 1．Enabled=False Text2．Enabled=False End Sub
Private Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）
S2=S2＆Chr（KeyCode） End Sub
Private Sub Forin_ KeyPress（KeyAscii As Integer） S1=S1＆Chr（KeyAscii）
www.examda.com 考试大
End Sub
Private Sub Command l Click Text l .Text=Sl Text2.Text=S2 S1=\ S2=\ End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为 A）abc和ABC B）空白
C）ABC和abc D）出错
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。
（1）一个栈的初始状态为空。首先将元素5，4，3，2，1 依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为__【1】__。
（2）在长度为n的线性表中，寻找最大项至少需要比较___【2】___次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有__【3】___个结点。
（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是_【4】__程序。
（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和_【5】_。
（6）窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。
www.examda.com 考试大
\）
Option Base 1
Private Sub Command 1_ Click（ Dim city As Variant
city=_【6】_（\北京\，\天津\，\上海\，\武汉\，\重庆\，\西宁For i=_【7】_To UBound（citv） Combo 1.Addltem_【8】_ Next End Sub
（7）窗体上有一个名称为Text 1的文本框和一个名称为Command l、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command 1 _Click（） Dim x As Integer
x=Val（InputBOX（\输入数据\））
Text 1=Str（fun（x）+fun（x）+fun（x）） End Sub
Private Function fun（ByRef n As Integer） If n Mod 3=0 Then n=n+n Else n=n*n End If
_【9】_=n End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_
相关推荐：
loading