Visual Basic基本语句赋值语句赋值语句注释语句注释语句结束语句结束语句暂停语句暂停语句输出语句输出语句数据输入函数数据输入函数消息框函数消息框函数一一. . 赋值语句赋值语句形式形式形式形式: : : : 变量名表达式变量名表达式变量名表达式变量名表达式作用作用作用作用: : : : 将表达式的值赋值给变量。将表达式的值赋值给变量。将表达式的值赋值给变量。将表达式的值赋值给变量。 一般用于给变量赋值或对控件设定属性值一般用于给变量赋值或对控件设定属性值一般用于给变量赋值或对控件设定属性值一般用于给变量赋值或对控件设定属性值。例例例例: : : : Text1.Text Text1.Text Text1.Text Text1.Text 欢迎使用欢迎使用欢迎使用欢迎使用Visual Basic 6.0Visual Basic 6.0Visual Basic 6.0Visual Basic 6.0当表达式的类型与变量的类型不一致时，当表达式的类型与变量的类型不一致时，当表达式的类型与变量的类型不一致时，当表达式的类型与变量的类型不一致时，强制转换成左边变量的类型强制转换成左边变量的类型强制转换成左边变量的类型强制转换成左边变量的类型 iAiAiAiA = 10/4 = 10/4 = 10/4 = 10/4 iAiAiAiA中的结果为中的结果为中的结果为中的结果为3 3 3 3赋值语句使用的注意事项赋值语句使用的注意事项1.1.1.1.虽然赋值号与关系运算符中的等于号都用虽然赋值号与关系运算符中的等于号都用虽然赋值号与关系运算符中的等于号都用虽然赋值号与关系运算符中的等于号都用“=”=”=”=”表示，但表示，但表示，但表示，但VBVBVBVB系统会根据所处的位置自动判系统会根据所处的位置自动判系统会根据所处的位置自动判系统会根据所处的位置自动判断是何种意义的符号。断是何种意义的符号。断是何种意义的符号。断是何种意义的符号。2.2.2.2.赋值号左边只能是变量。赋值号左边只能是变量。赋值号左边只能是变量。赋值号左边只能是变量。Sin(xSin(xSin(xSin(x)=)=)=)=x+yx+yx+yx+yx+yx+yx+yx+y=3=3=3=33.3.3.3.不能用一条赋值语句给多个变量赋值。不能用一条赋值语句给多个变量赋值。不能用一条赋值语句给多个变量赋值。不能用一条赋值语句给多个变量赋值。x=y=z=3x=y=z=3x=y=z=3x=y=z=3 1.1.PrintPrint方法方法 表达形式： 对象.PrintSpc(n)|Tab(nPrintSpc(n)|Tab(n)表达式列表 ; | , 作用：作用：在指定的对象上输出信息。在指定的对象上输出信息。 对象对象：窗体、图形框或打印机：窗体、图形框或打印机(Printer)。 若省略对象，则在当前窗体上输出。若省略对象，则在当前窗体上输出。二、输出语句二、输出语句紧凑紧凑格式格式标准标准格式格式注意Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，；，：光标定位在下一行。：光标定位在下一行。1.开始打印的位置是由对象的CurrentX和CurrentY属性决定；2.缺省的打印位置为对象的左上角0，0。3.在Form_Load事件过程中用Print方法输出，必须设置窗体的AutoRedraw属性值为True，或采用show方法。 提示：提示：提示：提示：提示信息提示信息提示信息提示信息 标题：标题：标题：标题：对话框标题对话框标题对话框标题对话框标题 缺省：缺省：缺省：缺省：输入区缺省值输入区缺省值输入区缺省值输入区缺省值说明：说明：说明：说明：默认情况下，默认情况下，默认情况下，默认情况下，InputBoxInputBoxInputBoxInputBox函数返回一个字符串函数返回一个字符串函数返回一个字符串函数返回一个字符串每执行一次每执行一次每执行一次每执行一次InputBoxInputBoxInputBoxInputBox函数，只能输入一个值。函数，只能输入一个值。函数，只能输入一个值。函数，只能输入一个值。PromptPromptPromptPrompt字符串若要强行换行字符串若要强行换行字符串若要强行换行字符串若要强行换行, , , ,可使用可使用可使用可使用chr$(13)+chr$(10)chr$(13)+chr$(10)chr$(13)+chr$(10)chr$(13)+chr$(10)或或或或VbCrLfVbCrLfVbCrLfVbCrLf回车换行回车换行回车换行回车换行. . . .二二. . 人机交互函数和过程人机交互函数和过程1. InputBox函数函数 InputBox(提示提示，标题，标题，缺省，缺省,x 坐标位置坐标位置,y坐标位置坐标位置)其中：其中：其中：其中：例：在屏幕上显示如图所示的对话框例：在屏幕上显示如图所示的对话框例：在屏幕上显示如图所示的对话框例：在屏幕上显示如图所示的对话框Dim Dim strNamestrName$ , strS1$ , strS1$相应的语句如下相应的语句如下相应的语句如下相应的语句如下: :strNamestrName= = InputBoxInputBox( “( “请输入你的姓名请输入你的姓名请输入你的姓名请输入你的姓名” ” + + vbCrLfvbCrLf + _ + _ “ “然后单击确定然后单击确定然后单击确定然后单击确定” ” , “, “输入框输入框输入框输入框” ”) )也可以：也可以：也可以：也可以：strS1 = “strS1 = “请输入你的姓名请输入你的姓名请输入你的姓名请输入你的姓名” ” + Chr(13) + Chr(10) + “+ Chr(13) + Chr(10) + “然后单击确定然后单击确定然后单击确定然后单击确定” ” strNamestrName= InputBox(strS1= InputBox(strS1， “ “输入框输入框输入框输入框” ”， ， 100100，100) 100) 当键盘输入当键盘输入当键盘输入当键盘输入“ “王晓明王晓明王晓明王晓明” ” 后，变量后，变量后，变量后，变量strNamestrName获得键盘输入的值。获得键盘输入的值。获得键盘输入的值。获得键盘输入的值。2.MsgBox函数和语句MsgBox函数格式MsgBoxMsgBoxMsgBoxMsgBox( ( ( (提示提示提示提示 , , , ,对话框类型对话框类型对话框类型对话框类型, , , ,标题文本标题文本标题文本标题文本 ) ) ) )MsgBox语句格式MsgBoxMsgBoxMsgBoxMsgBox 提示提示提示提示 , , , ,对话框类型对话框类型对话框类型对话框类型, , , ,标题文本标题文本标题文本标题文本 注意：MsgBox函数返回值是整数值（1-7）。对话框类型默认值为0，对话框类型是四组值的组合值。 MsgBox函数和语句中的对话框类型是一个整型表达式，决定了对话框上出现的按钮数目和图标类型。 MsgBox函数值：返回所选按钮的整数值。如果不需要返回值，可使用MsgBox语句。MsgBox函数应用举例msgmsgmsgmsg = = = = MsgBoxMsgBoxMsgBoxMsgBox ( ( ( (请确认输入的数据是否正请确认输入的数据是否正请确认输入的数据是否正请确认输入的数据是否正确！确！确！确！ , 3 + 48 + 0, , 3 + 48 + 0, , 3 + 48 + 0, , 3 + 48 + 0, 数据检查数据检查数据检查数据检查)请参看例请参看例请参看例请参看例4 4 MsgBoxMsgBox函数的演示函数的演示函数的演示函数的演示5.格式输出函数格式输出函数格式函数表示形式：Format（表达式， 格式字符串 )例例 利用Format函数显示有关的日期和时间Form_CLICKForm_CLICK()()FontSizeFontSize=12=12MyTimeMyTime = #9:21:30 PM# = #9:21:30 PM#MyDateMyDate = #7/21/97# = #7/21/97#Print Print Format(MyDateFormat(MyDate, , m/d/yym/d/yy)Print Print Format(MyDateFormat(MyDate, , mmmm-yymmmm-yy)Print Print Format(MyTimeFormat(MyTime, h-m-s AM/PM), h-m-s AM/PM)Print Print Format(MyTimeFormat(MyTime, , hh:mm:sshh:mm:ss A/P) A/P) 显示系统当前日期和时间显示系统当前日期和时间Print Print Format(NowFormat(Now, , yyyyyyyy年年m m月月dddd日日 hhhh：mm)mm) 以系统预定义的格式以系统预定义的格式 显示系统当前时间显示系统当前时间Print Format(Date, Print Format(Date, dddd,mmmm,dd,yyyydddd,mmmm,dd,yyyy)End SubEnd SubShell函数（补充）在在vbvb中不仅可以调用通用过程，而且可以通过中不仅可以调用通用过程，而且可以通过shellshell函函数调用各种应用程序。数调用各种应用程序。ShellShell函数格式：函数格式：Shell(Shell(命令字符串命令字符串,窗口类型窗口类型)命令字符串：要执行的应用程序的文件名，必须是命令字符串：要执行的应用程序的文件名，必须是可执行文件，其扩展名为：可执行文件，其扩展名为： .com, .exe, .bat.com, .exe, .bat窗口类型：是执行程序时的窗口的大小。窗口类型：是执行程序时的窗口的大小。缺省时窗口以一个具有焦点的图标显示。 ShellShell函数窗口类型值及其对应风格函数窗口类型值及其对应风格值值窗口风格窗口风格0 0隐藏窗口，系统常量隐藏窗口，系统常量VbHideVbHide1,5,91,5,9正常方式并拥有焦点正常方式并拥有焦点 vbNormalFocusvbNormalFocus2 2( (默认默认) )最小化方式并拥有焦点最小化方式并拥有焦点3 3最大化方式并拥有焦点最大化方式并拥有焦点4,84,8正常方式并无焦点正常方式并无焦点6,76,7最小化方式并无焦点最小化方式并无焦点Shell函数Shell函数调用应用程序成功后，返回一个任务标识（task id），它是执行程序的唯一标识。 x=shell(c:windowsnotepad.exe,1) x = Shell(c:windowsSystem32winmine.exe, 1)注意：x不能省略。Shell函数以异步方式来执行其他程序。 i = Shell(c:windowscalc.exe)i = Shell(c:windowscalc.exe) j = Shell(c:command.com, 1)j = Shell(c:command.com, 1)ShellShell函数应用示例函数应用示例本讲小结介绍了介绍了VBVB常用的内部函数。常用的内部函数。学习了学习了VBVB的基本语句的基本语句赋值语句赋值语句输出语句输出语句InputBoxInputBox和和MsgBoxMsgBox函数函数FormatFormat函数函数