.VB控制结构.pptVIP

练习4 求一元二次方程根 对比例题5-3 5：已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符。 * 结构化程序设计思想 自顶向下、逐步细化、模块化 自顶向下：先从全局、整体设计 逐步细化：将一个问题分解成几个较小的问题解决 模块化： 将一个大任务分解成若干个较小的部分， 每 个部分承担一定功能，称为“功能模块” 第五章 VB 控制结构 练习一 输入时间（小时，分和秒），然后使用输出消息框输出总计多少秒。 使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图所示。 程序运行界面 顺序结构 Private Sub Form_Load() 初始化对象属性 Form1.Caption = 计算时间 Label1.Caption = 小时 Label2.Caption = 分： Label3.Caption = 秒： Text1 = : Text2 = : Text3 = Command1.Caption = 计算 Command2.Caption = 结束 End Sub Private Sub Command1_Click() 计算 Dim hh%, mm%, ss%, Totals! Dim Outstr$ hh = Val(Text1) mm = Val(Text2) ss = Val(Text3) Totals = hh * 3600 + mm * 60 + ss Outstr = hh 小时 mm 分 ss 秒 Outstr = Outstr vbCrLf 总计： Totals 秒 MsgBox Outstr, , 输出结果 End Sub Private Sub Command2_Click() End End Sub 练习二 编一程序，求一内半径R1=10cm，外半径R2=20cm的球环的体积。要求按四舍五入保留到小数点后4位。球的体积公式 : 本题所求的球环面的体积公式 : Private Sub Form_Click() Dim R1 As Double, R2 As Double R1，R2 表示球的内外半径 Dim Vol As Double Vol表示体积 Const PI# = 3.1415926 定义符号常量PI代表π R1 = 10: R2 = 20 Vol = 4 / 3 * PI * (R2 ^ 3 - R1 ^ 3) Vol = Fix(Vol * 10000 + 0.5) / 10000 保留小数点后4位 Print 球环的体积：V=; Vol; 立方厘米 End Sub Private Sub Form_Click() Dim r!, s!, d!, pi pi = 3.14159 r = InputBox(请输入圆的半径：) s = r * r * pi d = 2 * pi * r Print r=, r Print s=, s Print d=, d End Sub 练习三 已知半径R, 求园的面积s和周长d Private Sub Form_Click() Dim a!, b!, c!, s!, area! a = InputBox(请输入a：) b = InputBox(请输入b：) c = InputBox(请输入c：) s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) Print area=, area End Sub 练习四 已知三边长a,b,c,求三角形面积area area=Sqr(s *(s-a)*(s-b)*(s-c)) s=(a+b+c)/2 练习1 从键盘输入两个整数x和y，输出两者中的大者。 Private Sub Form_Click() Dim x%, y%, max%, ms$ x = Val(InputBox(请输入一个整数给x)) y = Val(InputBox(请输入一个整数给y)) max = x If max y Then max = y ms = (x , y 两者中的大数是： max)