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

《2022年电大Visual_Basic程序设计考试资料已整理排版 .docx》由会员分享，可在线阅读，更多相关《2022年电大Visual_Basic程序设计考试资料已整理排版 .docx（24页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选学习资料 - - - - - - - - - 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 *

2、 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.转变控件在窗体中的上下位置,应设

3、置控件的（ 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.将多媒体控件（MMCont

4、rol ）的 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 ）对象,用于建

5、立和数据库的连接；A Connection 对象34.每创建一个顶级菜单,它的下面最多可以有（ C ）级子菜单； C5 24.能通过（ D ）来删除列表框中的挑选项；DRemoveItem 方法1.假如要设置窗体的标题栏,应挑选（ B ）属性；BCaption 30.如要把“XXX ” 添加到列表框List1 中的第三项,就可执行语句（B）； BList1.AddItem XXX, 2 36.假如要在程序中显示一个弹出菜单,需调用（ D ）方法； DPopupMenu 55.RGB 函数通过红、绿、蓝三基色混合产生某种颜色,如使用三个滚动条分别输入三种基色,为保证输入数值有效,就应设置滚动条的

6、（ 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 ）语句写

7、数据；CPut 43.随机文件使用（ D ）语句读数据；DGet 47.使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）；BPath 51.要向图片框picP 中加载“d:hainanzhiwu.bmp ” 图像文件,应使用语句（ C ）；cpicP.Picture=LoadPictured:hainanzhiwu.bmp 60.SQL 语言的 Select 语句中,用于分组的语句为（ B ）； Bgroup by 7.某计时器控件的interval 属性为 0 时,表示（ A ）； A计时器关闭计时11.文本框中选定的内容,由以下（ C ）属性反映； CS

8、eltext 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 ）运算

9、符是算术运算符； 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

10、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.用户可以通过设置菜单项

11、的（ 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

12、的 Click 大事过程中有以下语句：Label1.Caption=Visual Basic 如本语句执行之前,标签控件的Caption 属性为默认值,就标签控件的Name 属性和 Caption 属性在执行本语句之前的值分别为（ B ）； BLabel1和 Label1 12.在 Visual Basic 中,变量的默认类型是（ D ）；DVariant 23.在过程中定义的变量,如期望在离开该过程后,仍能储存过程中局部变DStatic 量的值,就应使用（ D ）关键字在过程中定义局部变量；35.在设计菜单时,为了创建分隔栏,要在（ B ）中输入字符（-）； B标题栏39.在 Visual

13、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

14、歌曲,应将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 模型时,建立Records

15、et 和 Connection 对象连接的属性是 ActiveConnection ；35. ADO 数据模型中一般可通过Connection 对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作；22. 创建第一个按钮控件对象时,系统自动为其“Name” 属性安排一个名字,该名字为 Command1 ；28. 对驱动器列表框来说,每次重新设置驱动器列表框的 Drive 属性时,将引发Change 大事；对目录列表框来说,当Path 属性值转变时,将引发Change大事；对于文件列表框,重新设置的 Path 属性,将引发Change 大事；4. 将 1 x =

16、1 And xb and Not ca Or cb And ca+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

17、A5,5 语句声明二维数组后,数组A 的元素共有 36 个；12.在 Visual Basic 中,参数通过按值传递和按地址传递两种方式传送；15.在 Visual Basic 语言中有三种形式的循环结构；其中,如循环的次数可以事先确定,可使用For 循环；如要求先判定循环进行的条件,可使用 While 循环或 Do 循环；21.在 Visual Basic 中将多重窗体程序中第一个被装载内存的窗体称为启动窗体；3 / 13 名师归纳总结 - - - - - - -第 3 页,共 13 页精选学习资料 - - - - - - - - - Z 当于其他控件的 24. 在 Visual Basic

