VB程序设计入门到精通实例练习

第一章 Visual Basic介绍第二章用户界面设计第三章编程的基础（含变量，常量，条件语句，循环语句，自定义变量，自定义过程，对象和类等基础）第四章 Windows 95的新控件Visual Basic的输入输出第五章 Visual Basic的鼠标事件和绘图第六章 Visual Basic的数据库、报表、预览、打印第七章从文件中存取资料第八章发行应用程序第九章使用Windows API和用Visual Basic建立自己的屏幕保护程序第十章创建ActiveX控件第十一章ActiveX文档第十二章用对象链接与嵌入（OLE）扩展Visual Basic第十三章使用资源文件第十四章用Visual Basic建立ActiveX DLL第十五章用Winsock控件进行Internet通信第十六章 Web浏览控件第一章Visual Basic介绍§2 窗体和命令钮介绍一、窗体窗体是Windows的基本组成部分，这也是为什么这个操作系统叫Windows的原因。

它的主要属性除上面介绍的以外，还包括：1，Appearance属性这个属性用来决定控件是否采用三维效果。

2，BorderStyle属性这个属性决定了窗体的边框形式，共有6种属性值。

改变窗体的BordrStyle属性后，窗体在屏幕上没有变化，它只在运行时才变为你所要求的样子。

3，ControlBox属性程序员用来决定是否采用控制框的属性，仅在程序运行时才有效。

4，Font属性程序员可以改变该窗体上显示信息的字体，它控制着直接在窗体上打印的文本显示。

5，Icon属性这个属性是用户经常要使用的一种属性。

当用户的应用程序在工具条上最小化或在Windows桌面上变为一个独立应用程序时，该属性决定将采用何种图标，窗体控制框里的图标也由它决定。

为自己的窗体设置该属性时，要控制住自己挑三拣四的冲动。

6，Visible属性该属性决定窗体是否可见。

错误地改变其值是很危险的，窗体会从眼前消失，这种莫名其妙的事情会使用户惊惶失措，所以肩负重任的程序员一定要慎重哟！7，WindowState属性指定窗体在运行时的三种状态：正常、最小化、最大化。

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程序设计实例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程序设计上机实践训练二请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

一、基本操作题1、在窗体上添加两个命令按钮Cmd1（显示）和Cmd2（隐藏），两个标签Label和Label2（二级VB计算机等级考试），设计界面如图1，程序运行时，显示界面如图2，其中看不到“隐藏”按钮和显示有文字的标签；单击“显示”按钮，该按钮隐藏，而“隐藏”按钮显示，同时可以看到显示文字的标签如图3；单击“隐藏”按钮，则重新回到图2所示界面，即文字及“隐藏”按钮消失，而“显示”按钮再次出现，要求窗体的大小固定，但可以使用关闭按钮。

2、在Form1的窗体上画一个文本框，其名称为Text1；两个标签，再画两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“显示”和“退出”。

编写适当的事件过程，程序运行后，在窗体加载时使“退出”按钮不可用，在文本框中输入姓名，再单击“显示”按钮，则在文本框下面的标签（label2）上显示“某某您好！”（如输入张三，则显示张三您好！），并使“退出”按钮可用，此时如果单击“退出”按钮，则结束程序，程序运行情况如图示。

二、简单应用题1、请在窗体上画一个图形框和一个图像框，再添加三个命令按钮，标题分别为“显示”“交换”和“清除”（如图所示），编写适当的事件程序。

程序运行后，如果单击“显示”按钮，则在图形框和图像框中显示不同的图形，单击“交换”按钮，实现图形框和图像框中图形的交换（提示：为了完成交换需再增加一个图形框，让其隐藏），单击“清除”，则清除图形框和图像框的显示的图形，并在图形框中显示“再见！”（图形框和图像框能随图形大小自动改变大小，调整位置使它们不能覆盖，但拖到窗口可以全景显示）2、窗体上有一个标签和四个命令按钮，如图所示。

