《计算机程序设计A》复习试题(答案)

1、1在 Visual Basic 中最基本的对象是 ()，它是应用程序的基石有一个成立即可”的逻辑表达式是()计算机程序设计 A 期末复习题(答案)第1 页 共25 页234567(A)标签(D)命令按钮(B)窗体事件驱动应用程序的典型操作序列是(A)B)C)D)(C)文本框启动应用程序、加载显示窗体，接收事件，执行代码，下次事件接收事件，启动应用程序，加载显示窗体，执行代码，下次事件执行代码，启动应用程序，加载显示窗体，接收事件，下次事件等待等待等待等待下次事件，接收事件，启动应用程序，加载显示窗体，执行代码对于不同的对象有不同的属性，但所有的对象都共同拥有的属性是A)B)C)D)1<=

2、a And a<8 And 1<b And b<=8(1<=a And a<8 ) And Not(1<b And b<=8)1<=a And a<8 Or 1<b And b<=8Not(1<=a And a<8) Or (1<b And b<=8)10 设有如下的记录类型：Type StudentNumber As String * 10Name As String * 20Age As IntegerEnd Type则正确引用该记录类型变量的代码是(A)B)Student.Nam = “张三 ”Di

3、m s As StudentA) PictureB ) CaptionC) Names.Name = “张三”D) LconC)Dim s As Type Student从键盘上输入两个字符串，分别保存在变量 str1 和 str2 中。确定第二个字符串在第一个字符串中起始位置的函数是(A) LeftD) InstrD)B) MidC ) Strings.Name = “张三”Dim s As Types.Name = “张三”11 以下语句的输出结果是(函数 Int(100*Rnd+1) 的取值范围是(A )从 1 到 100(B)从 0 到 100(C)从 1 至 到 101(D)从 0

4、到 101如果将布尔常量值A) 0D) FalseTrue 赋值给一个整型变量，则整型变量的值为B ) -1C ) True下列符号常量的申明中， ()是不合法的A) Const a As Single = 1.1B) Const a As Integer12 ”C) Const a As Double = Sin(1)D ) Const“OK”8 将变量 k 四舍五入保留 2 位小数的表达式是(A) Int(k+0.5)*100)/100Int(k*100)/100+0.5C) Int(k*100+0.5)/100Int(k*(100+0.5)/1009.假设a和b是整型变量，则表示条件“

5、1 < av 8和1 < b< 8中只要Print Format$(32548.5, “000,000.00 ”)A) 32548.5B ) 32,548.5C)032,548.50D) 32,548.5012 假定 Pic1句是(A) Print“abcd ”和 Txt1 分别是图片框和文本框的名称，“abcd”C ) Txt1.Print“abcd"“abcd ”13 下列语句执行后，输出的结果是(age$ = 18Print “你的年龄是： ”;Print ageA)18C)18注意：下列不正确的语B ) Pic1.PrintD) Debug.Print你的年

6、龄是： 18”你的年龄是： ”18符号“”表示空格D)(B)你的年龄是:”你的年龄是： ”14.执行语句m=Len(Mid(西南交通大学03级全体学生",5,5)后，m的(A) Visual Basic是事件驱动型可视化编程工具值是( 【 4】 )B) Visual Basic 应用程序不具有明显的开始和结束语句计算机程序设计 A 期末复习题(答案)第 3 页 共 25 页(A )交通大学(B)大学03级C) 5C) Visual Basic 工具箱中的所有控件都具有宽度( Width )和高度D) 8Height )属性D) Visual Basic 中控件的某些属性只能在运行时设

7、置15. 在界面设计阶段，当双击窗体上的某个控件时，所打开的窗口是【1】 )21 . 以下叙述中错误的是(A )属性窗口(B)代码窗口(A)窗体文件包含该窗体及其控件的属性(C)工具箱窗口D )工程资源管(B)以.BAS为扩展名的文件是标准模块文件理器窗口16. 以下叙述中正确的是( 【2】 )(C) 一个工程中可以含有多个标准模块文件D )在工程资源管理器窗口中只能包含一个工程文件及属于该工程的A)对象的 Name 属性值可以为空其他文件B)窗体的 Name 属性指定窗体的名称，用来标识一个窗体22. 以下关于函数过程的叙述中，正确的是( 【4】 )C)可以在程序运行期间改变对象的 Name

