VB 神童教程第二章第十节——综合示例四

合集下载

VB神童教程

VB 教程：第一章-Hello World!文章来源：vb 大世界没学过编程的人常常会问，编程难不难，这个问题很难回答。

难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB 来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它没法完全代替人工，譬如说完成你的家庭作业、向学校发射导弹……作为第四代计算机语言，VB 的特点是显而易见的。

因为是“可视的”所以我们不妨先看看VB 的界面（图1_1）（我用的是VB4.0 32位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（Tools Box ），里面是VB 所需的控件；（3）是VB程序要设计的窗体（Form ）；（4）控件及窗体的属性（Properties ），在VB 中每一个控件都有其自己的属性，比如文本框有Text 属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB 的文件控制窗口，VB 的每一个程序称为一个项目（Project ），一个项目文件里往往包括以下两种文件，窗体（Form ）文件和模块（Bas ）文件，当然还有Class 文件，这些文件组成一个完整的程序，而项目文件（Vbp ）则用来描述程序所包含的内容。

实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello，world！”。

首先，我们先来熟悉一下窗体。

如果你用过Win95附件所带的画图板的话，那么你一定会很快熟悉VB 的窗体设计方法，用鼠标单击一下工具箱中的任何一个控件，然后在窗体上任意拖动鼠标，你就会得到一个所需的控件；当然还有其他的方法得到控件，你可以在工具箱上双击得到一个控件；或是按住Ctrl键，再单击所需控件，重复第一次的步骤，你会发现，不用再回去点击工具箱了，点右键可以恢复鼠标指针，这样对于重复画同一个控件尤其有用。

VB 神童教程第二章第三节——综合示例一

最。
三、属性设置：
如图一所示，但请注意，文本框控件的 Multiline（多行）属性要设置为 True ，这样，文本框才能自动换行。如图二：
图二
四、程序书写：
1、文本框（TxtContent）的鼠标事件：
对文本的选择，可以理解为这样的过程：先在欲选择的文本前点击鼠标，按下左键不放，拖动鼠标直到选择文本的结束处，最后松开鼠标。这说明，松开鼠标代表着文本选择的结束，从而应该在文本框的鼠标弹起事件（MouseUp）中书写代码，以改变两个标签的标题。
具体代码如下：
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '括号中这一长串内容大家不必管它，这主要是产生位移时的坐标变动。
LblStart.Caption = "起始位置：" & TxtContent.SelStart
2、统一尺寸：
以某个控件为参照物，统一其他控件的大小尺寸。
3、水平间距与垂直间距：
调整某几个控件的水平间距或垂直间距。
活用上面几个操作，将使你的工作事半功倍！
图三
全部选中后，使用“左对齐”的结果如图四：
图四
也许你要问，这个对齐是以哪一个控件做为参照物的？再仔细看看图三，那个 Command1 按钮四周是八个实心的黑色小点，而其他控件则是白色的小点，现在你知道了吧，正是以 Command1 按钮为参照物进行对齐的，也就是说你最后选择的那一个控件。
LblLength.Caption = "文本长度：" & TxtContent.SelLength

vb教程2

3
4
2. 向窗体上添加控件
添加旳控件有：一种标签一种文本框一种命令按钮一种计时器控件
见下页图。
5
6
3 设置对象属性
（1）Form1窗体 Caption——”倒计时器”
（2）Label1控件 Caption——”请输入倒计时旳分钟数” AutoSize——True
（3）Command1控件 Caption——”开始”
1.编译应用程序
编译应用程序就是把一种应用程序制成一种可执行文件，即.EXE文件。措施是单击“文件”菜单中旳“生成Timerapp.exe”选项，出现“生成工程”对话框，在其中输入 Timerapp.exe，然后单击“拟定”按钮，程序即被编译在磁盘上，这么该应用程序就能够脱离VB环境，在操作系统下单独运营了。
）。
46
2.2.3 MsgBox语句和函数旳使用
在编写程序过程中，为了对顾客旳操作予以一定旳提醒或反馈，经常需要在屏幕上显示某些提醒信息、警告信息、问询信息或错误消息等提醒，VB提供旳 MsgBox命令就能够实现这些功能，它不但能够向顾客传送信息，还能够接受顾客在对话框上旳选择，以此作为程序继续执行旳根据。
m=m-1 2. 赋值号“=”左边必须是变量名或对象属性， “=”右边是体现式，其值能够是常量、变量、函数或是它们旳混合运算式。例如: x=x+y b=1 c=b*2+2
45
习题 P47 一、
7. 下列赋值语句正确旳是（ A. A=B+C B. B+C=A C. –B=A D. 2=A+B 答案：A
30
（9）在“共享文件”对话框，顾客可将给定旳文件设置成共享，然后单击“下一步”按钮。

