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