8、 属性值(A)函数过程形参的类型与函数返回值的类型没有关系D)窗体的 Name 属性的值是显示在窗体标题栏中的文本(B)在函数过程中，过程的返回值可以有多个17. 在窗体上画一个命令按钮， 其名称为 Command1 ，然后编写如下事(C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传件过程：地址方式传递Private Sub Command1_Click()(D)如果不指明函数过程参数的类型，则该参数没有数据类型A=4567823. 设有如下变量声明：Print Format(A, ”000.00”)Dim TestDate As DateEnd Sub为变量 TestDate 正

9、确赋值的表达式是( 【4】 )程序运行后，单击命令按钮，窗体上显示的是( 【4】 )A)TestDate = # “6/22/2003 ” #A) 456.78B) 45678.00C) 45678D)B)TestDate = # 6/22/2003 #00456.78C)TestDate = Date(6/22/2003 ”)18. 在窗体上 画一个名称为 Command1 的命令按钮，然后编写如下事D)TestDate = Format(m/d/yy ”, “ 6/22/2003 ”)件过程：24. 在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响Private Sub C

10、ommand1_Click()Text1 的 Tab 顺序的属性是( 【4】Move 500,500A) TabStopB ) EnabledC)VisibleD)End SubTabIndex程序运行后，单击命令按钮，执行的操作为(1】 )25. 以下关于变量作业用域的叙述中，正确的是(4】 )A)命令按钮移动到距窗体左边界、上边界各500 的位置A)窗体中凡被声明为 Private 的变量只能在某个指定的过程中使用B)窗体移动到距屏幕左边界、上边界各 500的位置B)全局变量只能在标准模块中声明C)命令按钮向左、右方向各移动 500C)模块级变量只能用 Private 关键字声明D)窗体向

11、左、上方向各移动 500D)Static 类型变量的作用域是它所在的窗体或模块文件19. 刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是26. 在窗体上画一个名称为 Com1 的命令按钮，然后编写如下程序：【3】 )(A)通用对话框B )单选按钮(C)图片框(D)组合Static X As IntegerPrivate Sub com1_Click( )Static Y As IntegerCls20. 以下叙述中错误的是Y=1:Y=Y+10: X=X+Y（C ）图片框控件可以作为容器使用Print X, Y（D ）用Stretch属性可以自动调整图片框中图形的大小End Sub

