vb 单选按钮代码问题

首先你在界面上创建 1个文本框 Text1 和4个Command按钮

例子比如”第一个Command按钮名称是 “罗卜”

则 双 击 这 个 按 钮 进 入 代 码 编 辑 代码如下：

Private Sub Command1_Click()

Text1.Text = "罗卜"

End Sub

第二个Command按钮名称是 “香蕉”

则 代码如下：

Private Sub Command2_Click()

Text1.Text = "香蕉"

End Sub

以此类推。 相信你懂的修改。

在窗体上添加

2个frame控件

里面各放两个单选按扭

Private

Sub

btnShow_Click()

Dim

a,

b

As

String

If

Op1.Value

=

True

Then

a

=

"火车"

ElseIf

Op2.Value

=

True

Then

a

=

"飞机"

End

If

If

Op3.Value

=

True

Then

b

=

"广州"

ElseIf

Op4.Value

=

True

Then

b

=

"上海"

End

If

txtResult

=

"坐"

&

a

&

"去"

&

b

End

Sub

这是很简单的代码

没有

判断4个按扭

选没选

可以自己在添加一下

---