正文
vb.net中if用法,vb语言的if语句
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net 如何做到IF判断式中再有IF?
msgbox的返回值是一个枚举值
if msgbox （“”）=1 then
end if
相关问答
Q1: vb.net中的if else问题
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Focus Then : TextBox1.Text = Val(TextBox1.Text) * 10 + 1 : Else : TextBox3.Text = Val(TextBox3.Text) * 10 + 1 : End If
End Sub
或
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Focus Then
TextBox1.Text = Val(TextBox1.Text) * 10 + 1
Else
TextBox3.Text = Val(TextBox3.Text) * 10 + 1
End If
End Sub
楼主只是单纯的格式错误而已。
If...Then... 是可以
If...Then...Else 是不存在的
需要一行内用到的话，必须还要跟个End If，也就是
If...Then...Else...End If
当然最好还是分行写，自己以后修改也容易看
If 条件1 Then
' 代码
ElseIf 条件2 Then
' 代码
ElseIf 条件2 Then
' 代码
Else
' 代码
End If
其中ElseIf行与Else行，在不需要时都可以不写。
Q2: vB.Net if 语句
DT.Rows.ToString未必是指结果集中的所有数据，也许只是一行中所有的，或是一列中所有的
保险起见，可以一格格枚举
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if
Q3: VB.NET的if语句问题
你搞反了！
TextBox1.Text=z1
TextBox2.Text=z2
改成
z1=CDouble(TextBox1.Text)
z2=CDouble(TextBox2.Text)
Q4: vb.net 中的if 运算结果
1000=x2000，并不是(1000=30002000)为真
而是先判断（1000=3000）为真也就是1，然后(12000)为真
Q5: VB.net 中，#if 是什么语法？
#If...Then...#Else 指令
根据条件编译选定的 Visual Basic 代码块,需要有#Const 配对，一般要先用#Const 定义条件编译器常量
'以下是例子
Module Module1
#Const i = 60
Sub Main()
#If i 30 Then
Console.WriteLine("???") '如果用#Const定义了i，该句语句才会执行，假如用的是private i as integer=60定义，该语句不会被执行
#End If
End Sub
End Module
