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

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

1、精品学习资源Visual Basic程序设计一、单项挑选题14.、/、Mod 、*四个算术运算符中，优先级别最低的是（C）； C ModA58.ADO 控件属于 ActiveX 控件，使用之前必需加载Microsoft ADO Data Conctrol 6.0（OLE DB ），将 ADO 控件添加到工具箱中；添加ADO 控件的菜单为（B）； B “工程”“部件”B17.C4.C9.C33.C44.D37.D64.G10.G46.H18.J13.J40.J57.J62.J63.表达式 4+5 6 * 7 / 8 Mod 9的值是（ B）；B 5以下控件中，（A）控件不会影响到界面设计成效；A

2、 计时器（ C）控件不具有Caption 属性； CTextBox菜单编辑器中，同层次的（B）属性值设置为相同，才可以设置索引值；B Name程序运行时，驱动器列表框以下（A）属性能返回磁盘驱动器的名称；A Drive当单击工具栏上的按钮，会触发的大事是（A）； A ButtonClick多媒体控件（ MMControl ）具有一组执行 MCI 命令的下压式按钮；其中Record 按钮表示为（B ）； B录制转变控件在窗体中的上下位置，应设置控件的（A）属性； A Top转变驱动器列表框的Drive 属性值将激活其（A）大事； A Change函数 IntRnd*10 是在（ C）范畴内的整数

3、；C 0, 10 ）假设已定义 Integer 变量 x、y，就以下赋值语句正确选项（C）； C y = x + y检测文件是否终止的函数是（C）； C EOF键盘大事的执行次序是（B）； B KeyDown ， KeyPress， KeyUp打算系统是否自动检测多媒体控件（MMControl ）各按钮的状态的属性是（B）； B AutoEnable将多媒体控件（ MMControl ）的 Frames属性设为 3，就以下表达正确选项（A）； A 指定 Back 或 Step 命令后退或前进的帧数都为3K26.L25.L27.L54.L59.M34.N24.R1.R30.R36.R55.可通过

4、（C ）属性判定 ListBox 列表框控件的工程总数目；C ListcountListBox 中如没有任何条目选中，其ListIndex 属性值为（ A）； A -1列表框的（B ）属性用于返回或设置列表框中各列表项的文本；B ListLine （100， 100） -Step（400， 400）将在窗体中的（C ）画一条直线； C（ 100，100）到（ 500，500） 利用 ADO 拜访数据库，第一要创建一个（A ）对象，用于建立和数据库的连接；A Connection 对象每创建一个顶级菜单，它的下面最多可以有（C）级子菜单； C 5能通过（D ）来删除列表框中的挑选项；D Remo

5、veItem 方法假如要设置窗体的标题栏，应挑选（B）属性；B Caption如要把“ XXX ”添加到列表框 List1 中的第三项，就可执行语句（B ）； B List1.AddItem XXX, 2假如要在程序中显示一个弹出菜单，需调用（D）方法； D PopupMenuRGB 函数通过红、绿、蓝三基色混合产生某种颜色，如使用三个滚动条分别输入三种基色，为保证输入数值有效，就应设置滚动条的（A）属性； A Max 和 MinR 56.假如在图片框上使用绘图方法绘制一个圆，就图片框的（B）属性打算了该圆的颜色；B ForeColorS 2.要使命令按钮不响应用户生成的大事，应设置命令按钮的

6、（D）属性； D EnabledS3.S28.S41.要使标签能透出窗体的背景，应设置标签的（A）属性； A BackStyle设 List1 为列表框控件， List1.Clear 中的 Clear 是（ A）； A方法要读出 C 盘根目录下次序文件stud.txt 内容，以下打开方式（C）； COpen C:stud.txt For Input As #1S42.随机文件使用（C）语句写数据；C PutS43.随机文件使用（D）语句读数据；D GetS47.使用目录列表框的（B）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）；B PathS51.要向图片框 picP 中加载“

7、d:hainanzhiwu.bmp ”图像文件，应使用语句（C ）；c picP.Picture=LoadPictured:hainanzhiwu.bmpS60.W7.W11.SQL 语言的 Select 语句中，用于分组的语句为（B）； B group by某计时器控件的 interval 属性为 0 时，表示（ A）； A计时器关闭计时文本框中选定的内容，由以下（C）属性反映； C Seltext欢迎下载精品学习资源W65.为了使多媒体控件（ MMControl ）中的录制按钮不显示，应添加代码（C）； C MMControl1.RecordVisible= FalseW 67.Windo

