1. 建立一个EXE工程，在窗体上放两个Frame框。
2. 分别放两组单选按钮表示性别和收入，注意每组单选按钮的组名要一样。
3. 在按钮中输入代码：

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)If Frame1.Visible ThenFrame1.Visible = FalseOption1.Visible = False 'Frame只是起视觉上分组的作用Option2.Visible=FalseElseFrame1.Visible = TrueOption1.Visible = TrueOption2.Visible=trueEnd IfEnd Sub

运行结果如图34：