安高云VB第二章课件

VB程序设计教程(第3版)
5
类的概念
在现实世界中，许多对象具有相似的性质，执行相同的操作，称之为同一类对象。类是对同一种对象的集合与抽象。
如人类是“人”的抽象。
类是创建对象实例的模板，对象则是类的一个实例。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。
VB程序设计教程(第3版)
15
(4) Enabled 属性对象是否允许操作 (5) Visible 属性对象是否可见 (6) Font 属性组文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体、 FontStrikethru 删除线、 FontUnderline 下划线
29
文本框-方法
文本框最有用的方法是SetFocus，把光标移到指定的文本框中。其形式如下： [对象.] SetFocus SetFocus 还可以用于如 CheckBox 、 CommandButton、ListBox、ComboBox等控件。例2.5 对输入的数据进行合法性检验，过滤不合法的数据。
(2) 利用文本框的SelText属性实现“剪切、复制和粘
贴”的编辑操作。
(3) “格式”设置利用Font对象实现。
VB程序设计教程(第3版)
32
本章小节
类是同种对象的集合与抽象，包含所创建对象的属性描述和行为特征的定义，是创建对象实例的模板。对象三要素：属性、事件、方法窗体是所有控件的容器基本控件标签、文本框、命令按钮
VB程序设计教程(第3版)
26
(7)文本内容进行选择操作 SelStart 选定的正文开始位置 SelLength 选定的正文长度 SelText 选定的正文内容这3个属性互相关联,例如设置SelStart、 SelLength后，SelText 自动存放指定的文本。例2.4 利用属性实现文本信息的复制。

vb第2章VisualBasic程序设计入门PPT课件

10
2.2.4 对象的基本属性1
属性
作用
取值范围
说明
Name
是创建对象的名称，所
（名称属性）有对象都具有的属性
命名的规则对象名称不会显示在窗体上，但在程序详见2.2.3 中它将会作为引用对象的唯一标识。
Caption 决定控件上显示的内容
（标题属性）
控件上显示的内容，文本框没有此属性
Height Width Top Left Enabled
2021/2/10
7
属性、事件和方法的区别
• 属性
– 对象名.属性名
– 语句中某一部分，如： Form1.caption="例一“
– 属性名一般是名词，如： Caption、Text、Width、 Height等
• 方法 [对象.]方法[参数列表]
– 对象名.方法名
– 可为一个独立语句，如：
Form1.Show – 方法名一般是动词，如： Print、Hide、Show、Move等
OptionButton（单选按钮）
opt
（文件列表框）
ComboBox（组合框）
cbo
Shape（形状）
ListBox（列表框）
lst
Line（直线）
PictureBox（图形框）
pic
Data（数据）
命名前缀 img hsb vsb tmr dri dir fil shp lin dat
2021/2/10
2021/2/10
11
属性 Font FontName
2.2.4
作用
决定文本的外观
决定控件上正文字体
对象的基本属性2
取值范围
说明

VB程序设计第二章课件

⑦ AutoSize 和 WordWrap属性：用于改变 Label控件大小以适应较长或较短的标题。 AutoSize属性决定控件是否自动改变尺寸以适应其内容。如该属性设
为True，Label控件就会根据其内容进行水平方向变化。 WordWrap属性决定控件是否自动通过换行以适应Label控件的大小。 ⑦ 为了使标签具有垂直伸展和字换行处理，必须设置它的AutoSize属
性和WordWrap属性同时为True。
第26页
任务分析
1.2标签(Label)控件的事件
标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。如 Click 事件。
第27页
任务分析
2.1按钮(CommandButton) 控件的属性
① Cancel（取消）属性：当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按
第8页
任务分析
4. 窗体对象的常用方法
方法指的是控制对象动作行为的方式。它是对象本身内含的函数或过程，一些对象有一些特定的方法。
在VB中方法的调用形式是：
对象名．方法名窗体的常用方法 Hide方法：
用以隐藏窗体对象，但不能使其卸载。隐藏窗体时，它就从屏幕上被删除。如果将其 Visible 属性设置为 False，用户将无法访问隐藏窗体上的控件。
第11页
任务分析
5. 窗体对象的常用事件
对窗体对象属性的控制是通过响应事件进行的，在VB中事件的调用形式是：
Private Sub对象名_事件名（事件响应代码）
End Sub
第12页
任务分析
5. 窗体对象的常用事件
代码部分（即事件过程）与每个事件对应。想让控件响应事件时，就把代码写入这个事件的事件过程中。

