资源描述
,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,第三章 VB语言基础,1,学习目标,内部函数,数学函数,字符串函数,日期函数,格式函数,输入,/,输出函数,外壳函数,2,日期与时间函数,函数名,含义,示例,Date (),当前日期,Date,Time(),当前时间,Time,Now,日期时间,Now,Month(C),求月,Month(now),Year(C),求年,Year(now),Day(C),求日,Day(now),MonthName(N),求中文月份名,MonthName(9),WeekDay(),求日期,WeekDay(now),WeekDayName(N),求中文星期名,WeekDayName(4),3,日期与时间函数,时间函数,hour()、minute()、second(),求日期差,DateDiff(interval, date1, date2),今天到离国庆还有多少天？,DateDiff(“d”,now,#10/01/2009#),yyyy,年,m,月,d,日,w,一周的日数,h,小时,n,分钟,s,秒,4,格式函数,Format,函数,Format (,表达式,格式,),Format (3, 0.000),输出,3.000,Format (2345, $#,#),输出,$2,345,Format (5.1,“0%”),输出,510%,Format(date,“yyyy,年,mm,月,dd,日,”),5,输出与输入函数,输出函数,msgBox,输入函数,inputBox,msg=message,信息,6,输出函数,示例：求正数的平方根,代码：,Private Sub Command1_Click(),dim a as single,a=val(text1),text1=sqr(a),End Sub,缺点：,当a非正数时，程序崩溃,当a非数值时，结果为,7,输出函数,改进：,利用分支语句进行判断，根据情况给予相应提示,8,输出函数,设置属性：,form1,caption,计算正数的平方根,text1,text,“”,command1,caption,计算平方根,command2,caption,清除,9,输出函数,代码：,Private Sub Command1_Click(),If IsNumeric(Text1) = False Then,MsgBox 请输入有效的正数, 48, 提示信息,ElseIf Val(Text1) 0 Then,MsgBox 请输入正数, 48, 提示信息,Else,Text1 = Sqr(Val(Text1),End If,End Sub,Private Sub Command2_Click(),Text1 = ,Text1.SetFocus,End Sub,10,输出函数,函数,isnumeric(x),功能：判断x的数据类型。若为数值则返回真，否则假,语句 msgbox,功能：显示一个输出对话框,格式：,msgbox,信息，按钮图标代码，标题,MsgBox 请输入正数, 48, 提示信息,11,输出函数,信息图标代码,用法：,按钮图标,例：取值21,12,输出函数,MsgBox,语句,例：,MsgBox,“,请输入整数”, 48, “,警告”,MsgBox,函数,格式：,变量,MsgBox,(,提示，按钮，标题,),区别：,采用变量保存返回值，,MsgBox,后面有括号,返回值：代表了被按下的是哪一个按钮,确定；取消；终止；重试；,忽略；是；否；,13,输入函数,功能：显示输入对话框，并将输入内容存于变量中。,格式：,变量,inputbox,(,提示,，标题，默认，坐标,.,),其中,表示可选项。,示例：,a=,inputbox,(“,请输入您的姓名”,“,输入框”,),将对话框中的内容赋给变量,a,14,输入函数,简单应用：首先出现一个对话框，用户在这里输入姓名，,然后窗体中的文本框显示“某某，你好！”。,设置：放置一个标签，设置,font,为楷体粗号，,borderstyle,为,1,，,AutoSize,为,true,（,自动尺寸）,代码：,Private Sub Form_Load(),a$ =,InputBox,(,请输入您的姓名,),Label1.Caption = a & ,，,你好！,End Sub,Form_load：,窗体加载事件,15,输入 / 输出应用,输入圆的半径，计算并输出其面积。,要求：用,InputBox,完成输入，用,MsgBox,完成输出。,16,输入 / 输出应用,代码：,Const pi = 3.1415926,Private Sub Form_Load(),Dim t$, r as variant, s#,t = “,请输入圆的半径并单击确定以”,& Chr(13) & Chr(10) & “,计算圆的面积，单击取消退出”,r =,InputBox$(t, ,输入框,),If r = Then End,r = Val(r),s = pi * r * r,MsgBox,“,圆的面积为,:” & Format(s, “#.#”), 64, “,计算结果”,Call Form_Load,End Sub,17,输入 / 输出应用,说明,程序中的,chr(13) & chr(10),代表了回车换行，可用系统常量,VBcrlf,代替,程序中的,64,即,vbOKOnly,+,vbInformation,18,外壳函数,Shell,函数,功能：轻松调用外部程序,格式：,Shell (,路径,参数,),参数,：,0,隐藏，,1,正常，,3,最大化,举例：,x=shell(c:windowssystem32winmine,1),调出扫雷游戏,若不需要返回值，简写为：,shell c:windowssystem32winmine,1,19,外壳函数,示例：我的工具箱,20,外壳函数,步骤,画出,6,个按钮,适当设置窗体与按钮,利用形状控件做装饰,要点,Shell “c:Program Files,TencentQQQQ.exe,”, 1,调出,QQ,但要注意路径。,Shell “Explorer /e”, 3,可最大化我的电脑,Shell “Shutdown -s”, 0,WinXP,中关机命令，,Win2000,中要使用需拷贝到,c:winnt,目录中。,21,外壳函数,代码：,Private Sub Command1_Click(),Shell “C:Program FilesInternet ExplorerIEXPLORE.EXE”, 1,End Sub, ,以下由各位自己完成，努力吧！,注意不同的机器路径可能不同！,22,
展开阅读全文