VB 程序设计04课件.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