0VB编程题.docVIP

1、设计一个“健康称”程序，界面如图所示。单击“健康状况”按钮后，根据计算公式将相应提示信息通过标签显示在按钮下面。计算公式为：标准体重＝身高－105。体重高于标准体重的1.1倍为偏胖，提示 “偏胖，加强锻炼，注意节食”；体重低于标准体重的90%为偏瘦，提示 “偏瘦，增加营养”；其它为正常，提示“正常，继续保持”。 实现代码： Private Sub Command1_Click() FontSize = 48 sg = Val(Text1.Text) tz = Val(Text2.Text) bztz = sg - 105 Select Case tz Case Is 1.1 * bztz Print 偏胖，加强锻炼，注意节食 Case Is 0.9 * bztz Print 偏瘦，增加营养 Case Else Print 正常，继续保持 End Select End Sub 2、用Inputbox函数输入a,b,c的值，判定他们能否构成三角形。若能构成三角形，计算此三角形的面积。 实现代码： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox(请输入三角形第1条边长)) b = Val(InputBox(请输入三角形第2条边长)) c = Val(InputBox(请输入三角形第3条边长)) p = (a + b + c) / 2 If a = p Or b = p Or c = p Then MsgBox 不能构成三角形 Else s = Sqr(p * (p - a) * (p - b) * (p - c)) MsgBox 面积为 s End If End Sub 3、求1到150的所有整数的和。 实现代码： Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 150 sum = sum + i Next i Print sum End Sub 4、设计一个字体属性设置程序，界面如图所示。要求:程序运行后，当选择好相应的检查框和单选按钮，单击“确定”按钮后，标签的内容会发生相应变化，单击“取消”按钮则恢复默认设置。 实现代码： Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check1.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.FontName = 宋体 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.FontName = 黑体 End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.FontSize = 10 End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 12 End If End Sub 5、编写一段代码，当单击窗体时，计算出1!+2!+3!+……+10!，并在窗体上输出结果。 实现代码： Private Sub Command1_Click() For i = 1 To 10 Sum = Sum + jiecheng(i) Next Print Sum End Sub Function jiecheng(num) jiecheng = 1 For i = 1 To num jiecheng = jiecheng * i Next End Function 6