第2章 VB快速入门PPT课件

第 • 窗体是一块画布，是所有控件的容器，用户可以根据自
二章
己的需要利用工具箱上的控件在画布上画界面。
• 窗体属性决定了窗体的外观和操作。
快
图标 Icon
标题 Caption
速
入
控制菜单框 ControlBox
门
最小化按钮最大化按钮 MinButton MaxButton
边框样式 BorderStyle
GotFocus 、按下键盘KeyPress 等。
门对象的事件是固定的，用户不能建立新的事件。
同一事件，对不同的对象，会引发不同的反应。
计算机基础教学部
8
事件过程
VB
第二
事件过程应用程序处理事件的步骤
章应用程序设计的主要工作就是为对象编写事件
过程的代码。
快
速事件过程的形式如下：
入门
12
2.1.3 对象的建立和编辑
VB
第对象的建立
二章
单击工具箱上的按钮
在窗体上拖拽适当大小的矩形框
快对象的选定
速
选定多个对象可借助于Ctrl或Shift
入门
对象的复制和删除
复制“粘贴”(“创建控件数组？”否)
对象的命名
Name(名称)属性，必须以字母或汉字开头
计算机基础教学部
13
2.2 窗体的概念
章
了一种特殊的过程和函数，称为方法。
方法是面向对象的，调用时一定要指明对象。对
快速
象方法的调用格式为：
入
[对象.]方法 [参数名表]
门
若省略对象，表示当前对象，一般指窗体。
例如：Text1.SetFocus , 此语句使Text1控件获

编程vb课程第二章PPT课件