8、ws Media Player 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（D）；D以上都是X15.以下哪组语句可以将变量A 、B 值互换（ B）； B A=A+B : B=A B: A=A BX19.下面（ A）运算符是算术运算符；A ModX 38.以下可以用来储备图像可以供其它控件使用的控件是（C ）； C ImageListX 50.下面对象中不能作为容器的是（B）； B Image 控件X53.以下图形中不能使用Shape控件绘制的是（B ）； B三角形X21.Dim下面程序段运行后，显示的结果是（B）； B 1intX As IntegerIf

9、intX Then Print intX ElsePrint intX + 1 End IfY 22.以下程序的输出结果是（C ）； C 10Dim a, i%, sum%a = Array4, 3, 2, 1For i = 0 To 3 sum = sum + ai Next iPrint sumY16.以下语句的输出结果是（C）； Print Format 32548.5, “ 000,000.00” C032,548.50Y20.已知三个变量A 、B、 C，判定 A 、B 、C 能否构成三角形的规律表达式为（B）； B A + C = B And A + B = C And B + C

10、= AY 29.以下（ D ）语句将删除列表框List1 中的最终一项； D List1.RemoveItem List1.ListCount-1Y31.用户可以通过设置菜单项的（C）属性值为 False 来使该菜单项失效； C EnabledYY32.45.用户可以通过设置菜单项的（B）属性值设置为 False 来使该菜单项不行见；B Visible要用通用对话框控件显示标准的“字体”对话框，应调用其（C ）方法； C ShowFontY61.以下四个控件，不属于数据绑定控件的是（C）； C Option控件Z5.在 Visual Basic 中，一般（ B）属性用来设置字体的颜色；B Fo

11、reColorZ 6.在 VB 中断模式下，可用调试窗口监视表达式和变量的值，其中在（A）窗口中可以直接键入命令以显示命令所恳求的信息； A 立刻Z8.在窗体 Form1 的 Click 大事过程中有以下语句：Label1.Caption=Visual Basic如本语句执行之前，标签控件的Caption 属性为默认值，就标签控件的Name 属性和 Caption 属性在执行本语句之前的值分别为（B）； B Label1 和 Label1Z12.在 Visual Basic 中，变量的默认类型是（D）；D Variant欢迎下载精品学习资源Z23.在过程中定义的变量，如期望在离开该过程后，仍能

12、储存过程中局部变量的值，就应使用（D）关键字在过程中定义局部变量；D Static欢迎下载精品学习资源Z35.在设计菜单时，为了创建分隔栏，要在（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

13、, -10）语句， Form1 窗体坐标系 x 轴和 y 轴的正方向是（ A ） A 向右和向Z66.在多媒体控件（ MMControl ）中， DeviceType 属性用于设置多媒体设备的类型，假如将要播放的文件是CD 歌曲，应将 DeviceType 属性设置为（ D ）；D CDAudioZ68.在 Windows Media Player 控件中，打算播放文件是否全屏的属性是（A）； A FullScreen二、填空题A33.按文件的存取方式，可将文件分为次序文件、随机文件和二进制文件；欢迎下载精品学习资源A34. ADO 模型中一般可通过Connection 对象的 Execute

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

15、ath属性，将引发Change 大事；J4. 将 1x =1 And xb and Not ca Or cb And ca+b 的值是True；Y 8.有变量定义语句“Dim Str1,Str2 As String *10”，其中 Str1 变量的类型应为变体型，其中Str2 变量的类型应为字符串型；Z 7.在 Visual Basic 的转换函数中将数值转换为字符串的函数是Strx；将数字字符串转换为数值的函数是Valx；将字符转换为相应的ASCII 码的函数是Ascx；Z10.在 Visual Basic 中，数组默认的下标下界是0 ，假如期望从 1 开头，可以使用Option Base

16、n 语句语句来设置；Z11.在缺省情形下，用Dim A5,5 语句声明二维数组后，数组A 的元素共有36个；Z12.在 Visual Basic 中，参数通过按值传递和按地址传递两种方式传送；Z15.在 Visual Basic 语言中有三种形式的循环结构；其中，如循环的次数可以事先确定，可使用For 循环；如要求先判定循环进行的条件，可使用While循环或Do循环；Z21.在 Visual Basic 中将多重窗体程序中第一个被装载内存的窗体称为启动窗体；欢迎下载精品学习资源Z24.在 Visual Basic 中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题就

17、相当于其他控件的 Caption 属性，而名称就相当于Name 属性；Z25.在 Visual Basic 菜单中设置显示一条分割线的操作是在【菜单编辑器】的标题栏中，输入一个“-” ；Z26.在 Visual Basic 中，文件系统控件包括驱动器列表框（DriveListBox ）、目录列表框（ DirListBox ）和文件列表框（ FileListBox ）；三者协同操作可以拜访任意位置的目录和文件，可以进行文件系统的人机交互治理；Z29.执行指令“ Line 200,200 Step 500,500 ”后， CurrentX 700 ；Z30.执行指令“ Line 200,200 5

