vb语言基础

常用方法

1）Show方法：用于快速显示一个窗体，并使 该窗体成为活动窗体。如果该窗体未加载，则自 动加载并显示 如：Form1.Show
试比较下列两个事件过程 Private Sub Form_Load () Show Print "This is a string!" End Sub Private Sub Form_Load () Print "This is a string!" End Sub
例2.3 求三角形面积

题目：根据海伦公式计算任意三角形的面积。海 伦公式为 s t ( t a )( t b )( t c ) , t ( a b c ) / 2
分析思考 要根据海伦公式计算三角形面积，首先必须要知 道构成三角形的三条边的边长值，所以程序代码 的输入部分应该完成三条边长的输入，这可以通 过三个文本框输入；然后根据公式计算，结果可 以通过一个文本框显示出来。每个文本框都该有 一个标签说明其作用。还要有一个命令按钮作为 触发计算的对象。
x2 = x \ 100 '求出x的百位数字x2 x1 = (x Mod 100) \ 10 '求出x的十位数字x1 x0 = x Mod 10 '求出x的个位数字x0 Print "随机产生的三位数是"; x Print " 其百位数字是"; x2 Print " 其十位数字是"; x1 Print " 其个位数字是"; x0 End Sub
流程图
开始 产生三位随机数x 求x的百位数字x2 求x的十位数字x1
Int(Rnd * 900) + 100
x \ 100 (x Mod 100) \ 10 x Mod 10
求x的个位数字x0
打印x、x2、x1、x0 结束
程序源代码

Private Sub Command1_Click() Dim x As Integer Dim x0 As Integer, x1 As Integer, x2 As Integer Randomize x = Int(Rnd * 900) + 100 '随机产生一个三ivate Sub Form_事件名([参数表]) …… End Sub 注意：不管窗体名字如何，但在事件过程 中此处只能是Form，这是一个特例！而在 其他场合对窗体进行引用时必须用窗体对 象的名字，如Form1.Caption="abc"、 frmMain.Print "abc"等
常用属性


4） Width和Height：设置标签对象的宽度和高度。默 认的单位为Twip（缇，1厘米为567缇，1英寸为1440 缇，1磅为20缇）。公共，绝大多数对象都有 5）Left和Top：设置标签对象左上角在其容器对象上的 横、纵坐标。公共，绝大多数对象都有 坐标系统如右图所示： 坐标原点(0, 0)在窗体的 左上角 水平向右为+x方向，垂 直向下为+y方向 坐标轴刻度单位为缇 当前点坐标为 (CurrnetX,CurrentY)

End Sub
实验二



要求：阅读书本相应章节第3章 目的：进一步熟悉VB集成开发环境和VB编程的 步骤，掌握VB语言基础 内容：



1）试编程实现：随机产生一个三位数，求出它的逆 序数。如随机的三位数是163，则其逆序数为361 2）试编程实现：随机产生一个四位数，求出它各个 数位上数字之和 3）设计一程序，可以求任意长方体的体积和表面积
程序源代码

Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim t As Single Dim s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text)
常用方法

2）Hide方法：用以隐藏窗体，但不卸载 如：Form1.Hide 3）Print方法：用于在窗体对象上输出指定值
4）Cls 方法：用于清除运行时在窗体对象上输 出的文本或绘制的图形。 如：Form1.Cls
设置启动窗体

缺省情况下，程序开始运行时， 显示的总是程序中的第一个窗 体。如果想在程序启动时显示 其他窗体，则需要重新设置启 动窗体。步骤如下： 1、[工程]菜单→[工程属性] 2、选择[通用]选项卡 3、在[启动对象]下拉框中，选 择要作为新启动窗体的窗体名 称 4、单击[确定]按钮
语句B … 语句n
例2.2 求随机三位数各个数位数字

题目：随机产生一个三位数x，将其百位、十位、 个位上的数字分别打印出来。如下图所示。
分析思考


