Private Sub Command1_Click()
Dim zong, pc, ss, shenghuo, dujia, dianqi, gw, jiaoyu, fuzhuang, youxi, qg, yy, huazhuang, yd, ty, qc, qt
If jsj.Value = Checked Then pc = "计算机行业/软硬件"
If shishi.Value = Checked Then ss = "时事新闻"
If life.Value = Checked Then shenghuo = "生活咨询"
If lvyou.Value = Checked Then dujia = "旅游/度假"
If gouwu.Value = Checked Then gw = "购物指南"
If wenhua.Value = Checked Then jiaoyu = "文化/教育"
If fushi.Value = Checked Then fuzhuang = "服装服饰"
If shangwang.Value = Checked Then youxi = "上网聊天/游戏"
If qinggan.Value = Checked Then qg = "情感生活"
If yingyin.Value = Checked Then yy = "影音娱乐"
If shishang.Value = Checked Then huazhuang = "时尚/化妆品"
If yuedu.Value = Checked Then yd = "阅读/图书音像"
If tiyu.Value = Checked Then ty = "体育/户外/健身"
If qiche.Value = Checked Then qc = "汽车"
If qita.Value = Checked Then Text2.SetFocus: qt = Text2.Text

Text1.Text = "你感兴趣的有如下:" & Chr(13) & Chr(10) _
& pc & Chr(13) & Chr(10) & ss & Chr(13) & Chr(10) & shenghuo & Chr(13) & Chr(10) & dujia & Chr(13) & Chr(10) _
& gw & Chr(13) & Chr(10) & jiaoyu & Chr(13) & Chr(10) & fuzhuang & Chr(13) & Chr(10) & youxi & Chr(13) & Chr(10) _
& qg & Chr(13) & Chr(10) & yy & Chr(13) & Chr(10) & huazhuang & Chr(13) & Chr(10) & yd & Chr(13) & Chr(10) _
& ty & Chr(13) & Chr(10) & qc & Chr(13) & Chr(10) & qt

End Sub

做的很死,大家帮帮忙....做出更好...
这是关于文件提交到文本的问题吧....
大家多多交流...

[此贴子已经被作者于2007-1-23 19:45:41编辑过]