VB程序设03-1.pptVIP

第三章 VB语言基础 学习目标 日期与时间函数 日期与时间函数 时间函数 －hour()、minute()、second() 求日期差 DateDiff(interval, date1, date2) 今天到离国庆还有多少天？ DateDiff(“d”,now,#10/01/2009#) 格式函数 输出与输入函数 输出函数 输出函数 输出函数 输出函数 输出函数 输出函数 输出函数 输入函数 输入函数 输入 / 输出应用 输入 / 输出应用 输入 / 输出应用 外壳函数 外壳函数 外壳函数 外壳函数 * * 内部函数 数学函数 字符串函数 日期函数 格式函数 输入 / 输出函数 外壳函数 WeekDayName(4) 求中文星期名 WeekDayName(N) WeekDay(now) 求日期 WeekDay() MonthName(9) 求中文月份名 MonthName(N) Day(now) 求日 Day(C) Year(now) 求年 Year(C) Month(now) 求月 Month(C) Now 日期＋时间 Now Time 当前时间 Time() Date 当前日期 Date () 示例 含义 函数名 秒 s 分钟 n 小时 h 一周的日数 w 日 d 月 m 年 yyyy Format函数 Format (表达式, 格式) Format (3, 0.000) 输出3.000 Format (2345, $#,###) 输出$2,345 Format (5.1,“0%”) 输出510% ? Format(date,“yyyy年mm月dd日”) 输出函数 msgBox 输入函数 inputBox msg=message 信息 示例：求正数的平方根 －代码： Private Sub Command1_Click() dim a as single a=val(text1) text1=sqr(a) End Sub 　－缺点： 当a非正数时，程序崩溃 当a非数值时，结果为０ －改进： 　利用分支语句进行判断，根据情况给予相应提示 －设置属性： 清除 caption command2 计算平方根 caption command1 “” text text1 计算正数的平方根 caption form1 代码： 　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 请输入正数, 48, 提示信息 信息图标代码 　用法： 　　按钮＋图标 64 48 32 16 重试、取消 5 是、否 4 是、否、取消 3 终止、重试、忽略 2 确定、取消 1 确定 0 图标 按钮 取值 例：取值21 MsgBox语句 例：MsgBox　“请输入整数”, 48, “警告” MsgBox函数 格式： 变量＝MsgBox(提示，按钮，标题) 区别： 采用变量保存返回值，MsgBox后面有括号 返回值：代表了被按下的是哪一个按钮 １－确定；２－取消；３－终止；４－重试； 　 ５－忽略；６－是；７－否； 功能：显示输入对话框，并将输入内容存于变量中。 格式： 变量＝inputbox(提示[，标题，默认，坐标….]) 其中[　]表示可选项。 示例： 　 a=inputbox(“请输入您的姓名”,“输入框”) 　将对话框中的内容赋给变量a 简单应用：首先出现一个对话框，用户在这里输入姓名， 然后窗体中的文本框显示“某某，你好！”。 设置：放置一个标签，设置font为楷体粗２号， borderstyle为1，AutoSize为true（自动尺寸） 代码： 　 Private Sub Form_Load() 　 a$ = InputBox