12、33.设有语句程序运行时，三次单击命令按钮Com1后，窗体上显示的结果为x = InputBox（请输入数值”，“ 0示例,”）"（【5】）则程序运行后，如果从键盘输入 100并按回车键，下列叙述中正确的(A) 3311(B) 6331(C) 6030(D)是（【7】）3131(A)0是默认值27 .以下关系表达式中，其值为 False的是(B)变量x的值是数值100(A) ”FINE”>”Fine”(B) "good ”<> ”god ”(C)变量x的值是字符串“100”(C) "BASIC "=Ucase( Basic ”(D) &

13、quot;good ">"god ”(D)在InputBox对话框标题栏中显示的是 请输入数值”28.设a = 3，b = 5，则以下表达式值为真的是（【6】）34.以下叙述中错误的是(A) (-3+5) And (b > 0)(B) a >= b And b > 10(A)窗体或控件的事件的名称可以由编程人员确定(C) (a > b) Or (b > 0)(D) (a < 0) Eqv (b > 0)(B)移动鼠标时，会触发 MouseMove事件29.语句 Print 6 / 5 * 6 5 Mod 2的输出结果是（【4】

14、(C)控件的名称可以由编程人员设定(A) 0(B) 1(C) 2(D)(D)双击鼠标可以触发DblClick事件35.从键盘上输入两个字符串，分别保存在变量Str1，Str2中，确定第30.以下定义数组或给数组元素赋值的语句中，正确的是（【4】）二个字符串在第一个字符串中起始位置的函数是（【8】）(A) Dim Arr as Variant(B) Dim Arr(10) as Integer(A) Mid(B) Instr(C) String(D) LeftArr=Array(1,2,3,4,5,6,7,8)36.以下能够触发文本框Change事件的操作是（【9】）Arr=Array(1,2,

15、3,4,5,6,7,8)（A）文本框获得焦点（B）改变文本框的内容(C) Dim Arr%(10)(D) Dim a(3),b(3) as Integer（C）文本框失去焦点（D）设置文本框的焦点Arr(1)= '”BCDEFGH ”a(0)=037 .设a =西南交通大学峨眉校区",下面使b =峨眉校区”的语句是a(1)=1【10】）a(2)=2(A)b = Left (a , 15,8 )(B) b = Left ( a , 7,4 )b=a(C)b = Mid ( a , 15,8 )(D) b = Mid ( a , 7,4 )31 .在窗体上画一个名称为List1的

16、列表框，为了对列表框中的每个项目38.在窗体上有一个文本框控件,名称为 TxtTime ; 一个计时器控件,都能进行处理,应使用的循环语句为（【4】）名称为Timer1，要求每一秒钟在文本框中显示一次当前时间。(A) For i=0 To List1.ListCount-1(B) For i=0 To程序为:List1 .Count-1P rivate Sub Timer1 _NextNext(C) For i=1 To List1.ListCount(D) For i=1 ToList1 .CountNextNextTxtTime.Text = TimeEnd Sub在下划线上应填入的内容是

17、（(A) Visible(B) Interval【11】）(C) Timer(D) Enabled39.以下能正确定义数据类型Student的代码是32 .以下关于图片框控件的说法中，错误的是（【4】）(A) Type Student(B) Type Student（A）可以通过Print方法在图片框中输出文本Name As String*10Name As String*10（B）清空图片框控件中图形的方法之一是加载一个空图形TelNum As IntegerTelNum As Integer计算机程序设计A期末复习题（答案）第3页共25页End TypeEnd StudentabcbbC)

18、Type StudentD)Typedef StudentbbbName String*10Name String*10abcdccccccTelNum IntegerTelNum IntegerabcdeddEnd Type StudentEnd Typeddddd40为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把46设 a=100 ， b=50 ，c=10 ，执行语句 Print a > b > c 后，窗体上显示该命令按钮的一个属性值设置为True，这个属性是（【12】）的是A)ValueB)CancelC)DefaultD)EnabledA)Tru

19、eB) FalseC)1(D)出41以下叙述中错误的是错信息（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准47 MsgBox 函数中用于指定对话框中显示按钮的数目的参数项是模块等文件【15】）B)保存 Visual Basic 程序时，应分别保存窗体文件及工程文件A)Prompt 参数B) Buttons 参数C) Title 参数D)C)事件可以由用户引发，也可以由系统引发Default 参数D)Visual Basic 应用程序只能以解释方式执行48下列各组函数中，功能相似的一组函数是（16】)42 .设窗体上有一个列表框控件Listi ,且其中含有若干列表项。则以下(A)

20、 Str 和 VaiB)Asc 和 ChrC)Int 和 FixD)能表示当前被选中的列表项内容的是Lcase 和 UcaseA)List1.ListB)List1. Text(C)List1.ListIndexD)49.如果要改变窗体的标题，则需要设置的属性是List1.IndexA)NameB)CaptionC)BackCoiorD)43.图像框Image有一个属性，可以自动调整图形的大小，以适应图像BorderStyie框的尺寸，这个属性是（ 【i3】）50.下列Format$函数的说明中错误的是（【17】）A)AutosizeB)AutoRedrawC) Appearance (D)A

