电大《Visual Basic程序设计》课程期末复习考试资料小抄.pdf

电大Visual Basic程序设计课程期末复习考试资料小抄一、单项选择题1.如果要设置窗体的标题栏，应选择（B）属性。A.Visible B.Caption C.Name D.Text2.要使命令按钮不响应用户生成的事件，应设置命令按钮的（D）属性。A.Visible B.Caption C.Enable D.Enabled3.要使标签能透出窗体的背景，应设置标签的（A）属性。A.Back Style B.BorderStyle C.Appearance D.Back Color4.以下控件中，（A）控件不会影响到界面设计效果。A.计时器 B.文本框 C.标签 D.Line控件5.在Visual Basic中，一般（B）属性用来设置字体的颜色。A.FontColor B.ForeColor C.Back Color D.Sh owColor6.在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（A）窗口中可以直接键入命令以显示 命令所请求的信息。A.立即 B.监视 C.本地 D.中断7.某计时器控件的interval属性为0时，表示（A）。A.计时器关闭计时 C.Timer事件的间隔时间为0毫秒B.Timer事件的间隔时间为。秒 D.计时器启动计时8.在窗体Forml的Click事件过程中有以下语句：Label 1.Caption=Visual Basic若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前 的值分别为（B）0A.Label 和 Label B.Label 1 和 Label 1C.Label 1 和 Visual Basic D.Label 和 Caption9.（C）控件不具有Caption属性。A.Label B.Form C.TextBox D.CommandButton10.改变控件在窗体中的上下位置，应设置控件的（A）属性。A.Top B.Left C.Width D.Righ t11.文本框中选定的内容，由下列（C）属性反映。A.Text B.Caption C.Seitext D.SelLengh t12.在Visual Basic中，变量的默认类型是（D）。A.String B.Integer C.Double D.Variant13.假设已定义Integer变量x、y,则以下赋值语句正确的是（C）。A.x+l=y B.x:=y C.y=x+y D.1-x14.、/、Mod、*四个算术运算符中，优先级别最低的是（C）oA.B./C.Mod D.*15.下列哪组语句可以将变量A、B值互换（B）oA.A=C:C=B:B=A B.A=A+B:B=A-B:A=A-BC.A=B:B=A D.A=(A+B)/2:B=(A-B)/216.以下语句的输出结果是(C)。Print Format(32548.5,000,000.00”）A.32548.5 B.32,548.5C.032,548.50D.32,548.5017.表达式 4+5 6*7/8 Mod 9的值是（B）oA.4 B.5C.6D.718.函数 Int（Rnd*10）是在（C）范围内的整数。A.(0,10)B.(0,10C.0,10)D.0,1019.下面（A）运算符是算术运算符。A.Mod B.Lik eC.AndD.Not20.已知三个变量A、B、C,判断A、B、C能否构成三角形的逻辑表达式为（B）。A.A=B And B=C And A=CB.A+C=B And A+B=C And B+C=AC.D.21.A+C=B Or A+B=C Or B+C=A A+C=B And A+B=C Or B+C=A下面程序段运行后，显示的结果是（B）。Dim intX As IntegerIf intX Th enPrint intXElsePrint intX+1End IfA.0B.122.以下程序的输出结果是(Dim a,i%,sum%a=Array(4,3,2,1)For i=0 To 3 sum=sum+a(i)Next i Print sumC.2C)oD.不一定A.23.4B.6C.10在过程中定义的变量，若希望在离开该过程后,过程中定义局部变量。D.不一定还能保存过程中局部变量的值，则应使用（D）关键字在A.24.A.25.A.26.A.27.A.28.A.29.A.B.Dim能通过（List属性B.PublicC.PrivateD.StaticD）来删除列表框中的选择项。B.Text 属性 C.Clear 方法D.Removeitem 方法ListBox中若没有任何条目选中，其Listindex属性值为（A-1可通过(Listindex 列表框的SelectedB.0C.1D.任意C）属性判断ListBox列表框控件的项目总数目。B.ListTextC.Listcount D.随机数)oB）属性用于返回或设置列表框中各列表项的文本。B.ListC.TextD.Caption设Listl为列表框控件，Listl.Clear中的Clear是（A）。方法以下（B.对象C.属性D.事件D）语句将删除列表框Listl中的最后一项。List 1.Removeitem Listl.ListCountListl.ClearC.List 1,List(List 1,ListCount-1 D.List 1.Removeitem List 1.ListCount-130.若要把“XXX”添加到列表框Listl中的第三项，则可执行语句(B)。A.Listl.Additem XXX,3C.Listl.Additem 3,XXX31.用户可以通过设置菜单项的A.Hide B.Visible32.用户可以通过设置菜单项的A.Hide B.VisibleB.Listl.Additem XXX,2D.List 1.Additem 2,XXXC)属性值为False来使该菜单项失效。C.Enabled D.Ch eck edB)属性值设置为False来使该菜单项不可见。C.Enabled D.Ch eck ed33.菜单编辑器中，同层次的（B）属性值设置为相同，才可以设置索引值。A.CaptionB.NameC.IndexD.Sh ortcut34.每创建一个顶级菜单，它的下面最多可以有（C）级子菜单。A.1B.3 C.5 D.635.在设计菜单时，为了创建分隔栏，要在（B）中输入字符（-）oA.名称栏 B.标题栏 C.索引栏 D.显示区36.如果要在程序中显示一个弹出菜单，需调用（D）方法。A.Print B.Move C.Refresh37.当单击工具栏上的按钮，会触发的事件是（D.A)oPopupMenuA.ButtonClick B.Ch angeC.LoadD.KeyPress38.下列可以用来存储图像可以供其它控件使用的控件是（C）。A.ToolBar B.StatursBar C.ImageList D.TreeView39.在Visual Basic中按文件的访问方式不同，可以将文件分为(B)。A.文本文件和数据文件C.ASCII文件和二进制文件40.检测文件是否结束的函数是（A.LOF（）B.Len（）B.顺序文件、随机文件和二进制文件D.数据文件和可执行文件C）oC.EOF（）D.Ch r（）41.要读出C盘根目录下的顺序文件stud.txt中的内容，下列打开方式中（C）是正确的。A.Open C:stud.txt For Append As#1B.Open C:stud.txt For Random As#1C.Open C:stud.txt For Input As#142.随机文件使用（C）语句写数据。A.Input#B.Write#C.Put43.随机文件使用（D）语句读数据。A.Input#B.Write#C.Put44.程序运行时，驱动器列表框下列（AD.Open C:stud.txt For Output As#1D.GetD.Get)属性能返回磁盘驱动器的名称。A.Drive B.DriveName C.Ch gdrive D.Drives45.要用通用对话框控件显示标准的“字体”对话框，应调用其（C）方法。A.Sh owOpen B.Sh owColorC.Sh owFontD.Sh owSaveas46.改变驱动器列表框的Drive属性值将激活其（A）事件。A.Ch ange B.Scroll47.使用目录列表框的（BC.KeyDownD.KeyUp）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。A.Drive B.Path48.在随机文件中（D）oA.记录的内容是随机产生的C.记录号是通过随机数产生的C.Dir D.ListindexB.记录的长度是任意的D.可以通过记录号随机读取记录49.执行语句 Open C：Stud.txt For Input As#2 Jh,系统（C）。A.将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B.将某个磁盘文件的内容写入C盘当前文件夹下名为Stud.txt的文件中C.打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容D.在C盘当前文件夹下建立名为Stud,txt的顺序文件50.下面对象中不能作为容器的是(B)oA.窗体 B.Image 控件 C.PictureBox 控件 D.Frame 控件51.要向图片框picP中加载d:h ainanzh iwu.bmp”图像文件，应使用语句(C)。A.Picturel.Picture=d:h ainanzh iwu.bmpB.Picturel.Picture=LoadPicture(d:h ainanzh iwu.bmp)C.picP.Picture=LoadPicture(d:h ainanzh iwu.bmp)D.picP.Picture=LoadPicture(d:h ainanzh iwu.bmp)52.执行Forml.Scale(0,10)-(10,-10)语句后，Forml窗体坐标系x轴和y轴的正方向是(A)。A.向右和向上 B.向左和向下 C.向右和向下 D.向左和向上53.下列图形中不能使用Sh ape控件绘制的是(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）属性。A.Max 和 Min B.Smallch ange 和 LargeCh angeC.Scroll 和 Ch ange D.Value56.如果在图片框上使用绘图方法绘制一个圆，则图片框的（B）属性决定了该圆的颜色。A.57.A.C.58.Back Color B.ForeColor 键盘事件的执行顺序是(B KeyPress,KeyDown,KeyUp KeyUp，KeyDown,KeyPressADO控件属于ActiveX控件,C.)oFillColorD.DrawStyleB.Key Down,KeyPress,KeyUpD.KeyUp,KeyPress,KeyDown使用之前必须加载 Microsoft ADO Data Conctrol 6.0(OLE DB),将 ADO 控件添加到工具箱中。添加ADO控件的菜单为（B）oA.“工程”一“引用”B.“工程”-“部件”C.“工具”一“选项”D.“工程”一“添加文件”59.利用ADO访问数据库，首先要创建一个（A）对象，用于建立和数据库的连接。A.Connection 对象 B.Recordset 对象C.Command 对象 D.Object 对象60.SQL语言的Select语句中，用于分组的语句为（B）。A.wh ere B.group by C.order by D.h aving61.以下四个控件，不属于数据绑定控件的是（C）。A.Text 控件 B.DataGrid 控件 C.Option 控件 D.Label 控件62.决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（B）。A.Enable B.AutoEnableC.PlayEnabled D.以上答案都不正确63.将多媒体控件（MMControl）的Frames属性设为3,则以下叙述正确的是（A）。A.指定Back或Step命令后退或前进的帧数都为3B.只有Back命令后退的帧数为3C.只有Step命令前进的帧数为3D.后退或前进的帧数都为664.多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（B）。A.前一首 B.录制 C.弹出 D.播放65.为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（C）。A.MMControl 1.Visible=FalseB.MMControl 1.Visible=TrueC.MMControl 1.RecordVisible=FalseD.MMControl 1.RecordVisible=True66.在多媒体控件(MMControl)中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌 曲，应将DeviceType属性设置为(D)。A.Digital Video B.WaveAudio C.AVI Video D.CDAudio67.Windows Media Player控件的UiMode属性,表示播放器界面模式，以下选项是播放器模式的属性值是(D)。A.Full B.Mini C.None D.以上都是68.在Windows Media Player控件中，决定播放文件是否全屏的属性是(A)。A.FullScreen B.Full C.Screen D.stretch ToFit二、填空题1.数学表达式COX2x+2写成等价的V1SUal Basic制式为cos-SEx-。2.数学表达式丽cos50写成等价的visual Basic表达式为10A(l/2)*cos(50*3.14/180)或者Sqr(l 0)*cos(50*3.14/180)3.数学式子 J，“)b)(s 对应的 Visual Basic 运算表达式是：Sqr(s*(s-a)*(s-b)*(s-c)。4.将 1 x=l And xb and Not ca Or cb And ca+b 的值是 True6.Left(abcd.2)函数的返回值是 ab;Rieh t(abcd，2)函数的返回值是 cd。7.在Visual Basic的转换函数中将数值转换为字符串的函数是 Str(x)；将数字字符串转换为数值的函数 是 Val(x)；将字符转换为相应的ASCII码的函数是 Asc(x)。8.有变量定义语句“Dim Strl,Str2As String*10,其中Strl变量的类型应为 变体型，其中Str2变量的类型应为 字符串型。9.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认 的 变体类型(Variant)。数组中各个元素在定义时如果是数值类型就被默认初始化为 0,如果是字符串类型就被初始化为 空字符串。10.在Visual Basic中，数组默认的下标下界是 0,如果希望从1开始，可以使用 Option Base n语句语句来设置。11.在缺省情况下，用DimA(5,5)语句声明二维数组后，数组A的元素共有 36 个。12.在Visual Basic中，参数通过 按值传递 和 按地址传递 两种方式传送。13.Visual Basic中变量依据其作用域不同可以分为过程级变量(局部变量)、模块级变量和全局变量3类。过程级 变量就是指在事件过程或通用过程内定义的变量，它的作用域就是 其所在的过程。模块级变量包括窗 体级模块变量和标准模块级变量。窗体模块变量的作用域是 窗体内的所有过程，标准模块变量的作用域是 模块内的所有过程。全局变量的作用域是 整个工程中所有的模块和所有的过程。14.基本程序控制结构可以分为顺序结构、选择 结构和 循环 结构3种。15.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用For循环；若要求 先判断循环进行的条件，可使用 Wh ile 循环或 Do 循环。16.Visual Basic一般用4种类型的文件保存，分别是扩展名为.fim 的窗体文件,扩展名为 bas 的标准模块文件，扩展名为.C1S的类模块文件和扩展名为.vbp的工程文件。17.Visual Basic程序开发有三种模式，即 设计 模式、运行 模式和 中断 模式。18.Visual Basic中设置断点的按键是 F9,逐语句调试的语句是 F8。19.Visual Basic中的程序错误类型主要有编译错误、实时错误 和 逻辑错误 三种。20.Visual Basic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含_窗 体_和 代码 两部分。标准模块 完全由代码组成,这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。类模块 用于自定义类。21.在Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体。22.创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为 Commandl。23.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture 1,所使用的语句为 Picture 1.Picture=LoadPrctureCDicturefHe.jDg)。24.在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题 就相当于其他控件的Caption属性，而 名称 就相当于Name属性。25.在Visual Basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中，输入一个。26.在Visual Basic中，文件系统控件包括 驱动器列表框(DriveListBox)、口录列表框(DirListBox)和文件列表框(FilcListBox)o三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管 理。27.每次重新设置驱动器列表框的Drive属性时，都将引发 Ch an时 事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。28.对驱动器列表框来说，每次重新设置驱动器列表框的 Drive 属性时,将引发Ch ange事件；对目录列表框来说，当 Path 属性值改变时,将引发Ch ange事件；对于文件列表框，重新设置的 Path属性，将引发Ch ange事件。29.执行指令“Line(200,200)-Step(500,500)”后，CurrentX=700 o30.执行指令“Line(200,200)(500,500)”后，CurrentX=50031.将图片框PictureBox的AutoSize属性设置成 Ture 时，图片框能自动调整大小，以适应其中的图片。32.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 Label 控件；若允许用户输入文本，则应使用 TextBox 控件。33.按文件的存取方式，可将文件分为顺序文件、随机文件 和 二进制文件。34.ADO模型中一般可通过Connection对象的Execute 方法执行增加、删除、修改操作。使用ADO模型时，建立 Recordset 和 Connection 对象连接的属性是 ActiveConnection。35.ADO数据模型中一般可通过Connection对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。三、程序阅读题1.阅读以下程序，写出其功能。Private Sub cmdWh y_Click()cmdWh y为命令按钮，IblHelloVB为标签，txtHelloVB为文本框IblHelloVB.Caption=为什么学 VBtxtHelloVB=(1)VB简单易学，开发效率高，通用性强，用途广泛+vbCrLf+vbCrLf+(2)VB是国内外最流行的程序设计语言之一，+也是学习开发Windows应用程序首选的程序设计语言。End Sub该程序功能：单击cmdWh y按钮，在IblHelloVB标签显示“为什么学VB，在txtHelloVB文本框显示以下内容：1.VB简单易学，开发效率高，通用性强，用途广泛。2.VB是国内外最流行的程序设计语言之一，也是学习开发Windows应用程序首选的程序设计语言。2.阅读以下程序，写出其功能。Private Sub cmdWh at_Click()k mdWat为命令按钮，IblHelloVB为标签，txtHelloVB为文本框IblHelloVB.Caption=VB 能干什么”txtHelloVB=VB能快速实现用户界面的设计、+文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、一+网络和图形等多方面的应用程序；可以开发个人使用或小组+使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。End Sub该程序功能：单击cmdWh at按钮，在IblHelloVB标签显示“VB能干什么，在txtHelloVB文本框显示以下内容：VB能快速实现用户界面的设计、文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库网络和图形等 多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。3.阅读以下程序，写出其功能。Private Sub cmdHow_Click()k mdHow为命令按钮，IblHelloVB为标签，txtHelloVB为文本框IblHelloVB.Caption=如何学好 VB”txtHelloVB=(1)从实际应用程序的开发过程中学习VB程序设计。一+vbCrLf+vbCrLf+(2)学会分析问题和解决问题的思路、”+算法设计和实现方法。+vbCrLf+vbCrLf_+(3)学会利用 MSDN 资源。+vbCrLf+vbCrLf_+(4)养成良好的编程习惯。End Sub该程序功能：单击cmdHow按钮，在IblHelloVB标签显示“如何学好VB”，在txtHelloVB文本框显示以下内容：(1)从实际应用程序的开发过程中学习VB程序设计。(2)学会分析问题和解决问题的思路算法设计和实现方法。(3)学会利用MSDN资源。(4)养成良好的编程习惯。4.阅读以下程序，写出其功能。Sub newQuestion()Dim intOp 1 As Integer,intOp2 As Integer,intTemp As IntegerDim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp 1=Int(10*Rnd+1)intOp2=Int(l 0*Rnd+1)intOpratorNum=Int(4*Rnd+1)Select Case intOpratorNumCase 1strOprator=intAnswer=intOp 1+intOp2Case 2strOprator=If intOp I intOp2 Th enintTemp=intOp 1:intOp 1=intOp2:intOp2=intTempEnd IfintAnswer=intOp 1-intOp2Case 3strOprator=x：intAnswer=intOp 1*intOp2Case 4strOprator=If intOp 1 intOp2 Th enintTemp=intOp 1:intOp 1=intOp2:intOp2=intTempEnd IfIf intOp 1 Mod intOp2 0 Th enintOp 1=intOp 1-intOp 1 Mod intOp2End IfEnd SelectIblQuestion 为标签IblQuestion.Caption=intOp 1&strOprator&intOp2&=End Sub该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符(+、一、x、如果是减 法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后 在标签IblQuestion上显示题目。5.阅读以下程序，写出其功能。Public Function Avg_mark(Mark Array()As Single)As SingleDim sngSum As Single,i As Integer,n As IntegersngSum=0n=U Bound(Mark Array)For i=0 To nsngSum=sngSum+Mark Array(i)Next iAvg_mark=sngSum/nEnd Function该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素的 和，最后得出该数组的平均值。6.阅读以下程序，写出其功能。Public Function Max_Mark(Mark Array()As Single)As SingleDim sngMax As Single,i As Integer,n As IntegersngMax=0n=UBound(Mark Array)For i=0 To nIf Mark Array(i)sngMax Th en sngMax=Mark Array(i)Next iMaxMark=sngMaxEnd Function该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组 元素的最大值。7.阅读以下程序，写出其功能。Public Function Pass_Mark(Mark Array()As Single)As SingleDim intCount As Integer,i As Integer,n As IntegerintCount=0n=UBound(Mark Array)For i=0 To nif Mark Array(i)=60 Th en intCount=intCount+1Next iPassMark=intCount/nEnd Function该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接 着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。8.阅读以下程序，写出其功能。Private Sub Sort_Mark(Mark Array()As Single)Dim sngMtemp As SingleDim i As Integer,n As Integer,k As Integer,j As Integern=UBound(Mark Array)For i=0 To n-1k=iFor j=i+1 To nIf Mark Array(j)Mark Array(k)Th en k=jNext jsngMtemp=Mark Array(k)Mark Array(k)=Mark Array(i)Mark Array(i)=sngMtempNext iEnd Sub该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排 序。9.阅读以下程序，写出其功能。Private Sub ch angecolor()Dim r As Integer,g As Integer,b As IntegerDim x As Longh sbRed h sbGreen 和 h sbBlue 为水平滚动条h sbRed.Min=O:h sbGreen.Min=O:h sbBlue.Min=0h sbRed.Max=255:h sbGreen.Max=255:h sbBlue.Max=255r=h sbRed.Valueg=h sbGreen.Value b=h sbBlue.Valuex=RGB(r,g,b)frmMain.Back Color=x End Sub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Min属性设置 为0、Max属性设置为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 Noth ing Th enSet ADOcn=New ConnectionADOcn.Open strAccessEnd IffrmMain.Sh ow 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 学生表 wh ere 学号=，+txtNo.Text+ADOrs.Open strSQL,ADOcnIfNot ADOrs.EOF Th enMsgBox 该记录已经存在，不能继续增加！,vbCritical+vbOKOnly ADOrs.CloseExit SubEnd IfstrSQL=insert into学生表(学号，姓名，性别，班级)strSQL=strSQL+values(+txtNo.Text+txtName.Text+strSQL=strSQL+cboSex.Text+txtClass.Text+ADOcn.Execute strSQLEnd Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtN。中输入的学号，如果 存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。四、程序设计题1.编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、cmdWay和cmdExit,标签控件的名称定义为IblContent。单击“学习目的按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。图1Private Sub cmdAim_Click()IblContent.Caption=开发 Windows 应用程序”End SubPrivate Sub cmdWay_Click()IblContent.Caption=从实际应用程序的开发过程中学习VBEnd SubPrivate Sub cmdExit_Click()EndEnd Sub2.设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分 别定义为txtFirstNum、txtSecondNum和txtSum,计算”命令按钮的名称定义为cmdSum。图2Private Sub cmdSum_Click()txtSum.Text=Val(txtFirstNum.Text)+Val(txtSecondNum.Text)End Sub3.编写一个数制转换程序，运行界面如图3所示。设三个文本框的名称框定义分别为TxtDec、TxtHex和TxtOcto实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显 示该数对应的八进制数。提示：利用文本框的Ch ange事件和转换函数Hex、Oct。图3Private Sub TxtDec_Ch ange()TxtHex.Text=Hex(Val(TxtDec.Text)TxtOct.Text=Oct(Val(TxtDec.Text)End Sub幸运转敷-lalxi神秘的象等着你来揭开,猜猜这黑什么救？小小提示：不大于1 000的正整敷哦秘的数太小了！4.编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运 行界面如4所示，设输入文本框的名称框定义为Txt Answer,神秘的数、评价标签控件的名称框定义为 IblComment和IblNum,“确定”命令按钮的名称定义为cmdOk。图4Dim intNum As Integer，用于存放神秘的数Dim intCount As Integer，用于猜数计数Private Sub cmdOk _Click()intCount=intCount+1，计数If Val(txtAnswer.Text)=intNum Th en精对IblComment.Caption=猜对 了！你一共猜了&intCount&次IblNum.Caption=intNumElself Val(txtAnswer.Text)intNum Th enIblComment.Caption=太大了！ElseIblComment.Caption=太小了！End IfEnd SubPrivate Sub Form_Load()RandomizeintNum=Int(Rnd*1000+1)End Sub5.编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年，如1980 年；凡是能被400整除的年份为闰年，如2000年；除以上两种情况以外的其余年份都是平年。Private Sub Command l_Click()Dim intYear As Integer，用于存放年份intYear=InputBox(请输入年份”)If intYear Mod 400=0 Or(intYear Mod 4=0 And intYear Mod 100 0)Th enMsgBox intYear&年是闰年”ElseMsgBox intYear&年是平年 End IfEnd Sub6.编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate,列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添 加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改二图5Private Sub cmdAdd_Click()List 1.Add