1、Visual Basic程序设计初步,平桥镇中学 庞明阳,输入出生年月，计算年龄和离出生的天数,【新建工程】对话框,认识Visual Basic 的工作界面,主窗口,认识Visual Basic 的工作界面,工程资源管理器窗口,属性窗口,窗体设计器窗口,控件工具箱,窗体布局窗口,工具栏,标题栏,菜单栏,输入出生年月，计算年龄和离出生天数了,Dim tianshu As Integer, nianlin As Integertshu = Date - CDate(Text1.Text) 计算天数nlin = Year(Date) - Year(CDate(Text1.Text) + 1 计算年龄
2、Label3.Caption = “你的年龄是：“ & nlin & Chr(13) & Chr(10) & _ “距离出生：“ & tshu & “天“,输入出生年月，计算年龄和离出生天数了,Dim tianshu As Integer, nianlin As IntegerIf IsDate(Text1.Text) Thentianshu = Date - CDate(Text1.Text) 计算天数nianlin = Year(Date) - Year(CDate(Text1.Text) + 1 计算年龄Label3.Caption = “你的年龄是：“ & nlin & Chr(13)
3、 & Chr(10) & _ “距离出生：“ & tshu & “天“ElseMsgBox (“请按日期格式输入出生年月“)End If,1、创建工程 2、定制窗体 添加控件 设置属性 3、添加代码 4、运行程序 5、生成可执行文件,VB应用程序的开发步骤,VB的内部函数大体上可以分为4类：数学函数 abs()、sqr()、rnd() 转换函数 val()、str()、int() 字符串函数 mid()、len()、space() 时间函数 year()、date()、time() ,VB常用函数,课本P35练习1X=val(text1.text) Select Case xcase x=90
4、text2.text=“A”case x=80text2.text=“B”case x=70text2.text=“C”case x=60text2.text=“D”case Elsetext2.text=“E” End Select 运行后，若输入85，则输出为：_,1、case后面结果为布尔值，如果是Ture就执行，否则进入下一个case。2、表达式列表 可以是表达式、一组用逗号分隔的枚举值、表达式1 to 表达式2、Is关系运算符表达式；如：Case 1 to 10Case “a“,“w“,“e“,“t“Case 2,4,6,8,is10 3、case x=80，系统的判断是：x=x=8
5、0，即x=ture。在VB里Ture转换为数字 -1，Flash转换为数字0。,Dim i As Integer, cj As Single For i = 1 To 10cj = Round(Rnd * 50) + 50Print i, cj;Select Case cjCase Is = 90Print “A“Case Is = 80Print “B“Case Is = 70Print “C“Case Is = 60Print “D“Case ElsePrint “E“End Select Next i,Dim i As Integer, cj As Single i = 1 Do Whi
6、le cj = 0cj = Val(InputBox(“请输入第“ i = i + 1Select Case cjCase Is = 90Print “A“Case Is = 80Print “B“Case Is = 70Print “C“Case Is = 60Print “D“Case ElsePrint “E“End SelectEnd If Loop,请输入一张纸的厚度(毫米)，算出多少次对折后，将超过珠峰(8848m)的高度。,Dim houd As Single, n As Integer houd = Val(Text1.Text) n = 0 Do While houd = 8
7、848000houd = houd * 2n = n + 1 Loop Print “一张纸经过” & n & _“次对折后” & “高” & round(houd/1000,2) & “米”,循环结构,打印乘法口决表 Dim i as integer,j as integer For i = 1 To 9For j = 1 To iPrint Tab(j-1)*15) j; “; i; “=“; i * j;Next jPrint Next i,循环结构,房货计算器 等额本息还款法: 每月月供=贷款本金月利率(1月利率)还款月数(1月利率)还款月数-1 总利息=还款月数每月月供额-贷款本金,作业,作业,简单计算器,
