2022年电大计算机本科补修VisualBasic程序设计期末复习题

1、Visual Basic程序设计（开放本科补修）课程期末复习一、单项选择题如果要设置窗体的标题栏，应选择（ B ）属性。AVisibleBCaptionCNameDText要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。AVisibleBCaptionCEnableDEnabled要使标签能透出窗体的背景，应设置标签的（ A ）属性。ABackStyleBBorderStyleCAppearanceDBackColor以下控件中，（ A ）控件不会影响到界面设计效果。A计时器B文本框C标签DLine控件在Visual Basic中，一般（ B ）属性用来设置字体的颜色。AFo

2、ntColorBForeColorCBackColorDShowColor在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗口中可以直接键入命令以显示命令所请求的信息。A立即B.监视C.本地D.中断某计时器控件的interval属性为0时，表示（ A ）。A计时器关闭计时CTimer事件的间隔时间为0毫秒BTimer事件的间隔时间为0秒D计时器启动计时在窗体Form1的Click事件过程中有以下语句：Label1.Caption=Visual Basic若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分

3、别为（ B ）。ALabel和Label BLabel1和Label1CLabel1和Visual BasicDLabel和Caption（ C ）控件不具有Caption属性。ALabelBFormCTextBoxDCommandButton改变控件在窗体中的上下位置，应设置控件的（ A ）属性。ATopBLeftCWidthDRight文本框中选定的内容，由下列（ C ）属性反映。ATextBCaptionCSeltextDSelLenght在Visual Basic中，变量的默认类型是（ D ）。AStringBIntegerCDoubleDVariant假设已定义Integer变量x、

4、y，则以下赋值语句正确的是（ C ）。Ax + 1 = yBx := yCy = x + yD1 = x、/、Mod、*四个算术运算符中，优先级别最低的是（ C ）。AB/CModD*下列哪组语句可以将变量A、B值互换（ B ）。AA=C : C=B : B=A BA=A+B : B=AB: A=ABCA=B : B=ADA=(A+B)/2 : B=(A - B)/2以下语句的输出结果是（ C ）。Print Format (32548.5,“000,000.00”)A32548.5B32,548.5C032,548.50D32,548.50表达式4+5 6 * 7 / 8 Mod 9 的值是