21、)一个 # 格式符表示一个数字位， # 的个数即为显示区段的长度StretchB):”格式符与“ ”格式符的作用完全相同44程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是C)$格”式符用于在数值前面加上一个$，以表示货币A)Load (B)MouseDownC)MouseUpD)D)0 格式符与 # 格式符的功能相似Ciick51以下能判断是否到达文件尾的函数是45在窗体上画一个命令按钮，名称为Comi，然后编写如下程序:A)BOFB)LOCC)EOFD)Private Sub Comi_Ciick( )LOFFor i=i to 452执行下列程序段后，变量 c 的值为（i8】Fo

22、r j=0 to ia = 123: b$ =“ 456 ”: c = a + b$Print Chr$(97+j);A)0B)i23456C)579(D)语句c = a+b$错Next jPrint53.为了在程序中设置命令按钮为不可见，需要把该命令按钮的一个属Next i性值设置为False，这个属性是（【19】）End SubA)VaiueB)VisibieC)CanceiD)Enabied则程序运行结果为（i4】54.下列控件中，不能接收焦点的控件是（ 【20】）A)abB)C)aaD)aaA)FormB)TextBoxC)CommandBottonD)计算机程序设计A期末复习题（答案

23、）第 11 页共 25 页Labelc=Val ( InputBox ( 请“输入 c 的值” )If a > b Then55InputBox 函数的返回值类型是（ 【21】）（A）数值型（B）字符串型If a > c Then（C）变体型（D ）数值或字符串型（视输入的If b > c Then数据而定）Print a , b , cEnd Sub56如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A)用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体程序运行后，单击命令按钮，依次在输入对话框中输入10、5、20，B)不能把标准模块设置为启动模块则输入结果

24、为（ 【23】C)如果工程中含有 Sub Main 过程，则程序一定首先执行该过程A)20 10 5(B)5 10 20(C)105 20D)20 5 10D)任何时刻最多只有一个窗体是活动窗体60在窗体上画一个名称为57运行下列程序段后， x 的值是（【22】）Command1 的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()For i =1 to 5X=-4If Sgn(X) ThenNextY=Sgn(XA2)A)13B)22C) 29D) 38ElseY=Sgn(x)58在窗体上画一个名称为 Command1 的命令按钮，然后编写如下的事件过

25、程：End IfPrivate Sub Command1_Click( )Print Ym = 6789End Subc = Trim(Str(m)程序运行后，单击命令按钮，窗体上显示的是（4】For i = 1 To 4A)1B)-1C)-4D)Print(【23】)16Next61下列不能打开代码窗口的操作是（24】)End SubA)单击窗体的任何地方程序运行后，单击命令按钮，要求在窗体上显示如下内容：67678B)C)D)双击窗体的任何地方单击工程窗口中的“查看代码”按钮单击“视图”下拉菜单中的“代码窗口”选项25】62在立即窗口中输出变量 a 的值，正确的语句是（6789则在【23】

26、处应该填入的内容为A)Debug a ( B ) Debug.Print a (C)Print.Debug aD)Print aA)Left(c,i)B)Right(c,i)C)Mid(c,i,i)D)63在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1Mid(c,i,1)的目录列表框。当改变当前驱动器时，目录列表框应该与之同步59在窗体上画一个命令按钮，然后编写如下的事件过程：改变。设置两个控件同步的命令放在一个事件过程中，此事件过Private Sub Command1_Click( )程是（【26】）a=Val ( InputBox ( 请“输入 a 的值” )A

27、)b=Val ( InputBox (请“输入 b 的值” ）Drive1_ChangeB)Drive1_ClickC)Dir1_ClickD)Dir1_Change64窗体的 MouseUp 事件过程Form_MouseUp (Button As Integer, Shift As Integer, X As Single,Y As Single)a = “ abc” <CR>（CR表示回车键，下同）b = “aBc ”<CR>Print a>b<CR>则输出结果是（29】）有 4 个参数，关于这些参数，正确的描述是A）通过 Button 参数判定当

28、前按下的是哪一个鼠标键A)-1B)0C ) FalseD)TrueB）Shift 参数只能用来确定是否按下 Shift 键71在窗体上画一个名称为Text1 的文本框，要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是（ 【29】）C）Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键A）Private Sub Text1_KeyPress(KeyAscii As Integer)D）参数 x,y 用来设置鼠标当前位置的坐标If KeyAscii < 97 Or KeyAscii > 122 Then65InputBox 函数有 6 个参数，其中不能省略的参

