在vb中使用debug为什么不出现立即窗口?(立即窗口为什么不出现?)
在工程文件中添加“模块”,并在模块代拿窗口中添加如下代码:PrivateSubForm_Load()DimintIAsIntegerDimintR()AsIntegeri...
在工程文件中添加“模块”,并在模块代拿窗口中添加如下代码:
Private Sub Form_Load()
Dim intI As Integer
Dim intR() As Integer
intR() = ReturnArray(100)
For intI = 0 To UBound(intR)
Debug.Print intR(intI)
Next intI
Form1.Visible = False
End Sub
在船体Form1的代码窗口中填写如下代码:
Public Function ReturnArray(intX As Integer) As Integer()
Dim intY(3) As Integer
intY(0) = intX
intY(1) = intX + 1
intY(2) = intX + 2
intY(3) = intX + 3
ReturnArray = intY
End Function
如何操作让立即窗口出现 展开
Private Sub Form_Load()
Dim intI As Integer
Dim intR() As Integer
intR() = ReturnArray(100)
For intI = 0 To UBound(intR)
Debug.Print intR(intI)
Next intI
Form1.Visible = False
End Sub
在船体Form1的代码窗口中填写如下代码:
Public Function ReturnArray(intX As Integer) As Integer()
Dim intY(3) As Integer
intY(0) = intX
intY(1) = intX + 1
intY(2) = intX + 2
intY(3) = intX + 3
ReturnArray = intY
End Function
如何操作让立即窗口出现 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询