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

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

    << 上一篇 下一篇 >>

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