5、 （ B ）。A4 B5C6D7函数Int(Rnd*10)是在（ C ）范围内的整数。 A（0, 10）B(0,10C0, 10）D0, 10下面（ A ）运算符是算术运算符。 AModBLikeCAndDNot已知三个变量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 = ACA + C = B Or A + B = C Or B + C = ADA + C = B And A + B = C Or B + C = A下面程序段运行后，显示的结果是（

6、B ）。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0B1C2D不一定以下程序的输出结果是（ C ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4B6C10D不一定在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。ADimBPublicCPrivateDStatic能通过（ D ）来删除列表框中的选择项。AList属性

7、BText属性CClear方法DRemoveItem方法ListBox中若没有任何条目选中，其ListIndex属性值为（ A ）。A-1B0C1D任意可通过（ C ）属性判断ListBox列表框控件的项目总数目。AListIndexBListTextCListcountD随机数列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。ASelectedBListCTextDCaption设List1为列表框控件，List1.Clear中的Clear是（ A ）。A方法B对象C属性D事件以下（ D ）语句将删除列表框List1中的最后一项。AList1.RemoveItem List1.Li

8、stCount BList1.ClearCList1.List(List1.ListCount-1)= DList1.RemoveItem List1.ListCount-1若要把“XXX”添加到列表框List1中的第三项，则可执行语句（ B ）。AList1.AddItem XXX, 3BList1.AddItem XXX, 2CList1.AddItem 3,XXXDList1.AddItem 2,XXX用户可以通过设置菜单项的（ C ）属性值为False来使该菜单项失效。AHideBVisibleCEnabledDChecked用户可以通过设置菜单项的（ B ）属性值设置为False来使

9、该菜单项不可见。AHideBVisibleCEnabled DChecked菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。ACaptionBNameCIndexDShortCut每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。A1B3C5D6在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-）。A名称栏B标题栏C索引栏D显示区如果要在程序中显示一个弹出菜单，需调用（ D ）方法。APrintBMoveCRefreshDPopupMenu当单击工具栏上的按钮，会触发的事件是（ A ）。AButtonClickBChangeCLoadDKeyPress下列可

10、以用来存储图像可以供其它控件使用的控件是（ C ）。AToolBarBStatursBarC ImageListDTreeView在Visual Basic中按文件的访问方式不同，可以将文件分为（ B ）。A文本文件和数据文件B顺序文件、随机文件和二进制文件CASCII文件和二进制文件D数据文件和可执行文件检测文件是否结束的函数是（ C ）。ALOF()BLen()CEOF()DChr()要读出C盘根目录下的顺序文件stud.txt中的内容，下列打开方式中（ C ）是正确的。AOpen C:stud.txt For Append As #1BOpen C:stud.txt For Random

11、 As #1COpen C:stud.txt For Input As #1DOpen C:stud.txt For Output As #1随机文件使用（ C ）语句写数据。AInput#BWrite #CPutDGet随机文件使用（ D ）语句读数据。AInput#BWrite #CPutDGet程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。ADriveBDriveNameCChgdriveDDrives要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。AShowOpenBShowColorCShowFontDShowSaveas改变驱动器列表框的Dr

12、ive属性值将激活其（ A ）事件。AChangeBScrollCKeyDownDKeyUp使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。ADriveBPathCDirDListIndex在随机文件中（ D ）。A记录的内容是随机产生的B记录的长度是任意的C记录号是通过随机数产生的D可以通过记录号随机读取记录执行语句Open C：Stud.txt For Input As #2后，系统（ C ）。A将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B将某个磁盘文件的内容写入C盘当前文件夹下名为Stud.txt的文件中C打开C盘当前文件夹下名为S

13、tud.txt的文件，用来读取文件内容D在C盘当前文件夹下建立名为Stud. txt的顺序文件下面对象中不能作为容器的是（ B ）。A窗体BImage控件CPictureBox控件DFrame控件要向图片框picP中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（ C ）。APicture1.Picture= d:hainanzhiwu.bmpBPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp)CpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)DpicP.Picture=LoadPicture(d

14、:hainanzhiwu.bmp)执行Form1.Scale（0, 10）-（10, -10）语句后，Form1窗体坐标系x轴和y轴的正方向是（ A ）。A向右和向上B向左和向下C向右和向下D向左和向上下列图形中不能使用Shape控件绘制的是（ B ）。A矩形B三角形C正方形D椭圆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）RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输

15、入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。AMax和MinBSmallchange和 LargeChangeCScroll和ChangeDValue如果在图片框上使用绘图方法绘制一个圆，则图片框的（ B ）属性决定了该圆的颜色。ABackColorBForeColorCFillColorDDrawStyle键盘事件的执行顺序是（ B ）。AKeyPress，KeyDown，KeyUpBKeyDown，KeyPress，KeyUpCKeyUp，KeyDown，KeyPressDKeyUp，KeyPress，KeyDownADO控件属于ActiveX控件，使用之前必须加载Mi

16、crosoft ADO Data Conctrol 6.0（OLE DB），将ADO控件添加到工具箱中。添加ADO控件的菜单为（ B ）。A“工程”“引用”B“工程”“部件”C“工具”“选项”D“工程”“添加文件”利用ADO访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection对象BRecordset对象CCommand对象DObject对象SQL语言的Select语句中，用于分组的语句为（ B ）。AwhereBgroup byCorder byDhaving以下四个控件，不属于数据绑定控件的是（ C ）。AText控件BDataGrid控件COption控

17、件DLabel控件决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ B ）。AEnableBAutoEnableCPlayEnabledD以上答案都不正确将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（ A ）。A指定Back或Step命令后退或前进的帧数都为3B只有Back命令后退的帧数为3C只有Step命令前进的帧数为3D后退或前进的帧数都为6多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（ B ）。A前一首B录制C弹出D播放为了使多媒体控件（MMControl）中的录制按钮不显示，应

18、添加代码（ C ）。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ D ）。ADigitalVideoBWaveAudioCAVIVideoDCDAudioWindows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属

