发布时间 : 星期六 文章《计算机程序设计A》复习试题(答案)更新完毕开始阅读
（A）Type Student （B）Type Student
Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End Student （C）Type Student （D）Typedef Student
Name String*10 Name String*10 TelNum Integer TelNum Integer End Type Student End Type
40． 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性值设
置为True，这个属性是（ 【12】 ）
（A）Value （B）Cancel （C）Default （D）Enabled 41． 以下叙述中错误的是
（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 （B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 （C）事件可以由用户引发，也可以由系统引发 （D）Visual Basic应用程序只能以解释方式执行
42． 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表
项内容的是
（A）List1.List （B）List1. Text （C）List1.ListIndex （D）List1.Index
43． 图像框Image有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
（ 【13】 ）
（A）Autosize （B）AutoRedraw （C）Appearance （D）Stretch 44． 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
（A）Load （B）MouseDown （C）MouseUp （D）Click 45． 在窗体上画一个命令按钮，名称为Com1，然后编写如下程序： Private Sub Com1_Click( ) For i=1 to 4 For j=0 to i
Print Chr$(97+j); Next j Print Next i End Sub
则程序运行结果为（ 【14】 ）
（A）ab （B）a （C）aa （D）aa
abc b bb bbb abcd c cc cccc abcde d dd ddddd
46． 设a=100，b=50，c=10，执行语句Print a > b > c后，窗体上显示的是 （A）True （B）False （C）1 （D）出错信息 47． MsgBox函数中用于指定对话框中显示按钮的数目的参数项是（ 【15】 ）
（A）Prompt参数 （B）Buttons参数 （C）Title参数 （D）Default参数 48． 下列各组函数中，功能相似的一组函数是（ 【16】 ）
（A）Str和Val （B）Asc和Chr （C）Int和Fix （D）Lcase和Ucase 49． 如果要改变窗体的标题，则需要设置的属性是
（A）Name （B）Caption （C）BackColor （D）BorderStyle
《计算机程序设计A》期末复习题（答案） 第 5 页 共 35 页
50． 下列Format$函数的说明中错误的是（ 【17】 ）
（A）一个 # 格式符表示一个数字位，# 的个数即为显示区段的长度 （B）“ , ”格式符与“ . ”格式符的作用完全相同
（C）“ $ ”格式符用于在数值前面加上一个$，以表示货币 （D）0 格式符与 # 格式符的功能相似 51． 以下能判断是否到达文件尾的函数是
（A）BOF （B）LOC （C）EOF （D）LOF 52． 执行下列程序段后，变量c的值为（ 【18】 ） a = 123 : b$ = “ 456 ” : c = a + b$
（A）0 （B）123456 （C）579 （D）语句c = a+b$错误
53． 为了在程序中设置命令按钮为不可见，需要把该命令按钮的一个属性值设置为False，这个属
性是（ 【19】 ）
（A）Value （B）Visible （C）Cancel （D）Enabled 54． 下列控件中，不能接收焦点的控件是（ 【20】 ）
（A）Form （B）TextBox （C）CommandBotton （D）Label 55． InputBox函数的返回值类型是（ 【21】 ） （A）数值型 （B）字符串型
（C）变体型 （D）数值或字符串型（视输入的数据而定） 56． 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 （A）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （B）不能把标准模块设置为启动模块
（C）如果工程中含有Sub Main过程，则程序一定首先执行该过程 （D）任何时刻最多只有一个窗体是活动窗体 57． 运行下列程序段后，x的值是（ 【22】 ） x = 8
For i =1 to 5 x = x + x \\ 3 Next
（A）13 （B）22 （C）29 （D）38
58． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click( ) m = 6789
c = Trim(Str(m)) For i = 1 To 4
Print （ 【23】 ） Next End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容： 6 67 678 6789
则在【23】处应该填入的内容为
（A）Left(c,i) （B）Right(c,i) （C）Mid(c,i,i) （D）Mid(c,i,1) 59． 在窗体上画一个命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( )
《计算机程序设计A》期末复习题（答案） 第 6 页 共 35 页
a=Val ( InputBox ( “ 请输入a的值 ” )) b=Val ( InputBox ( “ 请输入b的值 ” )) c=Val ( InputBox ( “ 请输入c的值 ” )) If a > b Then t = a : a = b : b = t If a > c Then t = a : a = c : c = t If b > c Then t = b : b = c : c = t Print a , b , c End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入10、5、20，则输入结果为（ 【23】 ） （A）20 10 5 （B）5 10 20 （C）10 5 20 （D）20 5 10 60． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click() X=-4
If Sgn(X) Then Y=Sgn(X^2) Else
Y=Sgn(x) End If Print Y End Sub
程序运行后，单击命令按钮，窗体上显示的是（ 【4】 ）
（A）1 （B）-1 （C）-4 （D）16 61． 下列不能打开代码窗口的操作是（ 【24】 ） （A）单击窗体的任何地方 （B）双击窗体的任何地方
（C）单击工程窗口中的“查看代码”按钮
（D）单击“视图”下拉菜单中的“代码窗口”选项
62． 在立即窗口中输出变量a的值，正确的语句是（ 【25】 ）
（A）Debug a （B）Debug.Print a （C）Print.Debug a （D）Print a
63． 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前
驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，此事件过程是（ 【26】 ）
（A）Drive1_Change （B）Drive1_Click （C）Dir1_Click （D）Dir1_Change 64． 窗体的MouseUp事件过程
Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) 有4个参数，关于这些参数，正确的描述是
（A）通过Button参数判定当前按下的是哪一个鼠标键 （B）Shift参数只能用来确定是否按下Shift键
（C）Shift参数只能用来确定是否按下Alt和Ctrl键 （D）参数x,y用来设置鼠标当前位置的坐标
65． InputBox函数有6个参数，其中不能省略的参数项是（ 【26】 ）
（A）Default参数 （B）Title参数 （C）Xpos，Ypos参数 （D）Prompt参数 66． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Option Base 1
Private Sub Command1_Click()
《计算机程序设计A》期末复习题（答案） 第 7 页 共 35 页
Dim a s=0
a=Array(1,2,3,4) j=1
For i=4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s
End Sub
（A）34 （B）12 （C）1234 （D）4321 67． 不能从一个已知字符串中得到一个子字符串的函数是（ 【27】 ） （A）Trim （B）Right （C）Mid （D）Left 68． 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 （A）Combo1.RemoveItem Text
（B）Combo1.RemoveItem Combo1.Listcount （C）Combo1.RemoveItem 2 （D）Combo1.RemoveItem 3
69． 表达式17 \\ 2 *10 Mod 3的值是（ 【28】 ）
（A）0 （B）1 （C）2 （D）3 70． 如果在立即窗口中执行以下操作：
a = “ abc ”
（A）-1 （B）0 （C）False （D）True
71． 在窗体上画一个名称为Text1的文本框，要求文本框只能接收小写字母的输入。以下能实现
该操作的事件过程是（ 【29】 ）
（A）Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 97 Or KeyAscii > 122 Then MsgBox “请重新输入小写字母” KeyAscii = 0 End If End Sub
（B）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _
X as Integer,Y as Integer)
If KeyCode < 97 Or KeyCode > 122 Then MsgBox “请重新输入小写字母” KeyCode = 0 End If End Sub
（C）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _
X as Integer,Y as Integer)
If Asc(Text1.Text) < 97 Or Asc(Text1.Text) > 122 Then MsgBox “请重新输入小写字母” End If
《计算机程序设计A》期末复习题（答案） 第 8 页 共 35 页