程序中有数据必有类型、不存在没有类型的数据。
数值类型
整型实型
整型 Integer (%) 长整型 Long (&) 字节型 Byte 单精度型 Single ( ! ) 双精度型 Double ( # ) 货币型 Currency (@)
标准数据类型
字符类型 String 逻辑型 Boolean
用户用语句来定义常量
[Private|Public] Const 常量名 [As 类型]=表达式
系统提供的常量
3.3.1 变量或符号常量的命名规则
(1)必须以字母、汉字开头，由字母、汉字、数字或下划线组成长度小于等于40个字符。
(2)不能使用VB中的关键字。
(3)VB中不区分变量名的大小写，一般变量首字母用大写字母，其余用小写字母表示，常量全部用大写字母表示。
优先级别
表达式运算特点：（1）同类型优先级别(略）；（2）不同类型优先级别：
(二)自定义数据类型及其变量
自定义类型的定义格式(模板)：
Public Type rec
[Private|Public] Type 变量名
Name As String*20
元素名 As 数据类型元素名 As 数据类型
…… ……
End Type
Birthday As Date long num; Code AS Integer
第 2 章程序设计基础
程序设计语言和语法是程序设计的基础。
2.1数据类型
（1）数据的必要性：数据是程序（电脑）要处理的对象。不存在没有数据的电脑。（2）数据的广义性：所有要让电脑处理的实体都叫数据
（3）数据的统一性：电脑要处理的实体（数、字、图、表、声等）在电脑中都用统一的二进制表示。

vb第2章

Load事件后触发) ；可以使用Print方法输出信息。
鼠标的光标属性：设置鼠标形状
MousePointer：设置鼠标在控件上指针的形状，共17种 MouseIcon：当MousePointer属性值＝99时
设定光标指针为一个图标文件(.ico)或光标文件(.cur)
本章目录
通用属性
颜色属性： ForeColor：设置窗体或控件的前景色 BackColor：设置窗体或控件的背景色 FillColor：设置填充色（封闭图形）
工具箱中的可视图标就是VB系统的标准控件类将控件类实例化，得到真正的控件对象。
TextBox 类 Text 对象
窗体上画一控件,就将类转换为对象,创建了控件对象
2.1 VB对象概念---对象和类
对象的概念：
软件对象：
包括窗体、菜单、数据库、各种控件等；
对象的属性：
一组数据，用于描述对象的特征，定义对象的外观和行为；
本章目录
通用属性
Width、Height、Top、Left属性：
控件的宽度和高度。左上角在载体上的位置
单位为twip：1 twip=1/20点=1/1440英寸=1/567cm 本章目录Fra bibliotek通用属性
Font属性组：设置控件上显示的字体、字型、字号等
FontName: 字体名称（字符型） FontSize: 字号大小（整型） FontBold: 是否为粗体（逻辑型） FontItalic: 是否为斜体字(逻辑型) FontStrikethru: 是否加删除线(逻辑型) FontUnderline: 是否加下划线(逻辑型)
"工程"菜单→"添加窗体"命令.

《VB程序设计第二章》PPT课件

精选PPT
31
例4 计算1～100的奇数和，程序段如下：
Dim i%, s% s=0 For i = 1 To 100 Step 2
s=s+i Next i
Dim i%, s% s = 0: i = 1 re: If i <= 100 Then s=s+i i=i+2 GoTo re End If
方法：Refresh（刷新）和Move（移动）。
事件：Click 和 DbClick。
精选PPT
21
注释、暂停、程序结束语句
1.注释语句：
‘ 或 Rem <注释内容>
2.暂停语句：
stop
Stop语句用来暂停程序的执行，相当于在事件代码中设置断点。
3.程序结束语句：
end
精选PPT
22
说明： 1.Stop语句的主要作用是把解释程序置为中
"然后单击确定", "输入框", , 1000, 1000)
l = 2 * 3.14159 * r
s = 3.14159 * r * r Text1.Text = r： Text2.Text = l： Text3.Text = s
End Sub
Private Sub Command2_Click()
断(Break)模式，以便对程序进行检查和调试。可以在程序的任何地方放置Stop语句，当执行Stop语句时，系统将自动打开立即窗口。
2.与End语句不同。
精选PPT
Байду номын сангаас
23
选择结构
1. If…Then语句(单分支结构)
If <表达式> Then 语句块1 [Else 语句块2]

编程高手之路—跟我学VB—课程安排

编程高手之路—跟我学VB—课程安排
我们以最为普及的VB 6.0 为例进行教程学习，循序渐进，保证你轻松掌握。

第一章：我的第一个VB 程序第二章：控件学习
第一节——Label 控件
第二节——TextBox控件
第三节——综合示例一
第四节——CommandButton 控件
第五节——单选与复选控件
第六节——综合示例二
第七节——列表框控件
第八节——组合框控件
第九节——综合示例三
第十节——综合示例四
第十一节——滚动条
第十二节——综合示例五
第十三节——Timer 控件
第十四节——文件操作控件
第十五节——窗体
第三章：用Visual Basic 绘画：
第一节——图形框与图像框控件
第二节——综合示例六
第三节——直线与形状控件
第四节——常用的绘图方法
第四章：菜单与多文档界面的制作：第一节——菜单界面设计
第二节——综合示例七
第三节——动态增减菜单
第四节——基本的窗体操作
第五节——多文档程序。

VB2010入门实例4

教程4：创建匹配游戏在本教程中，将生成一个匹配游戏，在该游戏中，玩家必须匹配隐藏的图标对。

您将学习如何：∙使用List对象来包含对象。

∙使用foreach循环（Visual C# 中）或For Each循环（Visual Basic 中）。

∙使用引用变量跟踪窗体的状态。

∙生成可用于多个对象的事件处理程序。

∙使计时器启动时正好激发一次。

当您完成时，程序将类似下图所示。

在本教程中创建的游戏说明步骤1：创建项目并向窗体添加表创建项目并向窗体添加表1.在“文件”菜单上，单击“新建项目”。

2.如果没有使用Visual Studio 学习版，您需要先选择一种语言。

从“安装的模板”列表中选择“C#”或“VisualBasic”。

3.单击“Windows 窗体应用程序”图标，然后键入“匹配游戏”作为名称。

4.设置窗体属性：a.将窗体的“Text”属性更改为“匹配游戏”。

