vb select case语句调用
问题： 我想设置，当n=1的时候，获得m的值。
Sub ddd()
Select Case n
Case 1
m = 1
Case 2
m = 2
End Select ‘随便写了一个select case
End Sub
然后，我想调用如上的式子
for n= 1 to 2
msgbox m
next
但是m却没有值，结果是空白。
我弄不懂这个问题，求助
Sub ddd(byref m as long)
Select Case n
Case 1
m = 1
Case 2
m = 2
End Select ‘随便写了一个select case
End Sub
然后，我想调用如上的式子
ddd m
for n= 1 to 2
msgbox m
next
Select Case n
Case 1
m = 1
Case 2
m = 2
End Select ‘随便写了一个select case
End Sub
然后，我想调用如上的式子
ddd m
for n= 1 to 2
msgbox m
next
温馨提示：内容为网友见解，仅供参考
第1个回答 2019-03-18
这样你试试？
Dim m As Integer, n As IntegerSub ddd()
Select Case n
Case 1
m = 1
Case 2
m = 2
End Select '随便写了一个select case
End Sub
Private Sub Command1_Click()
For n = 1 To 2
Call ddd
MsgBox m
Next
End Sub本回答被网友采纳
相似回答
