11[简答题]在考生文件夹下有一个工程文件sit3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Textl中显示“我开汽车去”，如图所示。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
参考解析：
【考点分析】本题考点有：单选按钮数组的Name、Caption和Index属性，文本框的Name属性，SelectCase选择语句，“+”字符连接。
【解题思路】通过Name属性设置对象名称;通过Caption属性设置对象的标题;设置两个字符型变量a、b，a："我坐"，b="我开"，用于SelectCase选择语句的字符串连接;通过对单选按钮数组Index属性的查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立单选按钮数组，如图3.9所示。
步骤2：按照题目要求建立其他控件并设置其属性，见表3.4。
步骤3：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Private Sub Op1_click (Index As Integer)
Dima As String，b As String，C As String
a="我坐"
b="我开"
Select Case____Index______
´通过Index值决定响应哪一个控件数组
CaSe O
Text1.Text=a+Me.Op1(O).Caption+"去"
CaSe 1
Text1.Text=____a______+Me.Opl(1).Caption+"去"
´当Index值为1时，选择"我坐"
CaSe 2
Text1.Text=b+Me.Op1(2).Caption+"去"
End Select
EndSub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在窗体上复制一个控件时，如果需要创建控件数组，则在提示框中单击“是”即可，如果不需要，则直接单击“否”。
12[单选题] 下面不是键盘事件的是( )。
A.KeyDownB.KeyUpC.KeyPress D.KeyCode
参考答案：D
参考解析：KeyCede是KeyD0Ⅷ、K叮t’髓事件f参数，不是键盘事件，它返回的是按键相应的^盥卫字符代碉故选项D错误。
13[单选题]假定有如下情况语句：
SelectCaseX
能表示fxf>5的Case子句是
A.CaseNot(-5To5)B.Case5To-5C.CaseIs5D.CaseAbs(X)>5
参考答案：C
参考解析：在Select判断语句中，如果是判断区间变量值，可以用”表达式T0表达式”的形式;如果不是判断区间变量值，则关系运算表达式前面要加上Is。|x|>5的VB表达式为X5，故本题答案为选项C.。
14[单选题] 三角形的构成条件是：任意2边之和大于第3边。设变量a.b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。
下面有3个程序段可以正确判断，另一个不能正确判断的是
参考答案：B
参考解析：三角形构成的条件必须满足任意2边之和大于第3边，即a，b，c任意两个的和必须大于第三个。A.满足。B.中的0r是或，条件不满足。C.和D.可以通过判断，均能进行正确判断。选B.。
15[单选题] 在窗体上画一个文本框(名称为Textl)和一个标签(名称为IJabdl)，程序运行后，在文本框中每输入一个字符.都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
A.Private Sub Textl_Change( )
Labell.Caption=Str(Len(Textl.Text))End Sllb
B.Private Sub Textl—Click( )
Labell.Caption=Str(Len(Textl.Text))End Sub
C.Private Sub Textl_Change( )Labell.Caption=Textl.TextEnd Sub
D.Private Sub I_abell_Change( )
Labell.Caption=Str(Len(Textl.Text))End Sub
参考答案：A
参考解析：根据题意可知，在文本框中输入字符这个动作使标签上显示的内容发生变化，说明是文本框触发了某事件，排除D选项;文本框中每输入一个字符，标签中立即就会发生变化，故是Change事件，排除B选项;标签中显示的是文本框中字符的个数，不是输入的内容，排除C选项。故A选项正确。
16[单选题] 下列循环中，可以正常结束的是
参考答案：B
参考解析：选项A中先执行一次循环体，i的值变成1，测试循环结束条件，i<1不成立，循环继续，i值总是增加，达不到循环结束条件，不能正常结束。选项8先执行循环体，i值加1变成2，再测试循环结束条件i=10，继续循环，i值再加1，直到i变为10，循环结束。选项C中i初值为10，先执行一次循环体，使i加1，然后判断继续循环的条件i>1是否成立，此后i值不会小于等于1，循环会一直继续下去，不会正常结束。选项D中i初值为10，每次循环i值减2，因此它总是偶数，而循环结束的条件是i=1，不可能达到，循环会一直继续下去。
17[单选题] 在设计阶段，假定在图片框Picturel中装入了一个图形，为了删除该图片框控件，应采用的正确操作是
参考答案：A
参考解析：删除图片框控件，先选择图片框，然后按Del键。
18[单选题] 通用对话框Filter属性的作用是
A.设置对话框的标题
B.指定对话框所选择的文件名
C.指定对话框的打开方式
D.指定对话框中显示的文件类型
参考答案：D
参考解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的DialogTifle属性用于返回或设置该对话框标题栏上所显示的文本;Action属性用于设置被打开对话框的类型;当通用对话框显示为“打开”或“另存为”类型时，其FileName属性用于返回或设置所选文件的路径和文件名，Fiber(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。
19[单选题] 设在工程文件中有一个标准模块，其中定义了如下记录类型：
在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl—Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。
A.
B.
C.
D.
参考答案：A
参考解析：数据文件的写操作分为3步，即打开文件、写入文件和关闭文件。
首先，在顺序文件中打开文件写入数据的打开方式为：Open文件名For Output As#文件号。因此8、c选项排除，只}看A、D选项。
写入顺序文件Prlm#语句格式为：Print#文件号，变量名，’变量名…，Write语句的的格式与Print语句一样：Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明}记录变量中的成员名，格式为;记录变量名.成员名，Books类型变量B成员Name和TelNum赋值和引用应该是8.Name、B.TelNum，因此A选项正确。
20[简答题]在考生文件夹下有一个工程文件sjt3.vbp，含有两个窗体，名称分别为Forml、Form2。其中Forml E有两个控件(图像框和计时器)和一个菜单项“操作”，含有三个子菜单(如图l所示)。Form2匕有一个名称为Commandl、标题为“返回”的命令按钮(如图2所示)。要求当单击“窗体2”菜单命令时，Forml隐藏，Form2导委。.单考‘动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新开始移动。单击“退出”菜单命令时，结束程序运行。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
参考解析：
在计时器的Timer事件过程中，通过设置标签的Left属性值在原有基础上加l00来实现自左向右移动的功能。在“动画”菜单项的单击事件过程中应启动计时器，使小汽车开始移动，通过图像框的Left、Width属性和窗体的Width属性判断，小汽车是否移到窗口的右边界，如果是，则设置Pieturel的Left属性为0，自动跳到窗体的左边界重新移动。在“窗体2”菜单项的单击事件过程中，通过窗体的Hide、Show方法，隐藏Forml，显示Form2。在“退出”菜单项的单击事件过程中，通过End语句退出程序。
【操作步骤】
步骤l：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码
窗体l‘的代码
Private Sub mnuOper_Cliek(Index As Integer)'Select Case?
Case l
Form2.ShowForml.HideCase 2
Timerl.Enabled=?
Case 3EndEnd SelectEnd Sub
Private Sub Timerl_Timer()
Pieturel.Left=Pieturel.Left+100
If Picturel.Left+Pieturel.Width>=’Then
Pieturel.Left=?End IfEnd Sub
窗体2的代码
Private Sub Commandl—Click()Forml.Show
Fomn2.HideEnd Sub
程序结束参考答案第1个?处填入：Index
第2个?处填入：True第3个?处填入：Forml.Width
第4个?处填人：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
相关推荐：
扫一扫
630
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
