Question

vb题目 求解

Answer 1

如图

Answer 2

Private Sub Form_Load()
    List1.Clear
    List2.Clear
    List1.AddItem "高一"
    List1.AddItem "高二"
    List1.AddItem "高三"
End Sub

Private Sub List1_Click()
    List2.Clear
    Select Case List1.ListIndex
        Case 0
            List2.AddItem "WORD 高级应用"
            List2.AddItem "EXCEL 应用"
            List2.AddItem "VB 语言基础"
        
        Case 1
            List2.AddItem "access 应用"
            List2.AddItem "VB 程序设计"
            List2.AddItem "Flash 动画"
            List2.AddItem "Photoshop 应用"
            
        Case 2
            List2.AddItem "dreamweaver 网页设计"
            List2.AddItem "firework 应用"
            List2.AddItem "coredraw 应用"
            List2.AddItem "asp 动态网页设计"
            List2.AddItem "C# 程序设计"
    End Select
End Sub

Private Sub Command1_Click()
    Label1.Caption = "你的选修科目是:" & List2.List(List2.ListIndex)
End Sub

Answer 3

Private Sub Command1_Click()
  Label3.Caption = "您的选修科目是：" + List2.Text
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
  List1.AddItem "高一"
  List1.AddItem "高二"
  List1.AddItem "高三"
  
End Sub

Private Sub List1_Click()
  If List1.Text = "高一" Then
    List2.Clear
    List2.AddItem "WORD 高级应用"
    List2.AddItem "EXCEL 应用"
    List2.AddItem "VB语言基础"
  End If
  If List1.Text = "高二" Then
    List2.Clear
    List2.AddItem "Access 应用"
    List2.AddItem "VB 程序设计"
    List2.AddItem "Flash 动画"
    List2.AddItem "Photoshop 应用"
  End If
  If List1.Text = "高三" Then
    List2.Clear
    List2.AddItem "Ddreamweaver 网页设计"
    List2.AddItem "Firework 应用"
    List2.AddItem "Coredraw 应用"
    List2.AddItem "asp 动态网页设计"
    List2.AddItem "C# 程序设计"
  End If
End Sub