vb实例
vb6.0开发实例 -回复
vb6.0开发实例-回复VB6.0开发实例：使用中括号进行数组操作当我们需要处理大量数据时，数组是一种非常重要的数据结构。
在VB6.0开发中，我们可以使用中括号进行数组的声明和操作。
本文将以中括号为主题，为您逐步介绍如何在VB6.0中使用中括号进行数组操作。
第一步：数组的声明和初始化在VB6.0中，我们可以使用中括号来声明一个数组。
数组的声明格式如下：Dim arrName() As DataType其中，arrName是数组的名称，DataType是数组元素的数据类型。
值得注意的是，数组的声明中需要加上一个圆括号，这表明该变量是一个数组。
例如，我们可以声明一个包含5个整型元素的数组，代码如下：Dim numbers(4) As Integer这段代码声明了一个名为numbers的整型数组，数组的大小为5。
我们也可以在声明数组的同时对其进行初始化，代码如下：Dim colors() As String = {"Red", "Green", "Blue"}这段代码声明了一个名为colors的字符串数组，并对其进行了初始化，给数组赋予了3个元素，分别是"Red"、"Green"、"Blue"。
第二步：数组的访问和修改在VB6.0中，使用中括号来访问和修改数组的元素。
数组的下标从0开始，到数组的大小减1为止。
我们可以通过指定下标来访问数组中的元素。
例如，对于上述声明的numbers数组，我们可以通过以下方式来访问和修改数组的元素：' 访问数组元素Debug.Print numbers(0) ' 输出第一个元素Debug.Print numbers(2) ' 输出第三个元素' 修改数组元素numbers(1) = 10 ' 修改第二个元素为10同样地，对于上述声明和初始化的colors数组，我们可以使用以下代码来访问和修改数组的元素：' 访问数组元素Debug.Print colors(0) ' 输出第一个元素Debug.Print colors(2) ' 输出第三个元素' 修改数组元素colors(1) = "Yellow" ' 修改第二个元素为"Yellow"第三步：使用循环遍历数组在实际开发中，我们通常需要使用循环来遍历数组，并对数组中的所有元素进行操作。
vsto的vb实例
vsto的vb实例VSTO（Visual Studio Tools for Office）是一种用于开发Microsoft Office应用程序的工具集，它允许开发人员使用Visual Studio来创建自定义的Office解决方案。
在VSTO中使用VB（Visual Basic）语言来编写Office解决方案是非常常见的。
下面我将为你提供一个简单的VSTO的VB实例，以便你了解如何使用VB语言来开发基于VSTO的Office解决方案。
在这个示例中，我们将创建一个简单的Excel插件，它将在单元格A1中显示"Hello, VSTO!"。
首先，你需要在Visual Studio中创建一个新的VSTO项目。
选择“文件” > “新建” > “项目”，然后在“安装的”模板下选择“Visual Basic” > “Office/SharePoint” > “VSTO 项目”。
给项目命名并点击“确定”。
接下来，你需要在解决方案资源管理器中右键点击项目，选择“添加” > “新项”，然后选择“这台计算机上的模板” > “Office” > “Excel 2013 工作表”。
这将创建一个新的Excel工作表，你可以在其中编写你的VSTO代码。
在新创建的Excel工作表中，双击“Sheet1.vb”以打开代码文件。
然后，你可以编写以下代码来在单元格A1中显示"Hello, VSTO!"：vb.Imports Microsoft.Office.Tools.Excel.Public Class Sheet1。
Private Sub Sheet1_Startup() Handles Me.Startup.Me.Range("A1").Value = "Hello, VSTO!"End Sub.End Class.在这个示例中，我们使用了VSTO提供的Excel对象模型来访问单元格并设置其值。
vb教程编程实例详解
vb教程编程实例详解VB教程编程实例详解VB（Visual Basic）是一种面向对象的编程语言，它可以用于开发Windows应用程序。
在这里，我们将详细解释一些VB 编程实例，以帮助初学者更好地理解和掌握这门语言。
编程实例1：计算器首先，让我们创建一个计算器的VB程序。
我们将使用VB的窗体和按钮来实现这个功能。
首先，我们需要在窗体上添加一些按钮，如"1"、"2"、"+"、"="等。
然后，我们需要用一个文本框来显示计算结果。
在窗体上双击"+"按钮并添加以下代码：```Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = Integer.Parse(TextBoxNum1.Text)num2 = Integer.Parse(TextBoxNum2.Text)result = num1 + num2TextBoxResult.Text = result.ToString()End Sub```在这个代码中，我们首先定义了三个变量：num1、num2和result，用于存储计算结果。
然后，我们使用Integer.Parse方法将文本框中输入的文本转换为整数类型，并将其赋值给num1和num2。
接下来，我们将num1和num2相加，将结果赋值给result，并使用result.ToString()方法将结果转换为字符串类型并显示在结果文本框中。
编程实例2：学生成绩管理系统接下来，让我们创建一个学生成绩管理系统的VB程序。
VB程序设计实例
VB程序设计实例1.银行存款计算器编写一个程序，可以计算并显示一个银行账户的存款利息。
用户可以输入初始存款金额、年利率以及存款年限。
程序将根据用户的输入计算出最终存款金额，并显示在屏幕上。
```vbModule BankDepositCalculatorSub Main'用户输入初始存款金额、年利率和存款年限Console.WriteLine("请输入初始存款金额：")Dim principal As Decimal = Console.ReadLineConsole.WriteLine("请输入年利率：")Dim interestRate As Decimal = Console.ReadLineConsole.WriteLine("请输入存款年限：")Dim years As Integer = Console.ReadLine'计算最终存款金额Dim finalAmount As Decimal = principal * (1 + interestRate) ^ years'显示最终存款金额Console.WriteLine("最终存款金额为：" & finalAmount)Console.ReadLineEnd SubEnd Module```2.温度转换器编写一个程序，可以将摄氏温度转换为华氏温度或将华氏温度转换为摄氏温度。
用户可以选择要进行的转换类型并输入相应的温度值。
程序将根据用户的选择进行温度转换，并显示转换结果。
```vbModule TemperatureConverterSub Main'用户输入转换类型和温度值Console.WriteLine("请选择转换类型（1-摄氏转华氏，2-华氏转摄氏）：")Dim conversionType As Integer = Console.ReadLineConsole.WriteLine("请输入温度值：")Dim temperature As Decimal = Console.ReadLine'进行温度转换Select Case conversionTypeDim fahrenheit As Decimal = temperature * 9 / 5 + 32Console.WriteLine("转换结果为：" & fahrenheit & "华氏度")Case 2Dim celsius As Decimal = (temperature - 32) * 5 / 9Console.WriteLine("转换结果为：" & celsius & "摄氏度")Case ElseConsole.WriteLine("无效的转换类型")End SelectConsole.ReadLineEnd SubEnd Module```3.数字猜猜猜游戏编写一个程序，模拟一个数字猜猜猜游戏。
VB实例含代码和窗体
VB实例第一天、使用VB收发电子大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。
不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB 的认识，还可以让你拥有十足的成就感呢！LOLI：好呀，那做一些什么程序呢？大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。
大叔：这个我自然知道，那我们就开始动手制作一个收发电子的程序吧。
LOLI：收发电子？这个会不会很难呢？大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！一、准备工作大叔：在VB中编写电子程序需要通过调用微软公司的MAPI（Me ssaging Application Programming Interface，消息应用程序编程接口），这需要借助两个实现电子收发功能的核心控件：MAPI会话控件和MAPI消息控件。
MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发消息。
此外，Windows系统中必须要有遵从MAPI的系统，比如Exchange、Outlook等软件，而还要进行一番设置，确保系统可以正常使用。
LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。
不过你说的MAPI控件在哪里找呢？大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。
首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项（如图1所示），接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。
VB编程实例
一、导入到Xls文件并打印Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim a,fsoa=HMIRuntime.Tags("fileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Model.xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Model.xls"objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").readobjExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")objExcelApp.ActiveWorkbook.PrintOutobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "文件已经成功导出/Export Successful"ElseMsgBox "Excel模板文件不存在"End ifEnd Sub二、从Xls文件导入或者查询Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) Dim a,fsoa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Report\"&CStr(a)&".xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Report\"&CStr(a)&".xls"HMIRuntime.Tags("NewTag1_1").Write objExcelApp.Cells(2, 3).Value HMIRuntime.Tags("NewTag1_2").Write objExcelApp.Cells(4, 5).Value HMIRuntime.Tags("NewTag1_3").Write objExcelApp.Cells(6, 7).Value HMIRuntime.Tags("NewTag1_4").Write objExcelApp.Cells(8, 9).ValueHMIRuntime.Tags("NewTag1_5").Write objExcelApp.Cells(10, 11).Value objExcelApp.ActiveWorkbook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "导入数据成功/Import Successful"ElseMsgBox "文件不存在/file is not existing"End ifEnd Sub3、WinCC如何实现带确认的按钮操作网上多是介绍C脚本实现的方法,其实VB脚本的实现更简单,代码如下:Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) If MsgBox("提示内容",1,"提示标题")=1 ThenHMIRuntime.Tags("TestTag").Write 1ElseHMIRuntime.Tags("TestTag").Write 0End IfEnd Sub说明MsgBox("提示内容",1,"提示标题")中的1为消息窗口中按钮的类型0=vbOKonly1=vbOKCancel2=vbAbortRetryIgnore3=vbYesNoCancel4=vbYesNo一、将WinCC变量导出到TEXT文件Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim fso,FileDim aa=HMIRuntime.Tags("FileName").ReadConst ForWriting = 2Set fso = CreateObject("Scripting.FileSystemObject")Set File = fso.OpenTextFile("D:\Export&Import\"&CStr(a)&".txt", ForWriting, True) File.WriteLine(HMIRuntime.Tags("Var_1").read)File.WriteLine(HMIRuntime.Tags("Var_2").read)File.WriteLine(HMIRuntime.Tags("Var_3").read)File.WriteLine(HMIRuntime.Tags("Var_4").read)file.WriteLine(HMIRuntime.Tags("Var_5").read)File.CloseMsgBox "文件已经成功导出/Export Successful"End Sub二、从TXT文件中读取数据到WinCC变量Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim fsoDim txtfileDim aa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("D:\\Export&Import\\"&CStr(a)&".txt") ThenSet txtfile = fso.OpenTextFile("D:\\Export&Import\\"&CStr(a)&".txt") HMIRuntime.Tags("Var_1").Write txtfile.ReadLineHMIRuntime.Tags("Var_2").Write txtfile.ReadLineHMIRuntime.Tags("Var_3").Write txtfile.ReadLineHMIRuntime.Tags("Var_4").Write txtfile.ReadLineHMIRuntime.Tags("Var_5").Write txtfile.ReadLineMsgBox "导入数据成功/Import Successful"txtfile.CloseElseMsgBox "文件不存在/File is not existing"End ifEnd Sub。
vb6.0开发实例 -回复
vb6.0开发实例-回复VB6.0开发实例-一个简单的计算器在VB6.0中，我们可以轻松地创建一个简单的计算器。
计算器是我们日常生活中常见的工具，让我们一步一步地在VB6.0中创建一个简单的计算器，来帮助我们理解和掌握VB编程的基础知识和技巧。
首先，我们需要创建一个新项目。
在VB6.0中，选择“新建”->“标准EXE”创建一个新的窗体应用程序。
接下来，我们需要在窗体上添加一些控件，如文本框、按钮等，以实现计算器的功能。
在VB6.0中，我们可以通过拖动控件到窗体上的方式来添加控件。
第一个控件是一个文本框，用于显示输入的数字和计算结果。
在工具箱中选择文本框控件，然后点击窗体上的位置来添加它。
第二个控件是数字按钮，用于输入数字。
在工具箱中选择按钮控件，然后点击窗体上的位置来添加一个按钮。
我们可以复制该按钮来创建其他数字按钮。
第三个控件是运算符按钮，用于进行加、减、乘、除等计算操作。
同样地，在工具箱中选择按钮控件，然后点击窗体上的位置来添加一个按钮，复制该按钮来创建其他运算符按钮。
接下来，我们需要为这些按钮添加事件处理程序，以实现相应的功能。
在VB6.0中，我们可以通过双击按钮来自动创建一个点击事件的处理程序。
在点击事件中，我们可以使用VB6.0提供的内置函数和运算符来编写计算逻辑。
例如，我们可以使用“+”运算符来进行两个数字的相加，并将结果显示在文本框中。
除了基本的运算功能外，我们还可以为计算器添加其他功能，如清除输入、退格、求平方根等。
这些功能可以使用VB6.0提供的其他内置函数和方法来实现。
最后，我们需要进行界面的美化和调整，以满足用户的需求和审美。
在VB6.0中，我们可以通过更改控件的属性、添加背景和图标等方式来实现界面的美化。
完成所有的功能和界面调整后，我们可以运行程序来测试计算器的功能。
在VB6.0中，我们可以点击“运行”按钮来启动程序，并进行测试和使用。
通过以上的步骤，我们就成功地在VB6.0中创建了一个简单的计算器。
vb小程序设计实例
VB小程序设计实例引言VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，它具有简单易学的特点，因此非常适合初学者入门。
本文将以一个实际的VB小程序设计实例为例，介绍如何使用VB语言进行简单的程序开发。
项目背景我们的目标是创建一个简单的VB小程序，用于管理学生信息。
该程序将允许用户添加、删除和修改学生的基本信息，例如姓名、年龄和班级。
此外，用户还可以根据特定条件检索学生信息，并显示学生列表。
设计步骤1. 创建VB项目首先，打开Visual Studio并选择“创建新项目”，然后选择“Visual Basic”作为项目类型。
接下来，选择“Windows Forms应用程序”作为模板，并给项目命名。
点击“确定”按钮以创建新的VB项目。
2. 设计用户界面在VB中，用户界面是通过拖放控件来创建的。
在“工具箱”中选择所需的控件，例如按钮、文本框和标签，并将它们放置在窗体上。
使用控件的属性面板可以更改它们的外观和行为。
3. 编写代码现在，我们需要为各个控件添加相应的事件处理程序。
例如，当用户点击一个按钮时，我们需要执行特定的操作。
首先，选择要添加事件处理程序的控件，然后在属性面板中找到“事件”部分。
在相应的事件上双击以创建并打开处理程序。
4. 实现学生信息管理功能在代码中，我们需要定义学生类和学生信息管理类。
学生类包含学生的属性，例如姓名、年龄和班级。
学生信息管理类包含对学生信息进行增删改查的方法。
我们可以使用集合类来存储学生对象，并使用LINQ进行查询操作。
在事件处理程序中调用适当的方法以实现相应的功能。
5. 运行和测试程序在完成代码的编写之后，我们可以点击“运行”按钮来启动程序。
通过与程序交互，测试各个功能是否按预期工作。
如果发现问题，可以调试程序并对代码进行调整。
6. 部署和发布程序一旦我们满意了程序的功能和性能，我们可以将程序部署和发布给其他人使用。
在Visual Studio中，选择“生成”菜单并点击“发布”选项。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验报告1略。
实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
参考界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：Private Sub Command1_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text5.Text = Val(Text4.Text) / 3End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End Sub实验题目4：设计界面，编写程序计算圆的周长和面积。
参考界面如下：要求：①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目4源程序代码：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi = 3.1415926r = Val(Text1.Text)s = pi * r * rc = 2 * pi * rText2.Text = Str(c)Text3.Text = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub实验题目5：设计界面，编写程序验证算术运算符的功能。
参考界面如下：要求：①设置窗体的标题为“验证算术运算符”。
②“计算”命令按钮的功能：计算两个数的除、整除和取余。
③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目5源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)Text4.Text = Val(Text1.Text) \ Val(Text2.Text)Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。
参考界面如下：要求：①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目6源程序代码：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Text4.Text = Str(a \ 100)Text3.Text = Str((a Mod 100) \ 10)Text2.Text = Str(a Mod 10)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub实验题目7：输入一个三位数，将它按逆序输出。
参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。
实验题目7源程序代码：第一种解法：Private Sub Command1_Click()Dim a As String, b As String, c As String, d As Stringa = Trim(Text1.Text)b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text2.Text = d & c & bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub第二种解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(Text1.Text)b = a \ 100c = (a Mod 100) \ 10d = a Mod 10Text2.Text = Str(d * 100 + c * 10 + b)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub实验题目8：输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。
实验题目8源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = aa = bb = cText1.Text = Str(a)Text2.Text = Str(b)End Sub实验题目9：设计文本编辑窗体。
复制按钮的功能：移动按钮的功能：提示：文本框的SelText属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的multiline属性设置为true。
实验题目9源程序代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = ""End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验报告3：实验题目1：编写程序计算某个学生三门课程的平均成绩。
要求：（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。
（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))（2）单击“结束”命令按钮结束程序运行。
界面如下：实验题目1源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox("请输入第一门成绩"))b = Val(InputBox("请输入第二门成绩"))c = Val(InputBox("请输入第三门成绩"))d = (a + b + c) / 3Text1.Text = dEnd Sub实验题目2：编写程序计算长方体的体积。