VF高手请进，选择表单设计问题。

给个邮件地址发给你!!!
一定帮你解决!!!
记得要给好评噢!!
或建立程序文件或建立表单!复制下面文件并运行!!效果一样的!!
*-- Form: form1 (d:\新建文件夹\控件\表单1.scx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT optiongroup1 AS optiongroup WITH ;
AutoSize = .T., ;
ButtonCount = 4, ;
Value = 1, ;
Height = 26, ;
Left = 145, ;
Top = 32, ;
Width = 199, ;
Name = "Optiongroup1", ;
Option1.Caption = "北京", ;
Option1.Value = 1, ;
Option1.Height = 16, ;
Option1.Left = 5, ;
Option1.Style = 0, ;
Option1.Top = 5, ;
Option1.Width = 45, ;
Option1.AutoSize = .F., ;
Option1.Name = "Option1", ;
Option2.Caption = "上海", ;
Option2.Height = 16, ;
Option2.Left = 53, ;
Option2.Style = 0, ;
Option2.Top = 5, ;
Option2.Width = 45, ;
Option2.AutoSize = .F., ;
Option2.Name = "Option2", ;
Option3.Caption = "武汉", ;
Option3.Height = 16, ;
Option3.Left = 101, ;
Option3.Style = 0, ;
Option3.Top = 5, ;
Option3.Width = 45, ;
Option3.AutoSize = .F., ;
Option3.Name = "Option3", ;
Option4.Caption = "长沙", ;
Option4.Height = 16, ;
Option4.Left = 149, ;
Option4.Style = 0, ;
Option4.Top = 5, ;
Option4.Width = 45, ;
Option4.AutoSize = .F., ;
Option4.Name = "Option4"

ADD OBJECT check1 AS checkbox WITH ;
Top = 84, ;
Left = 84, ;
Height = 36, ;
Width = 60, ;
Caption = "体育", ;
Name = "Check1"

ADD OBJECT check2 AS checkbox WITH ;
Top = 120, ;
Left = 84, ;
Height = 36, ;
Width = 48, ;
Caption = "音乐", ;
Name = "Check2"

ADD OBJECT check3 AS checkbox WITH ;
Top = 156, ;
Left = 82, ;
Height = 36, ;
Width = 50, ;
Caption = "旅行", ;
Name = "Check3"

ADD OBJECT label1 AS label WITH ;
FontBold = .F., ;
FontSize = 10, ;
Caption = "你所在的城市", ;
Height = 12, ;
Left = 48, ;
Top = 36, ;
Width = 85, ;
Name = "Label1"

ADD OBJECT edit1 AS editbox WITH ;
Height = 133, ;
Left = 156, ;
Top = 84, ;
Width = 181, ;
BackColor = RGB(255,255,0), ;
Name = "Edit1"

ADD OBJECT label2 AS label WITH ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "请选择", ;
Height = 25, ;
Left = 12, ;
Top = 7, ;
Width = 49, ;
Name = "Label2"

PROCEDURE Init
public cs,ah,ah1,ah2

cs="北京"
ah=""
ah1=""
ah2=""
ENDPROC

PROCEDURE optiongroup1.InteractiveChange
Do case
Case this.value=1

Thisform.edit1.value="你所在的城市"+chr(13)+"北京"+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
cs="北京"
Case this.value=2
Thisform.edit1.value="你所在的城市"+chr(13)+"上海"+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
cs="上海"
Case this.value=3
Thisform.edit1.value="你所在的城市"+chr(13)+"武汉"+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
cs="武汉"
Case this.value=4
Thisform.edit1.value="你所在的城市"+chr(13)+"长沙"+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
cs="长沙"
Endcase
ENDPROC

PROCEDURE check1.InteractiveChange
if This.Value=1
ah="体育"
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
else
ah=""
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
endif
ENDPROC

PROCEDURE check2.InteractiveChange
if This.Value=1
ah1="音乐"
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
else
ah1=""
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
endif
ENDPROC

PROCEDURE check3.InteractiveChange
if This.Value=1
ah2="旅行"
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
else
ah2=""
Thisform.edit1.value="你所在的城市"+chr(13)+cs+chr(13)+chr(13)+"你的爱好"+chr(13)+ah+chr(13)+ah1+chr(13)+ah2
endif
ENDPROC

PROCEDURE edit1.Init
this.value="你所在的城市"+chr(13)+"北京"
ENDPROC

ENDDEFINE
*
*-- 结束定义: form1
**************************************************