界面：考虑程序不需要用户从界面上输入什么信 息，而程序结果可以直接打印在窗体上，故本题 不需要什么控件对象，只需要一个命令按钮对象 用来发布处理命令就可以了。 代码：解决问题的一般思路是先输入、再处理、 最后输出。因此，在程序的输入部分需要产生一 个随机的三位整数x；在程序的处理部分要分别 求出x的百位、十位、个位上的数字；在程序的 输出部分要分别在窗体上打印出x和x的各个数位 上的数字。
5）Enabled：设置窗体对象是否响应用户事件， 即对象是否可用。默认值为True，表示可用；若 为False，则表示不可用 公共，绝大多数对象都有
常用属性

6）Visible：设置窗体对象是否可见。默 认值为True ，表示显示；若为False，则 表示隐藏。公共，绝大多数对象都有
7）Font：设置窗体对象上所显示文本的 字体的类别、大小、字形等。静态设计状 态下，直接在字体对话框中设置；动态运 行状态下，通过给一系列具体的属性赋值 来设置。
通过赋值语句将文本框对象的Text属性值赋 予变量，从而将用户在文本框中输入的任 意数据存入到了变量中，为下一步的处理 准备好了数据


t = (a + b + c) / 2 s = Sqr(t * (t - a) * (t - b) * (t - c)) Text4.Text = s
通过赋值语句将变量值赋予文本框对象的 Text属性，从而将变量值在文本框中显 示出来，完成了输出
第2章：语言基础
主要内容： 1：数据类型、常量、变量、运算符、表达式、
内部函数 2：赋值语句、Print方法 3：窗体、标签、命令按钮、文本框
例2.1 计算圆面积

设计如下程序，在文本框中输入圆的半径， 然后计算出该圆的面积，并把结果显示在 一个文本框中。
分析代码
事件过程：Command1_Click 单引号：注释语句，说明此按钮的功能
常用事件和方法

标签可以响应多种事件，如Click、 DblClick，但通常不对它编程。 标签基本不使用方法编程
文本框（TextBox）


文本框对象是一个文本编辑区域，用户可以在该 区域中输入、编辑和显示文本内容。默认情况下， 文本框只能显示单行文本，最多显示2048个字 符。 常用属性 1）Text：设置文本框对象中包含的文本 2）Maxlength：设置文本框对象中可以输入字 符的最大值。默认值为0，表示不限制（系统规 定）；若为一个具体数据如18，则表示最大长度 为18个字符 3）Multiline：设置文本框对象中是否可以接受 多行文本。默认值为False，表示不允许；若为 True，则表示允许
r、pi、s：变量 Single：数据类型 DIM语句：定义语句，声明变量或数组 3.14：常量，即常数 *：乘号，算术运算符 pi*r*r：算术表达式 Val()、Trim()、Str()：内部函数， 实现特定运算 赋值语句：给变量或对象的属性赋值 事件过程结束
顺序结构
语句A

将例2.1代码分别修改为上述两图 所示，观察运行结果。 代码总是由一行行语句构成的。所 谓顺序结构就是在运行时按语句从 上到下排列的顺序依次执行，如右 图所示
常用事件





1）Change：当文本框内容发生改变时触发该事件，最 常用 例：设计两个文本框，让它们同步变化。即一个文本框 随着另一个文本框内容的改变而改变。 代码： Private Sub Text1_Change() Text2.Text = Text1.Text End Sub 2）GotFocus：当文本框获取焦点时触发事件 3）LostFocus：当文本框失去焦点时触发事件 还支持Click、DblClick 等事件 常用方法 文本框常用方法有SetFocus 方法和Move方法
窗体（Form）


窗体对象是设计VB应用程序的基本平台，是一 个容器对象，可以容纳其他对象 常用属性
1）Name：名称属性，设置窗体对象的名称。 只读，程序运行后只能读取属性值，不能修改；公共， 所有对象都有 2）Caption：标题属性，设置窗体对象标题栏中的文本。 公共，Label等控件对象也有 3）ControlBox , MaxButton , MinButton：设置窗体 对象是否显示控制菜单栏、最大化、最小化按钮。默认 值为True，表示显示；若为False，则表示不显示

程序界面
对象 Label1 Label2 Label3 Label4 Label5 Text1 Text2 Text3 Text4 Command1 属性名 Caption Caption Caption Caption Caption Text Text Text Text Caption 属性值 三角形的三条边长为 第一条边 第二条边 第三条边 面积为 为空 为空 为空 为空 计算
常用属性

FontName：设置文本字体的类别 如：对象名.FontName＝"宋体"