Visual-Basic程序设计初步.pptVIP

Visual Basic程序设计初步 平桥镇中学 庞明阳 输入出生年月，计算年龄和离出生的天数 【新建工程】对话框 认识Visual Basic 的工作界面 主窗口 认识Visual Basic 的工作界面 工程资源管理器窗口 属性窗口 窗体设计器窗口 控件工具箱 窗体布局窗口 工具栏 标题栏 菜单栏 输入出生年月，计算年龄和离出生天数了 Dim tianshu As Integer, nianlin As Integer tshu = Date - CDate(Text1.Text) 计算天数 nlin = Year(Date) - Year(CDate(Text1.Text)) + 1 计算年龄 Label3.Caption = 你的年龄是： nlin Chr(13) Chr(10) _ 距离出生： tshu 天 输入出生年月，计算年龄和离出生天数了 Dim tianshu As Integer, nianlin As Integer If IsDate(Text1.Text) Then tianshu = Date - CDate(Text1.Text) 计算天数 nianlin = Year(Date) - Year(CDate(Text1.Text)) + 1 计算年龄 Label3.Caption = 你的年龄是： nlin Chr(13) Chr(10) _ 距离出生： tshu 天 Else MsgBox (请按日期格式输入出生年月) End If 1、创建工程 2、定制窗体 添加控件 设置属性 3、添加代码 4、运行程序 5、生成可执行文件 VB应用程序的开发步骤 VB的内部函数大体上可以分为4类： 数学函数 abs()、sqr()、rnd() …… 转换函数 val()、str()、int() …… 字符串函数 mid()、len()、space() …… 时间函数 year()、date()、time() …… VB常用函数 课本P35练习1 X=val(text1.text) Select Case x case x=90 text2.text=“A” case x=80 text2.text=“B” case x=70 text2.text=“C” case x=60 text2.text=“D” case Else text2.text=“E” End Select 运行后，若输入85，则输出为：___ 1、case后面结果为布尔值，如果是Ture就执行，否则进入下一个case。 2、表达式列表 可以是表达式、一组用逗号分隔的枚举值、表达式1 to 表达式2、Is关系运算符表达式；如： Case 1 to 10 Case a,w,e,t Case 2,4,6,8,is10 3、case x=80，系统的判断是：x=x=80，即x=ture。在VB里Ture转换为数字 -1，Flash转换为数字0。 Dim i As Integer, cj As Single For i = 1 To 10 cj = Round(Rnd * 50) + 50 Print i, cj; Select Case cj Case Is = 90 Print A Case Is = 80 Print B Case Is = 70 Print C Case Is = 60 Print D Case Else Print E End Select Next i Dim i As Integer, cj As Single i = 1 Do While cj = 0 cj = Val(InputBox(请输入第 i 个学生成绩)) If cj 0 Then Print i, cj; i = i + 1