最新广播电视大学（电大）期末考试《Visual Basic程序设计》课程期末重点、要点复习资料精心整理(完整版)

1、最新电大visual basic程序设计课程期末重点、要点复习资料精心整理一、单项选择题：1. 如果要设置窗体的标题栏，应选择（b ）属性。 avisiblebcaptioncnamedtext2. 要使命令按钮不响应用户生成的事件，应设置命令按钮的（d）属性。 avisiblebcaptioncenable denabled3. 要使标签能透出窗体的背景，应设置标签的（a）属性。 abackstylebborderstylecappearancedbackcolor4. 以下控件中，（a ）控件不会影响到界面设计效果。 a计时器b文本框c标签dline控件5. 在visual basic中，

2、一般（b ）属性用来设置字体的颜色。 afontcolor bforecolorcbackcolordshowcolor6. 在vb中断模式下，可用调试窗口监视表达式和变量的值，其中在（ a ）窗口中可以直接键入命令以显示命令所请求的信息。a立即b.监视c.本地d.中断7. 某计时器控件的interval属性为0时，表示（ a ）。a计时器关闭计时ctimer事件的间隔时间为0毫秒 btimer事件的间隔时间为0秒d计时器启动计时8. 在窗体form1的click事件过程中有以下语句：label1.caption=visual basic若本语句执行之前,标签控件的caption属性为默认值,

3、则标签控件的name属性和caption属性在执行本语句之前的值分别为（ b ）。alabel和labelblabel1和label1 clabel1和visual basicdlabel和caption9. （ c ）控件不具有caption属性。 alabelbformctextboxdcommandbutton10. 改变控件在窗体中的上下位置，应设置控件的（ a ）属性。 atopbleftcwidthdright11. 文本框中选定的内容，由下列（ c ）属性反映。 atextbcaptioncseltextdsellenght12. 在visual basic中，变量的默认类型是（

