电大VisualBasic程序设计考试资料已整理排版.doc

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。Visual Basic程序设计一、 单项选择题 14. 、 /、 Mod、 *四个算术运算符中, 优先级别最低的是( C ) 。CModA58. ADO控件属于ActiveX控件, 使用之前必须加载Microsoft ADO Data Conctrol 6.0( OLE DB) , 将ADO控件添加到工具箱中。添加ADO控件的菜单为( B ) 。B”工程”部件”B17. 表示式4+5 6 * 7 / 8 Mod 9 的值是 ( B ) 。B5C4. 以下控件中, ( A ) 控件不会影响到界面设计效果。A计时器C9. ( C ) 控件不具有Caption属性。CTextBoxC33. 菜单编辑器中, 同层次的( B ) 属性值设置为相同, 才能够设置索引值。BNameC44. 程序运行时, 驱动器列表框下列( A ) 属性能返回磁盘驱动器的名称。ADriveD37. 当单击工具栏上的按钮, 会触发的事件是( A ) 。AButtonClickD64. 多媒体控件( MMControl) 具有一组执行MCI命令的下压式按钮。其中Record按钮表示为( B ) 。B录制G10. 改变控件在窗体中的上下位置, 应设置控件的( A ) 属性。ATopG46. 改变驱动器列表框的Drive属性值将激活其( A ) 事件。AChangeH18. 函数Int(Rnd*10)是在( C ) 范围内的整数。 C0, 10) J13. 假设已定义Integer变量x、 y, 则以下赋值语句正确的是( C ) 。Cy = x + yJ40. 检测文件是否结束的函数是( C ) 。CEOF()J57. 键盘事件的执行顺序是( B ) 。BKeyDown, KeyPress, KeyUpJ62. 决定系统是否自动检测多媒体控件( MMControl) 各按钮的状态的属性是( B ) 。BAutoEnableJ63. 将多媒体控件( MMControl) 的Frames属性设为3, 则以下叙述正确的是( A ) 。A指定Back或Step命令后退或前进的帧数都为3K26. 可经过( C ) 属性判断ListBox列表框控件的项目总数目。CListcountL25. ListBox中若没有任何条目选中, 其ListIndex属性值为( A ) 。A-1L27. 列表框的( B ) 属性用于返回或设置列表框中各列表项的文本。BListL54. Line( 100, 100) -Step( 400, 400) 将在窗体中的( C ) 画一条直线。C( 100, 100) 到( 500, 500) L59. 利用ADO访问数据库, 首先要创立一个( A ) 对象, 用于建立和数据库的连接。AConnection对象M34. 每创立一个顶级菜单, 它的下面最多能够有( C ) 级子菜单。C5N24. 能经过( D ) 来删除列表框中的选择项。DRemoveItem方法R1. 如果要设置窗体的标题栏, 应选择( B ) 属性。BCaptionR30. 若要把”XXX”添加到列表框List1中的第三项, 则可执行语句( B) 。BList1.AddItem XXX, 2R36. 如果要在程序中显示一个弹出菜单, 需调用( D ) 方法。DPopupMenuR55. RGB函数经过红、 绿、 蓝三基色混合产生某种颜色, 若使用三个滚动条分别输入三种基色, 为保证输入数值有效, 则应设置滚动条的( A ) 属性。AMax和MinR56. 如果在图片框上使用绘图方法绘制一个圆, 则图片框的( B) 属性决定了该圆的颜色。BForeColorS2. 要使命令按钮不响应用户生成的事件, 应设置命令按钮的( D ) 属性。DEnabledS3. 要使标签能透出窗体的背景, 应设置标签的( A ) 属性。ABackStyleS28. 设List1为列表框控件, List1.Clear中的Clear是( A ) 。A方法S41. 要读出C盘根目录下顺序文件stud.txt内容, 下列打开方式( C) 。COpen C:stud.txt For Input As #1S42. 随机文件使用( C ) 语句写数据。CPutS43. 随机文件使用( D ) 语句读数据。DGetS47. 使用目录列表框的( B ) 属性能够返回或设置当前工作目录的完整路径( 包括驱动器盘符) 。BPathS51. 要向图片框picP中加载”d:hainanzhiwu.bmp”图像文件, 应使用语句( C ) 。cpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)S60. SQL语言的Select语句中, 用于分组的语句为( B ) 。Bgroup byW7. 某计时器控件的interval属性为0时, 表示( A ) 。A计时器关闭计时W11. 文本框中选定的内容, 由下列( C ) 属性反映。CSeltextW65. 为了使多媒体控件( MMControl) 中的录制按钮不显示, 应添加代码( C ) 。CMMControl1.RecordVisible= FalseW67. Windows Media Player控件的UiMode属性, 表示播放器界面模式, 以下选项是播放器模式的属性值是( D) 。D以上都是 X15. 下列哪组语句能够将变量A、 B值互换( B ) 。BA=A+B : B=AB: A=ABX19. 下面( A ) 运算符是算术运算符。 AModX38. 下列能够用来存储图像能够供其它控件使用的控件是( C ) 。C ImageListX50. 下面对象中不能作为容器的是( B) 。BImage控件X53. 下列图形中不能使用Shape控件绘制的是( B ) 。B三角形X21. 下面程序段运行后, 显示的结果是( B ) 。B1Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfY22. 以下程序的输出结果是( C ) 。C10Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumY16. 以下语句的输出结果是( C ) 。Print Format (32548.5,”000,000.00”)C032,548.50Y20. 已知三个变量A、 B、 C, 判断A、 B、 C能否构成三角形的逻辑表示式为( B ) 。BA + C = B And A + B = C And B + C = AY29. 以下( D ) 语句将删除列表框List1中的最后一项。DList1.RemoveItem List1.ListCount-1Y31. 用户能够经过设置菜单项的( C ) 属性值为False来使该菜单项失效。CEnabledY32. 用户能够经过设置菜单项的( B ) 属性值设置为False来使该菜单项不可见。BVisibleY45. 要用通用对话框控件显示标准的”字体”对话框, 应调用其( C ) 方法。CShowFontY61. 以下四个控件, 不属于数据绑定控件的是( C ) 。COption控件Z5. 在Visual Basic中, 一般( B ) 属性用来设置字体的颜色。BForeColorZ6. 在VB中断模式下, 可用调试窗口监视表示式和变量的值, 其中在( A ) 窗口中能够直接键入命令以显示命令所请求的信息。A立即Z8. 在窗体Form1的Click事件过程中有以下语句: Label1.Caption=Visual Basic若本语句执行之前, 标签控件的Caption属性为默认值, 则标签控件的Name属性和Caption属性在执行本语句之前的值分别为( B ) 。 BLabel1和Label1Z12. 在Visual Basic中, 变量的默认类型是( D ) 。DVariantZ23. 在过程中定义的变量, 若希望在离开该过程后, 还能保存过程中局部变量的值, 则应使用( D ) 关键字在过程中定义局部变量。DStaticZ35. 在设计菜单时, 为了创立分隔栏, 要在( B ) 中输入字符( -) 。B标题栏Z39. 在Visual Basic中按文件的访问方式不同, 能够将文件分为( B) 。B顺序文件、 随机文件和二进制文件Z48. 在随机文件中( D ) 。D能够经过记录号随机读取记录Z49. 执行语句Open C: Stud.txt For Input As #2后, 系统( C) 。C打开C盘当前文件夹下名为Stud.txt的文件, 用来读取文件内容Z52. 执行Form1.Scale( 0, 10) -( 10, -10) 语句, Form1窗体坐标系x轴和y轴的正方向是( A) A向右和向Z66. 在多媒体控件( MMControl) 中, DeviceType属性用于设置多媒体设备的类型, 如果将要播放的文件是CD歌曲, 应将DeviceType属性设置为( D ) 。DCDAudioZ68. 在Windows Media Player控件中, 决定播放文件是否全屏的属性是( A ) 。AFullScreen二、 填空题A33.按文件的存取方式, 可将文件分为顺序文件、 随机文件 和 二进制文件 。A34. ADO模型中一般可经过Connection对象的 Execute 方法执行增加、 删除、 修改操作。使用ADO模型时, 建立Recordset和Connection对象连接的属性是 ActiveConnection 。A35. ADO数据模型中一般可经过Connection对象的 Execute 方法对数据库中的基本表进行增加、 删除、 修改等不返回结果集的操作。C22. 创立第一个按钮控件对象时, 系统自动为其”Name”属性分配一个名字, 该名字为 Command1 。D28. 对驱动器列表框来说, 每次重新设置驱动器列表框的 Drive 属性时, 将引发Change事件; 对目录列表框来说, 当 Path 属性值改变时, 将引发Change事件; 对于文件列表框, 重新设置的 Path 属性, 将引发Change事件。J4.将1 x =1 And xb and Not ca Or cb And ca+b的值是 True 。Y8. 有变量定义语句”Dim Str1,Str2 As String *10”, 其中Str1变量的类型应为变体型, 其中Str2变量的类型应为 字符串型。Z7. 在Visual Basic的转换函数中将数值转换为字符串的函数是 Str(x) ; 将数字字符串转换为数值的函数是 Val(x) ; 将字符转换为相应的ASCII码的函数是 Asc(x) 。Z10. 在Visual Basic中, 数组默认的下标下界是0 , 如果希望从1开始, 能够使用 Option Base n语句语句来设置。Z11. 在缺省情况下, 用Dim A(5,5)语句声明二维数组后, 数组A的元素共有 36 个。Z12. 在Visual Basic中, 参数经过 按值传递 和 按地址传递 两种方式传送。Z15. 在Visual Basic语言中有三种形式的循环结构。其中, 若循环的次数能够事先确定, 可使用For循环; 若要求先判断循环进行的条件, 可使用 While 循环或 Do 循环。 Z21. 在Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。Z24. 在Visual Basic中, 每个菜单项都是一个图形控件对象, 因此它们也有一些与其它控件类似的属性, 标题 就相当于其它控件的Caption属性, 而 名称 就相当于Name属性。Z25. 在Visual Basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中, 输入一个”-” 。Z26. 在Visual Basic中, 文件系统控件包括 驱动器列表框( DriveListBox) 、 目录列表框( DirListBox) 和文件列表框( FileListBox) 。三者协同操作能够访问任意位置的目录和文件, 能够进行文件系统的人机交互管理。Z29. 执行指令”Line (200,200) Step (500,500)”后, CurrentX 700 。Z30. 执行指令”Line (200,200) (500,500)”后, CurrentX 500 。三、 程序阅读题Y 阅读以下程序, 写出其功能。Private Sub cmdWhy_Click() cmdWhy为命令按钮, lblHelloVB为标签, txtHelloVB为文本框lblHelloVB .Caption = 为什么学VB txtHelloVB = ( 1) VB简单易学, 开发效率高, 通用性强, 用途广泛。 _+ vbCrLf + vbCrLf + ( 2) VB是国内外最流行的程序设计语言之一, _+ 也是学习开发Windows应用程序首选的程序设计语言。End Sub该程序功能: 单击cmdWhy按钮, 在lblHelloVB标签显示”为什么学VB”, 在txtHelloVB文本框显示以下内容: 1VB简单易学, 开发效率高, 通用性强, 用途广泛。2 VB是国内外最流行的程序设计语言之一, 也是学习开发Windows应用程序首选的程序设计语言。Y 阅读以下程序, 写出其功能。Private Sub cmdWhat_Click() cmdWat为命令按钮, lblHelloVB为标签, txtHelloVB为文本框lblHelloVB .Caption = VB能干什么txtHelloVB = VB能快速实现用户界面的设计、 _+ 文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库、 _+ 网络和图形等多方面的应用程序; 能够开发个人使用或小组 _+ 使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。End Sub该程序功能: 单击cmdWhat按钮, 在lblHelloVB标签显示”VB能干什么”, 在txtHelloVB文本框显示以下内容: VB能快速实现用户界面的设计、 文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库网络和图形等多方面的应用程序; 能够开发个人使用或小组使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。Y 阅读以下程序, 写出其功能。Private Sub cmdHow_Click() cmdHow为命令按钮, lblHelloVB为标签, txtHelloVB为文本框lblHelloVB .Caption = 如何学好VBtxtHelloVB = ( 1) 从实际应用程序的开发过程中学习VB程序设计。 _+ vbCrLf + vbCrLf + ( 2) 学会分析问题和解决问题的思路、 _+ 算法设计和实现方法。 + vbCrLf + vbCrLf _+ ( 3) 学会利用MSDN资源。 + vbCrLf + vbCrLf _+ ( 4) 养成良好的编程习惯。End Sub该程序功能: 单击cmdHow按钮, 在lblHelloVB标签显示”如何学好VB”, 在txtHelloVB文本框显示以下内容: ( 1) 从实际应用程序的开发过程中学习VB程序设计。( 2) 学会分析问题和解决问题的思路算法设计和实现方法。( 3) 学会利用MSDN资源。（4） 养成良好的编程习惯。Y 阅读以下程序, 写出其功能。Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As IntegerDim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1strOprator = +: intAnswer = intOp1 + intOp2Case 2strOprator = :If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintAnswer = intOp1 - intOp2Case 3strOprator = : intAnswer = intOp1 * intOp2Case 4strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion为标签lblQuestion.Caption = intOp1 & & strOprator & & intOp2 & = End Sub该程序是一个随机出题的过程。随机产生两个10以内的操作数, 随机产生一个操作符( +、 、 、 ) 。如果是减法和除法时, 第一操作数小于第二操作数时交换两个操作数, 且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion上显示题目。Y 阅读以下程序, 写出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As IntegersngSum = 0n = UBound(MarkArray) For i = 0 To nsngSum = sngSum + MarkArray(i) Next iAvg_mark = sngSum / n End Function该程序是一个求平均值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着求出数组所有元素的和, 最后得出该数组的平均值。Y 阅读以下程序, 写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As IntegersngMax = 0n = UBound(MarkArray) For i = 0 To nIf MarkArray(i) sngMax Then sngMax = MarkArray(i) Next iMax_Mark = sngMax End Function该程序是一个求最大值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素的最大值。Y 阅读以下程序, 写出其功能。Public Function Pass_Mark(MarkArray() As Single) As SingleDim intCount As Integer, i As Integer , n As IntegerintCount = 0n = UBound(MarkArray) For i = 0 To nif MarkArray(i) = 60 Then intCount = intCount + 1 Next iPass_Mark = intCount / nEnd Function该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中大于等于60的数的个数, 最后求出其比例。Y 阅读以下程序, 写出其功能。Private Sub Sort_Mark(MarkArray() As Single)Dim sngMtemp As SingleDim i As Integer , n As Integer , k As Integer,j As Integern = UBound(MarkArray) For i = 0 To n 1 k = iFor j = i + 1 To nIf MarkArray(j) MarkArray(k) Then k = jNext jsngMtemp = MarkArray(k)MarkArray(k) = MarkArray(i)MarkArray(i) = sngMtempNext iEnd Sub该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中的最大值和第一个元素交换位置; 求出次大值和第二个元素交换位置; 依次类推, 完成从大到小排序。Y 阅读以下程序, 写出其功能。Private Sub changecolor()Dim r As Integer , g As Integer, b As IntegerDim x As Long hsbRed、 hsbGreen和hsbBlue为水平滚动条hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub该过程的功能是用红色、 绿色、 蓝色三个滚动条调节窗体底色。先把红色、 绿色、 蓝色三个滚动条的Min属性设置为0、 Max属性设置为255, 接着用取出三个滚动条的Value属性值, 用RGB函数产生一个由红、 绿、 蓝三个Value属性值混合而成的新颜色, 并作为窗体底色。Y 阅读以下程序, 写出其功能。Public ADOcn As ConnectionPublic Sub Main()Dim strAccess As StringstrAccess=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d: xs.mdbIf ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strAccess End IffrmMain.Show frmMain为窗体End Sub该段程序的功能是建立数据库的连接。实现与D盘根目录下的文件名为xs.mdb 的Access数据库的连接, 同时显示frmMain窗体。Y 阅读以下程序, 写出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As String 文本框txtNo、 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.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + , txtClass.Text + )ADOcn.Execute strSQL End Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtNo中输入的学号, 如果存在则不增加; 如果不存在, 则把该学生的信息记录插入学生表中。四、 程序设计题B 编写一个程序。程序初始界面如图1左图所示, 设”学习目的”、 ”学习方法”和”退出”命令按钮的名称定义为cmdAim、 cmdWay和cmdExit, 标签控件的名称定义为lblContent。单击”学习目的”按钮, 显示如图1的中图所示; 单击”学习方法”命令按钮, 显示如图1的右图所示; 单击”退出”按钮时, 退出程序。 图1Private Sub cmdAim_Click() lblContent.Caption = 开发Windows应用程序End SubPrivate Sub cmdWay_Click() lblContent.Caption = 从实际应用程序的开发过程中学习VBEnd SubPrivate Sub cmdExit_Click() EndEnd SubB 编写一个数制转换程序, 运行界面如图3所示。设三个文本框的名称框定义分别为TxtDec、 TxtHex和TxtOct。实现在第一个文本框中输入十进制数后, 第二个文本框自动显示该数对应的十六进制数, 第三个文本框自动显示该数对应的八进制数。提示: 利用文本框的Change事件和转换函数Hex、 Oct。Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End SubB 编写一个猜数字程序。程序产生一个随机数, 由用户来猜这个数, 并提示用户猜的数是否太大或太小, 程序运行界面如4所示, 设输入文本框的名称框定义为TxtAnswer, 神秘的数、 评价标签控件的名称框定义为lblComment和lblNum, ”确定”命令按钮的名称定义为cmdOk。 Dim intNum As Integer 用于存放”神秘的数”Dim intCount As Integer 用于猜数计数Private Sub cmdOk_Click() intCount = intCount + 1 计数 If Val(txtAnswer.Text) = intNum Then 猜对 lblComment.Caption = 猜对了! 你一共猜了 & intCount & 次