VB程序题：设计如图2.3.6所示的计算程序。当输入参数，选择“函数”和“字形”后单击“计算”按钮，在Label3以选择的字形显示计算的结果。Visual Basic程序设计教程(第四版) 龚沛曾

VB程序题：设计如图2.3.6所示的计算程序。当输入参数，选择“函数”和“字形”后单击“计算”按钮，在Label3以选择的字形显示计算的结果。

图2.3.6

提示：
关于“字形”复选框的选用采用逐个判断选择，进行属性值的对应设置。字形的属性见表2.3.1，设置属性值为True时其属性起作用。

解题：按要求相应的控件。相应的代码如下：

Private Sub Command1_Click()
    If Option1.Value Then
        Label3.Caption = "Sin(" & Text1.Text & ")=" & Sin(Val(Text1.Text))
    ElseIf Option2.Value Then
        Label3.Caption = "Exp(" & Text1.Text & ")=" & Exp(Val(Text1.Text))
    Else
        Label3.Caption = "Sqr(" & Text1.Text & ")=" & Sqr(Val(Text1.Text))
    End If
    If Check1.Value Then
        Label3.FontBold = True
    Else
        Label3.FontBold = False
    End If
    If Check2.Value Then
        Label3.FontItalic = True
    Else: Label3.FontItalic = False
    End If
    If Check3.Value Then
        Label3.FontUnderline = True
    Else
        Label3.FontUnderline = False
    End If
End Sub

程序运行效果图如下：

Visual Basic程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：https://wb98.com/post/140.html