高校问答全民穿越之宫服装图鉴:VB 中的赋值
来源：百度文库 编辑：高校问答 时间：2024/05/03 03:34:07
请帮我些个小程序（要完整的）
有个量a
如果a=001 则显示 “高温”
如果a=021 则显示“...”
a=022 “。。。。”
a=102 “广泛”
用slect case 编我想
谢谢
有个量a
如果a=001 则显示 “高温”
如果a=021 则显示“...”
a=022 “。。。。”
a=102 “广泛”
用slect case 编我想
谢谢
Option Explicit
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub
Private Sub Text1_Change()
Select Case Text1.Text
Case "001"
Label1.Caption = "高温"
Case "021"
Label1.Caption = "…"
Case "022"
Label1.Caption = "。。。。"
Case "102"
Label1.Caption = "广泛"
End Select
End Sub
select case a
case 001
' 显示高温
case 021
' 显示……
case 022
' ……
case 102
' 广泛
end select
select case a
case 001
"显示高温"
break
case 021
"……"
break
case 022
" 。。。。。。"
break
case 102
"广泛"
break
end select