VB程序计014.pptVIP

第三章 VB语言基础 学习目标 内部函数 数学函数 字符串函数 日期函数 格式函数 输入 / 输出函数 外壳函数 习题总结 日期与时间函数 日期与时间函数 时间函数 hour()、minute()、second() 求日期差 DateDiff(interval, date1, date2) 今天到奥运会开幕还有 多少天？ DateDiff(“d”, now, #08/08/2008#) 输出与输入函数 输出函数 msgBox 输入函数 inputBox 输出函数 示例：求正数的平方根 －代码： Private Sub Command1_Click() dim a as single a=val(text1) text1=sqr(a) End Sub －缺点： 当a非正数时，程序崩溃 当a非数值时，结果为０ 输出函数 －改进： 　利用分支语句进行判断，根据情况给予相应提示 输出函数 －设置属性： 输出函数 －代码： 　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 输出函数 －函数 isnumeric(x) 　功能：判断x的数据类型。若为数值则返回真，否则假 －语句 msgbox 　功能：显示一个输出对话框 　格式： msgbox 信息，按钮图标代码，标题 输出函数 －信息图标代码 　用法： 　　按钮＋图标 输出函数 MsgBox语句 例：MsgBox　“请输入整数”, 48, “警告” MsgBox函数 格式： 变量＝MsgBox(提示，按钮，标题) 区别： 采用变量保存返回值，MsgBox后面有括号 返回值：代表了被按下的是哪一个按钮 １－确定；２－取消；３－终止；４－重试； ５－忽略；６－是；７－否； 输入函数 功能：显示输入对话框，并将输入内容存于变量中。 格式： 变量＝inputbox(提示[，标题，默认，坐标….]) 其中[　]表示可选项。 示例： 　 a=inputbox(“请输入您的姓名”,“输入框”) 　将对话框中的内容赋给变量a 输入函数 简单应用：首先出现一个对话框，用户在这里输入姓名，然后窗体中的文本框显示“某某，你好！”。 设置：放置一个标签，设置font为楷体粗２号，borderstyle为1，AutoSize为true（自动尺寸） 代码： 　 Private Sub Form_Load() 　 a$ = InputBox(请输入您的姓名) 　 Label1.Caption = a ，你好！ 　 End Sub 输入 / 输出应用 输入圆的半径，计算并输出其面积。 要求：用InputBox完成输入，用MsgBox完成输出。 输入 / 输出应用 代码： Const pi = 3.1415926 Private Sub Form_Load() Dim t$, r as variant, s# t = 请输入圆的半径并单击确定以 Chr(13) Chr(10) 计算圆的面积，单击取消退出“ r = InputBox$(t, 输入框, , 4000, 4000) If r = Then End r = Val(r) s = pi * r * r MsgBox “圆的面积为: Format(s, #######.####), 64, 计算结果“ Call Form_Load End Sub 输入 / 输出应用 说明 程序中的chr(13) chr(10) 代表了回车换行，可用系统常量VBcrlf代替 程序中的64即vbOKOnly+vbInformation 外壳函数 Shell函数（P76） 功能：轻松调用外部程序 格式：Shell ( 路径, 参数) 参数：0－隐藏，1－正常，3－最大化 举例： x=shell(c:\windows\winmine,1) 调出扫雷游戏 －若不需要返回值，简写为： 　shell c:\window