山东建筑大学VB考试程序汇总.docVIP

学生成绩（原版） 饭店点菜 学生成绩（依次输入） 滚动字幕 字母统计 （原版） 字母统计（学生） 试题 图形（1） 图形（2） 图形（3） 鸡兔同笼（原版） 鸡兔同笼（完美版） 温度转换 百元买百鸡－穷举法 优化下料（完善版程序） 猴子吃桃——递推法（完善版） 100以内的素数 57倍数的和－累加 （最终结果为1680） Move（方法1） Move（方法2） Print方法 方案一form-click（不到一分钟按一分钟） 方案二time-mid 方案三time-hour 方法一：三重循环 方法二：单循环取整函数分离三位数 方法三：取模整除函数 实验二： 1、温度转换 Private Sub Command1_Click() f = Val(Text1.Text) c = (f - 32) * 5 / 9 Text2.Text = Str(c) End Sub Private Sub Command2_Click() c = Val(Text2.Text) f = 9 * c / 5 + 32 Text1.Text = Str(f) End Sub 3、Print方法练习 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - i, ＊); Spc(6); String(i, ＊) Next i End Sub 4、圆周长面积 Private Sub Command1_Click() Dim r!, m!, z! Const p = 3.14 r = InputBox(请输入半径) m = p * r * r / 4 z = 2 * p * r Print 圆的面积为：, m Print 圆的周长为：, z End Sub 5、鸡兔同笼 Private Sub Form_Click() Dim m%, n% m = InputBox(请输入总头数) n = InputBox(请输入总脚数) If n Mod 2 = 0 And n = 2 * m And n = 4 * m Then y = n / 2 - m x = m - y Else MsgBox 参数错误，请重新输入！ End If Print 已知，总头数m为：; m, 总脚数n为：; n Print 求得， 鸡数x为：; x, 兔数 y 为：; y End Sub 实验三：2、计算电话费 Private Sub Command1_Click() Dim st!, hours!, Money! Dim date1 As Data, date2 As Data date1 = CDate(Text1.Text) date2 = CDate(Text2.Text) st = DateDiff(s, date1, date2) / 60 求两时间相差的分钟数 Text3.Text = Format(st, 0.00) + 分钟 If st = 3 Then 计算通话费 Money = 0.5 Else Money = 0.5 + (st - 3) * 0.15 End If hours = Val(Mid(Text1, 1, 2)) If hours 7 Or hours 19 Then 是否在优惠的时间段内 Money = Money * 0.5 End If Text4.Text = Format(Str(Money), ￥0.00) + 元 End Sub 实验四： 水仙花数 Private Sub Form_Click() Dim i%, a%, b%, c% For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If