Visual Basic程序设计 第四章培训教材.pptVIP

第四章;主要内容;求两个自然数的最大公约数的算法 （欧几里德算法） S1.输入两个自然数M、N S2. 求M除以N的余数R S3.使M=N，即用N代换M S4.使N=R，即用R代换N S5.若R≠0，则重复执行S2、S3、S4（循环），否则转S6 S6.输出M ，M即为M和N的最大公约数;4.2.1 赋值语句;2.不同数据类型数据的赋值 当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如 iA% = 10 / 3 iA中的结果为3 注意：虽然赋值号与关系运算符“等号”都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。 注意点：P59-60;4.2.2 InputBox函数;Private Sub Form_Click() PassWord = InputBox(输入你的口令:, 程序示例) If PassWord = 123456 Then Print OK! Else Print Error! End If End Sub;4.2.3 MsgBox函数;button： 这是一个由4个数值常量组成的式子，形式为 c1+c2+c3+c4，; Print MsgBox(非法数据!, vbOKOnly + 48 + 0, 提示信息);MsgBox函数根据用户选择单击的按钮而返回不同的值：;顺序结构;4.3分支结构和分支结构语句;1、IF 条件 THEN 一条语句 2、if 条件 THEN 语句组（多条语句） end if 3、if 条件 then 语句组1 else 语句组2 end if; 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 ;2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 计算分段函数：;3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If;Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x 1 Then Text2.Text = “小于1的数” ElseIf x = 10 Then Text2.Text = “1到10之间” Else Text2.Text =”大于10的数” End If End Sub;例已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。 用多分支结构实现: ;4．If语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： If 表达式1 Then If 表达式11 Then … End If … End If ;5、 Select-Case-End Select 结构语句 Select Case e Case c1 A组语句 Case c2 B组语句 ... Case Else n组语句 End Select;表达式列表1;Private Sub Command1_Click() Dim x As Integer x = Val(text1.Text) Select Case x Case Is 1 Text2.text = 这是小于1的数 Case 1 To 10 Text2.Text = 这是1到10之间的数 Case Else Text2.Text = 这是大于10的数 End Select End Sub;例变量strC中存放了一个字符，判断该字符类型。 在前面例中用多分支结构实现：