19、性值是（ D ）。AFullBMiniCNoneD以上都是 在Windows Media Player控件中，决定播放文件是否全屏的属性是（ A ）。AFullScreenBFullCScreenDstretchToFit二、填空题数学表达式cox2x+写成等价的Visual Basic表达式为 cos(x)2+Sqr(x2-y2)/2 。数学表达式写成等价的Visual Basic表达式为 10(1/2)*cos(50*3.14/180) 或者Sqr(10)*cos(50*3.14/180) 。数学式子对应的Visual Basic运算表达式是 ： Sqr(s*(s-a)*(s-b)*(s-

20、c) 。将1 x =1 And xb and Not ca Or cb And ca+b的值是 True 。Left (abcd,2)函数的返回值是 ab ; Right(abcd,2)函数的返回值是 cd 。在Visual Basic的转换函数中将数值转换为字符串的函数是 Str(x) ；将数字字符串转换为数值的函数是 Val(x) ；将字符转换为相应的ASCII码的函数是 Asc(x) 。有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变量的类型应为 变体型 ，其中Str2变量的类型应为 字符串型 。数组的类型可以是基本数据类型，也可以是用户自定义的记

21、录类型。如果省略类型说明，数组会被设置为默认的 变体类型（Variant） 。数组中各个元素在定义时如果是数值类型就被默认初始化为 0 ，如果是字符串类型就被初始化为 空字符串 。在Visual Basic中，数组默认的下标下界是 0 ，如果希望从1开始，可以使用 Option Base n语句 语句来设置。在缺省情况下，用Dim A(5,5)语句声明二维数组后，数组A的元素共有 36 个。在Visual Basic中，参数通过 按值传递 和 按地址传递 两种方式传送。Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件

22、过程或通用过程内定义的变量，它的作用域就是 其所在的过程 。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是 窗体内的所有过程 ，标准模块变量的作用域是 模块内的所有过程 。全局变量的作用域是 整个工程中所有的模块和所有的过程 。基本程序控制结构可以分为顺序结构、 选择 结构和 循环 结构3种。在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用For循环；若要求先判断循环进行的条件，可使用 While 循环或 Do 循环。 Visual Basic一般用4种类型的文件保存，分别是扩展名为 .frm 的窗体文件，扩展名为 bas 的标

23、准模块文件，扩展名为 .cls 的类模块文件和扩展名为 .vbp 的工程文件。Visual Basic程序开发有三种模式，即 设计 模式、 运行 模式和 中断 模式。Visual Basic中设置断点的按键是 F9 ，逐语句调试的语句是 F8 。Visual Basic中的程序错误类型主要有编译错误、 实时错误 和 逻辑错误 三种。Visual Basic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含 窗体 和 代码 两部分。 标准模块 完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。 类模块 用于自定义类。在Visual

24、Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为 Command1 。为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 Picture1. Picture = LoadPrcture(“picturefile.jpg”) 。在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性， 标题 就相当于其他控件的Caption属性，而 名称 就相当于Name属性。在Visual Basic菜单中设置显示一条

25、分割线的操作是 在【菜单编辑器】的标题栏中，输入一个“-” 。在Visual Basic中，文件系统控件包括 驱动器列表框（DriveListBox） 、 目录列表框（DirListBox） 和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。每次重新设置驱动器列表框的Drive属性时，都将引发 Change 事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。对驱动器列表框来说，每次重新设置驱动器列表框的 Drive 属性时，将引发Change事件；对目录列表框来说，当 Path 属性值改变时，将引发

26、Change事件；对于文件列表框，重新设置的 Path 属性，将引发Change事件。执行指令“Line (200,200) Step (500,500)”后，CurrentX 700 。执行指令“Line (200,200) (500,500)”后，CurrentX 500 。将图片框PictureBox的AutoSize属性设置成 Ture 时，图片框能自动调整大小，以适应其中的图片。Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 Label 控件；若允许用户输入文本，则应使用 TextBox 控件。按文件的存取方式，可将文件分为顺序文件

27、、 随机文件 和 二进制文件 。ADO模型中一般可通过Connection对象的 Execute 方法执行增加、删除、修改操作。使用ADO模型时，建立Recordset和Connection对象连接的属性是 ActiveConnection 。ADO数据模型中一般可通过Connection对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。三、程序阅读题阅读以下程序，写出其功能。Private Sub cmdWhy_Click() cmdWhy为命令按钮，lblHelloVB为标签，txtHelloVB为文本框lblHelloVB .Caption = 为什

28、么学VB txtHelloVB = （1）VB简单易学，开发效率高，通用性强，用途广泛。 _+ vbCrLf + vbCrLf + （2）VB是国内外最流行的程序设计语言之一， _+ 也是学习开发Windows应用程序首选的程序设计语言。End Sub该程序功能：单击cmdWhy按钮，在lblHelloVB标签显示“为什么学VB”，在txtHelloVB文本框显示以下内容：1VB简单易学，开发效率高，通用性强，用途广泛。2VB是国内外最流行的程序设计语言之一，也是学习开发Windows应用程序首选的程序设计语言。阅读以下程序，写出其功能。Private Sub cmdWhat_Click()

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

30、发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。阅读以下程序，写出其功能。Private Sub cmdHow_Click() cmdHow为命令按钮，lblHelloVB为标签，txtHelloVB为文本框lblHelloVB .Caption = 如何学好VBtxtHelloVB = （1）从实际应用程序的开发过程中学习VB程序设计。 _+ vbCrLf + vbCrLf + （2）学会分析问题和解决问题的思路、 _+ 算法设计和实现方法。 + vbCrLf + vbCrLf _+ （3）学会利用MSDN资源。

31、 + vbCrLf + vbCrLf _+ （4）养成良好的编程习惯。End Sub该程序功能：单击cmdHow按钮，在lblHelloVB标签显示“如何学好VB”，在txtHelloVB文本框显示以下内容：（1）从实际应用程序的开发过程中学习VB程序设计。（2）学会分析问题和解决问题的思路算法设计和实现方法。（3）学会利用MSDN资源。（4）养成良好的编程习惯。阅读以下程序，写出其功能。Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As IntegerDim strOprator As StringDi

32、m 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 IfintA

33、nswer = 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 & & strOp

34、rator & & intOp2 & = End Sub该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符（+、）。如果是减法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion上显示题目。阅读以下程序，写出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As IntegersngSum = 0n = UBound(MarkArray) For

35、 i = 0 To nsngSum = sngSum + MarkArray(i) Next iAvg_mark = sngSum / n End Function该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。阅读以下程序，写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As IntegersngMax = 0n = UBound(MarkArray) F

36、or i = 0 To nIf MarkArray(i) sngMax Then sngMax = MarkArray(i) Next iMax_Mark = sngMax End Function该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。阅读以下程序，写出其功能。Public Function Pass_Mark(MarkArray() As Single) As SingleDim intCount As Integer, i As Integer , n As IntegerintCount = 0n = UBoun

37、d(MarkArray) For i = 0 To nif MarkArray(i) = 60 Then intCount = intCount + 1 Next iPass_Mark = intCount / nEnd Function该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。阅读以下程序，写出其功能。Private Sub Sort_Mark(MarkArray() As Single)Dim sngMtemp As SingleDim i As Integer ,

38、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该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元

39、素交换位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。阅读以下程序，写出其功能。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 = hs

40、bBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Min属性设置为0、Max属性设置为255，接着用取出三个滚动条的Value属性值，用RGB函数产生一个由红、绿、蓝三个Value属性值混合而成的新颜色，并作为窗体底色。阅读以下程序，写出其功能。Public ADOcn As ConnectionPublic Sub Main()Dim strAccess As StringstrAccess=Provider=Microsoft.Jet.O

41、LEDB.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窗体。阅读以下程序，写出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim

42、 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(

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

44、单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。 图1Private Sub cmdAim_Click() lblContent.Caption = 开发Windows应用程序End SubPrivate Sub cmdWay_Click() lblContent.Caption = 从实际应用程序的开发过程中学习VBEnd SubPrivate Sub cmdExit_Click() EndEnd Sub设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFir

45、stNum、txtSecondNum和txtSum，“计算”命令按钮的名称定义为cmdSum。 图2Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)End Sub编写一个数制转换程序，运行界面如图3所示。设三个文本框的名称框定义分别为TxtDec、TxtHex和TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的Change事件和转换函数Hex、Oct。图3Private

46、Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End Sub编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如4所示，设输入文本框的名称框定义为TxtAnswer，神秘的数、评价标签控件的名称框定义为lblComment和lblNum，“确定”命令按钮的名称定义为cmdOk。 图4Dim intNum As Integer 用于存放“神秘的数”Dim intCount As Integer 用于猜数计数Priv

47、ate Sub cmdOk_Click() intCount = intCount + 1 计数 If Val(txtAnswer.Text) = intNum Then 猜对 lblComment.Caption = 猜对了！你一共猜了 & intCount & 次 lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了！ Else lblComment.Caption = 太小了！ End IfEnd SubPrivate Sub Form_Load() Randomiz

48、e intNum = Int(Rnd * 1000 + 1)End Sub编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年，如1980年；凡是能被400整除的年份为闰年，如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 intY

49、ear & 年是闰年 Else MsgBox intYear & 年是平年 End IfEnd Sub编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。图5P

50、rivate Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End SubPrivate Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End SubPrivate Sub cmdUpdate_Click() If cmdUpdate.Caption = 修改 Then Text1.Text = List1.List(List1.ListIndex) cmdUpdate.Caption = 确认修改 Else List1.List(List1.

51、ListIndex) = Text1.Text cmdUpdate.Caption = 修改 Text1.Text = End IfEnd Sub假设在D盘驱动器上已建立了一个通信录文件（Txl.txt），文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，实现能按用户名查找，并在文本框中显示查找结果，如图6所示。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。图6设在标准模块中已输入以下代码：Type Lxr intBh As Integer 编号 s

52、trXm As String * 8 姓名 strDh As String * 11 电话 strDz As String * 30 地址End TypePublic user As Lxr写出查询命令按钮cmdFindname的Click事件代码。Private Sub cmdFindname_Click() Dim i As Integer, intCount As Integer, intRecordNum As Integer Dim strComp1 As String, strComp2 As String txtCount.Text = 编号 姓名 电话 地址 + vbCrLf

53、intCount = 0 Open d:txl.txt For Random As #1 Len = Len(user) intRecordNum = LOF(1) / Len(user) For i = 1 To intRecordNum Get #1, i, user strComp1 = Trim(txtName.Text) strComp2 = Trim(Replace(user.strXm, Chr(0), ) 比较输入的姓名和文本中的姓名是否一致 If StrComp(strComp1, strComp2) = 0 Then intCount = intCount + 1 Get

54、#1, i, user msg = Str(Bh) + + user.strXm + user.strDh + user.strDz msg = Replace(msg, Chr(0), ) txtCount.Text = txtCount.Text + msg + Chr(13) + Chr(10) End If Next i Close #1 lblCount.Caption = 一共找到 + Str(intCount) + 条记录 If intCount = 0 Then MsgBox 没有该记录, vbInformation, 提示 End IfEnd Sub编写一个函

55、数图形程序。用Pset方法在图形框Picture1内绘制y=Cosx在-到之间的图形，运行结果图7所示。设所有控件使用默认名称。图7Const pi = 3.1415926Dim x As SinglePrivate Sub Command1_Click() Picture1.DrawWidth = 2 For x = -pi To pi Step 0.001 Picture1.PSet (x, Cos(x) Next xEnd SubPrivate Sub Form_Load() Picture1.Scale (-4, 2)-(4, -2) Picture1.Line (0, 2)-(0, -2) Picture1.Line (-4, 0)-(4, 0) Picture1.Line (-pi, 0.1)-(-pi, 0) CurrentX = -pi: CurrentY = -0.2: Picture1.Print - Picture1.Line (-pi / 2, 0.1)-(-pi / 2, 0) Picture1.Line (pi / 2, 0.1)-(pi / 2, 0) Picture1.Line (pi, 0.1)-(pi, 0) CurrentX = pi: Cu