18、00,500 ”后， CurrentX 500 ；三、 程序阅读题Y阅读以下程序，写出其功能；Private Sub cmdWhy_Click cmdWhy 为命令按钮， lblHelloVB为标签， txtHelloVB为文本框lblHelloVB.Caption = 为什么学 VBtxtHelloVB = （ 1）VB 简洁易学，开发效率高，通用性强，用途广泛； _+ vbCrLf + vbCrLf + （ 2） VB 是国内外最流行的程序设计语言之一， _+ 也是学习开发 Windows 应用程序首选的程序设计语言；End Sub该程序功能：单击cmdWhy 按钮，在 lblHelloV

19、B标签显示“为什么学VB ”，在 txtHelloVB文本框显示以下内容：1. VB 简洁易学，开发效率高，通用性强，用途广泛；2. VB 是国内外最流行的程序设计语言之一，也是学习开发Windows 应用程序首选的程序设计语言；Y阅读以下程序，写出其功能；Private Sub cmdWhat_Click cmdWat 为命令按钮， lblHelloVB为标签， txtHelloVB为文本框lblHelloVB .Caption = VB能干什么 txtHelloVB = VB能快速实现用户界面的设计、 _+ 文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、 _+ 网络和图形等多

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

21、HelloVB为文本框lblHelloVB .Caption = 如何学好 VBtxtHelloVB = （ 1）从实际应用程序的开发过程中学习VB 程序设计； _+ vbCrLf + vbCrLf + （ 2）学会分析问题和解决问题的思路、 _+ 算法设计和实现方法； + vbCrLf + vbCrLf _欢迎下载精品学习资源+ （ 3）学会利用 MSDN 资源； + vbCrLf + vbCrLf _+ （ 4）养成良好的编程习惯；End Sub该程序功能：单击cmdHow 按钮，在 lblHelloVB标签显示“如何学好VB ”，在 txtHelloVB文本框显示以下内容：（ 1）从实际

22、应用程序的开发过程中学习VB 程序设计；（ 2）学会分析问题和解决问题的思路算法设计和实现方法；（ 3）学会利用MSDN 资源；（ 4） 养成良好的编程习惯；Y阅读以下程序，写出其功能；Sub newQuestionDim intOp1 As Integer, intOp2 As Integer,intTemp As Integer Dim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int10 * Rnd + 1 intOp2 = Int10 * Rnd + 1 intOpratorNum = Int4

23、* Rnd + 1 Select Case intOpratorNum Case 1strOprator = +: intAnswer = intOp1 + intOp2 Case 2strOprator = :If intOp1 intOp2 ThenintTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintAnswer = intOp1 - intOp2 Case 3欢迎下载精品学习资源strOprator = Case 4: intAnswer = intOp1 * intOp2欢迎下载精品学习资源strOprator = I

24、f intOp1 intOp2 ThenintTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End If End Select lblQuestion 为标签lblQuestion.Caption = intOp1 & & strOprator & & intOp2 & = End Sub该程序是一个随机出题的过程；随机产生两个10 以内的操作数，随机产生一个操作符（+、 、）；假如是减法和除法时，第一操作数小

25、于其次操作数时交换两个操作数，且假如是除法就同时减去两数相除所得的余数；最终在标签 lblQuestion 上显示题目；Y阅读以下程序，写出其功能；欢迎下载精品学习资源Public Function Avg_markMarkArray As Single As Single Dim sngSum As Single, i As Integer , nAs Integer sngSum = 0n = UBoundMarkArrayFor i = 0 To nsngSum = sngSum + MarkArrayiNext iAvg_mark = sngSum / n End Function该程

26、序是一个求平均值的函数；以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组全部元素的和，最终得出该数组的平均值；Y阅读以下程序，写出其功能；Public Function Max_MarkMarkArray As Single As Single Dim sngMax As Single ,i As Integer , nAs Integer sngMax = 0n = UBoundMarkArray For i = 0 To nIf MarkArrayi sngMax Then sngMax = MarkArrayiNext iMax_Mark = sngMax End Func

27、tion该程序是一个求最大值的函数；以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值；Y阅读以下程序，写出其功能；Public Function Pass_MarkMarkArray As Single As Single Dim intCount As Integer, i As Integer , nAs Integer intCount = 0n = UBoundMarkArrayFor i = 0 To nif MarkArrayi = 60 Then intCount = intCount + 1Next iPass_Mark = intCount

28、 / n End Function该函数的功能是求一组数中大于等于60 的数的比例；以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60 的数的个数，最终求出其比例；Y阅读以下程序，写出其功能；Private Sub Sort_MarkMarkArray As Single Dim sngMtemp As SingleDim i As Integer , nAs Integer , k As Integer,j As Integer n = UBoundMarkArrayFor i = 0 To n 1k = iFor j = i + 1 To nIf M

