发布时间 : 星期二 文章《计算机程序设计A》复习试题(答案)更新完毕开始阅读
End Sub
（D）Private Sub Text1_Change()
If Asc(Text1.Text) > 96 And Asc(Text1.Text) < 123 Then MsgBox “请重新输入小写字母” End If End Sub
72． 以下语句的输出结果是（ 【30】 ）
Print Format ( 1234567.89 , “ ## , ###.000 ” )
（A）34,567.890 （B）1,234,567.890 （C）1,234,567,89 （D）34,567.89
73． 当某个控件获得焦点时，将会触发的事件是（ 【31】 ）
（A）GotFocus （B）SetFocus （C）ReceiveFocus （D）无事件触发 74． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click() Dim a As Integer
Open “c:\\VbTest\\Test32.dat” For Binary As #1 a=1000 Seek #1, 10
Put #1, , a Close #1
End Sub
则以下叙述中正确的是（ 【32】 ）
（A）如果文件c:\\VbTest\\Test32.dat不存在，则Open命令执行失败 （B）由于Put命令中没有指明位置，因此把变量a的值写到文件的末尾 （C）变量a的值会从文件的第10个字节处开始写入 （D）变量a的值会从文件的第10个记录处开始写入 75． 下列叙述中正确的是（ 【32】 ）
（A）在窗体的Form_Load事件过程中定义的变量是全局变量 （B）局部变量的作用域可以超出所定义的过程
（C）在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用
域只限于该过程
（D）在调用过程中，所有局部变量被系统初始化为0或空字符串 76． 以下关于焦点的叙述中，错误的是
（A）当文本框失去焦点时，触发LostFocus事件
（B）当文本框的Enabled属性为False时，其Tab顺序不起作用 （C）可以用TabIndex属性改变Tab顺序
（D）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 77． 设a = 10，b=12，则执行 x = Iif ( b \\ a *a = 10 , 0 , -1 ) 后，x的值为（ 【33】 ）
（A）0 （B）1 （C）-1 （D）使用错误 78． 使用下面语句定义的数组元素个数是（ 【34】 ） Dim A ( 4 , 2 To 5 ) As Integer
（A）12 （B）15 （C）16 （D）20 79． 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 （A）= （B）* （C）& （D）-
《计算机程序设计A》期末复习题（答案） 第 9 页 共 35 页
80． 为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一
个菜单项，将该菜单控件的（ 【35】 ）属性设置为一个连字符（-）即可。 （A）Name （B）Caption （C）ShortCut （D）Text
81． 执行语句Open \后，对文件Tel.dat中的数据能够执行
的操作是
（A）只能写，不能读 （B）只能读，不能写 （C）既可以读，也可以写 （D）不能读，不能写
82． 在程序运行期间，若改变滚动条中滚动块的位置，则触发的事件是（ 【36】 ） （A）GotFocus （B）Change （C）Move （D）Scroll
83． 假定窗体上有一个标签，名称为Label1，为了使该标签无边界线，则正确的属性设置是
（ 【37】 ）
（A）Label1.BorderStyle = 0 （B）Label1.BorderStyle = 1 （C）Label1.BorderStyle = True （D）Label1.BorderStyle = False
84． 确定触发计时器两个事件间隔的毫秒数，应使用计时器的（ 【38】 ）属性。 （A）Visible （B）Enabled （C）Tag （D）Interval
85． 为了将变量a，b，c的值以标准输出格式写入顺序文件Ks39.txt中，所使用的语句的格式为
（ 【39】 ）
（A）Print #文件号 , a ; b ; c （B）Print #文件号 , a , b , c （C）Print a ; b ; c ; #文件号 （D）Print a , b , c , #文件号 86． 在窗体上画一个命令按钮和两个文本框，编写如下事件过程： Private Sub Command1_Click( ) If Len ( Text1.Text) = 0 Then
Text1.Text = Text2 .Text * Text2. Text Else
Text2.Text = Text1 .Text * Text1. Text End If End Sub
程序运行后，在文本框Text1中输入10，然后单击命令按钮，运行结果为（ 【40】 ） （A）在文本框Text1中输出100，在文本框Text2中输出0 （B）在文本框Text1中输出100，在文本框Text2中输出10 （C）在文本框Text1中输出10，在文本框Text2中输出100 （D）在文本框Text1中输出10，在文本框Text2中输出100
87． 下列各组窗体属性中，在程序运行期间，属性值不能改变的一组属性是（ 【41】 ） （A）ControlBox和BorderStyle （B）MaxButton和MinButton （C）Name和BorderStyle （D）ControlBox和Caption 88． 下列可以打开立即窗口的操作是（ 【42】 ）
（A）Ctrl + D （B）Ctrl + E （C）Ctrl + F （D）Ctrl + G 89． MsgBox函数的返回值类型是（ 【43】 ） （A）数值型 （B）字符串型
（C）变体型 （D）数值或字符串型（视输入的数据而定） 90． 可以同时删除字符串前导和尾部空白的函数是（ 【44】 ） （A）Ltrim （B）Rtrim （C）Mid （D）Trim 91． 执行以下程序段后，变量c$的值为（ 【45】 ） a$ = “ Visual Basic 6.0 Programing ” b$ = “ Design ”
c$ = Lcase ( Mid$ ( a$ , 7 , 6)) & Right$ ( a$ , 11 ) & b$
《计算机程序设计A》期末复习题（答案） 第 10 页 共 35 页
（A）Visual basic 6.0 design （B）basic ProgramingDesign （C）BASIC ProgramingDesign （D）Visual BASIC 6.0 design 92． 假定有一个菜单项，名为MenuDiv，为了在运行时使该菜单项失效（变灰），应使用的语句是
（ 【46】 ）
（A）MenuDiv . Visible = False （B）MenuDiv . Visible =True （C）MenuDiv . Enabled = False （D）MenuDiv . Enabled = True
93． 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ 【47】 ） （A）Enabled （B）Interval （C）Timer （D）Visible
94． 为了把一个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置，所使用的语句格式
为（ 【48】 ）
（A）Put #文件号 , 记录号 , Stu （B）Put #文件号 , Stu , 记录号 （C）Get #文件号 , 记录号 , Stu （D）Get #文件号 , Stu , 记录号 95． Sub过程的定义（ 【49】 ）
（A）一定要有形参 （B）一定要有过程的名称 （C）一定要指明是公有的还是私有的 （D）一定要指定其类型 96． Function过程有别于Sub过程的最主要的特点是（ 【50】 ） （A）Function过程一定要有形参，而Sub过程可以没有形参
（B）Function过程的终端语句是End Function，而Sub过程的终端语句是End Sub （C）Function过程用于计算函数值，而Sub过程用于改变属性值 （D）Function过程要返回函数值，而Sub过程没有值的返回 97． 要定义一个过程为局部过程，应用使用（ 【51】 ）关键字。 （A）Public （B）Static （C）Sub （D）Private 98． 下列定义Func为函数过程的定义语句中错误的是（ 【52】 ） （A）Function Func ( a As Integer ) As Integer （B）Static Function Func ( a )
（C）Private Public Func ( a ) As Integer （D）Private Function Func ( a As Single )
99． 标准模块存盘后，形成的磁盘文件扩展名为（ 【53】 ） （A）.Bas （B）.Cls （C）.Frm （D）.Vbp 100． 下列函数调用中错误的是（ 【54】 ） （A）Str$ = InputBox ( “请输入数据 ” ) （B）InputBox ( “请输入数据 ” )
（C）Msg = MsgBox ( “是否继续输入数据？” ) （D）MsgBox ( “是否继续输入数据？” )
101． 要使窗体Form1显示出来，应使用（ 【55】 ）
（A）Load Form1 （B）Form1 Load （C）Show.Form1 （D）Form1.Show 102． 在使用通用对话框之前要先将（ 【56】 ）添加到工具箱中。
（A）Active X （B）ComboBox （C）CommonDialog （D）Color
103． 用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为（ 【57】 （A）Binary （B）Random （C）Input （D）OutPut 104． 设有以下循环结构
Do
循环体
Loop While <条件> 则以下叙述中错误的是
（A）“条件”可以是关系表达式、逻辑表达式或常数
《计算机程序设计A》期末复习题（答案） 第 11 页 共 35 页
）（B）循环体中可以使用Exit Do语句
（C）若“条件”是一个为0的常数，则一次也不执行循环体 （D）如果“条件”总是为True，则不停地执行循环体
105． 要获得打开文件的长度（字节数）应用使用（ 【58】 ）函数。 （A）FileLen （B）Len （C）Loc （D）Lof 106． 给文件改名的VB语句正确的是（ 【59】 ）
（A）Name 原文件名 To 新文件名 （B）Rename 原文件名 To 新文件名 （C）Name 原文件名 As 新文件名 （D）Rename 原文件名 As 新文件名 107． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Option Base 1
Private Sub Command1_Click( ) Dim a(10) As Integer For i = 1 To 10 a(i) = i Next
Call Swap 【5】 For i = 1 To 10 Print a(i); Next
End Sub
Sub Swap(b() As Integer) n=【5】
For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t 【5】 Next End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??，a(5)与a(6)的值互换。请填空。
108． 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下
几个事件过程：
Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 【5】 End Sub
Private Sub Form_Click() Timer1.Enabled = 【6】 End Sub
Private Sub Timer1_Timer() Label1.Caption = 【7】 End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
《计算机程序设计A》期末复习题（答案） 第 12 页 共 35 页