关于单选按钮的VB编程

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个按扭

选没选

可以自己在添加一下

这样的用法是简便，和

if xxxx then

yyyy

end if

一样的，

如果判断条件为真就执行一句代码，这样写最方便。举个例子你看一下,比较其中的区别

private sub Cmd1_click()

dim filename as string

filename=trim(text.text)

if filename<>"" then

'检查文件是否存在，存在就打开，不存在就创建

'创建文件成功后，将text2中的内容写入文件

...

...

msgbox "写入文件成功"

end if

end sub

private sub Cmd1_click()

dim filename as string

filename=trim(text.text)

if filename="" then exit sub

'检查文件是否存在，存在就打开，不存在就创建

'创建文件成功后，将text2中的内容写入文件

...

...

msgbox "写入文件成功"

end sub