第3章 VB程序设计基础

30
1.命令按钮的属性 Caption:标题属性——命令按钮显示的内容 Enabled:设置按钮是否为激活状态。 Style : 确定显示的形式。0只能显示文字,
1文字、图形均可。
Picture：给命令按钮指定一个图片。
31

2、事件Click
◦ 例：简易计算器
32

标签（Lable)
用于显示文本(输出)信息，不能作 为输入信息的界面。
9
1
Visual Basic基本语句
2
数据输入与输出
3 常用对象
10

方法一：用文本框输入 方法一：
获取文本框的Text属性值
Private Sub Form_Click() Dim a%, b%, c%, x1#, x2# a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Form1.Print x1; x2 End Sub
12
Private Sub Form_Click()
Dim a%, b%, c%, x1#, x2#
a=3 : b=6 : c=2 x1=( -b + sqr (b^2 – 4 * a * c) ) / (2 * a) x2=( -b - sqr (b^2 – 4 * a * c) ) / (2 * a) Form1.Print x1;x2 End Sub

× × ×
s
Visual Basic 6.0
n
2 5
2.不能在一句赋值语句中给多个变量赋值 s = "Visual Basic 6.0 "
nDim+ 3 = 2 x%,y%,z% x=y=z=1 Text1.Text = s
Text1.text ×
s x=1 : y=1 : z=1
√
[Let] 变量/属性名＝变量/常量/表达式/属性值 思考：赋值语句中：a=b与 b=a相同吗?
Print Format(123, "$0.00")
Print Format(123, "+0.00") Print Format(0.123, "0.00%") Print Format(1234.567, "0.00E+00") End Sub
20
No1
• MsgBox输出
21
3
4
5
MsgBox函数 1. 格式
8
Private Sub Form_Click()
Dim a%, b%, c%, x1#, x2#
a=3 : b=6 : c=2 x1=( -b + sqr (b^2 – 4 * a * c) ) / (2 * a) x2=( -b - sqr (b^2 – 4 * a * c) ) / (2 * a) Form1.Print x1;x2 End Sub

文本框（TextBox) 既可以显示正文内容，也可以在 该区域输入、编辑或者复制文本。
33
Caption：用来改变Label控件中显示的文本
AutoSize：设置是否自动调整大小显示文本（False）
Alignment：设置文本的对齐方式（左对齐） BorderStyle：有无边框（无）
4
a1
a2 10
交换之前
a1 10
交换之后
a2
5 a1 = a2 a2 = a1
方案1
5
a1 a1=a2 10 5 a2=a1

a2 10
a1 10 5 t=a1
a1=a2
a2 5 10
Dim t% t = a1 a1 = a2 a2 = t
方案2
t
a2=t 5
5
例：编写程序，交换变量a1、a2的值。
29

[对象.] Print
作用：在指定的对象（窗体、图片框）中输出值

[对象.] Cls 作用：清除运行时在窗体或图形框中显示的文本或图形 [对象.] Move 左边距离[,上边距离[,宽度[,高度]]] 作用：移动窗体或控件，并可改变其大小


[对象.] Show和[对象.] Hide
作用：Show方法用来显示窗体，Hide方法用来隐藏窗体
(1)关键字Rem和注释内容之间要加空格,是一条独立的语句。 (2)注释符(单引号’) 直接写在其它语句后面。
7
用于结束一个程序的运行
Sub Command1_Click()
End
End Sub
‘结束程序
End If、End Select、End With、End Type、 End Function、End Sub等。
Private Sub Form_Click()
Dim a1 As Integer, a2 As Integer, t% a1 = 5: a2 = 10 Form1.Print t = a1 a1, a2
a1 = a2
a2 = t Form1.Print End Sub a1, a2
6
注释语句

22
MsgBox()返回所选按钮的整数值,若不需返回
值,则可作为MsgBox过程使用。
函数形式：变量[%]=MsgBox(提示[,按钮][，标题]) 语句形式： MsgBox 提示[,按钮][,标题]
函数形式：x = MsgBox(“参数错误”,18) 语句形式：MsgBox "参数错误",18
23
No1
• MsgBox输出
No2
• 文本框、标签……
24
1
Visual Basic基本语句
2
数据输入与输出
3 常用对象
25
窗体 命令按钮 文本框、标签
计时器
26
•窗体是设计VB应用程序的基本平台 •窗体本身是一个对象，又是其他对象的载体
•多数应用程序是从窗体开始执行的
•一个程序可以有多个窗体.
Private Sub Form_Click() Rem 变量a、b、c赋值为1 注释有利于程序的维护和调试。 a = 1: b = 1: c = 1 语法格式： Rem 注释内容 End Sub 注释语句是非执行语句。
´
注释内容
Private Sub Form_Click() a = 1: b = 1: c = 1 '变量a、b、c赋值为1 End Sub
11

InputBox函数的返回值为字符串，通常用Val转换为数值 方法二：用InputBox函数输入 方法二：
InputBox（prompt[, title][,default][, xpos, ypos] ）
Private Sub Form_Click() Dim a%, b%, c%, x1#, x2# a = Val(InputBox("请输入系数a", "一元二次方程求根")) 对话框与屏幕左 对话框标题栏显示 b = Val(InputBox("请输入系数b", "一元二次方程求根")) 边、上边的距离 对话框中显示的提 的信息 c = Val(InputBox("请输入系数c", "一元二次方程求根")) 示信息 x1 = (-b + Sqr(b ^ 2对话框的输入 / (2 * a) - 4 * a * c)) 默认值 x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Form1.Print x1; x2 End Sub
14
Print 方法示例
紧凑格 式输出
Private Sub Form_Click()
Print "1"， "2"， "3" "1" ；"2"；
End Sub
分区格 式输出
Private Sub Form_Click ()
Print 1;2;3
End Sub
15
例：输出如图所示图案
No1 No2 No3
文本框事件——change（） 文本框方法——SetFocus
计算机科学学院
1
Visual Basic基本语句
2
数据输入与输出
3
常用对象
2
Private Sub Form_Click() Dim a%, b%, c%, x1#, x2# a=3 : b=6 : c=2 x1=( -b + sqr (b^2 – 4 * a * c) ) / _
语句
(2 * a) x2=( -b - sqr (b^2 – 4 * a * c) ) / _ (2 * a) Form1.Print x1;x2 End Sub
MsgBox(msg,[, type][, title][, helpfile,context])
x = MsgBox("参数错误",18, "错误")
对话框中显示的对话框标题显 对话框类型，确定对话框 2. 返回值 提示信息，为一示的信息，为 的图标和按钮，为一个整 MsgBox函数的返回值是一个整数，这个整数与 一字符串 个字符串 数值为一个整数值 所选择的按钮有关。
34
Text：显示文本内容
文本框没有Caption属性
Multiline：是否允许输入多行（False）
ScrollBars：设置是否含有滚动条（无） Alignment：设置文本的对齐方式（左对齐） PasswordChar：设置在文本框中显示口令字符（空串）