b.通过使用“Size”属性将大小更改为550 像素宽、550 像素高，或者拖动直到您在集成开发环境(IDE)的左下角看到合适的大小。

5.将TableLayoutPanel控件从工具箱中拖出，然后设置其属性：a.将“BackColor”属性设置为“CornflowerBlue”。

（在颜色选取器中选择“Web”选项卡可以查看颜色名称。

）b.通过单击属性旁边的下拉按钮并单击大的中间按钮，将“Dock”属性设置为“Fill”。

c.单击TableLayoutPanel 右上角的三角形按钮，以显示任务菜单。

d.单击“添加行”两次以多添加两行，然后单击“添加列”两次以再添加两列。

e.单击“编辑行和列”打开“列和行样式”窗口。

选择每一列，单击“百分比”按钮并将每个列的宽度设置为总宽度的25%。

然后从窗口顶部的下拉框选择“行”，并将每个行的高度设置为25%。

单击“确定”按钮。

TableLayoutPanel 现在应该有十六个相等大小的方块单元格。

6.确保在窗体编辑器中选择了该TableLayoutPanel。

VB教程完整文档(绝对实用)

第一章 VASUAL BASIC 程序开发环境 (1)第一节 VISUAL BASIC 的启动与退出 (1)第二节主窗体的组成 (1)第三节其他窗体 (1)第二章. 对象及其操作 (3)第三章. 简单程序设计 (8)第一节VB中的语句 (8)第一节数据类型 (10)第四章．常用内部函数 (16)第五章．运算符与表达式 (19)第六章．数据的输入输出 (21)第一节,数据的输出-----P RINT 方法 (21)第七章．常用标准控件 (25)第一节．文本控件 (25)第八章．VB 控制结构 (36)第一节．选择控制结构 (36)第九章．数组 (42)第一节．数组的定义 (42)第九章．过程 (47)第一节．建立S UB 过程 (47)第一章 VASUAL BASIC 程序开发环境第一节 visual basic 的启动与退出一. 启动 vb 的四种方法：1.使用“开始”菜单中的“程序”命令2.使用“我的电脑”3.使用“开始”菜单中的“运行”命令4.建立启动 visual basic6.0 的快捷方式二. vb 启动后的简单设置1. 新建工程··标准 exe2.（1）SDI 但文档界面（2）MDI 多文档界面“工具”—>“选项”—>“高级”—>“SDI 开发环境”2．退出 vb：ALT+Q第二节主窗体的组成1.标题栏：设计模式运行模式中断模式2.菜单栏：（12 个）（1）菜单的分类：直接执行弹出对话框下一级菜单（2）进入菜单栏的方法：<1>ALT 或 F10 激活菜单后光标健选择<2>ALT+激活键注：如果打开了不适当或不需要的菜单，或者执行菜单命令时打开不需要的对话框，可以用 esc 健关闭<3>快捷键：新建工程 ctrl+n 打开工程 ctrl+o 保存工程 ctrl+s3.工具栏（1）工具栏的分类：编辑、标准、窗体编辑器和调试（2）工具栏的形式：固定、浮动（3）标准工具栏图标及作用第三节其他窗体一. 窗体设计器和工程资源管理器（一）窗体设计器窗口1. 窗体设计器窗口简称窗体（）from，是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。

计算机VB第二章课后参考答案

