vb程序设计测试题

Private Sub Command1_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

If n < 18 Then

Print n; "少年"

ElseIf n >= 18 And n < 45 Then

Print n; "青年"

ElseIf n >= 45 And n <= 59 Then

Print n; "中年"

ElseIf n > 59 Then

Print n; "老年"

Else

Print n; "输入年龄错误"

End If

End Sub

Private Sub Command2_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

Select Case n

Case Is < 18

Print n; "少年"

Case Is > 59

Print n; "老年"

Case Is >= 18

Select Case n

Case Is < 45

Print n; "青年"

Case Else

Print n; "中年"

End Select

Case Else

Print n; "输入年龄错误"

End Select

End Sub

Private Sub Form_Load()

Me.Caption = "年龄段划分"

Command1.Caption = "使用if"

Command2.Caption = "使用select"

End Sub

1.新建工程：工程1；

2.新建一下ComboBox控件：Combo1,并将属性Style改为2；

3.新建五个Label:Label1，Label2，Label3,Label4，Label5;

4.新建两个Text文本框:Text1,Text2

5.新建一个CommandButton按钮:Command1;

以上的相关控件不要改名字，位置也不用设定，程序会自动设定好。

将下面的代码COPY进去就行了

Private Sub Form_Load()

    Form1.Caption = "加油站计费程序"

    Form1.Width = 3800

    Form1.Height = 3300

    Label1.Caption = "种类"

    Label1.Move 900, 200

    Label1.AutoSize = 1

    With Combo1

        .AddItem ("90号")

        .AddItem ("95号")

        .AddItem ("100号")

        .Move 500, 500, 1200

    End With

    Label2.Caption = "单价(元/升)"

    Label2.Move 2000, 200

    Label2.AutoSize = 1

    Label3.Caption = "0"

    Label3.Move 2200, 550

    Label3.Width = 500

    Label4.Caption = "数量"

    Label4.Move 900, 1000

    Label4.AutoSize = 1

    Text1.Move 500, 1300, 1200, 300

    Text1.Text = 0

    Text1.Alignment = 1

    Label5.Caption = "总价(元)"

    Label5.Move 2100, 1000

    Label5.AutoSize = 1

    Text2.Move 1900, 1300, 1200, 300

    Text2.Text = 0

    Text2.Enabled = False

    Text2.Alignment = 1

    Command1.Caption = "计算"

    Command1.Move 1320, 1920, 1095, 375

End Sub

Private Sub Combo1_Click()

    Select Case Combo1.Text

        Case "90号": Label3.Caption = "2.30"

        Case "95号": Label3.Caption = "2.45"

        Case "100号": Label3.Caption = "2.60"

    End Select

    Text1.SetFocus

    Text1.SelLength = Len(Text1.Text)

End Sub

Private Sub Command1_Click()

    On Error Resume Next

    Text2.Text = Format(Val(Text1.Text) * Val(Label3.Caption), "0.00")

End Sub