1、Visual Basic 程序设计 （开放本科补修）课程期末复习一、单项选择题1. 如果要设置窗体的标题栏，应选择（ B ）属性。AVisible BCaption CName DText2. 要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。AVisible BCaption CEnable DEnabled3. 要使标签能透出窗体的背景，应设置标签的（ A ）属性。ABackStyle BBorderStyle CAppearance DBackColor4. 以下控件中， （ A ）控件不会影响到界面设计效果。A计时器 B文本框 C标签 DLine 控件5. 在 Visu
2、al Basic 中，一般（ B ）属性用来设置字体的颜色。AFontColor BForeColor CBackColor DShowColor6. 在 VB 中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗口中可以直接键入命令以显示命令所请求的信息。A立即 B.监视 C.本地 D.中断7. 某计时器控件的 interval 属性为 0 时，表示（ A ） 。A计时器关闭计时 CTimer 事件的 间隔时间为 0 毫秒BTimer 事件的 间隔时间为 0 秒 D计时器启动计时8. 在窗体 Form1 的 Click 事件过程中有以下语句：Label1.Caption=“Vis
3、ual Basic“若本语句执行之前，标签控件的 Caption 属性为默认值，则标签控件的 Name 属性和Caption 属性在执行本语句之前的值分别为（ B ） 。ALabel 和 Label BLabel1 和 Label1CLabel1 和 Visual Basic DLabel 和 Caption9. （ C ）控件不具有 Caption 属性。ALabel BForm C TextBox DCommandButton10. 改变控件在窗体中的上下位置，应设置控件的（ A ）属性。ATop BLeft CWidth DRight11. 文本框中选定的内容，由下列（ C ）属性反映。
4、AText BCaption CSeltext DSelLenght12. 在 Visual Basic 中，变量的默认类型是（ D ） 。AString BInteger CDouble DVariant13. 假设已定义 Integer 变量 x、y，则以下赋值语句正确的是（ C ） 。Ax + 1 = y Bx := y Cy = x + y D1 = x14. 、/、Mod、*四个算术运算符中，优先级别最低的是（ C ） 。A B/ CMod D*15. 下列哪组语句可以将变量 A、B 值互换（ B ） 。AA=C : C=B : B=A BA=A+B : B=AB: A=ABCA=B
5、 : B=A DA=(A+B)/2 : B=(A - B)/216. 以下语句的输出结果是（ C ） 。Print Format (32548.5,“000,000.00”)A32548.5 B32,548.5 C032,548.50 D32,548.5017. 表达式 4+5 6 * 7 / 8 Mod 9 的值是 （ B ） 。A4 B5 C6 D718. 函数 Int(Rnd*10)是在（ C ）范围内的整数。 A （0, 10） B(0,10 C0, 10） D0, 1019. 下面（ A ）运算符是算术运算符。 AMod BLike CAnd DNot20. 已知三个变量 A、B、C
6、，判断 A、B、C 能否构成三角形的逻辑表达式为（ B ） 。AA = B And B = C And A = C BA + C = B And A + B = C And B + C = ACA + C = B Or A + B = C Or B + C = ADA + C = B And A + B = C Or B + C = A21. 下面程序段运行后，显示的结果是（ B ） 。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0 B1 C2 D不一定22. 以下程序的输出结果是（ C ） 。Dim
7、a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4 B6 C10 D不一定23. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。ADim BPublic CPrivate DStatic24. 能通过（ D ）来删除列表框中的选择项。AList 属性 BText 属性 CClear 方法 DRemoveItem 方法25. ListBox 中若没有任何条目选中，其 ListIndex 属性值为（ A ） 。A-1 B0
8、 C1 D任意26. 可通过（ C ）属性判断 ListBox 列表框控件的项目总数目。AListIndex BListText CListcount D随机数27. 列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。ASelected BList CText DCaption28. 设 List1 为列表框控件，List1.Clear 中的 Clear 是（ A ） 。A方法 B对象 C属性 D事件29. 以下（ D ）语句将删除列表框 List1 中的最后一项。AList1.RemoveItem List1.ListCount BList1.ClearCList1.List(Li
9、st1.ListCount-1)= “ DList1.RemoveItem List1.ListCount-130. 若要把“XXX”添加到列表框 List1 中的第三项，则可执行语句（ B ） 。AList1.AddItem “XXX“, 3 BList1.AddItem “XXX“, 2CList1.AddItem 3,“XXX“ DList1.AddItem 2,“XXX“31. 用户可以通过设置菜单项的（ C ）属性值为 False 来使该菜单项失效。AHide BVisible CEnabled DChecked32. 用户可以通过设置菜单项的（ B ）属性值设置为 False 来使
10、该菜单项不可见。AHide BVisible CEnabled DChecked33. 菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。ACaption BName CIndex DShortCut34. 每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。A1 B3 C5 D635. 在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-） 。A名称栏 B标题栏 C索引栏 D显示区36. 如果要在程序中显示一个弹出菜单，需调用（ D ）方法。APrint BMove CRefresh DPopupMenu37. 当单击工具栏上的按钮，会触发的事件是（ A ） 。
11、AButtonClick BChange CLoad DKeyPress38. 下列可以用来存储图像可以供其它控件使用的控件是（ C ） 。AToolBar BStatursBar C ImageList DTreeView39. 在 Visual Basic 中按文件的访问方式不同，可以将文件分为（ B ） 。A文本文件和数据文件 B顺序文件、随机文件和二进制文件CASCII 文件和二进制文件 D数据文件和可执行文件40. 检测文件是否结束的函数是（ C ） 。ALOF() BLen() CEOF() DChr()41. 要读出 C 盘根目录下的顺序文件 stud.txt 中的内容，下列打开
12、方式中（ C ）是正确的。AOpen “ C:stud.txt“ For Append As #1 BOpen “ C:stud.txt“ For Random As #1COpen “ C:stud.txt“ For Input As #1 DOpen “ C:stud.txt“ For Output As #142. 随机文件使用（ C ）语句写数据。AInput# BWrite # CPut DGet43. 随机文件使用（ D ）语句读数据。AInput# BWrite # CPut DGet44. 程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。ADrive BDri
13、veName CChgdrive DDrives45. 要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。AShowOpen BShowColor CShowFont DShowSaveas46. 改变驱动器列表框的 Drive 属性值将激活其（ A ）事件。AChange BScroll CKeyDown DKeyUp47. 使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符） 。ADrive BPath CDir DListIndex48. 在随机文件中（ D ） 。A记录的内容是随机产生的 B记录的长度是任意的C记录号是通过随机数产生的
14、D可以通过记录号随机读取记录49. 执行语句 Open “C：Stud.txt“ For Input As #2 后，系统（ C ） 。A将内存数据存放在 C 盘当前文件夹下名为 Stud.txt 的文件中B将某个磁盘文件的内容写入 C 盘当前文件夹下名为 Stud.txt 的文件中C打开 C 盘当前文件夹下名为 Stud.txt 的文件，用来读取文件内容D在 C 盘当前文件夹下建立名为 Stud. txt 的顺序文件50. 下面对象中不能作为容器的是（ B ） 。A窗体 BImage 控件 CPictureBox 控件 DFrame 控件51. 要向图片框 picP 中加载 “d:haina
15、nzhiwu.bmp”图像文件，应使用语句（ C ） 。APicture1.Picture=“ d:hainanzhiwu.bmp“BPicture1.Picture=LoadPicture(“d:hainanzhiwu.bmp“)CpicP.Picture=LoadPicture(“d:hainanzhiwu.bmp“)DpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)52. 执行 Form1.Scale（0, 10）-（10, -10）语句后，Form1 窗体坐标系 x 轴和 y 轴的正方向是（ A ） 。A向右和向上 B向左和向下 C向右和向下 D向
16、左和向上53. 下列图形中不能使用 Shape 控件绘制的是（ B ） 。A矩形 B三角形 C正方形 D椭圆54. Line（100，100）-Step（400，400）将在窗体中的（ C ）画一条直线。A （200，200）到（400，400 ） B （100，100）到（300，300）C （100，100）到（500，500 ） D （100，100）到（400，400）55. RGB 函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。AMax 和 Min BSmallchange 和 LargeChangeC
17、Scroll 和 Change DValue56. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（ B ）属性决定了该圆的颜色。ABackColor BForeColor CFillColor DDrawStyle57. 键盘事件的执行顺序是（ B ） 。AKeyPress， KeyDown，KeyUp BKeyDown，KeyPress ，KeyUpCKeyUp ，KeyDown，KeyPress DKeyUp，KeyPress ，KeyDown58. ADO 控件属于 ActiveX 控件，使用之前必须加载 Microsoft ADO Data Conctrol 6.0（OLE DB）
18、 ，将 ADO 控件添加到工具箱中。添加 ADO 控件的菜单为（ B ） 。A “工程”“引用” B “工程”“部件”C “工具”“选项” D “工程”“添加文件”59. 利用 ADO 访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection 对象 BRecordset 对象CCommand 对象 DObject 对象60. SQL 语言的 Select 语句中，用于分组的语句为（ B ） 。Awhere Bgroup by Corder by Dhaving61. 以下四个控件，不属于数据绑定控件的是（ C ） 。AText 控件 BDataGrid 控件 C
19、Option 控件 DLabel 控件62. 决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ B ） 。AEnable BAutoEnableCPlayEnabled D以上答案都不正确63. 将多媒体控件（MMControl）的 Frames 属性设为 3，则以下叙述正确的是（ A ） 。A指定 Back 或 Step 命令后退或前进的帧数都为 3B只有 Back 命令后退的帧数为 3C只有 Step 命令前进的帧数为 3D后退或前进的帧数都为 664. 多媒体控件（MMControl）具有一组执行 MCI 命令的下压式按钮。其中 Record 按钮表示为（ B
20、） 。A前一首 B录制 C弹出 D播放65. 为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ C ） 。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True66. 在多媒体控件（MMControl）中，DeviceType 属性用于设置多媒体设备的类型，如果将要播放的文件是 CD 歌曲，应将 DeviceType 属性设置为（ D ） 。ADigitalVideo BWaveAudio CAVIV
21、ideo DCDAudio67. Windows Media Player 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ D ） 。AFull BMini CNone D以上都是 68. 在 Windows Media Player 控件中，决定播放文件是否全屏的属性是（ A ） 。AFullScreen BFull CScreen DstretchToFit二、填空题1. 数学表达式 cox2x+ 写成等价的 Visual Basic 表达式为 cos(x)21yx2+Sqr(x2-y2)/2 。2. 数学表达式 写成等价的 Visual Basic 表达
22、式为 10(1/2)05cos*cos(50*3.14/180) 或者 Sqr(10)*cos(50*3.14/180) 。3. 数学式子 对应的 Visual Basic 运算表达式是 ： Sqr(s*(s-a)()(csbas*(s-b)*(s-c) 。4. 将 1 x =1 And xb and Not ca Or cb And c 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion 为标签lblQuestion.Caption = intOp1 Data Source=d: xs.mdb“If AD
23、Ocn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strAccess End IffrmMain.Show frmMain 为窗体End Sub该段程序的功能是建立数据库的连接。实现与 D 盘根目录下的文件名为xs.mdb 的 Access 数据库的连接，同时显示 frmMain 窗体。11. 阅读以下程序，写出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As String 文本框 tx
24、tNo、txtName 和组合框 cboSex、cboClass分别用来输入学号、姓名、性别和班级strSQL = “select * from 学生表 where 学号=“ + txtNo.Text + “ ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF ThenMsgBox “该记录已经存在，不能继续增加！“, vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = “insert into 学生表(学号,姓名,性别,班级)“strSQL = strSQL + “ values(“ + txtNo.T
25、ext + “,“ + txtName.Text + “,“ strSQL = strSQL +“ + cboSex.Text + “,“ txtClass.Text + “)“ADOcn.Execute strSQL End Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框 txtNo 中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。四、程序设计题1. 编写一个程序。程序初始界面如图 1 左图所示，设“学习目的” 、 “学习方法”和“退出”命令按钮的名称定义为 cmdAim、cmdWay 和 cmdExit，标签控件的名称定义为
26、lblContent。单击“学习目的 ”按钮，显示如图 1 的中图所示；单击“学习方法”命令按钮，显示如图 1 的右图所示；单击“退出”按钮时，退出程序。图 1Private Sub cmdAim_Click()lblContent.Caption = “开发 Windows 应用程序“End SubPrivate Sub cmdWay_Click()lblContent.Caption = “从实际应用程序的开发过程中学习 VB“End SubPrivate Sub cmdExit_Click()EndEnd Sub2. 设计一个简单的加法程序，程序界面设计如图 2 所示。设第一操作数、第二
27、操作数和计算结果文本框的名称分别定义为 txtFirstNum、txtSecondNum 和 txtSum， “计算”命令按钮的名称定义为 cmdSum。图 2Private Sub cmdSum_Click()txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)End Sub3. 编写一个数制转换程序，运行界面如图 3 所示。设三个文本框的名称框定义分别为TxtDec、TxtHex 和 TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利
28、用文本框的 Change 事件和转换函数 Hex、Oct。图 3Private Sub TxtDec_Change()TxtHex.Text = Hex(Val(TxtDec.Text)TxtOct.Text = Oct(Val(TxtDec.Text)End Sub4. 编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4 所示，设输入文本框的名称框定义为TxtAnswer，神秘的数、评价标签控件的名称框定义为 lblComment 和 lblNum， “确定”命令按钮的名称定义为 cmdOk。图 4Dim intNum As Inte
29、ger 用于存放“神秘的数”Dim intCount As Integer 用于猜数计数Private Sub cmdOk_Click()intCount = intCount + 1 计数If Val(txtAnswer.Text) = intNum Then 猜对lblComment.Caption = “猜对了！你一共猜了“ KeyCode, “ Shift：“; ShiftEnd IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print “KeyPress 事件：KeyAscii “; KeyAscii; “ 按下了：“;
30、 Chr(KeyAscii)End Sub10. 有以下 3 个数据表：学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。课程表：course_info(course_ID ,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark 为数
31、字类型。写出下列功能的 SQL 语句： 插入一个新课程记录（课程号：A001 ；课程名：英语 1；学分：5） 修改学号为“95020” ，课程号为“A001 ”的成绩为 85 查询所有学生的基本信息，使用中文作为查询结果的各字段的名称 统计出各个班级的人数 查询出学号为“95020”所选修的课程名和成绩，以及姓名 Insert into course_info values (A001, 英语, 5) Update mark_info set mark=85 where student_ID =95020 and course_ID =A001 Select student_id as 学号,
32、 student_name as 姓名, student_sex as 性别, student_class as 班级 from student_info Select student_class ,count(*) from student_info group by student_class Select student_name as 姓名, course_name as 课程名, mark as 成绩 from student_info, course_info, mark_info where student_info. student_id = mark_info. studen
33、t_id and course_info. course_ID = mark_info. course_IDand student_info. student_id =9502011. 编写使用 ADO 对象中的 Connection 对象连接 SQL Server 数据库的代码。Public ADOcn As ConnectionPublic Sub Main()Dim strSqlServer As StringstrSqlServer=“Provider=SQLOLEDB;Server=(local);User ID=sa; _ Password=sa; Database=XS“If ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strSqlServer 连接 SQL Server 数据库End IfEnd Sub