29、数项是（【26】）MsgBox “请重新输入小写字母”A)Default 参数 (B) Title 参数(C) Xpos , Ypos 参数 (D)KeyAscii = 0Prompt 参数End If66在窗体上画一个名称为 Command1的命令按钮，然后编写如下的End Sub事件过程：B)Private Sub Text1_MouseUp(Button As Integer,Shift As Integer,Option Base 1Private Sub Command1_Click()X as Integer,Y as Integer)Dim aIf KeyCode < 97

30、 Or KeyCode > 122 Thens=0MsgBox “请重新输入小写字母”a=Array(1,2,3,4)KeyCode = 0j=1End IfFor i=4 To 1 Step -1End Subs = s + a(i) * jC)Private Sub Text1_MouseUp(Button As Integer,Shift As Integer,j = j * 10Next iX as Integer,Y as Integer)Print sIf Asc(Text1.Text) < 97 Or Asc(Text1.Text) > 122 ThenEnd

31、SubMsgBox “请重新输入小写字母”A)34B)12C) 1234D)End If4321End Sub67不能从一个已知字符串中得到一个子字符串的函数是（27】)D)Private Sub Text1_Change()A) TrimB) RightC)MidD) LeftIf Asc(Text1.Text) > 96 And Asc(Text1.Text) < 123 Then68设组合框 Combo1 中有 3个项目，则以下能删除最后一项的语句是MsgBox “请重新输入小写字母”A)Combo1.RemoveItem TextEnd IfB)Combo1.RemoveI

32、tem Combo1.ListcountEnd SubC)Combo1.RemoveItem 272以下语句的输出结果是（ 【30】）D)Combo1.RemoveItem 3Print Format ( 1234567.89 ,# , #.000 ” )69表达式 17 2 *10 Mod 3 的值是（28】)A) 34,567.890B) 1,234,567.890A)0B)1C)2D)3C) 1,234,567,89D) 34,567.8970如果在立即窗口中执行以下操作：73当某个控件获得焦点时，将会触发的事件是（【31】）A)GotFocusB)SetFocusC) ReceiveF

33、ocus ( D)A)12B)15C)16D)20无事件触发79 如果要在菜单中添加一个分隔线，则应将其Caption 属性设置为74 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下的A)=B)*C)&D)-事件过程：Private Sub Command1_Click()Dim a As IntegerOpen “c:VbTestTest32.dat ”For Binary As #1a=1000Seek #1, 10Put #1, , aClose #1End Sub则以下叙述中正确的是（ 【32】 ）A)B)C)D)80 为了将菜单项分组，使不同类型的菜单之间有

34、一条水平分隔线，设置方法是在菜单中插入一个菜单项， 将该菜单控件的属性设置为一个连字符（ -）即可。A)NameB)CaptionC)ShortCut81执行语句 Open "Tel.dat" For Random As #1 Len = 50Tel.dat 中的数据能 够执行的操作是（A）只能写，不能读C ）既可以读，也可以写【 35】 ）D)Text后，对文件（B）只能读，不能写D ）不能读，不能写82 在程序运行 期间，若改变滚动条中滚动块的位置，则触发的事件是【 36】 )如果文件 c:VbTestTest32.dat 不存在，则 Open 命令执行失败由于 Put

35、 命令中没有指明位置，因此把变量 a 的值写到文件的末变量a的值会从文件的第10个字节处开始写入变量a的值会从文件的第10个记录处开始写入75 下列叙述中正确的是（ 【32】 ）A)在窗体的 Form_Load 事件过程中定义的变量是全局变量B)局部变量的作用域可以超出所定义的过程C)在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D)在调用过程中，所有局部变量被系统初始化为 0 或空字符串76以下关于 焦点的叙述中，错误的是A)当文本框失去焦点时，触发 LostFocus 事件B)当文本框的 Enabled属性为 False 时，其 Tab

