2022年电大Visual_Basic程序设计考试资料已整理排版 .docx

精选学习资料 - - - - - - - - - Visual Basic程序设计一、单项挑选题A B C C C C D D G G H J J J J J K L L L L M N R R R R R S S S S S S S S S W W 14.、/、Mod 、*四个算术运算符中,优先级别最低的是（ C ）； CMod 58.ADO 控件属于 ActiveX 控件,使用之前必需加载Microsoft ADO Data Conctrol 6.0（OLE DB ）,将 ADO 控件添加到工具箱中；添加ADO 控件的菜单为（ B ）； B“ 工程” “ 部件”17.表达式 4+5 6 * 7 / 8 Mod 9 的值是（ B ）；B5 4.以下控件中,（ A ）控件不会影响到界面设计成效；A 计时器9.（ C ）控件不具有Caption 属性； CTextBox 33.菜单编辑器中,同层次的（ B ）属性值设置为相同,才可以设置索引值；BName 44.程序运行时,驱动器列表框以下（ A ）属性能返回磁盘驱动器的名称；ADrive 37.当单击工具栏上的按钮,会触发的大事是（ A ）； AButtonClick 64.多媒体控件（ MMControl ）具有一组执行MCI 命令的下压式按钮；其中Record 按钮表示为（ B ）； B录制10.转变控件在窗体中的上下位置,应设置控件的（ A ）属性； ATop 46.转变驱动器列表框的Drive 属性值将激活其（ A ）大事； AChange 18.函数 IntRnd*10 是在（ C ）范畴内的整数； C0, 10 ）13.假设已定义Integer 变量 x、y,就以下赋值语句正确选项（ C ）； Cy = x + y 40.检测文件是否终止的函数是（ C ）； CEOF 57.键盘大事的执行次序是（ B ）； B KeyDown ,KeyPress,KeyUp 62.打算系统是否自动检测多媒体控件（MMControl ）各按钮的状态的属性是（ B ）； B AutoEnable 63.将多媒体控件（MMControl ）的 Frames属性设为 3,就以下表达正确选项（ A ）； A指定 Back 或 Step命令后退或前进的帧数都为3 26.可通过（ C ）属性判定ListBox 列表框控件的工程总数目；CListcount25.ListBox 中如没有任何条目选中,其ListIndex 属性值为（ A ）； A-127.列表框的（ B ）属性用于返回或设置列表框中各列表项的文本；B List54.Line （100,100）-Step（400,400）将在窗体中的（ C ）画一条直线；C（ 100,100）到（ 500,500）59.利用 ADO 拜访数据库,第一要创建一个（ A ）对象,用于建立和数据库的连接；A Connection 对象34.每创建一个顶级菜单,它的下面最多可以有（ C ）级子菜单； C5 24.能通过（ D ）来删除列表框中的挑选项；DRemoveItem 方法1.假如要设置窗体的标题栏,应挑选（ B ）属性；BCaption 30.如要把“XXX ” 添加到列表框List1 中的第三项,就可执行语句（B）； BList1.AddItem "XXX", 2 36.假如要在程序中显示一个弹出菜单,需调用（ D ）方法； DPopupMenu 55.RGB 函数通过红、绿、蓝三基色混合产生某种颜色,如使用三个滚动条分别输入三种基色,为保证输入数值有效,就应设置滚动条的（ A ）属性； AMax 和 Min 56.假如在图片框上使用绘图方法绘制一个圆,就图片框的（B）属性打算了该圆的颜色；BForeColor 2.要使命令按钮不响应用户生成的大事,应设置命令按钮的（ D ）属性； DEnabled 3.要使标签能透出窗体的背景,应设置标签的（ A ）属性； A BackStyle 28.设 List1 为列表框控件,List1.Clear 中的 Clear 是（ A ）； A方法41.要读出 C 盘根目录下次序文件stud.txt 内容,以下打开方式（C）； COpen " C:stud.txt" For Input As #1 42.随机文件使用（ C ）语句写数据；CPut 43.随机文件使用（ D ）语句读数据；DGet 47.使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）；BPath 51.要向图片框picP 中加载“d:hainanzhiwu.bmp ” 图像文件,应使用语句（ C ）；cpicP.Picture=LoadPicture"d:hainanzhiwu.bmp" 60.SQL 语言的 Select 语句中,用于分组的语句为（ B ）； Bgroup by 7.某计时器控件的interval 属性为 0 时,表示（ A ）； A计时器关闭计时11.文本框中选定的内容,由以下（ C ）属性反映； CSeltext 1 / 13 名师归纳总结 - - - - - - -第 1 页,共 13 页精选学习资料 - - - - - - - - - W W X X X X X X 65.为了使多媒体控件（MMControl ）中的录制按钮不显示,应添加代码（ C ）； CMMControl1.RecordVisible= False 67.Windows Media Player 控件的 UiMode 属性,表示播放器界面模式,以下选项是播放器模式的属性值是（D）；D以上都是15.以下哪组语句可以将变量A 、B 值互换（ B ）； BA=A+B : B=A B: A=A B 19.下面（ A ）运算符是算术运算符； A Mod 38.以下可以用来储备图像可以供其它控件使用的控件是（ C ）； C ImageList 50.下面对象中不能作为容器的是（B）； B Image 控件53.以下图形中不能使用Shape控件绘制的是（ B ）； B三角形21.下面程序段运行后,显示的结果是（ B ）； B1Dim intX As Integer If intX Then Print intX Else Print intX + 1 End If Y 22.以下程序的输出结果是（ C ）； C 10Dim a, i%, sum% a = Array4, 3, 2, 1 For i = 0 To 3 sum = sum + ai Next i Print sum Y Y Y Y Y Y Y Z Z Z Z Z Z Z Z Z 16.以下语句的输出结果是（ C ）； Print Format 32548.5, “ 000,000.00”C032,548.50 20.已知三个变量A 、B、 C,判定 A 、B、C 能否构成三角形的规律表达式为（ B ）； B A + C >= B And A + B >= C And B + C >= A 29.以下（ D ）语句将删除列表框List1 中的最终一项；DList1.RemoveItem List1.ListCount-1 31.用户可以通过设置菜单项的（ C ）属性值为False 来使该菜单项失效；C Enabled 32.用户可以通过设置菜单项的（ B ）属性值设置为False 来使该菜单项不行见；BVisible 45.要用通用对话框控件显示标准的“ 字体” 对话框,应调用其（ C ）方法； CShowFont 61.以下四个控件,不属于数据绑定控件的是（ C ）； COption 控件5.在 Visual Basic 中,一般（ B ）属性用来设置字体的颜色；BForeColor 6.在 VB 中断模式下,可用调试窗口监视表达式和变量的值,其中在（ A ）窗口中可以直接键入命令以显示命令所恳求的信息；A 立刻8.在窗体 Form1 的 Click 大事过程中有以下语句：Label1.Caption="Visual Basic" 如本语句执行之前,标签控件的Caption 属性为默认值,就标签控件的Name 属性和 Caption 属性在执行本语句之前的值分别为（ B ）； BLabel1和 Label1 12.在 Visual Basic 中,变量的默认类型是（ D ）；DVariant 23.在过程中定义的变量,如期望在离开该过程后,仍能储存过程中局部变DStatic 量的值,就应使用（ D ）关键字在过程中定义局部变量；35.在设计菜单时,为了创建分隔栏,要在（ B ）中输入字符（-）； B标题栏39.在 Visual Basic 中按文件的拜访方式不同,可以将文件分为（B）； B次序文件、随机文件和二进制文件48.在随机文件中（ D ）； D可以通过记录号随机读取记录49.执行语句 Open "C： Stud.txt" For Input As #2 后,系统（ C）； C打开 C 盘当前文件夹下名为Stud.txt 的文件,用来读取文件内容Z 52.执行 Form1.Scale（0, 10）-（10, -10）语句, Form1 窗体坐标系x 轴和 y 轴的正方向是（A）A向右和向Z 66.在多媒体控件（MMControl ）中, DeviceType 属性用于设置多媒体设备的类型,假如将要播放的文件是CD 歌曲,应将DeviceType 属性设置为（ D ）；DCDAudio Z 68.在 Windows Media Player 控件中,打算播放文件是否全屏的属性是（ A ）； A FullScreen 二、填空题A 33.按文件的存取方式,可将文件分为次序文件、随机文件和二进制文件；2 / 13 名师归纳总结 - - - - - - -第 2 页,共 13 页精选学习资料 - - - - - - - - - A A C D J J J L L M 34. ADO 模型中一般可通过Connection 对象的 Execute 方法执行增加、删除、修改操作；使用ADO 模型时,建立Recordset 和 Connection 对象连接的属性是 ActiveConnection ；35. ADO 数据模型中一般可通过Connection 对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作；22. 创建第一个按钮控件对象时,系统自动为其“Name” 属性安排一个名字,该名字为 Command1 ；28. 对驱动器列表框来说,每次重新设置驱动器列表框的 Drive 属性时,将引发Change 大事；对目录列表框来说,当Path 属性值转变时,将引发Change大事；对于文件列表框,重新设置的 Path 属性,将引发Change 大事；4. 将 1 x <12 写成 Visual Basic 规律表达式 x>=1 And x<12 ；14 基本程序掌握结构可以分为次序结构、挑选结构和循环结构3 种；31.将图片框 PictureBox 的 AutoSize 属性设置成 Ture 时,图片框能自动调整大小,以适应其中的图片；6. Left "abcd",2 函数的返回值是 ab ； Right"abcd",2 函数的返回值是 cd ；32. Label 和 TextBox 控件用来显示和输入文本,假如仅需要让应用程序在窗体中显示文本信息,可使用 Label 控件；如答应用户输入文本,就应使用 TextBox 控件；27. 每次重新设置驱动器列表框的Drive 属性时,都将引发 Change 大事；可在该大事过程中编写代码修改目录列表框的路径,使目录列表框内容随之发生转变；S S 9. 数组的类型可以是基本数据类型,也可以是用户自定义的记录类型；假如省略类型说明,数组会被设置为默认的变体类型（ Variant ）；数组中各个元素在定义时假如是数值类型就被默认初始化为0 ,假如是字符串类型就被初始化为空字符串；cox2x+写成等价的 1 x 22y Visual Basic 表达式为 cosx2+Sqrx2-y2/2 21. 数学表达式S 2.数学表达式写成等价的 10cos Visual Basic 表达式为 101/2*cos50*3.14/180 50 0 或者 Sqr10*cos50*3.14/180 S 3.数学式子s sa sb sc 对应的 Visual Basic 运算表达式是： Sqrs*s-a*s-b*s-c 3 类；过程V 13.Visual Basic 中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量级变量就是指在大事过程或通用过程内定义的变量,它的作用域就是其所在的过程；模块级变量包括窗体级模块变量和标准模块级变量；窗体模块变量的作用域是窗体内的全部过程,标准模块变量的作用域是模块内的全部过程；全局变量的作用域是整个工程中全部的模块和全部的过程；V V V V 16.Visual Basic 一般用 4 种类型的文件储存,分别是扩展名为.frm 的窗体文件,扩展名为 bas 的标准模块文件,扩展名为 .cls 的类模块文件和扩展名为.vbp 的工程文件；17.Visual Basic 程序开发有三种模式,即设计模式、运行模式和中断模式；18. Visual Basic 中设置断点的按键是 F9 ,逐语句调试的语句是 F8 ；19. Visual Basic 中的程序错误类型主要有编译错误、实时错误和规律错误三种；20.Visual Basic 应用程序即工程文件通常由三类模块组成,即窗体模块、标准模块和类模块；窗体模块包含窗体和代码两部分；标准模块完全由代码组成,这些代码不与详细的对象相关联,一般用来定义全局变量和公用过程和函数；类模块用于自定义类；Y Y Z Z Z Z Z Z W 23.为了在运行时把当前路径下的图形文件picturefile.jpg 装入图片框Picture1,所使用的语句为 Picture1. Picture = LoadPrcture“picturefile.jpg” 5.已知 a=3,b=4,c=5,表达式 a>b and Not c>a Or c>b And c<a+b 的值是 True ；8.有变量定义语句“Dim Str1,Str2 As String *10 ” ,其中 Str1 变量的类型应为变体型,其中Str2 变量的类型应为字符串型；7.在 Visual Basic 的转换函数中将数值转换为字符串的函数是 Strx ；将数字字符串转换为数值的函数是Valx ；将字符转换为相应的ASCII 码的函数是 Ascx ；10.在 Visual Basic 中,数组默认的下标下界是0 ,假如期望从1 开头,可以使用 Option Base n 语句语句来设置；11.在缺省情形下,用Dim A5,5 语句声明二维数组后,数组A 的元素共有 36 个；12.在 Visual Basic 中,参数通过按值传递和按地址传递两种方式传送；15.在 Visual Basic 语言中有三种形式的循环结构；其中,如循环的次数可以事先确定,可使用For 循环；如要求先判定循环进行的条件,可使用 While 循环或 Do 循环；21.在 Visual Basic 中将多重窗体程序中第一个被装载内存的窗体称为启动窗体；3 / 13 名师归纳总结 - - - - - - -第 3 页,共 13 页精选学习资料 - - - - - - - - - Z 当于其他控件的 24. 在 Visual Basic 中,每个菜单项都是一个图形控件对象,所以它们也有一些与其他控件类似的属性,标题就相Caption 属性,而名称就相当于 Name 属性；Z Z Z Z 25.在 Visual Basic 菜单中设置显示一条分割线的操作是在【菜单编辑器】的标题栏中,输入一个“-”；26.在 Visual Basic 中,文件系统控件包括驱动器列表框（DriveListBox ）、目录列表框（DirListBox ）和文件列表框（ FileListBox ）；三者协同操作可以拜访任意位置的目录和文件,可以进行文件系统的人机交互治理；29.执行指令“Line 200,200 Step 500,500” 后, CurrentX 700 ；30.执行指令“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 是国内外最流行的程序设计语言之一,也是学习开发Y 阅读以下程序,写出其功能；Private Sub cmdWhat_Click Windows 应用程序首选的程序设计语言；' 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 = " 如何学好 VB" txtHelloVB = " （ 1）从实际应用程序的开发过程中学习 VB 程序设计； " _ + vbCrLf + vbCrLf + "（2）学会分析问题和解决问题的思路、" _ + " 算法设计和实现方法；" + vbCrLf + vbCrLf _ 4 / 13 名师归纳总结 - - - - - - -第 4 页,共 13 页精选学习资料 - - - - - - - - - + " （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 Integer Dim strOprator As String Dim intOpratorNum As Integer Randomize intOp1 = Int10 * Rnd + 1 intOp2 = Int10 * Rnd + 1 intOpratorNum = Int4 * Rnd + 1 Select Case intOpratorNum Case 1 strOprator = "+": intAnswer = intOp1 + intOp2 Case 2 strOprator = " ": If intOp1 < intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If intAnswer = intOp1 - intOp2 Case 3 strOprator = " ": intAnswer = intOp1 * intOp2 Case 4 strOprator = "" ÷If intOp1 < intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If If intOp1 Mod intOp2 <> 0 Then intOp1 = intOp1 - intOp1 Mod intOp2 End If End Select ' lblQuestion 为标签 lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 & " = " End Sub 该程序是一个随机出题的过程；随机产生两个10 以内的操作数,随机产生一个操作符（+、 ×、÷）；如果是减法和除法时,第一操作数小于其次操作数时交换两个操作数,且假如是除法就同时减去两数相除所得的余 数；最终在标签 lblQuestion 上显示题目；Y 阅读以下程序,写出其功能；5 / 13 名师归纳总结 - - - - - - -第 5 页,共 13 页精选学习资料 - - - - - - - - - Public Function Avg_markMarkArray As Single As Single Dim sngSum As Single, i As Integer , nAs Integer sngSum = 0 n = UBoundMarkArray For i = 0 To n sngSum = sngSum + MarkArrayi Next i Avg_mark = sngSum / n End Function 该程序是一个求平均值的函数；以一个单精度的数组作为参数,先求出数组元素的个数,接着求出数组全部 元素的和,最终得出该数组的平均值；Y 阅读以下程序,写出其功能；Public Function Max_MarkMarkArray As Single As Single Dim sngMax As Single ,i As Integer , nAs Integer sngMax = 0 n = UBoundMarkArray For i = 0 To n If MarkArrayi > sngMax Then sngMax = MarkArrayi Next i Max_Mark = sngMax End Function 该程序是一个求最大值的函数；以一个单精度的数组作为参数,先求出数组元素的个数,接着逐个比较,求 出数组元素的最大值；Y 阅读以下程序,写出其功能；Public Function Pass_MarkMarkArray As Single As Single Dim intCount As Integer, i As Integer , nAs Integer intCount = 0 n = UBoundMarkArray For i = 0 To n if MarkArrayi >= 60 Then intCount = intCount + 1 Next i Pass_Mark = intCount / n End Function 该函数的功能是求一组数中大于等于 数,接着逐个比较,求出数组元素中大于等于Y 阅读以下程序,写出其功能；60 的数的比例；以一个单精度的数组作为参数,先求出数组元素的个 60 的数的个数,最终求出其比例；Private Sub Sort_MarkMarkArray As Single Dim sngMtemp As Single Dim i As Integer , nAs Integer , k As Integer,j As Integer n = UBoundMarkArray For i = 0 To n 1 k = i For j = i + 1 To n If MarkArrayj > MarkArrayk Then k = j Next j 6 / 13 名师归纳总结 - - - - - - -第 6 页,共 13 页精选学习资料 - - - - - - - - - sngMtemp = MarkArrayk MarkArrayk = MarkArrayi MarkArrayi = sngMtemp Next i End Sub 该过程的功能是把一组数按从大到小排序；以一个单精度的数组作为参数,先求出数组元素的个数,接着逐 个比较,求出数组元素中的最大值和第一个元素交换位置；求出次大值和其次个元素交换位置；依次类推,完成 从大到小排序；Y 阅读以下程序,写出其功能；Private Sub changecolor Dim r As Integer, g As Integer,b As Integer Dim 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 = RGBr, g, b frmMain.BackColor = x End Sub 该过程的功能是用红色、绿色、蓝色三个滚动条调剂窗体底色；先把红色、绿色、蓝色三个滚动条的 Min 属 性设置为 0、Max 属性设置为 255,接着用取出三个滚动条的 Value 属性值,用 RGB 函数产生一个由红、绿、蓝 三个 Value 属性值混合而成的新颜色,并作为窗体底色；Y 阅读以下程序,写出其功能；Public ADOcn As Connection Public Sub Main Dim strAccess As String strAccess="Provider=Microsoft.Jet.OLEDB.4.0 If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strAccess End If frmMain.Show ' frmMain 为窗体 End Sub ； Data Source=d:xs.mdb" 该段程序的功能是建立数据库的连接；实现与D 盘根目录下的文件名为xs.mdb 的 Access 数据库的连接,同时显示 frmMain 窗体；Y 阅读以下程序,写出其功能；Public ADOcn As Connection Public ADOrs As New Recordset Private Sub cmdAdd_Click Dim strSQL As String '文本框 txtNo 、txtName 和组合框 cboSex、 cboClass '分别用来输入学号、姓名、性别和班级7 / 13 名师归纳总结 - - - - - - -第 7 页,共 13 页精选学习资料 - - - - - - - - - strSQL = "select * from 同学表 where 学号 ='" + txtNo.Text + "'" ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF Then MsgBox " 该记录已经存在,不能连续增加！ADOrs.Close Exit Sub End If ", vbCritical + vbOKOnly strSQL = "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 的右图所示；单击“ 退出” 按钮时,退出程序；图 1 Private Sub cmdAim_Click lblContent.Caption = " 开发 Windows 应用程序 " End Sub Private Sub cmdWay_Click lblContent.Caption = " 从实际应用程序的开发过程中学习 End Sub VB" Private Sub cmdExit_Click End End Sub B 编写一个数制转换程序,运行界面如图3 所示；设三个文本框的名称框定义分别为TxtDec 、TxtHex 和 TxtOct ；实现在第一个文本框中输入十进制数后,其次个