Question

vb 新手问题

我刚刚学vb，老师说的什么 Case，：点我都听不懂 不知道怎么便代码怎么办？
就是怎么编？语法？
比如说先写什么后写什么，点啦杠啦放哪里。还有（）这种东西
开头先写text 还是form 还是image 还是什么？

Answer 1

Private i As Integer '定义一个变量
Private Sub Form_Load() '此事件不用管
Text1.Text = ""
End Sub
Private Sub Text1_Change() '此事件不用管
If Text1.Text <> "" Then
If Asc(Text1.Text) <> 8 And Asc(Text1.Text) < 48 Or Asc(Text1.Text) > 57 Then
MsgBox "请输入数字"
Text1.Text = ""
End If
End If
End Sub
Private Sub Command1_Click() 'Command1_Click事件，Case的用法
i = Val(Text1.Text) '将text1赋值到变量i，Val函数是用来获取Text1中的数字的
Select Case i 'Case是一种判断方式，类似If，但是Case可以判断一个大条件，可以有256个条件。而If虽说可以用ElseIf判断多个结果，但是却不方便，也无法判断出某些条件。
Case 0 '判断第一个条件，这里判断的条件是Text1.Text中的数字，并不是说Case 0就是判断是不是输入0，也可以判断别的条件
MsgBox "Text1里输入的是0"
Case 1 '判断第二个条件
MsgBox "Text1里输入的是1"
Case 2 '判断第三个条件
MsgBox "Text1里输入的是2"
Case Else 'Case Else 类似 If 语句中的 Else ，就是在Case X中没有的判断条件
MsgBox "您输入的数字不在Case的判断范围内"
End Select '结束 Select Case 语句，同If语句中的End If
End Sub
'全部复制到VB6新建的工程中，然后添加一个Command控件和Text控件

Answer 2

主要是要先记住编写代码的公式，公式记住后再根据要求写出不同的代码。一般要求数学要好的话，编写程序也会得心应手

追问

就是怎么编？语法？
比如说先写什么后写什么，点啦杠啦放哪里。还有（）这种东西
开头先写text 还是form 还是image 还是什么？

Answer 3

就是选择一样条件
case 1 to 3
case 3 to 5
就是1到3
3到5这样的条件的选择

追问

就是怎么编？语法？
比如说先写什么后写什么，点啦杠啦放哪里。还有（）这种东西
开头先写text 还是form 还是image 还是什么？

追答

select case e
case c1
case c2
case c3
....
case c n
end select
这是一个选择结构

Answer 4

private sub form_load()
dim a as long
a = 1 'a = 2
select case a
case 1
msgbox "值为1"
case 2
msgbox "值为2"
end select case
end sub