好吧问答库 > vb 单选按钮

vb 单选按钮

Private Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Option3.Value = tureOption6.Value = tureOption9.Value = tureLabel1.Caption = "欢迎你使用Visual Basic"End SubPrivate Sub Command1_Click()If Option1.Value Then Label1.FontName = "宋体"If Option2.Value Then Label1.FontName = "隶书"If Option3.Value Then Label1.FontName = "幼圆"If Option4.Value Then Label1.FontSize = 14If Option5.Value Then Label1.FontSize = 18If Option6.Value Then Label1.FontSize = 22If Option7.Value Then Label1.ForeColor = QBColor(9)If Option8.Value Then Label1.ForeColor = QBColor(13)If Option9.Value Then Label1.ForeColor = QBColor(10)Label1.Caption = "欢迎你使用Visual Basic"End Sub我想请教一下为什么这里的if XXXX then XXXX 没有以end if 结尾,是吾是这里不是块状结构啊,请求详解if XX then XXX 没有end if 结尾和if XXX then XXX 有end if 结尾的区别,作用和用法

2026年09月27日 20:56

有4个网友回答

网友（1）：

if xxxx then yyyy
这样的用法是简便，和
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

网友（2）：

VB 的IF ... THEN 有这么两种写法..

一种就是你晓得的那种.

是
IF 条件 THEN
执行语句
END IF

另一种就是.
IF 条件 THEN 执行语句.

区别就仅仅是一个写在一行,而另一个不写在一行,如果你一行能把所有的话写完,那么就用第二种就OK 了,这样还可以少写END IF .

我就喜欢这样，因为我老是忘记写END IF

网友（3）：

其实很简单，在vb中，if then 如果在一行就不用end if
如: if a=b then a=c
不过要写成
if a=b then
a=c
end if(这里就必须加了)
总体上作用是一样的，没有区别

网友（4）：

一行里就写完了，不用ENDIF啊