《计算机程序设计A》计算机程序设计(答案).doc

《《计算机程序设计A》计算机程序设计(答案).doc》由会员分享，可在线阅读，更多相关《《计算机程序设计A》计算机程序设计(答案).doc（47页珍藏版）》请在三一办公上搜索。

1、计算机VB程序设计复习试题1 在Visual Basic中最基本的对象是（），它是应用程序的基石（A）标签（B）窗体（C）文本框（D）命令按钮2 事件驱动应用程序的典型操作序列是（）（A） 启动应用程序、加载显示窗体，接收事件，执行代码，等待下次事件（B） 接收事件，启动应用程序，加载显示窗体，执行代码，等待下次事件（C） 执行代码，启动应用程序，加载显示窗体，接收事件，等待下次事件（D） 等待下次事件，接收事件，启动应用程序，加载显示窗体，执行代码3 对于不同的对象有不同的属性，但所有的对象都共同拥有的属性是（）（A）Picture（B）Caption（C）Name（D）Lcon4 从键盘上

2、输入两个字符串，分别保存在变量str1和str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）（A）Left（B）Mid（C）String（D）Instr5 函数Int(100*Rnd+1)的取值范围是（）（A）从1到100（B）从0到100（C）从1到101（D）从0到1016 如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（）（A）0（B）-1（C）True（D）False7 下列符号常量的申明中，（）是不合法的（A）Const a As Single = 1.1（B）Const a As Integer = “12”（C）Const a As Double = S

3、in(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)/1009 假设a和b是整型变量，则表示条件“1a8和1b8中只要有一个成立即可”的逻辑表达式是（）（A） 1=a And a8 And 1b And b=8（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 A

4、nd 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 Mod 2 的输出结果是（ 【4】 ）（A）0（B）1（C）2（D）330 以下定义数组或给数组元素赋值的语句中，正确的是（ 【4】 ）（A）Dim Arr as Variant（B）Dim Arr(10) as Integer Arr=

5、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 b=a31 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理， 应使用的循环语句为（ 【4】 ）（A）For i=0 To List1.ListCount-1（B）For i=0 To List1.Count-1 Next Next（C）For i=1 To List1.ListCount （D）For i=

6、1 To List1.Count Next Next32 以下关于图片框控件的说法中，错误的是（ 【4】 ）（A）可以通过Print方法在图片框中输出文本（B）清空图片框控件中图形的方法之一是加载一个空图形（C）图片框控件可以作为容器使用（D）用Stretch属性可以自动调整图片框中图形的大小33 设有语句x = InputBox( “请输入数值” , “ 0 ” , “示例”)则程序运行后，如果从键盘输入100并按回车键，下列叙述中正确的是（ 【7】 ）（A）0是默认值（B）变量x的值是数值100（C）变量x的值是字符串 “100”（D）在InputBox对话框标题栏中显示的是“请输入数值”

7、34 以下叙述中错误的是（A）窗体或控件的事件的名称可以由编程人员确定（B）移动鼠标时，会触发MouseMove事件（C）控件的名称可以由编程人员设定（D）双击鼠标可以触发DblClick事件35 从键盘上输入两个字符串，分别保存在变量Str1，Str2中，确定第二个字符串在第一个字符串中起始位置的函数是（ 【8】 ）（A）Mid（B）Instr（C）String（D）Left36 以下能够触发文本框Change事件的操作是（ 【9】 ）（A）文本框获得焦点 （B）改变文本框的内容（C）文本框失去焦点 （D）设置文本框的焦点37 设a = “西南交通大学峨眉校区”，下面使b = “峨眉校区”的

8、语句是（ 【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 )38 在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要 求每一秒钟在文本框中显示一次当前时间。程序为：Private Sub Timer1 _ ( )TxtTime.Text = TimeEnd Sub 在下划线上应填入的内容是（ 【11】 ）（A）Visible（B）Interval（C）Timer（D）Enabled39 以下能正确

9、定义数据类型Student的代码是（A）Type Student （B）Type StudentName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End Student（C）Type Student （D）Typedef StudentName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type Student End Type40 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性

