下面的代码是练习题：
Private Sub Command1_Click()
p1 = "姓名：" & Text1.Text & Chr(13)
p2 = "年龄：" & Text2.Text & "岁" & Chr(13)
p3 = "现就职于：" & Text3.Text & Chr(13)
p4 = "性别：" & IIf(Option1.Value, "男", "女") & Chr(13)
p5 = "婚姻状况：" & IIf(Option3.Value, "已婚", "未婚") & Chr(13)
p6 = "学历：" & Combo1.Text & Chr(13)
p7 = "职称：" & Combo2.Text
p = p1 & p2 & p3 & p4 & p5 & p6 & p7
MsgBox p, , Text1.Text & "的个人情况介绍"
End Sub

IIf函数只能判断2个单选框！我想问问各位前辈，如果我是三个单选框该用什么函数来判断？并且把它赋值给P5
用一句话代码来判断，不用逐个判断然后再赋值的代码行不行？

谢谢版主！亲自回答我的问题！

我看也是。。。。我一来就认识几个头头。。。机缘巧合！谢谢各位头头。。阿门

用这个嵌套怎么样？我在外地开会，这边的机子没VB，没法试！
IIf(expr, truepart,IIf(expr, truepart, falsepart), falsepart)

谢谢 yeshirow 你的解释很详细，谢谢！

对新手来说，没得简单的问题！！而且各位前辈都是高手，都有自己的编程思想！我们要学习的就是这种多思维的编程方式！呵呵

[此贴子已经被作者于2007-10-22 10:38:03编辑过]

Private Sub Command1_Click()
MsgBox Option1(0).Tag
End Sub

Private Sub Form_Load()
Option1(0).Value = True
Option1(0).Tag = Option1(0).Caption
End Sub

Private Sub Option1_Click(Index As Integer)
Option1(0).Tag = Option1(intex).Caption
End Sub

始终显示的是第一个单选内容！option1(0).tag

这个代码的思路是不错，但是不管怎么选！打印出来的结果都是第一个单选内容！

我用这个方法写的代码，但是我选第二或者第三个单选框，打印出来的结果都还是第一个单选框的内容！下面是我的代码：

Private Sub Command1_Click()
MsgBox Option1(0).Tag
End Sub

Private Sub Form_Load()
Option1(0).Value = True
Option1(0).Tag = Option1(0).Caption
End Sub

Private Sub Option1_Click(Index As Integer)
Option1(0).Tag = Option1(intex).Caption
End Sub

打印结果始终显示的是第一个单选内容！

请指教