Question

求vb编程题目

Answer 1

Dim OperatingSystem As String, OtherEquipment As String

Private Sub Command1_Click()
  Text2.Text = ""
  OtherEquipment = ""
  For i = 0 To 2
    If Check1(i).Value = 1 Then
      OtherEquipment = OtherEquipment + Check1(i).Caption + vbCrLf
    End If
  Next i
  Text2.Text = Text2.Text + Combo1.Text + vbCrLf + OperatingSystem + vbCrLf + Text1.Text + vbCrLf + OtherEquipment
End Sub

Private Sub Form_Load()
  Combo1.AddItem "联想"
  Combo1.AddItem "方正"
  Combo1.AddItem "IBM"
  Combo1.AddItem "ComPaq"
  Combo1.AddItem "兼容机"
End Sub

Private Sub Option1_Click(Index As Integer)
  OperatingSystem = Option1(Index).Caption
End Sub