10、值设置为True，这个属性是（ 【12】 ）（A）Value（B）Cancel（C）Default（D）Enabled41 以下叙述中错误的是（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件（B）保存Visual Basic程序时，应分别保存窗体文件及工程文件（C）事件可以由用户引发，也可以由系统引发（D）Visual Basic应用程序只能以解释方式执行42 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（A）List1.List （B）List1. Text（C）List1.ListIndex （D）List1.In

11、dex43 图像框Image有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（ 【13】 ）（A）Autosize（B）AutoRedraw（C）Appearance （D）Stretch44 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（A）Load（B）MouseDown （C）MouseUp （D）Click45 在窗体上画一个命令按钮，名称为Com1，然后编写如下程序：Private Sub Com1_Click( )For i=1 to 4 For j=0 to i Print Chr$(97+j); Next j Print Next iEnd Sub

12、则程序运行结果为（ 【14】 ）（A）ab （B）a （C）aa （D）aaabc b bb bbbabcd c cc ccccabcde d dd ddddd46 设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）

13、Lcase和Ucase49 如果要改变窗体的标题，则需要设置的属性是 （A）Name（B）Caption （C）BackColor （D）BorderStyle50 下列Format$函数的说明中错误的是（ 【17】 ）（A）一个 # 格式符表示一个数字位，# 的个数即为显示区段的长度（B）“ , ”格式符与“ . ”格式符的作用完全相同（C）“ $ ”格式符用于在数值前面加上一个$，以表示货币（D）0 格式符与 # 格式符的功能相似51 以下能判断是否到达文件尾的函数是（A）BOF （B）LOC （C）EOF （D）LOF52 执行下列程序段后，变量c的值为（ 【18】 ）a = 123 :

14、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）Enabled54 下列控件中，不能接收焦点的控件是（ 【20】 ）（A）Form（B）TextBox（C）CommandBotton （D）Label55 InputBox函数的返回值类型是（ 【21】 ）（A）数值型（B）字符串型（C）变体型（D）数值或字符串型（视输入的数据而定）56 如果一个工程含有多