单击“手动左移”按钮，屏幕上的字幕向左移，单击“手动右移”按钮，屏幕上的字幕向右移，停止按钮呈现灰色状态，只有单击“自动”按钮时，才可用，在字幕自动右移时，单击“停止”停止移动，此按钮再次呈现灰色。

vb程序设计教程习题答案VB程序设计教程习题答案VB程序设计是一门广泛应用于软件开发领域的编程语言，它具有易学易用的特点，被广大程序员所喜爱。

在学习VB程序设计的过程中，习题是一个非常重要的环节，通过解答习题可以帮助我们巩固所学的知识，提高编程能力。

下面我将给出一些VB程序设计教程习题的答案，希望对初学者有所帮助。

1. 编写一个VB程序，实现计算两个数的和并输出结果的功能。

答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.ClickDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Integer.Parse(TextBox1.Text)num2 = Integer.Parse(TextBox2.Text)sum = num1 + num2MessageBox.Show("两个数的和为：" & sum)End SubEnd Class```2. 编写一个VB程序，实现判断一个数是奇数还是偶数的功能。

答案：```Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num As Integernum = Integer.Parse(TextBox1.Text)If num Mod 2 = 0 ThenMessageBox.Show("这个数是偶数")ElseMessageBox.Show("这个数是奇数")End IfEnd SubEnd Class```3. 编写一个VB程序，实现计算一个数的阶乘的功能。

VB程序设计教案例题及解析程序设计教案例题及解析VB程序设计是一门非常重要的计算机科学技能，它在各行各业都有广泛的应用。

本文旨在提供一些VB程序设计练习题及解析，帮助初学者获取更多知识，并提高自己的技能水平。

一、VB程序设计实践题1.基础实践题目：设计一个VB程序，让用户输入两个数并输出两个数之和。

2.中级实践题目：设计一个VB程序，让用户输入一个数字并输出该数字的因数。

3.高级实践题目：设计一个VB程序，让用户输入文本并输出该文本中出现次数最多的字符。

二、VB程序设计实践解析1.基础实践题目解析：我们需要在VB程序中设计两个文本框和一个按钮，用于用户输入两个数并输出两数之和。

用户输入两个数后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它们的和。

代码如下：Dim x As IntegerDim y As IntegerDim sum As Integerx = Val(Text1.Text)y = Val(Text2.Text)sum = x + yText3.Text = sum在代码中，我们使用了VB中的计算公式sum=x+y来计算两个数的和，并使用了Text3.Text将计算结果输出。

2.中级实践题目解析：在这个题目中，用户需要输入一个数字，并输出该数字的因数。

我们可以通过VB程序实现这个操作。

我们需要在VB程序中设计一个文本框和一个按钮，用于用户输入一个数字并输出该数字的因数。

用户输入数字后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它的因数。

代码如下：Dim x As IntegerDim i As IntegerDim count As Integerx = Val(Text1.Text)For i = 1 To x Step 1If x Mod i = 0 Thencount = count + 1End IfNext iText2.Text = count在代码中，我们使用了VB中的For循环语句来遍历x的因数，并计算因数的数量（count）。

实验报告11实验报告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：设计一个能够统计某学生三门课程成绩总分和平均分的程序。

第一章 Visual Basic介绍第二章用户界面设计第三章编程的基础（含变量，常量，条件语句，循环语句，自定义变量，自定义过程，对象和类等基础）第四章 Windows 95的新控件Visual Basic的输入输出第五章 Visual Basic的鼠标事件和绘图第六章 Visual Basic的数据库、报表、预览、打印第七章从文件中存取资料第八章发行应用程序第九章使用Windows API和用Visual Basic建立自己的屏幕保护程序第十章创建ActiveX控件第十一章 ActiveX文档第十二章用对象链接与嵌入（OLE）扩展Visual Basic第十三章使用资源文件第十四章用Visual Basic建立ActiveX DLL第十五章用Winsock控件进行Internet通信第十六章 Web浏览控件第一章Visual Basic介绍§2 窗体和命令钮介绍一、窗体窗体是Windows的基本组成部分，这也是为什么这个操作系统叫Windows的原因。

它的主要属性除上面介绍的以外，还包括：1，Appearance属性这个属性用来决定控件是否采用三维效果。

2，BorderStyle属性这个属性决定了窗体的边框形式，共有6种属性值。

改变窗体的BordrStyle属性后，窗体在屏幕上没有变化，它只在运行时才变为你所要求的样子。

3，ControlBox属性程序员用来决定是否采用控制框的属性，仅在程序运行时才有效。

4，Font属性程序员可以改变该窗体上显示信息的字体，它控制着直接在窗体上打印的文本显示。

5，Icon属性这个属性是用户经常要使用的一种属性。

当用户的应用程序在工具条上最小化或在Windows桌面上变为一个独立应用程序时，该属性决定将采用何种图标，窗体控制框里的图标也由它决定。

为自己的窗体设置该属性时，要控制住自己挑三拣四的冲动。

6，Visible属性该属性决定窗体是否可见。

错误地改变其值是很危险的，窗体会从眼前消失，这种莫名其妙的事情会使用户惊惶失措，所以肩负重任的程序员一定要慎重哟！7，WindowState属性指定窗体在运行时的三种状态：正常、最小化、最大化。

VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。

程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。

在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。

Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。

程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。

索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。

再画一个命令按钮，其名称为C1，Visible属性为False。

编写适当的事件过程。

程序运行后，如果在文本框中输入字符，则命令按钮出现。

二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。

程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。

（要求在未输入半径前两个按钮呈灰色不可用。

）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。

程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。

四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。

程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。

单击退出按钮则程序退出。

五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。

（2）收入在200~400元，超过200元的部分纳税3%。

（3）收入超过400元的部分，纳税4%。

（4）当收入达5000元或超过时，将4%税金改为5%。

编程序实现上述操作。

六、给定三角形的三条边的边长，计算三角形的面积。

编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。

当输入-1时结束程序。

七、编程求100以内的全部素数。

八、编程打印钻石图案。

九、输出杨辉三角形。

十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。

VB程序设计练习题附加答案《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__对象________的可视化程序设计语言，采取了事件驱动________的编程机制。

2、在VB中工程文件的扩展名是vbp__________，窗体文件的扩展名是___frm_________，标准模块文件的扩展名是__bas_________。

3、执行“工程”菜单下的_部件_________命令，可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发__ WINDOWS ________环境下的应用程序。

二、选择题1、下面不是VB工作模式的是（C）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用__ T abstop ____________属性。

2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。

VB 基础程序设计100例（上）注意：1. 除非题目要求，不要使用控件（如按钮，文本框等），也不添加其他窗体和标准模块。

一律在Form_Click()过程中编写代码，用inputbox 函数输入数据，在窗体上输出结果。

2. 每个程序只保存一个窗体文件（例如第1题为t001.frm ）,不保存.vbp 工程文件。

3. 只有在使用外部过程（Sub 子过程、Function 函数过程）可以提高效率，或题目要求使用外部过程的情况下，才使用外部过程。

4. 所有代码都应按缩进的格式书写。

待有了一定的程序设计经验之后，在学习第5章时，再根据需要进行应用程序界面设计，即进入VB 编程的第二阶段。

有了第一阶段的基础，第二阶段困难不大。

第一部分 该部分习题不使用数组1.用Inputbox 函数输入一个整数，判断其能否被2，3，和5整除，若能则输出该数及它的平方值2.输入一个年份，判断是否闰年。

闰年的条件是该数能被4整除且不能被100整除，或该数能被400整除3．交换两个变量的值，在程序中只允许出现这两个变量4.依次输入一元二次多项式的二次项、一次项和常数项系数，输出它的两个根，例如 x1=2 x2=-3.5 或 x1=3+2*i x2=3-2*i 这里 i 是虚数单位5.计算 s=1+2+3+…+n 和c=1*2*3*…*n6.计算下式之和首次大于10000时的n 的值：s=1+2+22+…+2n +…7.计算下式之和不超过10000时的n 的最大值：s=12+22+…+n 2+…8.计算 s=1*21 (51)311-++++n9.计算 s=n n 1)1( (31)211--+-+-10.计算 t=1+(1+2)+(1+2+3)+…+(1+2+…+n)11.计算 t=1!+2!+…+n!12.计算 t=!1...!31!211n ++++13.计算 s=)!1(...!32!2++++n nx x x14.同上题，要求用Sub 过程计算每项的分子，用Function 过程计算每项的分母15.编写Function 过程计算n!,调用该过程计算组合数16.编写Sub 过程计算n!,调用该过程计算组合数17.编写程序，打印斐波那契(Fibonacci)数列的前30项。

实训六：VB程序设计基础（一）一、实验目的1、了解变量类型的定义。

2、了解常用函数的使用。

3、掌握表达式的正确书写。

3、能编写简单的顺序结构程序。

二、实验内容练习一：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别观察结果。

程序代码:（1）Private Sub Form_Click()I = 10.45Print IEnd Sub（2）Private Sub Form_Click()Dim I%I = 10.45Print IEnd Sub（3）Private Sub Form_Click()Dim I As StringI =”欢迎使用VB”Print IEnd Sub（4）Private Sub Form_Click()Print abs(-45)Print sqr(9)Print int(45.9)Print int(-45.9)Print sin(60*3.14159/180)PRINT val(“12”)+18End Sub练习二：设A=10，B=200，编写程序，交换两个变量的值，当程序运行时在窗体上单击，观察结果。

程序代码:Private Sub Form_Click()a=10b=100Print a,bT=AA=BB=TPrint a,bEnd Sub练习三：设圆的半径为10，编写程序，求圆的面积，当程序运行时在窗体上单击，观察结果。

程序代码:Private Sub Form_Click()r=10s=3.14159*r^2Print “圆的面积=”;sEnd Sub练习四：使用InputBox函数输入学生的学号、姓名、成绩，并在窗体中显示出来。

程序代码:Private Sub Form_Click()'单击窗体Dim XH As String, XM As String, CJ As IntegerXH = InputBox("请输入你的学号", "输入学号")XM = InputBox("请输入你的姓名", "输入姓名")CJ = InputBox("请输入你的成绩", "输入成绩")Print "姓名：" & XMPrint "学号：" & XHPrint "成绩：" & CJ & "分"End Sub练习五：编写程序，输入X的值，求表达式Y=2X2+5X+ cos300的值，程序代码:Private Sub Form_Click()'单击窗体Dim x As Single, y As Singlex = InputBox("请输入X的值", "输入X的值")y = 2 * x ^ 2 + 5 * x + Cos(30 * 3.14159 / 180)Print "y="; yEnd Sub。

vb代码练习题VB代码练习题是一种帮助学习者熟悉和提高VB语言编程能力的方式。

通过完成一系列的练习题，学习者能够加深对VB语言的理解，并提高自己的编程能力。

本文将介绍一些VB代码练习题的例子，并给出相应的代码示例和解答，以帮助读者更好地掌握VB编程。

练习题一：计算器程序要求：编写一个简单的计算器程序，实现基本的加、减、乘、除运算。

代码示例：```Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 + num2txtResult.Text = result.ToString()End SubPrivate Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 - num2txtResult.Text = result.ToString()End SubPrivate Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 * num2txtResult.Text = result.ToString()End SubPrivate Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 / num2txtResult.Text = result.ToString()End Sub```解答：通过点击相应的按钮，用户可以输入两个数字，并选择执行的运算操作。

实验4：编写一个程序。

要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。

在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。

1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。

Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。

设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。