vb第3章VisualBasic程序设计代码基础3.pptVIP

3.7.1 赋值语句 1. 格式 变量名=表达式 或: [对象名.]属性名=表达式 2. 功能 计算表达式的值，再将此值赋给变量或对象属性。 例: X=1 MyStr=Good Morning Command1.Caption=确定 X+1=X 错误，赋值号左边是表达式 (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 C = 123456.789 B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位 S = abc A = S 错误，类型不匹配 例: 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8 (7) 变量未赋值时，数值型变量值为0，字符串变量 值为空串。 【例题】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。 分析: 需要借助第三个变量C 代码如下: A = 5 B = 8 C = A A = B B = C 一、 单行结构条件语句 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 N0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If Xaaa Then Print X 【例题】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。 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 5. 嵌套 IF ... THEN...IF ... THEN ...ELSE ...ELSE… 【例题】平面直角坐标系中，不同的象限内，点的坐标的符号有以下4种情况: 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 P