29、arkArrayj MarkArrayk Then k = jNext j欢迎下载精品学习资源sngMtemp = MarkArrayk MarkArrayk = MarkArrayi MarkArrayi = sngMtempNext i End Sub该过程的功能是把一组数按从大到小排序；以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和其次个元素交换位置；依次类推，完成从大到小排序；Y阅读以下程序，写出其功能；Private Sub changecolorDim r As Integer, g As Integer,b

30、 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.Valueg = hsbGreen.V alue b = hsbBlue.Valuex = RGBr, g, b frmMain.BackColor = xEnd Sub该过程的功能是用红色、绿色、蓝色三个滚动条调剂窗体底色；先把红色、绿色、蓝色三个滚动条的Min 属性

31、设置为 0、Max 属性设置为 255，接着用取出三个滚动条的Value 属性值，用 RGB 函数产生一个由红、绿、蓝 三个 Value 属性值混合而成的新颜色，并作为窗体底色；Y 阅读以下程序，写出其功能；Public ADOcn As Connection Public Sub MainDim strAccess As StringstrAccess=Provider=Microsoft.Jet.OLEDB.4.0； Data Source=d:xs.mdb If ADOcn Is Nothing ThenSet ADOcn = New Connection ADOcn.Open strA

32、ccessEnd IffrmMain.Show frmMain为窗体End Sub该段程序的功能是建立数据库的连接；实现与D 盘根目录下的文件名为xs.mdb 的 Access 数据库的连接，同时显示 frmMain 窗体；Y 阅读以下程序，写出其功能；Public ADOcn As Connection Public ADOrs As New Recordset Private Sub cmdAdd_ClickDim strSQL As String文本框 txtNo 、txtName 和组合框 cboSex、 cboClass 分别用来输入学号、姓名、性别和班级欢迎下载精品学习资源strS

33、QL = select * from同学表 where 学号 = + txtNo.Text + ADOrs.Open strSQL, ADOcnIf Not ADOrs.EOF ThenMsgBox 该记录已经存在，不能连续增加！, vbCritical + vbOKOnly ADOrs.CloseExit SubEnd IfstrSQL = insert into同学表 学号 ,姓名,性别 ,班级 strSQL = strSQL + values + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + ,tx

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

35、rivate Sub cmdAim_ClicklblContent.Caption = 开发 Windows 应用程序 End SubPrivate Sub cmdWay_ClicklblContent.Caption = 从实际应用程序的开发过程中学习VB End SubPrivate Sub cmdExit_Click EndEnd SubB编写一个数制转换程序，运行界面如图3 所示；设三个文本框的名称框定义分别为TxtDec 、TxtHex 和 TxtOct ；实现在第一个文本框中输入十进制数后，其次个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数；提示：利用

36、文本框的Change 大事和转换函数 Hex、Oct ；欢迎下载精品学习资源Private Sub TxtDec_Change TxtHex.Text = HexValTxtDec.Text TxtOct.Text = OctValTxtDec.TextEnd SubB编写一个猜数字程序；程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4 所示，设输入文本框的名称框定义为TxtAnswer ，神奇的数、评判标签控件的名称框定义为lblComment 和 lblNum ， “确定”命令按钮的名称定义为cmdOk ；Dim intNum As Integer

37、用于存放“神奇的数”Dim intCount As Integer 用于猜数计数Private Sub cmdOk_Click intCount = intCount + 1 计数If ValtxtAnswer.Text = intNum Then猜对lblComment.Caption = 猜对了！你一共猜了 & intCount & 次 lblNum.Caption = intNumElseIf ValtxtAnswer.Text intNum Then lblComment.Caption = 太大了！ ElselblComment.Caption = 太小了！ End IfEnd Su

38、bPrivate Sub Form_LoadRandomizeintNum = IntRnd * 1000 + 1 End SubB 编写一个判定闰年的程序；判定平年、闰年方法：凡是能被4 整除但不能被100 整除的年份为闰年，如1980 年；凡是能被 400 整除的年份为闰年，如2000 年；除以上两种情形以外的其余年份都是平年；Private Sub Command1_ClickDim intYear As Integer 用于存放年份intYear = InputBox 请输入年份 If intYear Mod 400 = 0 Or intYear Mod 4 = 0 And intYe

39、ar Mod 100 0 Then MsgBox intYear & 年是闰年 Else欢迎下载精品学习资源MsgBox intYear & 年是平年 End IfEnd SubB 编写一个列表框应用程序，程序界面如图5 所示；设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd 、cmdDel 和 cmdUpdate ，列表框和文本框的名称为默认；要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当挑选列表框中某一项时，按“删除”按钮，从列表框中删除；当挑选列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”；在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确