4、 d ）。 astringbintegercdoubledvariant13. 假设已定义integer变量x、y，则以下赋值语句正确的是（ c ）。 ax + 1 = ybx := ycy = x + yd1 = x14. 、/、mod、*四个算术运算符中，优先级别最低的是（ c ）。 ab/cmodd*15. 下列哪组语句可以将变量a、b值互换（ b ）。aa=c : c=b : b=a ba=a+b : b=ab: a=ab ca=b : b=ada=(a+b)/2 : b=(a - b)/216. 以下语句的输出结果是（ c ）。print format (32548.5,“000,0

5、00.00”)a32548.5b32,548.5c032,548.50 d32,548.5017. 表达式4+5 6 * 7 / 8 mod 9 的值是 （ b ）。 a4 b5c6d718. 函数int(rnd*10)是在（ c ）范围内的整数。 a（0, 10）b(0,10c0, 10）d0, 1019. 下面（ a ）运算符是算术运算符。 amodblikecanddnot20. 已知三个变量a、b、c，判断a、b、c能否构成三角形的逻辑表达式为（ b ）。aa = b and b = c and a = c ba + c = b and a + b = c and b + c = ac

6、a + 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 ifa0b1c2d不一定22. 以下程序的输出结果是（ c ）。dim a, i%, sum%a = array(4, 3, 2, 1)for i = 0 to 3sum = sum + a(i)next iprint suma4b6c10d不一定23. 在过程中定义的变量，

7、若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ d ）关键字在过程中定义局部变量。adimbpubliccprivatedstatic24. 能通过（ d ）来删除列表框中的选择项。 alist属性btext属性cclear方法dremoveitem方法25. listbox中若没有任何条目选中，其listindex属性值为（ a ）。 a-1b0c1d任意26. 可通过（c ）属性判断listbox列表框控件的项目总数目。 alistindexblisttextclistcountd随机数27. 列表框的（ b ）属性用于返回或设置列表框中各列表项的文本。 aselectedb

8、listctextdcaption28. 设list1为列表框控件，list1.clear中的clear是（ a ）。 a方法b对象c属性d事件29. 以下（ d ）语句将删除列表框list1中的最后一项。alist1.removeitem list1.listcount blist1.clear clist1.list(list1.listcount-1)= dlist1.removeitem list1.listcount-130. 若要把“xxx”添加到列表框list1中的第三项，则可执行语句（ b ）。alist1.additem xxx, 3blist1.additem xxx, 2

9、 clist1.additem 3,xxxdlist1.additem 2,xxx31. 用户可以通过设置菜单项的（c ）属性值为false来使该菜单项失效。 ahidebvisible cenabled dchecked32. 用户可以通过设置菜单项的（b ）属性值设置为false来使该菜单项不可见。 ahide bvisible cenabled dchecked33. 菜单编辑器中，同层次的（ b ）属性值设置为相同，才可以设置索引值。acaptionbnamecindexdshortcut34. 每创建一个顶级菜单，它的下面最多可以有（c ）级子菜单。 a1b3c5d635. 在设计菜

10、单时，为了创建分隔栏，要在（ b ）中输入字符（-）。 a名称栏b标题栏c索引栏d显示区36. 如果要在程序中显示一个弹出菜单，需调用（d ）方法。 aprintbmovecrefreshdpopupmenu37. 当单击工具栏上的按钮，会触发的事件是（ a ）。 abuttonclickbchangecloaddkeypress38. 下列可以用来存储图像可以供其它控件使用的控件是（c ）。 atoolbarbstatursbarc imagelistdtreeview39. 在visual basic中按文件的访问方式不同，可以将文件分为（ b ）。a文本文件和数据文件b顺序文件、随机文件

11、和二进制文件 cascii文件和二进制文件 d数据文件和可执行文件40. 检测文件是否结束的函数是（ c ）。 alof()blen()ceof()dchr()41. 要读出c盘根目录下的顺序文件stud.txt中的内容，下列打开方式中（ c ）是正确的。aopen c:stud.txt for append as #1bopen c:stud.txt for random as #1copen c:stud.txt for input as #1dopen c:stud.txt for output as #142. 随机文件使用（ c ）语句写数据。 ainput#bwrite #cput

12、dget43. 随机文件使用（ d ）语句读数据。 ainput#bwrite #cputdget44. 程序运行时，驱动器列表框下列（ a ）属性能返回磁盘驱动器的名称。adrivebdrivenamecchgdriveddrives45. 要用通用对话框控件显示标准的“字体”对话框，应调用其（ c ）方法。ashowopenbshowcolorcshowfontdshowsaveas46. 改变驱动器列表框的drive属性值将激活其（a ）事件。 achangebscrollckeydowndkeyup47. 使用目录列表框的（ b ）属性可以返回或设置当前工作目录的完整路径包括驱动器盘符

13、。adrivebpathcdirdlistindex48. 在随机文件中（ d ）。a记录的内容是随机产生的b记录的长度是任意的 c记录号是通过随机数产生的 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窗体bima

14、ge控件cpicturebox控件dframe控件51. 要向图片框picp中加载“d:hainanzhiwu.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轴

15、和y轴的正方向是（ a ）。a向右和向上b向左和向下c向右和向下d向左和向上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和minbsmallc

16、hange和 largechange cscroll和changedvalue56. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（ b ）属性决定了该圆的颜色。abackcolorbforecolorcfillcolorddrawstyle57. 键盘事件的执行顺序是（ b ）。akeypress，keydown，keyup bkeydown，keypress，keyup ckeyup，keydown，keypressdkeyup，keypress，keydown58. ado控件属于activex控件，使用之前必须加载microsoft ado data conctrol 6.0（ol

17、e db），将ado控件添加到工具箱中。添加ado控件的菜单为（b ）。 a“工程”“引用” b“工程”“部件” c“工具”“选项” d“工程”“添加文件”59. 利用ado访问数据库，首先要创建一个（ a ）对象，用于建立和数据库的连接。aconnection对象brecordset对象 ccommand对象dobject对象60. sql语言的select语句中，用于分组的语句为（ b ）。 awherebgroup bycorder bydhaving61. 以下四个控件，不属于数据绑定控件的是（ c ）。 atext控件bdatagrid控件coption控件 dlabel控件62.

18、决定系统是否自动检测多媒体控件（mmcontrol）各按钮的状态的属性是（ b ）。aenablebautoenable cplayenabledd以上答案都不正确63. 将多媒体控件（mmcontrol）的frames属性设为3，则以下叙述正确的是（ a ）。a指定back或step命令后退或前进的帧数都为3 b只有back命令后退的帧数为3c只有step命令前进的帧数为3 d后退或前进的帧数都为664. 多媒体控件（mmcontrol）具有一组执行mci命令的下压式按钮。其中record按钮表示为（ b ）。a前一首b录制c弹出d播放65. 为了使多媒体控件（mmcontrol）中的录制按

19、钮不显示，应添加代码（ c ）。ammcontrol1.visible= false bmmcontrol1.visible= truecmmcontrol1.recordvisible= false dmmcontrol1.recordvisible= true66. 在多媒体控件（mmcontrol）中，devicetype属性用于设置多媒体设备的类型，如果将要播放的文件是cd歌曲，应将devicetype属性设置为（ d ）。 adigitalvideobwaveaudiocavivideodcdaudio67. windows media player控件的uimode属性，表示播放器

20、界面模式，以下选项是播放器模式的属性值是（ d ）。afullbminicnoned以上都是 68. 在windows media player控件中，决定播放文件是否全屏的属性是（ a ）。 afullscreen bfull cscreen dstretchtofit二、填空题：1. 数学表达式cox2x+写成等价的visual basic表达式为 cos(x)2+sqr(x2-y2)/2 。2. 数学表达式写成等价的visual basic表达式为 10(1/2)*cos(50*3.14/180) 或者sqr(10)*cos(50*3.14/180) 。3. 数学式子对应的visual

21、basic运算表达式是 ： sqr(s*(s-a)*(s-b)*(s-c) 。4. 将1 x =1 and xb and not ca or cb and ca+b的值是 true 。6. left (abcd,2)函数的返回值是 ab ; right(abcd,2)函数的返回值是 cd 。7. 在visual basic的转换函数中将数值转换为字符串的函数是 str(x) ；将数字字符串转换为数值的函数是 val(x) ；将字符转换为相应的ascii码的函数是 asc(x) 。8. 有变量定义语句“dim str1,str2 as string *10”，其中str1变量的类型应为 变体型

22、，其中str2变量的类型应为 字符串型 。9. 数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 变体类型（variant） 。数组中各个元素在定义时如果是数值类型就被默认初始化为 0 ，如果是字符串类型就被初始化为 空字符串 。10. 在visual basic中，数组默认的下标下界是 0 ，如果希望从1开始，可以使用 option base n语句 语句来设置。11. 在缺省情况下，用dim a(5,5)语句声明二维数组后，数组a的元素共有 36 个。12. 在visual basic中，参数通过 按值传递 和 按地址传递 两种方式传送。1

23、3. visual basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是 其所在的过程 。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是 窗体内的所有过程 ，标准模块变量的作用域是 模块内的所有过程 。全局变量的作用域是 整个工程中所有的模块和所有的过程 。14. 基本程序控制结构可以分为顺序结构、 选择 结构和 循环 结构3种。15. 在visual basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用for循环；若要求先判断循环进行的条件，可使

24、用 while 循环或 do 循环。 16. visual basic一般用4种类型的文件保存，分别是扩展名为 .frm 的窗体文件，扩展名为 bas 的标准模块文件，扩展名为 .cls 的类模块文件和扩展名为 .vbp 的工程文件。17. visual basic程序开发有三种模式，即 设计 模式、 运行 模式和 中断 模式。18. visual basic中设置断点的按键是 f9 ，逐语句调试的语句是 f8 。19. visual basic中的程序错误类型主要有编译错误、 实时错误 和 逻辑错误 三种。20. visual basic应用程序即工程文件通常由三类模块组成，即窗体模块、标准

25、模块和类模块。窗体模块包含 窗体 和 代码 两部分。 标准模块 完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。 类模块 用于自定义类。21. 在visual basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。22. 创建第一个按钮控件对象时，系统自动为其“name”属性分配一个名字，该名字为 command1 。23. 为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框picture1，所使用的语句为 picture1. picture =loadprcture(“picturefile.jpg”) 。24. 在v

26、isual basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性， 标题 就相当于其他控件的caption属性，而 名称 就相当于name属性。25. 在visual basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中，输入一个“-” 。26. 在visual basic中，文件系统控件包括 驱动器列表框（drivelistbox） 、 目录列表框（dirlistbox） 和文件列表框（filelistbox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。27. 每次重新设置驱动器列表框的drive属性时，都将引发

27、 change 事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。28. 对驱动器列表框来说，每次重新设置驱动器列表框的 drive 属性时，将引发change事件；对目录列表框来说，当 path 属性值改变时，将引发change事件；对于文件列表框，重新设置的 path 属性，将引发change事件。29. 执行指令“line (200,200) step (500,500)”后，currentx 700 。30. 执行指令“line (200,200) (500,500)”后，currentx 500 。31. 将图片框picturebox的autosize

28、属性设置成 ture 时，图片框能自动调整大小，以适应其中的图片。32. label和textbox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 label 控件；若允许用户输入文本，则应使用 textbox 控件。33. 按文件的存取方式，可将文件分为顺序文件、 随机文件 和 二进制文件 。34. ado模型中一般可通过connection对象的 execute 方法执行增加、删除、修改操作。使用ado模型时，建立recordset和connection对象连接的属性是 activeconnection 。35. ado数据模型中一般可通过connection对象

29、的 execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。三、程序阅读题：1. 阅读以下程序，写出其功能。private sub cmdwhy_click() cmdwhy为命令按钮，lblhellovb为标签，txthellovb为文本框lblhellovb .caption = 为什么学vb txthellovb = （1）vb简单易学，开发效率高，通用性强，用途广泛。 _+ vbcrlf + vbcrlf + （2）vb是国内外最流行的程序设计语言之一， _+ 也是学习开发windows应用程序首选的程序设计语言。end sub该程序功能：单击cmdwhy按钮，

30、在lblhellovb标签显示“为什么学vb”，在txthellovb文本框显示以下内容：1vb简单易学，开发效率高，通用性强，用途广泛。2vb是国内外最流行的程序设计语言之一，也是学习开发windows应用程序首选的程序设计语言。2. 阅读以下程序，写出其功能。private sub cmdwhat_click() cmdwat为命令按钮，lblhellovb为标签，txthellovb为文本框lblhellovb .caption = vb能干什么txthellovb = vb能快速实现用户界面的设计、 _+ 文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、 _+ 网络和图形等

31、多方面的应用程序；可以开发个人使用或小组 _+ 使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。end sub该程序功能：单击cmdwhat按钮，在lblhellovb标签显示“vb能干什么”，在txthellovb文本框显示以下内容：vb能快速实现用户界面的设计、文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。3. 阅读以下程序，写出其功能。private sub cmdhow_click() cmdhow为命令按钮，lblhellovb为标签，txthell

32、ovb为文本框lblhellovb .caption = 如何学好vbtxthellovb = （1）从实际应用程序的开发过程中学习vb程序设计。 _+ vbcrlf + vbcrlf + （2）学会分析问题和解决问题的思路、 _+ 算法设计和实现方法。 + vbcrlf + vbcrlf _+ （3）学会利用msdn资源。 + vbcrlf + vbcrlf _+ （4）养成良好的编程习惯。end sub该程序功能：单击cmdhow按钮，在lblhellovb标签显示“如何学好vb”，在txthellovb文本框显示以下内容：（1）从实际应用程序的开发过程中学习vb程序设计。（2）学会分析问

33、题和解决问题的思路算法设计和实现方法。（3）学会利用msdn资源。（4）养成良好的编程习惯。4. 阅读以下程序，写出其功能。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

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

35、p1 = intop2: intop2 = inttempend ifif intop1 mod intop2 0 thenintop1 = intop1 - intop1 mod intop2end ifend select lblquestion为标签lblquestion.caption = intop1 & & stroprator & & intop2 & = end sub该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符（+、）。如果是减法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签lblque

36、stion上显示题目。5. 阅读以下程序，写出其功能。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该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素

37、的和，最后得出该数组的平均值。6. 阅读以下程序，写出其功能。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该程序是一个求最大值的函数。以一个单精度的数组作为参数，先

38、求出数组元素的个数，接着逐个比较，求出数组元素的最大值。7. 阅读以下程序，写出其功能。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该函数的功能

39、是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。8. 阅读以下程序，写出其功能。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) mark

40、array(k) then k = jnext jsngmtemp = markarray(k)markarray(k) = markarray(i)markarray(i) = sngmtempnext iend sub该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。9. 阅读以下程序，写出其功能。private sub changecolor()dim r as integer , g as integer, b as integer

41、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 = rgb(r, g, b) frmmain.backcolor = x end sub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的min属性设置为0、max属性设置

42、为255，接着用取出三个滚动条的value属性值，用rgb函数产生一个由红、绿、蓝三个value属性值混合而成的新颜色，并作为窗体底色。10. 阅读以下程序，写出其功能。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.

43、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 文本框txtno、txtname和组合框cbosex、cboclass分别用来输入学号、姓名、性别和班级strsql = select * from 学生表 where 学号= + tx

44、tno.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

45、end sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtno中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。四、程序设计题：1. 编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdaim、cmdway和cmdexit，标签控件的名称定义为lblcontent。单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。 图1private sub cmdaim_click() lblcontent.capti

46、on = 开发windows应用程序end subprivate sub cmdway_click() lblcontent.caption = 从实际应用程序的开发过程中学习vbend subprivate sub cmdexit_click() endend sub2. 设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtfirstnum、txtsecondnum和txtsum，“计算”命令按钮的名称定义为cmdsum。 图2private sub cmdsum_click() txtsum.text = val(txtfirstn

47、um.text) + val(txtsecondnum.text)end sub3. 编写一个数制转换程序，运行界面如图3所示。设三个文本框的名称框定义分别为txtdec、txthex和txtoct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的change事件和转换函数hex、oct。 图3private sub txtdec_change() txthex.text = hex(val(txtdec.text) txtoct.text = oct(val(txtdec.text)end sub4. 编

48、写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如4所示，设输入文本框的名称框定义为txtanswer，神秘的数、评价标签控件的名称框定义为lblcomment和lblnum，“确定”命令按钮的名称定义为cmdok。 图4dim intnum as integer 用于存放“神秘的数”dim intcount as integer 用于猜数计数private sub cmdok_click() intcount = intcount + 1 计数 if val(txtanswer.text) = intnum then 猜对 lblcomme

49、nt.caption = 猜对了！你一共猜了 & intcount & 次 lblnum.caption = intnum elseif val(txtanswer.text) intnum then lblcomment.caption = 太大了！ else lblcomment.caption = 太小了！ end ifend subprivate sub form_load() randomize intnum = int(rnd * 1000 + 1)end sub5. 编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年，如1980年；凡是能被4

50、00整除的年份为闰年，如2000年；除以上两种情况以外的其余年份都是平年。private sub command1_click() dim intyear as integer 用于存放年份 intyear = inputbox(请输入年份) if intyear mod 400 = 0 or (intyear mod 4 = 0 and intyear mod 100 0) then msgbox intyear & 年是闰年 else msgbox intyear & 年是平年 end ifend sub6. 编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdadd、cmddel和cmdupdate，列表