高三vb题库及答案解析

高三vb题库及答案解析高三VB题库及答案解析一、选择题（共40分，每题2分）1.下列哪个不是VB的基本数据类型？A.IntegerB.StringC.ArrayD.Boolean2.在VB中，声明一个整型变量的正确语句是：A.DimxAsIntegerB.DeclarexAsIntegerC.IntegerxD.VarxAsInteger3.下列哪个控件用于显示文本信息且用户不能编辑？A.TextBoxB.LabelC.ComboBoxD.ListBox4.VB中，用于执行重复操作的结构是：A.If...Then...ElseB.SelectCaseC.For...NextD.With...EndWith5.在VB中，获取字符串长度的函数是：A.Len()B.Length()C.Size()D.Count()6.下列哪个事件在窗体加载时触发？A.ClickB.LoadC.ActivateD.Resize7.在VB中，用于打开文件的语句是：A.OpenB.ReadC.LoadD.Get8.下列哪个是VB的合法文件扩展名？A..vbB..exeC..frmD..bas9.在VB中，用于判断文件是否结束的函数是：A.EOF()B.EndOfFile()C.FileEnd()D.IsEnd()10.下列哪个不是VB的循环结构？A.Do...LoopB.While...WendC.For...NextD.Repeat...Until11.在VB中，用于声明常量的关键字是：A.ConstB.DimC.StaticD.Public12.下列哪个函数用于将字符串转换为数值？A.Str()B.Val()C.CStr()D.CInt()13.在VB中，用于创建数组的关键字是：A.ArrayB.NewArrayC.DimD.Declare14.下列哪个事件在按钮被点击时触发？A.ClickB.DoubleClickC.MouseDownD.MouseUp15.在VB中，用于退出循环的语句是：A.ExitB.BreakC.ContinueD.ExitFor/ExitDo16.下列哪个不是VB的访问修饰符？A.PublicB.PrivateC.ProtectedD.Friend17.在VB中，用于连接字符串的运算符是：A.+B.&C..D.|18.下列哪个函数用于获取当前系统日期？A.Now()B.Date()C.Today()D.GetDate()19.在VB中，用于声明过程的关键字是：A.SubB.FunctionC.ProcedureD.Method20.下列哪个不是VB的图形方法？A.LineB.CircleC.PsetD.Draw二、填空题（共30分，每题2分）1.在VB中，声明一个双精度型变量应使用关键字__________。2.VB中，用于显示消息框的函数是__________。3.在VB中，用于获取字符串左边指定长度字符的函数是__________。4.语句Fori=1To10Step2中，循环变量i的初始值为__________，步长为__________。5.在VB中，用于声明一个窗体模块的扩展名是__________。6.语句Ifx>0Theny=1Elsey=0中，当x不大于0时，y的值为__________。7.在VB中，用于获取字符串右边指定长度字符的函数是__________。8.语句Dimarr(5)AsInteger声明了一个包含__________个元素的一维数组。9.在VB中，用于清除窗体上图形的方法是__________。10.语句Open"test.txt"ForInputAs1中，文件打开模式为__________。11.在VB中，用于将数值转换为字符串的函数是__________。12.语句DoWhileNotEOF(1)Loop中，EOF函数的作用是判断__________。13.在VB中，用于声明一个全局变量的关键字是__________。14.语句ForEachitemIncollection中，item代表__________。15.在VB中，用于获取当前系统时间的函数是__________。三、判断题（共20分，每题2分）1.VB中，变量名可以以数字开头。（）2.在VB中，注释语句以单引号(')开头。（）3.VB中，数组下标必须从0开始。（）4.在VB中，一个窗体可以有多个Load事件。（）5.VB中，InputBox函数用于输入数据。（）6.在VB中，SelectCase语句可以嵌套使用。（）7.VB中，字符串的比较是区分大小写的。（）8.在VB中，一个模块中可以有多个Sub过程。（）9.在VB中，文件操作完成后必须关闭文件。（）10.在VB中，ExitSub语句用于退出当前过程。（）四、简答题（共30分，每题6分）1.简述VB中Sub过程和Function过程的区别。2.解释VB中数组的声明方式，并举例说明。3.简述VB中Open语句的几种文件打开模式及其用途。4.解释VB中循环结构的种类及各自特点。5.简述VB中事件驱动编程的概念及其优势。五、编程题（共80分，每题20分）1.编写一个VB程序，实现以下功能：用户输入一个整数，判断该数是否为素数，并在标签上显示结果。2.编写一个VB程序，实现以下功能：生成一个10×10的矩阵，随机填充1-100的整数，找出其中的最大值和最小值，并计算平均值，在窗体上显示结果。3.编写一个VB程序，实现以下功能：创建一个文本文件，写入10个随机生成的整数，然后从文件中读取这些整数，并计算它们的和与平均值，在窗体上显示结果。4.编写一个VB程序，实现以下功能：设计一个简单的计算器，能够实现加、减、乘、除四种基本运算，用户输入两个数和选择运算符后，点击"计算"按钮得到结果。答案：一、选择题1.答案：C解释：Array不是VB的基本数据类型，而是用于创建数组的函数。Integer、String和Boolean都是VB的基本数据类型。2.答案：A解释：在VB中，使用Dim关键字声明变量，并通过As指定数据类型，所以正确的语句是"DimxAsInteger"。其他选项不符合VB的语法规则。3.答案：B解释：Label控件用于显示文本信息且用户不能编辑；TextBox控件用于显示和编辑文本；ComboBox和ListBox都是下拉列表控件。4.答案：C解释：For...Next结构用于执行重复操作，按指定次数循环；If...Then...Else用于条件判断；SelectCase用于多条件分支；With...EndWith用于简化对同一对象的多次引用。5.答案：A解释：在VB中，Len()函数用于获取字符串的长度；Length()、Size()和Count()都不是VB的内置函数。6.答案：B解释：Load事件在窗体加载时触发；Click事件在控件被点击时触发；Activate事件在窗体变为活动窗口时触发；Resize事件在窗体大小改变时触发。7.答案：A解释：Open语句用于打开文件；Read是文件打开模式之一；Load用于加载窗体或控件；Get用于从文件中读取数据。8.答案：C解释：.frm是VB窗体模块的扩展名；.vb是VB源代码文件的扩展名；.exe是可执行文件的扩展名；.bas是VB标准模块的扩展名。9.答案：A解释：EOF()函数用于判断文件指针是否到达文件末尾；EndOfFile()、FileEnd()和IsEnd()都不是VB的内置函数。10.答案：D解释：Repeat...Until不是VB的循环结构；Do...Loop、While...Wend和For...Next都是VB的循环结构。11.答案：A解释：Const关键字用于声明常量；Dim用于声明变量；Static用于声明静态变量；Public用于声明公共变量。12.答案：B解释：Val()函数用于将字符串转换为数值；Str()用于将数值转换为字符串；CStr()用于将表达式转换为字符串类型；CInt()用于将表达式转换为整数类型。13.答案：C解释：在VB中，使用Dim关键字声明数组；Array和NewArray用于创建数组对象；Declare不是VB中用于声明数组的关键字。14.答案：A解释：Click事件在按钮被点击时触发；DoubleClick事件在按钮被双击时触发；MouseDown和MouseUp是鼠标按下和释放时触发的事件。15.答案：D解释：在VB中，使用ExitFor退出For循环，使用ExitDo退出Do循环；Break、Continue和Exit都不是完整的退出循环语句。16.答案：C解释：Public、Private和Friend都是VB的访问修饰符；Protected不是VB的访问修饰符，而是面向对象编程中的概念。17.答案：B解释：在VB中，&运算符用于连接字符串；+也可以用于连接字符串，但当操作数包含数字时会被解释为加法；.用于访问对象的属性或方法；|不是VB的字符串连接运算符。18.答案：B解释：Date()函数用于获取当前系统日期；Now()函数用于获取当前系统日期和时间；Today()和GetDate()不是VB的内置函数。19.答案：A解释：Sub关键字用于声明没有返回值的过程；Function关键字用于声明有返回值的过程；Procedure和Method不是VB中声明过程的关键字。20.答案：D解释：Line、Circle和Pset都是VB的图形方法；Draw不是VB的图形方法。二、填空题1.答案：Double解释：在VB中，Double关键字用于声明双精度型变量，用于存储浮点数，精度比单精度(Single)更高。2.答案：MsgBox解释：MsgBox函数用于显示一个消息框，等待用户点击按钮，并返回一个整数值表示用户点击的按钮。3.答案：Left()解释：Left()函数用于获取字符串左边指定长度的字符。例如，Left("Hello",2)返回"He"。4.答案：1，2解释：在For循环语句中，初始值是循环变量的起始值，步长是每次循环后循环变量的增量。在这个例子中，i从1开始，每次增加2，直到大于10。5.答案：.frm解释：在VB中，窗体模块的扩展名是.frm，包含窗体的属性、事件和代码。6.答案：0解释：在If...Else语句中，当条件不满足时，执行Else后面的语句。在这个例子中，当x不大于0时，y被赋值为0。7.答案：Right()解释：Right()函数用于获取字符串右边指定长度的字符。例如，Right("Hello",2)返回"lo"。8.答案：6解释：在VB中，数组下标默认从0开始，所以Dimarr(5)AsInteger声明了一个包含6个元素(0,1,2,3,4,5)的一维数组。9.答案：Cls解释：Cls方法用于清除窗体上由图形方法(如Line、Circle、Pset)绘制的图形，但不清除控件。10.答案：Input解释：在Open语句中，Input模式用于以只读方式打开文件，只能读取文件内容，不能修改。11.答案：Str()解释：Str()函数用于将数值转换为字符串。例如，Str(123)返回"123"(前面有一个空格)。12.答案：文件指针是否到达文件末尾解释：EOF函数用于判断文件指针是否到达文件末尾，如果到达则返回True，否则返回False。常用于循环读取文件内容。13.答案：Public解释：Public关键字用于声明全局变量，可以在整个应用程序的任何模块中访问。14.答案：集合中的每个元素解释：在ForEach循环中，item代表集合中的每个元素，循环会遍历集合中的所有元素。15.答案：Time()解释：Time()函数用于获取当前系统时间，返回一个包含当前时间的Date类型值。三、判断题1.答案：×解释：在VB中，变量名不能以数字开头，必须以字母或下划线开头。2.答案：√解释：在VB中，注释语句可以使用单引号(')开头，也可以使用Rem关键字开头。3.答案：×解释：在VB中，数组下标默认从0开始，但可以通过OptionBase语句改变下标的起始值。4.答案：×解释：在VB中，一个窗体只能有一个Load事件，因为Load事件在窗体加载时触发，且只触发一次。5.答案：√解释：InputBox函数用于显示一个对话框，提示用户输入信息，并返回用户输入的内容。6.答案：√解释：在VB中，SelectCase语句可以嵌套使用，以处理更复杂的条件判断。7.答案：×解释：在VB中，字符串的比较默认不区分大小写，除非使用OptionCompareBinary语句设置为区分大小写。8.答案：√解释：在VB中，一个模块中可以有多个Sub过程，每个过程都有唯一的名称。9.答案：√解释：在VB中，文件操作完成后应该关闭文件，以释放系统资源，确保数据正确写入。10.答案：√解释：ExitSub语句用于立即退出当前Sub过程，跳转到调用该过程的下一条语句继续执行。四、简答题1.答案：Sub过程和Function过程是VB中两种不同的过程类型，它们的主要区别如下：-返回值：Function过程可以返回一个值，而Sub过程不返回值。-调用方式：Function过程可以在表达式中直接调用，如result=MyFunction()；而Sub过程必须使用Call语句或直接调用，如MySub或CallMySub。-语法：Function过程以Function开头，以EndFunction结束，并通过过程名返回值；Sub过程以Sub开头，以EndSub结束。-用途：Function过程通常用于执行计算并返回结果；Sub过程通常用于执行一系列操作而不需要返回结果。2.答案：在VB中，数组可以通过以下几种方式声明：-声明固定大小的数组：Dimarr(5)AsInteger'声明一个包含6个元素(0-5)的一维整型数组Dimmatrix(3,4)AsString'声明一个4×5的二维字符串数组-声明动态数组：DimdynamicArr()AsIntegerReDimdynamicArr(9)'重新定义数组大小为10个元素(0-9)-声明带有下标范围的数组：OptionBase1'设置数组下标从1开始Dimarr1(10)AsInteger'声明一个包含10个元素(1-10)的一维数组-使用Array函数创建数组：Dimarr2AsVariantarr2=Array("A","B","C","D")'创建一个包含4个元素的字符串数组数组是相同类型数据的集合，可以通过索引访问元素，索引从0开始(除非使用OptionBase语句修改)。数组可以提高数据处理的效率，特别是在处理大量数据时。3.答案：在VB中，Open语句用于打开文件，支持以下几种文件打开模式：-Input：以只读方式打开文件，只能读取文件内容，不能修改。适用于读取文本文件。示例：Open"data.txt"ForInputAs1-Output：以写入方式打开文件，如果文件存在则覆盖，不存在则创建。适用于写入文本文件。示例：Open"data.txt"ForOutputAs1-Append：以追加方式打开文件，如果文件存在则在文件末尾添加内容，不存在则创建。适用于向文本文件添加内容。示例：Open"data.txt"ForAppendAs1-Random：以随机访问方式打开文件，可以读写文件中的任意位置。适用于二进制文件或需要随机访问的文件。示例：Open"data.dat"ForRandomAs1Len=20-Binary：以二进制方式打开文件，可以读写文件中的任意位置，以字节为单位。适用于二进制文件。示例：Open"data.bin"ForBinaryAs1不同模式适用于不同的文件操作需求，选择合适的模式可以提高文件操作的效率和安全性。4.答案：在VB中，循环结构用于重复执行一段代码，主要有以下几种类型：-For...Next循环：用于指定次数的循环，循环变量从初始值开始，每次增加步长，直到达到终止值。示例：Fori=1To10Step2'循环体Nexti特点：循环次数确定，适合已知循环次数的情况。-DoWhile...Loop循环：当条件为真时执行循环，条件在循环开始时检查。示例：DoWhilei<10'循环体i=i+1Loop特点：可能一次都不执行，适合条件控制循环。-Do...LoopWhile循环：先执行一次循环体，然后当条件为真时继续执行循环，条件在循环结束时检查。示例：Do'循环体i=i+1LoopWhilei<10特点：至少执行一次，适合需要先执行再判断的情况。-DoUntil...Loop循环：当条件为假时执行循环，条件在循环开始时检查。示例：DoUntili>=10'循环体i=i+1Loop特点：可能一次都不执行，与DoWhile...Loop相反。-Do...LoopUntil循环：先执行一次循环体，然后当条件为假时继续执行循环，条件在循环结束时检查。示例：Do'循环体i=i+1LoopUntili>=10特点：至少执行一次，与Do...LoopWhile相反。-ForEach...Next循环：用于遍历集合中的所有元素。示例：ForEachitemIncollection'循环体Nextitem特点：专门用于集合遍历，不需要知道集合大小。选择合适的循环结构可以使程序更加清晰高效，应根据具体需求选择最合适的循环类型。5.答案：事件驱动编程是一种编程范式，程序的执行流程由事件的发生来驱动，而不是按照预定的顺序执行。在VB中，事件驱动编程的概念如下：-事件：由用户操作或系统触发的动作，如鼠标点击、键盘输入、定时器触发等。-事件处理器：响应特定事件的代码过程，如Click事件处理器、Load事件处理器等。-事件源：触发事件的控件或对象，如按钮、窗体、文本框等。事件驱动编程的优势：-用户友好：程序能够响应用户的操作，提供交互性强的用户界面。-模块化：将代码组织为事件处理器，使程序结构清晰，易于维护。-效率高：只有在事件发生时才执行相应的代码，避免不必要的计算。-灵活性：可以动态添加或移除事件处理器，使程序行为更加灵活。在VB中，事件驱动编程是核心编程模型，通过为控件编写事件处理器，实现用户界面的交互功能。例如，当用户点击按钮时，触发按钮的Click事件，执行Click事件处理器中的代码，完成相应的操作。五、编程题1.答案：```vbPrivateSubForm_Load()'设置窗体标题Me.Caption="素数判断"'添加标签和文本框DimlblInputAsLabelSetlblInput=Me.Controls.Add("VB.Label","lblInput")lblInput.Caption="请输入一个整数："lblInput.Left=100lblInput.Top=100DimtxtNumberAsTextBoxSettxtNumber=Me.Controls.Add("VB.TextBox","txtNumber")txtNumber.Left=250txtNumber.Top=100txtNumber.Width=100DimbtnCheckAsCommandButtonSetbtnCheck=Me.Controls.Add("VB.CommandButton","btnCheck")btnCheck.Caption="判断"btnCheck.Left=100btnCheck.Top=150DimlblResultAsLabelSetlblResult=Me.Controls.Add("VB.Label","lblResult")lblResult.Caption=""lblResult.Left=100lblResult.Top=200lblResult.Width=300'为按钮添加Click事件btnCheck.ClickAddressOfCheckPrimeEndSubPrivateSubCheckPrime()DimnumberAsIntegerDimisPrimeAsBooleanDimiAsInteger'获取用户输入number=Val(txtNumber.Text)'检查输入是否为正整数Ifnumber<=1ThenlblResult.Caption="请输入大于1的正整数"ExitSubEndIf'判断是否为素数isPrime=TrueFori=2ToSqr(number)IfnumberModi=0ThenisPrime=FalseExitForEndIfNexti'显示结果IfisPrimeThenlblResult.Caption=number&"是素数"ElselblResult.Caption=number&"不是素数"EndIfEndSub```解析：这个程序实现了一个素数判断功能。首先创建一个窗体，添加一个标签用于提示输入，一个文本框用于接收用户输入，一个按钮用于触发判断，一个标签用于显示结果。当用户点击按钮时，程序获取输入的数字，检查是否为大于1的正整数，然后使用循环判断该数是否为素数。素数是指只能被1和自身整除的大于1的自然数。判断方法是：从2到该数的平方根，如果有一个数能整除它，则不是素数。最后将结果显示在标签上。2.答案：```vbPrivateSubForm_Load()'设置窗体标题Me.Caption="矩阵操作"'添加按钮DimbtnGenerateAsCommandButtonSetbtnGenerate=Me.Controls.Add("VB.CommandButton","btnGenerate")btnGenerate.Caption="生成矩阵"btnGenerate.Left=100btnGenerate.Top=50DimbtnFindAsCommandButtonSetbtnFind=Me.Controls.Add("VB.CommandButton","btnFind")btnFind.Caption="查找最大值、最小值和平均值"btnFind.Left=250btnFind.Top=50'添加标签用于显示结果DimlblResultAsLabelSetlblResult=Me.Controls.Add("VB.Label","lblResult")lblResult.Caption=""lblResult.Left=100lblResult.Top=100lblResult.Width=500lblResult.Height=300'添加数组变量Dimmatrix(9,9)AsInteger'为按钮添加Click事件btnGenerate.ClickAddressOfGenerateMatrixbtnFind.ClickAddressOfFindValues'保存数组变量以便在事件中访问Me.matrix=matrixEndSubPrivateSubGenerateMatrix()DimiAsInteger,jAsIntegerDimmatrix(9,9)AsIntegerDimmatrixStrAsString'生成随机矩阵RandomizeFori=0To9Forj=0To9matrix(i,j)=Int(Rnd100)+1NextjNexti'显示矩阵matrixStr="生成的矩阵："&vbCrLfFori=0To9Forj=0To9matrixStr=matrixStr&Format(matrix(i,j),"00")&""NextjmatrixStr=matrixStr&vbCrLfNexti'保存数组变量Me.matrix=matrix'显示矩阵lblResult.Caption=matrixStrEndSubPrivateSubFindValues()Dimmatrix()AsIntegerDimmaxValAsInteger,minValAsIntegerDimsumAsLong,avgAsDoubleDimiAsInteger,jAsIntegerDimresultAsString'获取矩阵matrix=Me.matrix'初始化最大值和最小值maxVal=matrix(0,0)minVal=matrix(0,0)sum=0'查找最大值、最小值并计算总和Fori=0To9Forj=0To9'查找最大值Ifmatrix(i,j)>maxValThenmaxVal=matrix(i,j)EndIf'查找最小值Ifmatrix(i,j)<minValThenminVal=matrix(i,j)EndIf'计算总和sum=sum+matrix(i,j)NextjNexti'计算平均值avg=sum/100'显示结果result="矩阵分析结果："&vbCrLfresult=result&"最大值："&maxVal&vbCrLfresult=result&"最小值："&minVal&vbCrLfresult=result&"平均值："&Format(avg,"0.00")lblResult.Caption=resultEndSub```解析：这个程序实现了一个10×10矩阵的生成和分析功能。程序包含两个按钮：一个用于生成随机矩阵，另一个用于查找矩阵中的最大值、最小值和平均值。生成矩阵时，程序使用Rnd函数生成1-100的随机整数填充矩阵，并将矩阵显示在标签上。查找功能时，程序遍历矩阵中的所有元素，找出最大值和最小值，计算所有元素的总和，然后计算平均值并显示结果。程序使用模块级变量matrix来保存矩阵数据，以便在两个事件过程中共享。3.答案：```vbPrivateSubForm_Load()'设置窗体标题Me.Caption="文件操作"'添加按钮DimbtnWriteAsCommandButtonSetbtnWrite=Me.Controls.Add("VB.CommandButton","btnWrite")btnWrite.Caption="写入文件"btnWrite.Left=100btnWrite.Top=50DimbtnReadAsCommandButtonSetbtnRead=Me.Controls.Add("VB.CommandButton","btnRead")btnRead.Caption="读取文件并计算"btnRead.Left=250btnRead.Top=50'添加标签用于显示结果DimlblResultAsLabelSetlblResult=Me.Controls.Add("VB.Label","lblResult")lblResult.Caption=""lblResult.Left=100lblResult.Top=100lblResult.Width=500lblResult.Height=300'为按钮添加Click事件btnWrite.ClickAddressOfWriteToFilebtnRead.ClickAddressOfReadFromFileEndSubPrivateSubWriteToFile()Dimnumbers(9)AsIntegerDimiAsIntegerDimfileNumAsIntegerDimfilePathAsString'生成随机数RandomizeFori=0To9numbers(i)=Int(Rnd100)+1Nexti'设置文件路径filePath=App.Path&"\numbers.txt"'打开文件fileNum=FreeFileOpenfilePathForOutputAsfileNum'写入数据PrintfileNum,"随机生成的10个整数："Fori=0To9PrintfileNum,numbers(i)Nexti'关闭文件ClosefileNum'显示写入的数据DimresultAsStringresult="已写入以下数据到文件："&filePath&vbCrLf&vbCrLfresult=result&"随机生成的10个整数："&vbCrLfFori=0To9result=result&numbers(i)&""NextilblResult.Caption=resultEndSubPrivateSubReadFromFile()Dimnumbers(9)AsIntegerDimiAsIntegerDimfileNumAsIntegerDimfilePathAsStringDimsumAsLongDimavgAsDoubleDimresultAsString'设置文件路径filePath=App.Path&"\numbers.txt"'检查文件是否存在IfDir(filePath)=""ThenlblResult.Caption="文件不存在，请先写入数据"ExitSubEndIf'打开文件fileNum=FreeFileOpenfilePathForInputAsfileNum'读取标题行InputfileNum,result'读取数据sum=0Fori=0To9InputfileNum,numbers(i)sum=sum+numbers(i)Nexti'计算平均值avg=sum/10'关闭文件ClosefileNum'显示结果result="从文件读取的数据："&vbCrLf&vbCrLfresult=result&"随机生成的10个整数："&vbCrLfFori=0To9result=result&numbers(i)&""Nextiresult=result&vbCrLf&vbCrLfresult=result&"计算结果："&vbCrLfresult=result&"总和："&sum&vbCrLfresult=result&"平均值："&Format(avg,"0.00")lblResult.Caption=resultEndSub```解析：这个程序实现了文件写入和读取功能。程序包含两个按钮：一个用于生成随机数并写入文件，另一个用于从文件中读取数据并计算总和与平均值。写入功能时，程序生成10个1-100的随机整数，将它们写入到numbers.txt文件中。读取功能时，程序从numbers.txt文件中读取这些整数，计算它们的总和与平均值，并在窗体上显示结果。程序使用FreeFile函数获取可用的文件号，使用Open语句打开文件，使用Print语句写入数据，使用Input语句读取数据，最后使用Close语句关闭文件。4.答案：```vbPrivateSubForm_Load()'设置窗体标题Me.Caption="简单计算器"'添加第一个数字的标签和文本框DimlblNum1AsLabelSetlblNum1=Me.Controls.Add("VB.Label","lblNum1")lblNum1.Caption="第一个数："lblNum1.Left=100lblNum1.Top=100DimtxtNum1AsTextBoxSettxtNum1=Me.Controls.Add("VB.TextBox","txtNum1")txtNum1.Left=200txtNum1.Top=100txtNum1.Width=100'添加运算符标签和组合框DimlblOpAsLabelSetlblOp=Me.Controls.Add("VB.Label","lblOp")lblOp.Caption="运算符："lblOp.Left=100lblOp.Top=150DimcboOpAsComboBoxSetcboOp=Me.Controls.Add("VB.ComboBox","cboOp")cboOp.Left=200cboOp.Top=150cboOp.Width=100cboOp.AddItem"+"cboOp.AddItem"-"cboOp.AddItem""cboOp.AddItem"/"cboOp.ListIndex=0'添加第二个数字的标签和文本框DimlblNum2AsLabelSetlblNum2=Me.Controls.Add("VB.Label","lblNum2")lblNum2.Caption="第二个数："