VB编程序的基本结构.ppt

第3章 程序的基本结构;程序开发的两步;程序基本控制结构（三种）;3.1 顺序结构;语法格式：变量名 = 表达式 ; 以下语句形式很常用： dim sum% , x% sum=100 : x=5 sum = sum + x ‘执行后，sum的值为多少？ dim n% n=7 n = n + 1 ‘执行后，n的值为多少？;3.1.2 用户交互函数;1. InputBox （输入对话框函数） 输入对话框一般由标题、提示信息、“确定”按钮、“取消”按钮和一个供用户输入的文本框组成。当用户将输入信息输入到文本框，并单击“确定”按钮后，函???返回用户输入的字符串数据。当单击“取消”按钮时，返回一个空字符串。 语法格式：InputBox(Prompt[，Title][，Default]);例 创建一个输入对话框。如下图所示： Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim myvalue As Object myvalue = InputBox(请输入数值，数值在1~3之间！, 输入提示, 1) End Sub ;2. MsgBox（消息框） MsgBox函数用于在屏幕上的消息框中显示简短消息，并等待用户单击按钮，然后返回一个整数型的数值，让应用程序了解用户单击的是哪一个按钮。 语法格式： MsgBox(Prompt[，Buttons] [，Title]) 功能：在屏幕上显示一个消息框，根据选择确定其后的操作。; 当用户单击消息框上的某按钮时，MsgBox函数将返回一个常量来确认该按钮被按动了，下表是按钮和常量之间的对应关系。通过对返回值的判断，就可以确定消息框中到底是哪个按钮被按动，从而确定程序下一步的运行方式。 ;例 在Form1_Click（）事件过程中定义一个消息框，代码如下： Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim s As Integer s = MsgBox(用户名必须包含数字和字母, 5 + 48, 警告) If s = vbCancel Then End 若用户单击取消，则程序退出 End Sub 单击窗体，将弹出消息框，如图3-5所示。;3.2 选择结构;单分支结构;单分支结构;例：将保存在变量a和 b中的整数按升序排列。（即a的值一定不大于b的值） 分析：ab时，两者值不变 ab时，两者的值交换 If b a Then t = a a = b b = t End If ;双分支结构;双分支结构举例;例: 计算当 0x10时，y=x，否则 y=100 ,正确的语句是_____。 If 0x10 then y=x else y=100 If 0x and x10 then y=x else y=100 If 0x and x10 then y=x else y=100 If 0x or x10 then y=x else y=100 正确答案：C;多分支结构;多分支结构举例;例 已知变量ch中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。 If UCase(ch) = A And UCase(ch) = Z Then MsgBox(ch + 是字母字符) ElseIf ch = 0 And ch = 9 Then MsgBox(ch + 是数字字符) Else MsgBox(ch + 是其他字符) End If;If b a Then c = a: a = b: b = c End If If b c Then x = b ElseIf a c Then x = c Else x = a End If Msgbox( x=“ x) End Sub ;If语句