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 什么原因?
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就是它里面各个单元格...