18、 中,每个菜单项都是一个图形控件对象,所以它们也有一些与其他控件类似的属性,标题就相Caption 属性,而名称就相当于 Name 属性；Z Z Z Z 25.在 Visual Basic 菜单中设置显示一条分割线的操作是在【菜单编辑器】的标题栏中,输入一个“-”；26.在 Visual Basic 中,文件系统控件包括驱动器列表框（DriveListBox ）、目录列表框（DirListBox ）和文件列表框（ FileListBox ）；三者协同操作可以拜访任意位置的目录和文件,可以进行文件系统的人机交互治理；29.执行指令“Line 200,200 Step 500,500” 后, Cu

19、rrentX 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 应用程序首选的程序设计语

20、言； End Sub 该程序功能：单击cmdWhy 按钮,在 lblHelloVB标签显示“ 为什么学VB ” ,在 txtHelloVB文本框显示以下内容：1VB 简洁易学,开发效率高,通用性强,用途广泛；2 VB 是国内外最流行的程序设计语言之一,也是学习开发Y 阅读以下程序,写出其功能；Private Sub cmdWhat_Click Windows 应用程序首选的程序设计语言； cmdWat 为命令按钮, lblHelloVB 为标签, txtHelloVB 为文本框lblHelloVB .Caption = VB 能干什么 txtHelloVB = VB 能快速实现用户界面的设计、

21、 _ + 文字和图形图像的处理以及数据库的使用,能开发多媒体、数据库、 _ + 网络和图形等多方面的应用程序；可以开发个人使用或小组 _ + 使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序； End Sub 该程序功能：单击cmdWhat 按钮,在 lblHelloVB标签显示“VB 能干什么” ,在txtHelloVB 文本框显示以下内容：VB 能快速实现用户界面的设计、文字和图形图像的处理以及数据库的使用,能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序；Y 阅读以下程序,写出其功能；Privat

22、e Sub cmdHow_Click cmdHow 为命令按钮, lblHelloVB 为标签, txtHelloVB 为文本框lblHelloVB .Caption = 如何学好 VB txtHelloVB = （ 1）从实际应用程序的开发过程中学习 VB 程序设计； _ + vbCrLf + vbCrLf + （2）学会分析问题和解决问题的思路、 _ + 算法设计和实现方法； + vbCrLf + vbCrLf _ 4 / 13 名师归纳总结 - - - - - - -第 4 页,共 13 页精选学习资料 - - - - - - - - - + （3）学会利用 MSDN 资源； + vbC

23、rLf + 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 S

24、tring 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 E

25、nd 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.Capti

26、on = intOp1 & & strOprator & & intOp2 & = End Sub 该程序是一个随机出题的过程；随机产生两个10 以内的操作数,随机产生一个操作符（+、 、）；如果是减法和除法时,第一操作数小于其次操作数时交换两个操作数,且假如是除法就同时减去两数相除所得的余 数；最终在标签 lblQuestion 上显示题目；Y 阅读以下程序,写出其功能；5 / 13 名师归纳总结 - - - - - - -第 5 页,共 13 页精选学习资料 - - - - - - - - - Public Function Avg_markMarkArray As Single As S

27、ingle 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 S

28、ingle 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 Sing

29、le 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 的数的个数,

30、最终求出其比例；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 页精选学习资料 - - - - - - - - -

31、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

32、 和 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,接着用取出三个滚动条的 Val

33、ue 属性值,用 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

34、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

35、 页精选学习资料 - - - - - - - - - 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 +

36、, strSQL = strSQL + + cboSex.Text + ,txtClass.Text + ADOcn.Execute strSQL End Sub 该段程序的功能是把一个同学记录插入到同学表中；第一查找数据表中是否存在文本框 txtNo 中输入的学号,假如存在就不增加；假如不存在,就把该同学的信息记录插入同学表中；四、 程序设计题B 编写一个程序；程序初始界面如图 1 左图所示,设“ 学习目的” 、“ 学习方法” 和“ 退出” 命令按钮的名称定义为cmdAim 、cmdWay 和 cmdExit ,标签控件的名称定义为 lblContent ；单击“ 学习目的” 按钮,显示如图

37、 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 ；实现在第一个文本框中输入十进制数后,其次个