表示刚才亲自测试，建立以个Form，拖了一个Panel，在Panel里面放了3个RadioButton（默认Checked就是False）,然后启动，发现第一个被选中了，
公司主营业务：成都做网站、网站设计、外贸营销网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出白城免费做网站回馈大家。
然后双击了一下它，跳到代码页面，在启动，第二个被选中，双击第二个和第三个，此时再代码一面出现了3个按钮的事件，在三个事件都设好断点，启动程序，发现3个都没有被选中了，而且也没执行任何一个事件。
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮，代码如下：
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
首先你在界面上创建 1个文本框 Text1 和4个Command按钮
例子比如”第一个Command按钮名称是 “罗卜”
则 双 击 这 个 按 钮 进 入 代 码 编 辑 代码如下：
Private Sub Command1_Click()
Text1.Text = "罗卜"
End Sub
第二个Command按钮名称是 “香蕉”
则 代码如下：
Private Sub Command2_Click()
Text1.Text = "香蕉"
End Sub
以此类推。 相信你懂的修改。
