Question

vb 单选按钮

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Option3.Value = ture
Option6.Value = ture
Option9.Value = ture
Label1.Caption = "欢迎你使用Visual Basic"
End Sub
Private 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 = 14
If Option5.Value Then Label1.FontSize = 18
If Option6.Value Then Label1.FontSize = 22
If 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 结尾的区别,作用和用法

Answer 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

Answer 2

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

一种就是你晓得的那种.

是
IF 条件 THEN
执行语句
END IF

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

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

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

Answer 3

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

Answer 4

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