36、顺序不起作用A ) GotFocusB ) ChangeC ) MoveD)Scroll83 假定窗体上有一个标签，名称为 Label1 ，为了使该标签无边界线，则正确的属性设置是（ 【37】A) Label1.BorderStyle = 0C) Label1.BorderStyle = TrueFalseB ) Label1.BorderStyle = 1D) Label1.BorderStyle84确定触发计时器两个事件间隔的毫秒数， 应使用计时器的（ 【38】 ）属性。A) VisibleB ) EnabledC) TagD ) Interval85为了将变量 a， b， c 的值以标准

37、输出格式写入顺序文件 Ks39.txt 中，所使用的语句的格式为（ 【39】A)Print#文件号 , a ; b ; cB ) Print # 文件号 , a , b ,C)可以用 TabIndex 属性改变 Tab 顺序C)Print a ; b ; c ; # 文件号D) Print a , b , c , # 文件D)如果文本框的 TabStop 属性为 False ，则不能接收从键盘上输入的数据86 在窗体上画一个命令按钮和两个文本框，编写如下事件过程：77.设 a = 10 , b=12，则执行Private Sub Command1_Click( )x = Iif ( b a *

38、a = 10 , 0 , -1 )If Len ( Text1.Text) = 0 Then后， x 的值为（ 【33】 ）Text1.Text = Text2 .Text * Text2. TextA) 0B) 1C ) -1D)Else使用错误Text2.Text = Text1 .Text * Text1. Text78 使用下面语句定义的数组元素个数是（【34】 ）End IfDim A ( 4 , 2 To 5 ) As Integer程序运行后，在文本框 Text1 中输入 10 ，然后单击命令按钮，运行结 计算机程序设计 A 期末复习题（答案） 第 7 页 共 25 页End S

39、ubDo上述程序的功能是，通过调用过程 SwaP，调换数组中数值的存放果为（ 【 40】 ）A）Put # 文件号 , 记录号, StuB)Put #文件号 , Stu ,A）在文本框Text1中输出100 ，在文本框 Text2 中输出 0记录号B）在文本框Text1中输出100 ，在文本框 Text2 中输出 10C ）Get #文件号 , 记录号, StuD)Get #文件号 , Stu ,C）在文本框Text1中输出10，在文本框 Text2 中输出 100记录号D）在文本框Text1中输出10，在文本框 Text2 中输出 10095. Sub 过程的定义（ 【49】87 下列各组窗

40、体属性中，在程序运行期间，属性值不能改变的一组属（A） 定要有形参（B） 定要有过程的名性是（ 【41 】 ）A) ControlBox 和 BorderStyleB ) MaxButton 和 MinButton（C） 一定要指明是公有的还是私有的D ）一定要指定其类型C) Name 和 BorderStyleD) ControlBox和 Caption96. Function 过程有别于 Sub 过程的最主要的特点是（ 【50】）88 下列可以打开立即窗口的操作是（42】 )A) Function过程一定要有形参，而 Sub 过程可以没有形参A) Ctrl + DB ) Ctrl + EC

41、 ) Ctrl + FD)B) Function过程的终端语句是End Function，而Sub过程的终端Ctrl + G语句是 End Sub89 MsgBox 函数的返回值类型是（43】 )C ) Function过程用于计算函数值，而 Sub 过程用于改变属性值（A）数值型（B）字符串型D) Function过程要返回函数值，而 Sub 过程没有值的返回C ）变体型（D ）数值或字符串型视输入的97. 要定义一个过程为局部过程，应用使用（【 51 】）关键字。数据而定）A) PublicB ) StaticC) SubD ) Private90 可以同时删除字符串前导和尾部空白的函数是

42、（44】 )98 下列定义 Func 为函数过程的定义语句中错误的是（52】 )A) LtrimB) RtrimC ) MidD ) TrimA)Function Func ( a As Integer ) As Integer91.执行以下程序段后，变量c$的值为（【45】B)Static Function Func ( a )a$ = “ Visual Basic 6.0 ProgramingC)Private Public Func ( a ) As Integerb$ = “ DesignD)Private Function Func ( a As Single )c$ = Lcase

