当前位置:首页 » VB程序题 » 正文

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程序设计教程(第四版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://www.wb98.com/post/140.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号