1、专业收集整理精品文档！-精品文档，值得下载，可以编辑！-！=21-22四川师范大学20112012学年度第二学期期末考试大学计算机基础（理科）试卷 A卷考生注意：1、本试卷共9页，四个大题，满分100分，120分钟完卷。2、本次考试为闭卷考试。3、试卷适用于理科各专业。4、一-三大题请把答案填涂在机读卡上(机读卡中考号请正确填涂学号，否则无成绩。试卷种类、试卷类别不涂写。请用2B铅笔正确填涂)5、第四大题请在答题纸上作答。监考老师注意：1、请监考老师检查学生填写、涂写的姓名，考号是否正确。2、请要求并检查学生只能用2B铅笔填涂。3、收试卷时请一定要按照考号顺序(从小到大)把答题纸和机读卡分别排
2、列好。一、判断题：(每小题1分，共20分。请将答案涂在答题卡上，正确的涂A，错误的涂B）1. 工程文件的扩展名是.vbp。 （ 1 ）2. 在一个语句行内写多条语句时，语句之间应该用逗号分隔。 （ 2 ）3. VB应用程序是采用事件驱动的方式来运行的。 （ 3 ）4. 通过改变属性窗口中的Name属性，来改变窗体的标题。 （ 4 ）5. MsgBox()用于显示一个消息框。 （ 5 ）6. 在VB中，字符型常量应使用“#”号将其括起来。 （ 6 ）7. 可以用A2,3表示二维数组A中的元素。 （ 7 ）8. 设x=34.58，语句Print Format(x,000.0)的输出结果是34.6。
3、 （ 8 ）9. 表达式Int(-17.8)+Sgn(17.8)的值是16。 （ 9 ）10. 表达式25 Mod 7的值是4。 （ 10 ）11. 使用Dim定义的变量无法在同一模块的所有过程中使用。 （ 11 ）12. 图像框的Stretch属性为True时，其作用是图形自动裁剪其大小以适应图像控件。 （ 12 ）13. 若列表框的ListCount值为10，则选中列表框最后一项后的ListIndex值为10。 （ 13 ）14. 可以通过文本框的Text属性来取得用户从键盘输入的值。 （ 14 ）15. 若要获得滚动条的当前位置，可以通过获取Value属性值来实现。 （ 15 ）16.
4、列表框和组合框都可以为用户提供选择的功能，两者的区别在于组合框还具有文本输入的功能，而列表框没有文本输入的功能。 （ 16 ）17. 在过程中，用Static定义的变量其值不会在每次执行过程的时候被初始化。 （ 17 ）18. 在过程调用时，若实参是数组，则必须是按值传递。 （ 18 ）19. 在VB中要关闭文件号为2的文件，可以使用命令Close 2。20. 设已经打开一个顺序文件，并指定其文件号为1，要将变量A、B、C的值写到该文件中，可以使用命令Write to #1,A,B,C。二、单项选择题：(每小题1分，共30分。请将选择答案涂在答题卡上)21. 下列可作为Visual Basic
5、变量名的是（ 21 ）。AA#AB4AC?xYDconsA22. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ 22 ）。A属性、控件和方法B属性、事件和方法C窗体、控件和过程D控件、过程和模块23. 确定一个控件在窗体上的位置的属性是（ 23 ）。AWidth和HeightBWidth或HeightCTop和LeftDTop或Left24. 设S=中华人民共和国，表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为（ 24 ）。A中华民国B中国人民C中共人民D人民共和25. 把数值型数据转换为字符串需要使用的函数是（ 25 ）。AValBS
6、trCAscDSqr26. 下列是有关描述xyz的表达式，正确的选项是（ 26 ）。Axy Or yzBxyzCxy And xz Dxy And yz27. 语句x=x+1的正确含义是（ 27 ）。A变量x的值与x+1的值相等B将变量x的值存到x+1中去C将变量x的值加1后赋给变量xD变量x的值为128. 函数Int(Rnd*11)+10产生的数值的范围是（ 28 ）。A(0,10)B10,10C10,20D(0,20)29. 函数InStr(Windows,Mid(winnt,2,2)的返回值是（ 29 ）。A0B1C2D330. 设a=3、b=5，则以下表达式值为真的是（ 30 ）。Aa
7、=b And b10B(ab) Or (b0)C(a0)D(-3+5a) And (b0)31. 已知i=0、s=0，执行以下程序段后，s的值是（ 31 ）。Do Until i=4s=i+si=i+1LoopA6B10C11D1532. 以下控件中可以作为容器控件的是（ 32 ）。ALabel标签控件BPictureBox图片框控件CTextBox文本框控件DListBox列表框控件33. 决定控件是否可见的属性是（ 33 ）。AEnabledBVisibleCBorderStyleDWordWrap34. 为了把焦点移动某个指定的控件上，所使用的方法是（ 34 ）。ASetFocusBVi
8、sibleCRefreshDGotFocus35. 表示一个单选按钮没被选中，应设置其哪一个属性的值为False（ 35 ）。AValueBEnabledCDefaultDCancel36. 引用列表框（List1）最后一个数据项应使用的表达式是（ 36 ）。AList1.List(List1.ListCount)BList1.List(List1.ListCount-1)CList1.List(ListCount)DList1.List(ListCount-1)37. 已知Option Base 1，Dim A(2 To 3,4) As Integer，则数组A的元素个数及其第1维的下界分别
9、是（ 37 ）。A8和1B8和2C12和1D12和238. Sub子过程用的结束语句是（ 38 ）。AEnd SubBExit SubCEnd FunctionDExit Function39. 关于Sub过程和Function过程，以下说法正确的是（ 39 ）。ASub过程和Function过程都可以用Call语句直接调用BFunction过程可以有形参，Sub过程部可以CSub过程通过参数获得返回值，而Function过程还可以通过过程名获得返回值D两种过程参数的传递方式不同40. 下列关于过程叙述不正确的是（ 40 ）。A过程的传值调用是将实参的具体值递给形参B过程的传址是将实参在内存的
10、地址传递给形参C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D无论过程传值调用还是传址调用，参数传递都是双向的41. 对于定时器（Timer）控件，设置其定时时是否开启的属性是（ 41 ）。AIndexBVisibleCEnabledDLeft42. 有如下程序，运行后输出的结果是（ 42 ）。a=6b=8F=Sqr(a*a+b*b)Print FA6B8C10D1443. 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（ 43 ）。ATimer1.Interval=0.5BTimer1.Interval=5CTi
11、mer1.Interval=50DTimer1.Interval=50044. 以下（ 44 ）语句可以从文本框Text1输入一个数据到整型变量N中。AN=Text1.TextBN=Text1CN=Val(Text1.Text)DText1.Text=N45. 以下程序段（ 45 ）能正确实现条件：如果xy则A=1，否则A=-1。AIf xy Then A=1BIf xy Then A=1A=-1 A=-1Print ACIf xy ThenDIf xy Then A=1A=1 Else A=-1 Else End IfA=-1End If46. 如果要使命令按钮表面显示文字“退出 (X)”（
12、字符X下有一横线），则其Caption属性应设置为（ 46 ）。A退出 (X)B退出 (&X)C退出 ($X)D退出 (_X)47. 按照文件访问方式不同可将数据文件分为三类，其中部包括的是（ 47 ）。A顺序文件B随机文件C二进制文件D镜像文件48. 设有语句Open C:Text.dat For Output As #1，则以下错误的叙述是（ 48 ）。A若Text.dat文件存在，则该语句可以打开此文件B若Text.dat文件不存在，则该语句可以建立此文件C执行该语句后，就可以通过Print #语句向文件Text.dat的末尾追加写入数据D执行该语句后，就可以通过Print #语句向文件
13、Text.dat从头开始写入数据49. 框架内的所有控件是（ 49 ）。A随框架一起显示、移动、消失和屏蔽B不随框架一起显示、移动、消失和屏蔽C仅随框架一起移动D仅随框架一起显示和消失50. 下列循环语句中，循环体语句执行的次数为（ 50 ）。For I=1 To 30 Step -3Next IA0次B无穷多次C10次D11次三、读程序题：(每小题2分，共30分。请将选择答案涂在答题卡上)(1)有以下程序段： K=1 If K=1 Then A=2*KIf K=2 Then A=2*K+1If K= 10Print A级Case Is = 20Print B级Case Is = 30Prin
14、t C级Case Is = 40Print D级End Select53该程序段执行后输出的结果为（ 53 ）。AA级BB级CC级DD级 (3)阅读以下程序段：For J=1 To 5Print Tab(6-J);Print String(J,Trim(Str(J)Next J54该程序执行后的为（ 54 ）。A1B 1C 1D5 2 22 2 4 3 333 3 3 4 4444 4 2 5 55555 5 1(4)阅读以下程序段：K=0For I=0 To 10 Step 3 For J=1 To 10 If J5 Then K=K+4 : Exit For K=K+1 Next J If
15、 I8 Then Exit ForNext IPrint I,K （ 55 ）Print J （ 56 ）55程序执行后，I和K的值分别是（ 55 ）。A9 120B9 32C6 32D9 3656程序执行后，J的值分别是（ 56 ）。A1B5C6D10(5)阅读以下程序段：Dim M(10)For J=0 To 10M(J)=2*JNext JPrint M(M(2) （ 57 ） Print M(J-1) （ 58 ）57程序段执行后第一行输出的结果是（ 57 ）。A4B8C12D2058程序段执行后第二行输出的结果是（ 58 ）。A9B8C18D20(6)阅读如下程序段：Dim x,y,
16、zSub SS()x=x+1y=y+1z=z+1Print x,y,zEnd SubPrivate Sub Command1_Click()Dim x,y,zx=1y=2z=3Call SSPrint x,y,zEnd Sub59第一次单击Command1按钮时显示结果为（ 59 ）。A1 1 1B1 1 1C1 2 3D2 2 2 1 2 3 1 1 1 1 2 3 1 2 360第二次单击Command1按钮时显示结果为（ 60 ）。A1 1 1B1 1 1C1 2 3D2 2 2 1 2 3 1 1 1 1 2 3 1 2 3(7)有如下程序段：Num=0For I=1 To 10If
17、I Mod 2=0 Then Num=Num+1End IfNext IPrint Num （ 61 ）61程序段执行后输出的结果为（ 61 ）。A1B2C5D1062该程序的功能是（ 62 ）。A计算1到10以内所有数的和B计算1到10以内偶数的和C计算1到10以内偶数的个数D计算1到10以内数的个数(8)阅读如下程序段：X=5Y=6If Not X0 ThenX=Y-3ElseY=X+3End IfPrint X-Y （ 63 ） Print Y-X （ 64 ）63程序段执行后第一行输出的结果是（ 63 ）。A-3B5C3D-664程序段执行后第二行输出的结果是（ 64 ）。A-3B-9
18、C3D5 (9)设文本框Text1的内容是123，有以下程序段：Num1=Text1.TextNum2=InputBox(Enter the Number)Print Num1+Num265运行后在输入框中输入123，则输出结果为（ 65 ）。A123B246C123123D出错四、填空题：(每空2分，共20分。请将答案写在答题纸上！)(1) 编写程序计算S=1+(1*2)+(1*2*3)+(1*2*3*4)+.+(1*2*3*.*6)，并将结果送到文本框Text1显示输出，阅读以下程序，并将程序补充完整。Private Sub Command1_Click()Dim S, I, J As I
19、ntegerJ=1 （ 66 ） For I=1 To 6 （ 67 ） S=S+JNext I （ 68 ） End Sub(2) 已知数组A()中存放有10个0100之间的随机整数，找出这10个数中的最大数，并以冒泡排序法升序排列这10个数，并将排序的结果送到文本框Text2中显示输出。阅读以下程序，并将程序补充完整。Option Base 1Private Sub Command1_Click()Max=0For I=1 To 10 If （ 69 ） Then Max=A(I)Next IText1.Text=MaxFor I=1 To 9For （ 70 ） If （ 71 ） Th
20、enT=A(J)A(J)=A(J+1)A(J+1)=TEnd IfNext JNext ITExt2.Text=For I=1 To 10 （ 72 ） Next IEnd Sub(3) 本程序用于显示、添加和删除列表框（List1）中的项目，用户界面如下图所示。当用户在列表框中单击选择某项时，该项的内容将显示在右侧的文本框1（Text1）中；若在右侧的文本框2（Text2）中输入要添加的内容，然后单击“添加”按钮（Command1），可将指定的内容添加到列表框中；若在列表框中选定某项，再单击“删除”按钮（Command2），可将选定内容从列表框中删除。阅读以下程序，并将程序补充完整。 选中列
21、表框中的项目，并使其显示在Text1中Private Sub List1_Click() （ 73 ） End Sub 该按钮用于将文本框Text2中的内容添加到列表框中Private Sub Command1_Click()If Text2.Text Then （ 74 ） Text2.Text = End IfEnd Sub 该按钮用于将列表框中选定内容删除Private Sub Command2_Click()If List1.ListIndex 0 Then （ 75 ） End IfEnd Sub四川师范大学基础教学学院20112012学年度第二学期期末考试大学计算机基础试卷（理科）
22、 A卷参考答案一、判断题：(每小题1分，共20分。请将答案涂在答题卡上，正确的涂A，错误的涂B）1：A2：B3：A4：B5：A6：B7：B8：B9：B10：A11：B12：B13：B14：A15：A16：A17：A18：B19：A20：B二、单项选择题：(每小题1分，共30分。请将选择答案涂在答题卡上)21：D22：B23：C24：B25：B26：D27：C28：C29：C30：B31：A32：B33：B34：A35：A36：B37：B38：A39：C40：D41：C42：C43：D44：C45：C46：B47：D48：C49：C50：A三、读程序题：(每小题2分,共30分。请将选择答案涂在答
23、题卡上)51：D52：D53：A54：B55：D56：C57：B58：D59：A60：D61：C62：C63：A64：C65：C四、填空题：(每小题2分，共20分。请将答案写在答题纸上！)66.S=067.J=J*I68.Text1.Text=S或 Text1.Text=Str(S)或 Text1.Text=Format(S)69.MaxMax或 A(I)=Max 70.J=I To 1 Step -1或J=1 TO 10-I71.A(J) A(J+1)72.Text2.Text=Text2.Text + Str(A(I)或 Text2.Text=Text2.Text & A(I)73.Text1.Text = List1.Text或 Text1.Text = List1.List(List1.ListIndex)74.List1.AddItem Text2.Text75.List1.RemoveItem List1.ListIndex=专业收集精品文档，您的最好选择=
