VB程序题：利用单选按钮，选择目的地和车速类型，显示从上海出发到目的地座票的票价，如图2.3.7所示。从上海到南京、北京乘火车有3种车速类型：高铁（二等）、动车、快车，座位票的票价见表2.3.2 ……

VB程序题：利用单选按钮，选择目的地和车速类型，显示从上海出发到目的地座票的票价，如图2.3.7所示。从上海到南京、北京乘火车有3种车速类型：高铁（二等）、动车、快车，座位票的票价见表2.3.2。当选择了目的地、车速类型单选按钮后，在Label1控件显示选择的相关信息和车票价格。--- Visual Basic程序设计教程(第4版) (龚沛曾等编) 课后实验源码

图2.3.7

提示：
Command1_Click事件采用一个双分支（目的地）结构分别嵌套一个多分支（车速类型）来实现；显示的内容通过各单选按钮的Caption属性来获得。

解题：按要求建立相应的控件，VB源代码如下：

Private Sub Command1_Click()
    If Option1.Value = True Then
        If Option3.Value = True Then
            Label1.Caption = "从上海到南京 高铁价格 140元"
        ElseIf Option4.Value = True Then
            Label1.Caption = "从上海到南京 动车价格 93元"
        Else
            Label1.Caption = "从上海到南京 快车价格 47元"
        End If
    Else
        If Option3.Value = True Then
            Label1.Caption = "从上海到北京 高铁价格 555元"
        ElseIf Option4.Value = True Then
            Label1.Caption = "从上海到北京 动车价格 410元"
        Else
            Label1.Caption = "从上海到北京 快车价格 179元"
        End If
    End If
 End Sub

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

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb98.com/post/141.html