Question

vb编程超简单

vb编程超简单如图





Answer 1

Private Sub Command1_Click()
  Text2.Text = ""
  Text2.Text = Text2.Text + Text1.Text
  For i = 0 To 2
    If Option1(i).Value = True Then
      Text2.Text = Text2.Text + Space(3) + "职称：" + Option1(i).Caption + Space(3)
    Else
      Option1(i).Enabled = False
    End If
  Next i
  Text2.Text = Text2.Text + "爱好："
  For i = 0 To 2
    If Check1(i).Value = 1 Then
      Text2.Text = Text2.Text + Check1(i).Caption + Space(1)
    Else
      Check1(i).Enabled = False
    End If
  Next i
  Text2.Text = Text2.Text + Space(2) + "籍贯：" + List1.List(List1.ListIndex) + Space(3)
  Text2.Text = Text2.Text + "部门：" + Combo1.Text
End Sub

Private Sub Command2_Click()
  End
End Sub

Private Sub Form_Load()
  Option1(0).Caption = "初级"
  Option1(1).Caption = "中级"
  Option1(2).Caption = "高级"
  Check1(0).Caption = "音乐"
  Check1(1).Caption = "体育"
  Check1(2).Caption = "绘画"
  List1.AddItem "北京市"
  List1.AddItem "江苏省"
  List1.AddItem "江西省"
  List1.AddItem "山东省"
  List1.AddItem "山西省"
  List1.AddItem "浙江省"
  List1.AddItem "辽宁省"
  List1.AddItem "天津市"
  List1.AddItem "湖南省"
  List1.AddItem "河北省"
  List1.AddItem "上海市"
  List1.AddItem "广东省"
  Combo1.AddItem "电子系"
  Combo1.AddItem "数学系"
  Combo1.AddItem "计算机系"
  Combo1.AddItem "物理系"
  Combo1.AddItem "化学系"
  Combo1.AddItem "天文系"
  Combo1.AddItem "地质系"
  Combo1.AddItem "医学系"
  Text1.Text = ""
  Text2.Text = ""
  
End Sub

Private Sub Frame1_Click()
  For i = 0 To 2
    If Option1(Index).Value = False Then Option1(Index).Enabled = False
  Next i
End Sub

Answer 2

字符串拼接而已

if check1.value=1 then s=s & "内容"

诸如此类