最新计算机程序设计A计算机程序设计答案 精品.docx

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

2、aption （C）Name （D）Lcon4 从键盘上输入两个字符串，分别保存在变量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

3、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)/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 O

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

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

6、t（C）For i=1 To List1.ListCount （D）For i=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的值

7、是字符串 “100”（D）在InputBox对话框标题栏中显示的是“请输入数值”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）设置文

8、本框的焦点37 设a = “西南交通大学峨眉校区”，下面使b = “峨眉校区”的语句是（ 【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）Visi

9、ble（B）Interval（C）Timer（D）Enabled39 以下能正确定义数据类型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 为了

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

11、ist1. Text（C）List1.ListIndex （D）List1.Index43 图像框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 Prin

12、t Chr$(97+j); Next j Print Next iEnd Sub则程序运行结果为（ 【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 下列各组函数中，功能相似的一组函数是（

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

14、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）Enabled54 下列控件中，不能接收焦点的控件是（ 【20】 ）（A）Form（B）TextBox（C）CommandBotton （D）Label55 InputBox函数的返回值类型是（ 【21】 ）（A）数值型（B）字符

15、串型（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）3858 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_

16、Click( ) m = 6789 c = Trim(Str(m) For i = 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=

17、Val ( InputBox ( “ 请输入c的值 ” )If a b Then 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

18、 If Sgn(X) Then Y=Sgn(X2) Else Y=Sgn(x) 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 在窗体上画一个名称为Drive

19、1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，此事件过程是（ 【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参数只能用来确定是否

20、按下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 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）1234（D）432167 不能从一个已知字符串中得到一个子字符串的函数是（ 【27】 ）（A）Trim（B）Right（C）Mid（D）Left68 设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（A）Combo1.RemoveItem Text（B）Com