VB多次判断的语句

Text1.Text = F
C = 5 / 9 * (F - 32)
Text2.Text = C
If C > 40 Then
MsgBox "很热哦,注意身体", , "温馨提示"
ElseIf 30 < C <= 40 Then
MsgBox "虽然只有一点点热,但是还需要注意", , "温馨提示"
ElseIf 20 < C <= 30 Then
MsgBox "正常温度哦,感觉很棒", , "温馨提示"
ElseIf 10 < C <= 20 Then
MsgBox "虽然很凉爽,也注意感冒", , "温馨提示"
ElseIf 0 < C <= 10 Then
MsgBox "寒冷的天气,想必你也不会想出家门吧", , "温馨提示"
ElseIf 0 <= C Then
MsgBox "你已经快要冻死了,赶快跑吧", , "温馨提示"
Else
End If
End Sub

问下高手..这里哪里出错? 应该能看明白吧? 窗口就2个TEXT 和一个按钮

可是,计算时却弹出 ELSE 没有IF

或者不弹出那个,不能判断第3次的IF 什么原因?

应该写成0 < C And C <= 40,不过你这样编程过于繁琐,而且感觉你是在做一个华氏和摄氏的转换,第一句赢写成F = Val(Text1.Text),给个select case的用法参考一下:

F = Val(Text1.Text)
C = 5 / 9 * (F - 32)
Text2.Text = C
select case C
case Is>40
MsgBox "很热哦,注意身体", , "温馨提示"
case 30 to 40
MsgBox "虽然只有一点点热,但是还需要注意", , "温馨提示"
case 20 to 30
MsgBox "正常温度哦,感觉很棒", , "温馨提示"
case 10 to 20
MsgBox "虽然很凉爽,也注意感冒", , "温馨提示"
case 0 to 10
MsgBox "寒冷的天气,想必你也不会想出家门吧", , "温馨提示"
case Is <=0
MsgBox "你已经快要冻死了,赶快跑吧", , "温馨提示"
case else
MsgBox "温度值输入错误!", , "温馨提示"
end select
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2017-09-10
vb 多次判断的语句有两种
1、if 条件1 then ’满足条件1
else if 条件2 then ‘在满足条件1的基础上 满足条件2
.....
end if

2、select case 变量1
case 值1 满足条件 变量1=值1

case 值2 满足条件 变量1=值2
..... ......
end select
第2个回答  2013-07-26
30 < C <= 40 判断条件不能这样写。。。要改为:
30 < C And C <= 40
其他几个和这类似。
第3个回答  2013-07-26
不要用if 来写,用select case 语句来写试试。呵呵,并且加上楼上的内容

VB多次判断的语句
应该写成0 < C And C <= 40,不过你这样编程过于繁琐,而且感觉你是在做一个华氏和摄氏的转换,第一句赢写成F = Val(Text1.Text),给个select case的用法参考一下:F = Val(Text1.Text)C = 5 \/ 9 * (F - 32)Text2.Text = C select case C case Is>40 MsgBox "很热哦,注意身体...

VBScript 多重判断
会设置激活IE代理,不会最基本的IF THEN ELSE 结构?If IEProxyOpen Then If MsgBox("是否关闭代理",vbYesNo)= vbYes Then '执行关闭IE代理代码 End If '执行重新设置代理代码 Else '执行重新设置代理代码 End if

我想问一下VB中多个判断语句IF的使用方法
if a>0 and a<501 then b=a+5 enf if if a>501 and a<1001 then b=a+10 end if 你那enf改为end if

VB中的判断句
无论你在判断中限定X等於多少,你最终Pocess中操作的X都等於R*y,因为你在Process中给X重新赋值R*y了,你加几断点逐句调试下看看就知道了,按照你现在写的语句,你最后输出的Z=a+b+c-0.1(a+b+c)。

VB如何连续使用IF语句?
这种同一条件的判断建议使用Select Case语句更为直观 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim intMonth As Integer, intDay As Integer intMonth = NumericUpDown1.Value intDay = NumericUpDown2.Value Select Case Date...

vb中如果一个条件判断要执行两个语句怎么写代码
If x>=80 And x<=90 Then Print "成绩在80~90之间"Else Print "成绩不是在80~90之间"End If 如果多个条件中只要满足一个就可以的话,应该这么写:例如,如果语数外有不及格的同学必须参加补考,已知三门成绩判断是否需要补考:If x<60 Or y<60 Or z<60 Then Print "...

关于VB重的elseif语句
大于又小于的判断要用 and 连接 的 Private Sub Form_Click()a = InputBox("输入一个数")a = Int(a)If a = 0 Then MsgBox "zero"ElseIf a >= 1 And a < 10 Then MsgBox "one digit"ElseIf a >= 10 And a < 100 Then MsgBox "two digits"Else MsgBox "wrong"End If End Sub...

vbifelse用法,
一、基本结构 VB中的If Else结构是基本的条件判断语句,用于根据不同的条件执行不同的操作。其基本结构如下:vbscript If 条件 Then ' 条件为真时执行的代码 Else ' 条件为假时执行的代码 End If 这种结构是最基础的,只有两种分支情况。如果需要根据更多的条件进行判断,可以使用嵌套的If Else结构。...

vb 判断语句
Private Sub Command1_Click()ifile$ = IIf(Right(App.Path, 1) = "\\", App.Path + "*.ini", App.Path + "\\*.ini")If Dir(ifile$) <> "" Then Form1.Show Else Form2.Show End If Unload Me End Sub

vb中for each b in a甚么意思
具体到VB\/VBA中,应用非常简单,就是一个 for each b in a 一句判断语句或者是操作语句等,例如c=iif(b>0,b,-b)则是取b的绝对值 next就是这个样子,如果a是一个数字集,如-5至5,那b在多次循环中分别等于这些数,进行操作。如果a是excel中一个区域(range),那么b就是它里面各个单元格...

相似回答