第二章VB程序入门参考答案：一、简答题（略）二、找出以下语句中的错误1．False --- 错，因为False是VB的关键字或保留字2．Integers ----- 错，正确的写法是dim x ,y ,z as integer3．a+b=c 改为c=a+b4．Mode ---- 错，应改为mod5．37001 --- 错，因为x取值范围是–32768 ---- 327676．÷----- 错，应该写为/7．.E ---- 错，E的左边必须是有一个数字8．错，赋值符号的左边字符串缺了双引号9． 1 --- 错…如是数字1,使用+将会出现”类型不匹配”的错误.如一定要使一字符串与一数字相联,可使用”&”运算符.或用str()函数将数字转换为字符串类型．10．错，可改成如下形式：#01-01-2000#三、编写语句完成以下任务1．设这3个数用x、y、z表示，则求3个数乘积的表达式为：x*y*z如：Dim x as integer,y as integer , z as integer, mul as integerMul= x*y*z2．Option explic it3．Form1.print “Print Text to The Windows”4．Dim result as longDim x as integer,y as integer , z as integerResult=(x+y+z)/35．Dim x as integer, y as integer, z as integer6．Y=3*x^5+2*x^4-6*x^3-1四、数据常量有：”Xname”（字符串型）、True(逻辑型)、517.3(实数型) 、"2/08/05"（日期时间型）、#1-1#（日期时间型）、”String”（字符串型）、1（整型）数据变量有：Xname、Step、X五、写出下列表达式的值：1． 6 注: 可用语句Print 2 * 3 ^ 3 mod 4*2 验证, 注意运算符的优先级.2．2002-1-1 注: 日期数据可进行加减运算3．xyz123abc4．xyz123abc5．126．11 注:可用语句x=10 : y=7 : Print y/2*x\3 验证, 优先级相同从左至右进行.思考为什么会是这个得数.5 7-2 -9False False程序段2：VisualThe Demo Basic实验部分1. '计算通过inputbox()接受三个数，在窗体上输出'它们的和,乘及平均值.参考代码：方法之一:Private Sub Command1_Click()Dim a As Single, b As Single,c As Singlea = InputBox("请输入第一个数a：")b = InputBox("请输入第二个数b：")c = InputBox("请输入第三个数c：")Print "a="; a, "b="; b, "c="; cPrint "a + b + c = "; a + b + cPrint "a * b *c ="; a * b * cPrint " a + b + c / 3="; (a + b + c) / 3End Sub方法之二:Private Sub Form_Click()Dim x As Integer, y As Integer, z As Integerx = InputBox("请输入：")y = InputBox("请输入：")z = InputBox("请输入：")Print x + y + zPrint x * y * zPrint (x + y + z) / 3End Sub2．参考代码和界面如下：Private Sub Command1_Click()Dim r As Integerr = InputBox("请输入圆半径：")Label1.Caption = 2 * r & " "Label1.Caption = Label1.Caption & 3.14 * r ^ 2 & " "Label1.Caption = Label1.Caption & 2 * 3.14 * rEnd Subr = InputBox("请输入圆半径：")Label1.Caption = "直径：" & 2 * rLabel1.Caption = Label1.Caption & " 周长：" & 3.14 * r ^ 2Label1.Caption = Label1.Caption & " 面积：" & 2 * 3.14 * rEnd SubPrivate Sub Command3_Click()EndEnd Sub3．参考代码：Private Sub Form_Click()Dim a As Integera = InputBox("请输入16或33或53...：") …输入的值分别是16，33…..等MsgBox "注意观测！", a, "消息框"End Sub思考： a 代表MsgBox中的什么参数？4．参考代码和界面如下：方法之一:Private Sub command1_Click()Dim temp As Integertext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "+"text1.Text = InputBox("请输入第一个数：")text2.Text = InputBox("请输入第二个数：")temp = V al(text1.Text) + V al(text2.Text)text3.Text = tempEnd SubPrivate Sub command2_Click()Dim temp As Integertext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "-"text1.Text = InputBox("请输入第一个数：")text2.Text = InputBox("请输入第二个数：")temp = V al(text1.Text) - V al(text2.Text)text3.Text = tempEnd SubPrivate Sub Command3_Click()Dim temp As Integertext1.Text = ""text1.Text = InputBox("请输入第一个数：") text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) * V al(text2.Text)text3.Text = tempEnd SubPrivate Sub Command4_Click()Dim temp As Singletext1.Text = ""text2.Text = ""text3.Text = ""Label4.Caption = "/"text1.Text = InputBox("请输入第一个数：") text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) / V al(text2.Text)text3.Text = tempEnd Sub方法之二:Private Sub command1_Click()Dim temp As Integertext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command1.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) + V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub command2_Click()Dim temp As Integertext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command2.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) - V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub Command3_Click()Dim temp As Integertext1.Text = ""Label4.Caption = Command3.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) * V al(Text2.Text)text3.Text = tempEnd SubPrivate Sub Command4_Click()Dim temp As Singletext1.Text = ""Text2.Text = ""text3.Text = ""Label4.Caption = Command4.Captiontext1.Text = InputBox("请输入第一个数：") Text2.Text = InputBox("请输入第二个数：") temp = V al(text1.Text) / V al(Text2.Text)text3.Text = tempEnd Sub。