Vb.net 不了解是否有其他阻止行为

我有以下代码：

Sub Main()
    Dim a As Integer = 8 * 60
    Dim b As Integer
    Dim c As Integer
    If a < (6 * 60) Then
        b = 0 And c = 0
    ElseIf a >= 6 * 60 And a < 9 * 60 Then
        b = 30 And c = 1
    Else
        b = 45 And
       c = 1
    End If
    MsgBox(b)
End Sub

Sub-Main（）
尺寸a为整数=8*60
作为整数的Dim b
作为整数的Dim c
如果a<（6*60），则
b=0，c=0
如果a>=6*60且a<9*60，则
b=30，c=1
其他的
b=45和
c=1
如果结束
MsgBox（b）
端接头

认为我不明白，我在哪里需要别人的帮助：

“c=0”和“c=1”带下划线，并带有错误：Strict on不允许从布尔值隐式转换为整数。为什么？我声明c为整数

变量“b”和“c”始终为“0”，即使在上述情况下，它们应为b=30和c=1

---

谁能给我解释一下这种行为吗

您正在使用

和
关键字，这是不允许的
和
是一个逻辑运算符（与
或
、
和
、
或
一起使用）

以下几点应该行得通

Sub Main()
    Dim a As Integer = 8 * 60
    Dim b As Integer
    Dim c As Integer
    If a < (6 * 60) Then
        b = 0
        c = 0
    ElseIf a >= 6 * 60 And a < 9 * 60 Then
        b = 30
        c = 1
    Else
        b = 45
        c = 1
    End If
    MsgBox(b)
End Sub

Sub-Main（）
尺寸a为整数=8*60
作为整数的Dim b
作为整数的Dim c
如果a<（6*60），则
b=0
c=0
如果a>=6*60且a<9*60，则
b=30
c=1
其他的
b=45
c=1
如果结束
MsgBox（b）
端接头
您在不允许使用的地方使用了
和
关键字
和
是一个逻辑运算符（与
或
、
和
、
或
一起使用）

以下几点应该行得通

Sub Main()
    Dim a As Integer = 8 * 60
    Dim b As Integer
    Dim c As Integer
    If a < (6 * 60) Then
        b = 0
        c = 0
    ElseIf a >= 6 * 60 And a < 9 * 60 Then
        b = 30
        c = 1
    Else
        b = 45
        c = 1
    End If
    MsgBox(b)
End Sub

Sub-Main（）
尺寸a为整数=8*60
作为整数的Dim b
作为整数的Dim c
如果a<（6*60），则
b=0
c=0
如果a>=6*60且a<9*60，则
b=30
c=1
其他的
b=45
c=1
如果结束
MsgBox（b）
端接头
太棒了！非常感谢你，知道这一点很有帮助！伟大的非常感谢你，知道这一点很有帮助！