43、 ( Mid$ ( a$ , 7 , 6) & Right$ ( a$ , 11 ) &b$99. 标准模块存盘后，形成的磁盘文件扩展名为（53 】 )A ) Visual basic 6.0 designB ) basicA) .BasB) .ClsC ) .FrmD) .VbpProgramingDesign100. 下列函数调用中错误的是（ 【54】 ）C) BASIC ProgramingDesignD)Visual BASIC 6.0A)Str$ = InputBox ( 请“输入数据 ” )designB)InputBox ( 请“输入数据 ” )92. 假定有一个

44、菜单项，名为 MenuDiv ，为了在运行时使该菜单项失效C)Msg = MsgBox （ “是否继续输入数据？ ”变灰），应使用的语句是（ 【46】）D)MsgBox （ “是否继续输入数据？ ” ）A) MenuDiv . Visible = FalseB ) MenuDiv . Visible101 . 要使窗体 Form1 显示出来，应使用（ 【55】=TrueA) Load Form1( B) Form1 LoadC ) Show.Form1( D )C ) MenuDiv . Enabled = FalseD)MenuDiv .Form1.ShowEnabled = True102

45、 . 在使用通用对话框之前要先将（56】 ）添加到工具箱中。93. 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这A) Active XB) ComboBoxC) CommonDialogD)个属性是（ 【 47】ColorA) EnabledB)IntervalC ) TimerD)103 .用 Open 语句打开文件时，若省略For 子句，则隐含打开文件的Visible存取方式为（【 57】 ）94. 为了把一个记录型变量Stu 的内容写入随机文件 Ks48.dat 中的指定A)BinaryB) RandomC) InputD) OutPut位置，所使用的语句格式为（【4

46、8】 ）104 .设有以下循环结构【60 End Sub计算机程序设计A期末复习题(答案)第19页共25页循环体位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换,a(5)与 a(6)Loop While < 条件 >的值互换。请填空。则以下叙述中错误的是108 .在窗体上画一个标签(名称为 Label1 )和一个计时器(名称为Timerl )，然后编写如下几个事件过程:(A) “条件”可以是关系表达式、逻辑表达式或常数P rivate Sub Form_Load()(B)循环体中可以使用Exit Do语句TimeM.Enabled = False(C)若"

47、条件"是一个为0的常数，则一次也不执行循环体Timer1.Interval =【5(D)如果“条件”总是为True，则不停地执行循环体End Sub105 .要获得打开文件的长度(字节数)应用使用(【58 )函数。(A) FileLen(B) Len(C) Loc(D) LofPrivate Sub Form_Click()106 .给文件改名的VB语句正确的是(【59 )Timer1.Enabled =【6(A) Name原文件名To新文件名(B) Rename 原文件名 ToEnd Sub新文件名Private Sub Timer1_Timer()(C) Name原文件名As新文

48、件名(D) Rename原文件名Label1.Ca ption =【7 As新文件名End Sub107 . 在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换的事件过程:一次(见图)。请填空。Op tion Base 1Private Sub Command1_Click()E Forml14:54:41Dim a(10) As IntegerFor i = 1 To 10a(i) = iNext109 .下面程序用选择法将数组a中的10个整数按升序排列。算法是:Call Swap 【5从数组中找出最小的值，将该数与第1

49、个数交换，这样第1个数For i = 1 To 10组元素是最小的数。再从第2个数开始，找出其后各数组元素中Print a(i);最小的数，将该数与第2个数交换位置，这样第2个数是次小的Next数。如此重复上述过程，即可将数组排序。请完善以下的程序:End SubOp tion Base 1Sub Swa p(b() As Integer)Private Sub Command1_Click()n=【5Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k AsFor i = 1 To n / 2Integert = b(i)For i=1 To 10b(i) = b(n)a ( i ) = Val ( InputBox ( 请输入第 a( ”& i & 个数：”)b(n) = tNext iFor i = 1 To 9NextFor