vb第2章Visual Basic程序设计代码基础3 详细教程

第 二 3. 说明 章 (1) <变量名>: 应符合VB变量命名约定。 (2) <表达式>: 常量、变量、表达式。 (3) <对象名>: 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例:X=X+1 (5) 赋值号左边必须是变量或对象属性。 程 序 例: X=1 MyStr="Good Morning" 设 计 Command1.Caption="确定" 代 X+1=X ' 错误，赋值号左边是表达式 码 基 础 3 Visual Basic
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
C = 123456.789 B = C ' 高精度变量赋值给低精度变量， ' 变量B中存放123456.8。有效数字7位 S = "abc" A = S ' 错误，类型不匹配 例: 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A=5+3 A = "5+3" 可以用TypeName函数 A = "#11/26/99#" 判断变量的数据类型。 A = #11/26/1999# 如:Print TypeName(A) A = Not 5 > 8
18
X = Val(Text1.Text) Select Case X Case Is < 0 Y = Exp(X) + Exp(-X) Case 0 Y = 1.25 Case Is > 0 Y = Log(X) / Log(10) End Select Print "Y="; Y
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
19
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
在窗体上画一个名称为Command1的命令按钮和两个名称 分别为Text1和Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click( ) n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 程序运行后，在文本框Text1中输 x = 20 Case Is < 10 入10，然后单击命令按钮，则在 x = 30 Text2中显示的内容是（） Case 10 A）10 B）20 x = 40 C）30 D）40 End Select Text2.Text = x End Sub
第 2.7.2 IF语句 二 一、 单行结构条件语句 章 1. 格式
If <条件> Then [<语句组1>] [Else <语句组2>] 2. 功能 如果<条件>成立， 则执行<语句组1> 否则执行<语句组2> 3. 说明 (1) <条件> : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式("0"为False,非"0"为True) (2) <语句组1>、<语句组2>: 可以有多条语句，各语句之间用 冒号隔开。 (3)可以没有Else部分，这时必须有<语句组1>。
If <条件1> Then [语句组1] Else [语句组2] End If If语句 ElseIf子句 Else子句 End If语句
12
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
【例题】输入华氏温度F， 利用公式C=5/9*(F-32)转 换成摄氏温度C，根据转 换结果C的不同值，按以 下要求给出相应的提示。 C>40时，打印"HOT " 30<C≤40时，打印" WARM " 20<C≤30时，打印" ROOM TEMPERATURE " 10<C≤20时，打印" COOL " 0<C≤10时，打印" COLD " C≤0时，打印" FREEZING"
16
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
3. 说明 <测试表达式> : 数值或字符表达式 Case 表达式表: 表中的表项为如下形式: (1) 表达式1[,表达式2]... 如: Case 1 , 3 , 5 (2) 表达式1 TO 表达式2 如: Case 10 TO 30 Case "A" TO "Z" (3) Is <关系运算符><表达式> 如: Case Is >= 10 Case Is = 0 与 Case 0 相同
4. 注意 (1) Case表达式中不能使用<测试表达式>中的变量。 Select Case X Case X < 0 (2) Case后表达式类型应与测试表达式的类型一致， 且三种形式可以混用,如: Case Is < -5 , 0 , 5 To 100 (3) <测试表达式>只能是一个变量或一个表达式，不 能是变量表或表达式表。 Select Case X1，X2，X3 Case X1＋X2＋X3 < 0 (4) 不要在Case后直接使用布尔运算符来表示条件。 Case X > 0 and X < 100 (5)Select Case语句也可以嵌套。
7
程 序 设 计 代 码 基 础
Visual Basic
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
例: If N>0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If X<>"aaa" Then Print X 【例题】设界面如下图所示，用文本框输入x的值， 单击“计算Y‖按钮时，根据以下公式计算y的值。 y= |x| x≤0 lnx x>0
11
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
二、块结构条件语句 1.格式 If <条件1> Then [<语句组1>] [ElseIf <条件2> Then [<语句组2>]] …… [ElseIf <条件N> Then [<语句组N>]] [Else [<其他语句组>]] End If 功能: ……
4. 注意 (1) 应作为一条语句书写— 续行符号 空格＋下划线 (2) 无论条件是否成立，都具有共同出口 例: If X >= 0 Then X = 1 + X Else X = 5 - X Y=1-X 共同出口 Print "Y="; Y 若 X=2 则打印 Y=-2 若 X=-2 则打印 Y=-6
14
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
2. 注意 (1) 关键字ElseIf不能写成Else If，中间不能有空格。 (2) 严格按照格式书写，不能随意换行或合并。 例: If x >= 0 then If x >= 0 then y =1
y =1 Else y=2 End If Else: y = 2 End If
Text1
Label3
Command1 Private Sub Command1_Click() X = Val(Text1.Text) If X <= 0 Then Y = Abs(X) Else Y = Log(X) Label3.Caption = Y End Sub
8
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
任意输入一对坐标值，找出它所在的象限。
10
第 二 章 Visual ic 程 序 设 计 代 码 基 础
Private Sub Command1_Click() X = Val(Text1.Text): Y = Val(Text2.Text) If X = 0 Or Y = 0 Then Print "不在任何象限内": _ Exit Sub If X > 0 Then If Y > 0 Then Print "IN A" Else _ Print "IN D" Else If Y > 0 Then Print "IN B" _ Else Print "IN C" End Sub
第 二 (6) 变量名或对象属性名的类型应与表达式类型相容。 章 例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 ' 将整型数100赋给整型变量A S = "123.45" ' 将字符串"123.45"赋给变量S A=S ' 将数字字符串变量赋值给整型变量， ' 变量A中存放123 程 序 S=A ' S中存放字符串"123" 设 B = 12345.67 计 A=B ' 高精度变量赋值给低精度变量， 代 码 ' 先四舍五入后取整, A中存放12346 基 础 4 Visual Basic
If x >= 0 then y =1 Else y = 2 End If
(3) 块结构条件语句可以嵌套。
15
第 二 章 Visual Basic 程 序 设 计 代 码 基 础
2.7.3 Select Case语句 1. 格式 Select Case <测试表达式> Case <表达式表1> [<语句组1>] [Case <表达式表2> [<语句组2>]] … [Case Else [<语句组n>]] End Select 2. 功能: 根据测试表达式的值,按顺序匹配Case后的 表达式,如果匹配成功,则执行该Case下的语句块, 然后转到End Select语句之后继续执行。