15、个窗体及标准模块，则以下叙述中错误的是（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）3858 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click( ) m = 6789 c = Trim(Str(m) For i

16、= 1 To 4 Print （ 【23】 ） NextEnd 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=Val ( InputBox ( “ 请输入a的值 ” )b=Val ( InputBox ( “ 请输入b的值 ” )c=Val ( InputBox ( “ 请输入c的值 ” )If a b Then

17、 t = a : a = b : b = tIf a c Then t = a : a = c : c = tIf b c Then t = b : b = c : c = tPrint a , b , cEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入10、5、20，则输入结果为（ 【23】 ）（A）20105（B）51020（C）10520（D）2051060 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click() X=-4 If Sgn(X) Then Y=Sgn(X2) Else Y=Sgn(x)

18、End If Print YEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ 【4】 ）（A）1（B）-1（C）-4 （D）1661 下列不能打开代码窗口的操作是（ 【24】 ）（A）单击窗体的任何地方（B）双击窗体的任何地方（C）单击工程窗口中的“查看代码”按钮（D）单击“视图”下拉菜单中的“代码窗口”选项62 在立即窗口中输出变量a的值，正确的语句是（ 【25】 ）（A）Debug a（B）Debug.Print a（C）Print.Debug a（D）Print a63 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框

19、应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，此事件过程是（ 【26】 ）（A）Drive1_Change （B）Drive1_Click（C）Dir1_Click（D）Dir1_Change64 窗体的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）

20、参数x,y用来设置鼠标当前位置的坐标65 InputBox函数有6个参数，其中不能省略的参数项是（ 【26】 ）（A）Default参数（B）Title参数（C）Xpos，Ypos参数（D）Prompt参数66 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Option Base 1Private Sub Command1_Click() 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 sEnd Sub（A）34（B）12（C）12

21、34（D）432167 不能从一个已知字符串中得到一个子字符串的函数是（ 【27】 ）（A）Trim（B）Right（C）Mid（D）Left68 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（A）Combo1.RemoveItem Text（B）Combo1.RemoveItem Combo1.Listcount （C）Combo1.RemoveItem 2（D）Combo1.RemoveItem 369 表达式17 2 *10 Mod 3的值是（ 【28】 ）（A）0（B）1（C）2（D）370 如果在立即窗口中执行以下操作： a = “ abc ” （表示回车键，下同）

22、 b = “ aBc ” Print ab 则输出结果是（ 【29】 ）（A）-1（B）0（C）False（D）True71 在窗体上画一个名称为Text1的文本框，要求文本框只能接收小写字母的输入。以下能实现该操作的事件过程是（ 【29】 ）（A）Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 122 Then MsgBox “请重新输入小写字母” KeyAscii = 0 End If End Sub（B）Private Sub Text1_MouseUp(Button As Integer,Shift As Inte

23、ger, _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, _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)

24、 96 And Asc(Text1.Text) 123 Then MsgBox “请重新输入小写字母” End If End Sub72 以下语句的输出结果是（ 【30】 ） Print Format ( 1234567.89 , “ # , #.000 ” )（A）34,567.890（B）1,234,567.890（C）1,234,567,89（D）34,567.8973 当某个控件获得焦点时，将会触发的事件是（ 【31】 ）（A）GotFocus（B）SetFocus（C）ReceiveFocus（D）无事件触发74 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程

25、：Private Sub Command1_Click() Dim a As Integer Open “c:VbTestTest32.dat” For Binary As #1 a=1000 Seek #1, 10Put #1, , a Close #1End Sub则以下叙述中正确的是（ 【32】 ）（A）如果文件c:VbTestTest32.dat不存在，则Open命令执行失败（B）由于Put命令中没有指明位置，因此把变量a的值写到文件的末尾（C）变量a的值会从文件的第10个字节处开始写入（D）变量a的值会从文件的第10个记录处开始写入75 下列叙述中正确的是（ 【32】 ）（A）在窗体

26、的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 *

27、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）2079 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（A）= （B）* （C）& （D）-80 为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，将该菜单控件的（ 【35】 ）属性设置为一个连字符（-）即可。（A）Name（B）Caption（C）ShortCut（D）Text81

28、执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是 （A）只能写，不能读 （B）只能读，不能写（C）既可以读，也可以写 （D）不能读，不能写82 在程序运行期间，若改变滚动条中滚动块的位置，则触发的事件是（ 【36】 ）（A）GotFocus（B）Change（C）Move（D）Scroll83 假定窗体上有一个标签，名称为Label1，为了使该标签无边界线，则正确的属性设置是（ 【37】 ）（A）Label1.BorderStyle = 0 （B）Label1.BorderStyle = 1（C）Label1.

29、BorderStyle = True（D）Label1.BorderStyle = False84 确定触发计时器两个事件间隔的毫秒数，应使用计时器的（ 【38】 ）属性。（A）Visible（B）Enabled（C）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 在窗体上画一个命令按钮和两个文本框，

30、编写如下事件过程：Private Sub Command1_Click( )If Len ( Text1.Text) = 0 ThenText1.Text = Text2 .Text * Text2. TextElseText2.Text = Text1 .Text * Text1. TextEnd IfEnd Sub程序运行后，在文本框Text1中输入10，然后单击命令按钮，运行结果为（ 【40】 ）（A）在文本框Text1中输出100，在文本框Text2中输出0（B）在文本框Text1中输出100，在文本框Text2中输出10（C）在文本框Text1中输出10，在文本框Text2中输出10

31、0（D）在文本框Text1中输出10，在文本框Text2中输出10087 下列各组窗体属性中，在程序运行期间，属性值不能改变的一组属性是（ 【41】 ）（A）ControlBox和BorderStyle（B）MaxButton和MinButton（C）Name和BorderStyle （D）ControlBox和Caption88 下列可以打开立即窗口的操作是（ 【42】 ）（A）Ctrl + D（B）Ctrl + E（C）Ctrl + 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 design （B）basic ProgramingDesign（C）BASIC ProgramingDesign（D）Visual BASIC 6.0 design9