《2022年《计算机程序设计A》计算机程序设计 .pdf》由会员分享，可在线阅读，更多相关《2022年《计算机程序设计A》计算机程序设计 .pdf（47页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、计算机程序设计A期末复习题（答案）第 1 页 共 47 页计算机 VB 程序设计复习试题1 在 Visual Basic中最基本的对象是（） ，它是应用程序的基石（ A）标签（B）窗体（C）文本框（D）命令按钮2 事件驱动应用程序的典型操作序列是（）（ A）启动应用程序、加载显示窗体，接收事件，执行代码，等待下次事件（ B）接收事件，启动应用程序，加载显示窗体，执行代码，等待下次事件（ C）执行代码，启动应用程序，加载显示窗体，接收事件，等待下次事件（ D）等待下次事件，接收事件，启动应用程序，加载显示窗体，执行代码3 对于不同的对象有不同的属性，但所有的对象都共同拥有的属性是（）（ A）Pi
2、cture （B）Caption （C）Name （D）Lcon 4 从键盘上输入两个字符串，分别保存在变量str1 和 str2 中。确定第二个字符串在第一个字符串中起始位置的函数是（）（ A）Left （B）Mid （C）String （D）Instr 5 函数 Int(100*Rnd+1)的取值范围是（）（ A）从 1 到 100（B）从 0 到 100 （C）从 1 到 101 （D）从 0 到 101 6 如果将布尔常量值True 赋值给一个整型变量，则整型变量的值为（）（ A）0 （B）-1（C）True （D）False 7 下列符号常量的申明中，（）是不合法的（ A）Const
3、 a As Single = 1.1 （B）Const a As Integer = “ 12”（ C） Const a As Double = Sin(1) （D）Const a = “ OK”8 将变量 k 四舍五入保留2 位小数的表达式是（）（ A）Int(k+0.5)*100)/100 （B）Int(k*100)/100+0.5 （ C） Int(k*100+0.5)/100（D）Int(k*(100+0.5)/100 9 假设 a 和 b 是整型变量，则表示条件“1a8 和 1 b8 中只要有一个成立即可”的逻辑表达式是（）（ A）1=a And a8 And 1b And b=8
4、（ B）(1=a And a8 ) And Not(1b And b=8) （ C）1=a And a8 Or 1b And b=8 （ D）Not(1=a And a8) Or (1b And b” Fine ”（B）” good ” ” god”（ C） ” BASIC ” =Ucase( “ Basic ” )（D）” good ” ” god”28 设 a = 3 ，b = 5 ，则以下表达式值为真的是（【6】 ）（ A）(-3+5) And (b 0)（B）a = b And b 10 （ C） (a b) Or (b 0)（D）(a 0) 29 语句 Print 6 / 5 * 6
5、 5 Mod 2 的输出结果是（【4】 ）（ A）0（B）1（C）2（D）3 30 以下定义数组或给数组元素赋值的语句中，正确的是（【4】 ）（ A）Dim Arr as Variant（B）Dim Arr(10) as Integer Arr=Array(1,2,3,4,5,6,7,8)Arr=Array(1,2,3,4,5,6,7,8) （ C） Dim Arr%(10)（D）Dim a(3),b(3) as Integer Arr(1)= ” ABCDEFGH ”a(0)=0 a(1)=1 a(2)=2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - -
6、 - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 5 页 共 47 页b=a 31 在窗体上画一个名称为List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（【4】 ）（ A）For i=0 To List1.ListCount-1（B）For i=0 To List1 .Count-1 NextNext （ C） For i=1 To List1.ListCount （D）For i=1 To List1 .Count Next Next 32
7、以下关于图片框控件的说法中，错误的是（【4】 ）（A）可以通过Print 方法在图片框中输出文本（B）清空图片框控件中图形的方法之一是加载一个空图形（C）图片框控件可以作为容器使用（D）用 Stretch 属性可以自动调整图片框中图形的大小33 设有语句x = InputBo x( “请输入数值 ” , “ 0 ” , “示例 ”)则程序运行后，如果从键盘输入100 并按回车键，下列叙述中正确的是（【7】 ）（ A）0 是默认值（ B）变量 x 的值是数值100 （ C）变量 x 的值是字符串“100”（ D）在 InputBox 对话框标题栏中显示的是“ 请输入数值 ”34 以下 叙述中错误
8、的是（A）窗体或控件的事件的名称可以由编程人员确定（B）移动鼠标时，会触发MouseMove事件（C）控件的名称可以由编程人员设定（D）双击鼠标可以触发DblClick 事件35 从键盘上输入两个字符串，分别保存在变量Str1 ，Str2 中，确定第二个字符串在第一个字符串中起始位置的函数是（【8】 ）（ A）Mid（B） Instr（C） String（D）Left 36 以下能够触发文本框Change 事件的操作是（【9】 ）（ A）文本框获得焦点（B）改变文本框的内容（ C）文本框失去焦点（D）设置文本框的焦点37 设 a = “西南交通大学峨眉校区” ，下面使b = “峨眉校区 ” 的
9、语句是（【10】 ）（ A）b = Left (a , 15 , 8 )（ B）b = Left ( a , 7 , 4 ) （ C） b = Mid ( a , 15 , 8 )（D）b = Mid ( a , 7 , 4 )名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 6 页 共 47 页38 在窗体上有一个文本框控件，名称为TxtTime ；一个计时器控件，名称为Timer1 ，要
10、求每一秒钟在文本框中显示一次当前时间。程序为：Private Sub Timer1 _ ( ) TxtTime.Text = Time End Sub 在下划线上应填入的内容是（【11】 ）（ A）Visible（B）Interval（C）Timer（D）Enabled 39 以下能正确定义数据类型Student 的代码是（ A）Type Student（B）Type Student Name As String*10Name As String*10 TelNum As IntegerTelNum As Integer End Type End Student （ C） Type Stude
11、nt （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程序时，应分别保存窗体文件
12、及工程文件（ 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 程序运行 后，在窗体上单击鼠标，此时窗体
13、不会接收到的事件是（ A）Load（B）MouseDown （C） MouseUp（D）Click 45 在窗体上画一个命令按钮，名称为Com1 ，然后编写如下程序：Private Sub Com1_Click( ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 7 页 共 47 页For i=1 to 4 For j=0 to i Print Chr$(97+j); Next j Pr
14、int 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）St
15、r 和 Val（B）Asc 和 Chr（C）Int 和 Fix（D）Lcase 和 Ucase 49 如果要 改变 窗体的标题，则需要设置的属性是（ A）Name（B）Caption（C）BackColor （ D） BorderStyle 50 下列 Format$ 函数的说明中错误的是（【 17】 ）（ A）一个# 格式符表示一个数字位，# 的个数即为显示区段的长度（ B）“ , ” 格式符与 “ . ” 格式符的作用完全相同（ C） “ $ ”格式符用于在数值前面加上一个$，以表示货币（ D） 0 格式符与# 格式符的功能相似51 以下能判断 是否 到达文件尾的函数是（ A）BOF （B
16、）LOC（C）EOF （D）LOF52 执行下列程序段后，变量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 名师资料总结 - - -精品资料欢迎下载
17、 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 8 页 共 47 页55 InputBox 函数的返回值类型是（【21 】 ）（ A）数值型（ B）字符串型（ C）变体型（ D）数值或字符串型（视输入的数据而定）56 如果一个 工程 含有多个窗体及标准模块，则以下叙述中错误的是（ A）用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体（ B）不能把标准模块设置为启动模块（ C）如果工程中含有Sub Main过程，则程序一
18、定首先执行该过程（ 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 名师资料总结 - - -精品资料欢迎
19、下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 9 页 共 47 页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=Val ( InputBox ( “ 请输入 a 的值” )b=Val ( InputBo
20、x ( “ 请输入 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）20105（ B）51020（C）10520（D）20510 60 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程
21、：Private Sub Command1_Click() X=-4 If Sgn(X) Then Y=Sgn(X2) 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）单击 “ 视图 ” 下拉菜单中的 “ 代码窗口 ” 选项名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - -
22、 - - - 名师精心整理 - - - - - - - 第 9 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 10 页 共 47 页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）D
23、rive1_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 个参数，
24、其中不能省略的参数项是（【26】 ）（ A）Default 参数（B）Title 参数（C）Xpos ，Ypos 参数（D）Prompt 参数66 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 T o 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 不能从一个已知字符串中得到一
25、个子字符串的函数是（【27】 ）（ A）Trim（B）Right（C）Mid（D）Left 68 设组合框Combo1中有 3 个项目，则以下能删除最后一项的语句是（ A）Combo1.RemoveItem Text （ B）Combo1.RemoveItem Combo1.Listcount 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 11 页 共 47 页（ C） Combo1.
26、RemoveItem 2 （ D） Combo1.RemoveItem 3 69 表达式 17 2 *10 Mod 3的值是（【28】 ）（ A）0（B）1（ C） 2（D）3 70 如果在立即窗口中执行以下操作：a = “ abc ” （ 表示回车键，下同）b = “ aBc ” Print ab 则输出结果是（【29 】 ）（ A）-1（B）0（C）False（D）True 71 在窗体上画一个名称为Text1 的文本框，要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是（【29】 ）（ A）Private Sub Text1_KeyPress(KeyAscii As Inte
27、ger) If 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 122 Then MsgBox “ 请重新输入小写字母”KeyCode = 0 End If End Sub （ C） Private Sub Text1_MouseUp(Button As Integer,Shift As Integer,
28、 _ X as Integer,Y as Integer) If Asc(Text1.Text) 122 Then MsgBox “ 请重新输入小写字母”End If End Sub （ D） Private Sub Text1_Change() If Asc(Text1.Text) 96 And Asc(Text1.Text) 123 Then MsgBox “ 请重新输入小写字母”End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 47 页 - - - -
29、 - - - - - 计算机程序设计A期末复习题（答案）第 12 页 共 47 页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 Co
30、mmand1_Click() Dim a As Integer Open “ c:VbTestTest32.dat” For Binary As #1 a=1000 Seek #1, 10 Put #1, , a Close #1 End Sub 则以下叙述中正确的是（【32】 ）（ A）如果文件c:VbTestTest32.dat不存在，则Open 命令执行失败（ B）由于 Put 命令中没有指明位置，因此把变量a 的值写到文件的末尾（ C）变量 a 的值会从文件的第10 个字节处开始写入（ D）变量 a 的值会从文件的第10 个记录处开始写入75 下列叙述中正确的是（【32 】 ）（ A）
31、在窗体的Form_Load事件过程中定义的变量是全局变量（ B）局部变量的作用域可以超出所定义的过程（C）在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程（ D）在调用过程中，所有局部变量被系统初始化为0 或空字符串76 以下关于 焦点 的叙述中，错误的是（ A）当文本框失去焦点时，触发LostFocus事件（ B）当文本框的Enabled属性为 False 时，其 Tab 顺序不起作用（ C）可以用TabIndex属性改变Tab 顺序（ D）如果文本框的TabStop属性为 False ，则不能接收从键盘上输入的数据77 设 a = 10 ，
32、b=12 ，则执行x = Iif ( b a *a = 10 , 0 , -1 ) 后， x 的值为（【33】 ）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 13 页 共 47 页（ 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 7
33、9 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ A）=（ B）* （ C）&（D） - 80 为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，将该菜单控件的（【35 】 ）属性设置为一个连字符（-）即可。（ A）Name（B）Caption（ C） ShortCut（D）Text 81 执行 语句 Open Tel.dat For Random As #1 Len = 50后，对文件 Tel.dat 中的数据能够执行的操作是（ A）只能写，不能读（B）只能读，不能写（ C）既可以读，也可以写（D）不能读，不能写82 在程序运行 期
34、间，若改变滚动条中滚动块的位置，则触发的事件是（【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
35、）Tag（ D） Interval85 为了将变量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.
36、Text Else Text2.Text = Text1 .Text * Text1. Text End If End Sub 程序运行后，在文本框Text1 中输入 10，然后单击命令按钮，运行结果为（【40】 ）（ A）在文本框Text1 中输出 100 ，在文本框Text2 中输出 0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 14 页 共 47 页（ B）在文本框Text1
37、 中输出 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
38、 + F（D）Ctrl + G89 MsgBox 函数的返回值类型是（【43】 ）（ A）数值型（ B）字符串型（ C）变体型（ D）数值或字符串型（视输入的数据而定）90 可以同时删除字符串前导和尾部空白的函数是（【44】 ）（ A）Ltrim（ B）Rtrim（C）Mid（D）Trim91 执行以下程序段后，变量c$的值为（【45】 ）a$ = “ Visual Basic 6.0 Programing ”b$ = “ Design ”c$ = Lcase ( Mid$ ( a$ , 7 , 6) & Right$ ( a$ , 11 ) & b$ （ A）Visual basic 6.0
39、 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 ， 这个属性是 （ 【4
40、7 】 ）（ 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 过程的最主要的特点是（【
41、50】 ）（ A）Function过程一定要有形参，而Sub 过程可以没有形参（ B）Function过程的终端语句是End Function，而 Sub 过程的终端语句是End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 15 页 共 47 页（ C） Function过程用于计算函数值，而Sub 过程用于改变属性值（ D） Function过程要返回函数值，而Sub 过程
42、没有值的返回97 要定义一个过程为局部过程，应用使用（【 51】 ）关键字。（ A）Public（B） Static（C）Sub（D）Private98 下列定义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】 ）（
43、 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.Show102 在使用通用对话框之前要先将（【56】 ）添加到工具箱中。（ A）Active X（B）C
44、omboBox（ C）CommonDialog（ D） Color 103 用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为（ 【57】 ）（ A）Binary（B）Random（C）Input（D）OutPut 104 设有以下循环结构Do 循环体Loop While 则以下叙述中错误的是（ A）“条件”可以是关系表达式、逻辑表达式或常数（ B）循环体中可以使用Exit Do 语句（ C）若“条件”是一个为0 的常数，则一次也不执行循环体（ D）如果“条件”总是为True ，则不停地执行循环体105 要获得打开文件的长度（字节数）应用使用（【58】 ）函数。（ A）Fi
45、leLen（B）Len（ C）Loc（D）Lof名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 16 页 共 47 页106 给文件改名的VB 语句正确的是（【59】 ）（ A）Name 原文件名To 新文件名（B）Rename 原文件名To 新文件名（ C） Name 原文件名As 新文件名（D）Rename 原文件名As 新文件名107 在窗体上画一个名称为Command1的命令按钮
46、，然后编写如下的事件过程：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) 与
47、 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师
48、精心整理 - - - - - - - 第 16 页，共 47 页 - - - - - - - - - 计算机程序设计A期末复习题（答案）第 17 页 共 47 页Private Sub Timer1_Timer() Label1.Caption = 【7】End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1 秒钟变换一次（见图）。请填空。109 下面程序用选择法将数组a 中的 10 个整数按升序排列。算法是：从数组中找出最小的值，将该数与第1 个数交换，这样第1 个数组元素是最小的数。再从第2 个数开始，找出其后各数组元素中最小的数，将该数与第2 个数交换位置，这样第2 个数是
49、次小的数。如此重复上述过程，即可将数组排序。请完善以下的程序：Option Base 1 Private Sub Command1_Click( ) Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As Integer For i=1 T o 10 a ( i ) = Val ( InputBox ( “请输入第a( ” & i & “ ) 个数： ”)Next i For i = 1 To 9 【60】For j = i + 1 T o 10 If a ( k ) 【61】a ( j ) Then k = j Nex
50、t j Temp = a (i ) : 【62】: a ( k ) = Temp Next i For i = 1 To 10 Print a ( i ) , Next i End Sub 【60 】 （A）k = 0（B）k = 1（C）k = i（D）k = j 【61 】 （A）=（B）（C）【62 】 （A）a (i) = a (j)（B）a (j) = a (i)（C）a (k) = a (i)（D）a (i) = a (k) 110 设有程序：Option Base 1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - -