VB程序题：设计如图G.2所示的计算程序。

VB程序题：设计如图G.2所示的计算程序。

图G.2：

解题，如上图所示，在窗体画出相应的控件，其中文本框用于输入参数，按钮下面的label1用于接收结果（Label1的BorderStyle属性设置为1)。
设计如图G.2所示的计算程序的VB源码如下：

Private Sub Check1_Click()
    Text1.FontBold = Not Text1.FontBold
End Sub

Private Sub Check2_Click()
    Text1.FontItalic = Not Text1.FontItalic
End Sub

Private Sub Command1_Click()
    x = Val(Text1.Text)
    If Option1.Value = True Then Label1.Caption = Sin(x)
    If Option2.Value = True Then Label1.Caption = Exp(x)
    If Option3.Value = True Then Label1.Caption = Sqr(x)
End Sub

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

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/100.html