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

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://www.wb98.com/post/141.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

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