运行界面 (计算一元二次方程的实根）
第五章 常 用 控 件
5.1单选按钮和复选框形状控 件 5.2列表框和组合框 5.3 滚动条和Slide控件 5.4时钟 5.5 图片框和图像框 5.5 ProgressBar控件 5.7 UpDown控件 5.8 Animation控件 5.9 SSTab控件 5.10 鼠标器和键盘
Text1.ForeColor = vbRed End Sub
Private Sub ption4_Click() If Option4.Value Then _
Text1.ForeColor = vbBlue End Sub
复选框 （CheckBox）也 称作、选择框。 一组复选框控件 可以提供多个选 项 重要属性：
q = Sqr(d) / (2 * a) X1 = p + q ： X2 = p - q Else X1 = p ： X2 = p End If Else q = Sqr(-d) / (2 * a)
p = CInt(p * 100) / 100 : q= CInt(q * 100) / 100
X1 = p& "+" & q & "I " : X2 = p & "-" & q & "I" End if Text4.Text = X1 ： Text5.Text = X2 End sub
求阶乘1!+2!+3!+……+10!的和
Private Sub Command1_Click() p=1 For i = 1 To 10 p=p*i Sum = Sum + p Next i
Print "1!+2!+3!+……+10!="; Sum End Sub
Private Sub Command1_Click() b=1 :a=2 :i=1 Print "no."; i; "="; a; "/"; b For i = 2 To 20 a = a+b b = a-b Print "no."; i; "="; a; "/"; b Next i
Caption、 Vlalue、Style与 单选钮相同
复选框
Private Sub Check1_Click() If Check1.Value = vbChecked Then Text1.FontBold = True End Sub (错误的写法)
Private Sub Check2_Click() If Check2.Value = vbChecked Then
5.1 单选钮和复选框、框架
1单选钮 （OptionButton） 一组彼此相互排斥 的选项，任何时刻 用户只能从中选择 一个选项，实现一 种“单项选择”的 功能，被选中项目 左侧圆圈中会出现 一黑点。
单选按钮
Private SubOption3_Click() If Option3.Value Then _
End Sub
运行结果
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3)
L = a + b <= c Or b + c <= a Or c + a <= b If L Then Text4 = "不能构成三角形" : Exit Sub If a <> b Or b <> c Or c <> a Then Text4 = "一般三角形“ If a = b Or b = c Or c = a Then Text4= "等腰三角形" If a = b And b = c And c = a Then Text4 = "等边三角形"
End Sub
例：输入三角形的三条边长，计算三 角形面积。
界 面
程序代码Байду номын сангаас
Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) L = A + B > C And B + C > A And C + A > B If L Then S = (A + B + C) / 2 Area = Sqr(S * (S - A) * (S - B) * (S - C)) Text4.Text = Area Else Text4.Text = "不能构成三角形“ End If
S = (a + b + c) / 2
Area = Sqr(S * (S - a) * (S - b) * (S - c))
Text4.Text = Area
End Sub
界面设计(计算一元二次方程的实根）
代码设计 (计算一元二次方程的根）
Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d=b*b-4*a*c p = -b / (2 * a)
If d > 0 Then
r = Sqr(d) / (2 * a)
X1 = p + r
X2 = p – r
endif
If d = 0 Then X1 = p : X2 = p If d < 0 Then
q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub
代码设计 方法二： (计算一元二次方程的根）
Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d=b*b-4*a*c p = -b / (2 * a)
接下页：
If d >= 0 Then
If d > 0 Then