Question

vb程序设计

Private Sub Check1_Click()
If Check1.Value = 1 Then
Frame1.Enabled = True
Else
Frame1.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Frame2.Enabled = True
Else
Frame2.Enabled = False
End If
End Sub

Private Sub Command1_Click()
If Check1.Value = 1 Then
'If ? = True Then
s = "古典音乐"
Else
s = "流行音乐"
End If
End If
If Check2.Value = 1 Then
'If ? = True Then
s = s & "篮球"
Else
s = s & "羽毛球"
End If
End If
'Label2.Caption = ?
End Sub

Private Sub Form_Load()
Check1.Value = 1
Check2.Value = 1
End Sub
要求：画连个框架，名称分别为frame1.frame2.在frame1中田间一个名为option1的单选按钮数组，含两个单选钮，标题分别为"古典音乐”，
“流行音乐”，在名称为frame2中添加二个单选按钮，名称分别为option2.option3.标题分别“篮球”“羽毛球”。刚运行程序时，“古典音乐”“篮球”单选钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签label2中。

Answer 1

Public A As Integer

Private Sub Command1_Click()
If Option2.Value Then
Label1.Caption = Option1(A).Caption & Option2.Caption
ElseIf Option3.Value Then
Label1.Caption = Option1(A).Caption & Option3.Caption
End If
End Sub

Private Sub Form_Load()
option1(0).value="古典音乐"
option1(1).value="流行音乐"
option2.value="篮球"
option3.value="羽毛球"
Option1(0).Value = True
Option2.Value = True
End Sub

Private Sub Option1_Click(Index As Integer)
A = Index
End Sub

Answer 2

这个是基本的，VB学习需要好的基础。打好基础，才能够提高。

Answer 3

不知道你要问什么具体的问题?
但是能够看出你的check单击之后,只会使value值永远是1 的啊..应该是变化的吧..??