Question

在VB中运行如下程序时提示编译错误 语法错误 怎么回事？错在哪里就解答

代码如下：
Private Sub Command1_Click()
Dim m Integer, n As Integer,p As Integer
m = 1
n = 1
p = 5
Print SecProg(p, n, m)
End Sup
Function FirProg(x As Integer, y As Integer, z As Integer)
FirProg = 2 ^ x - y + 3 * z
End Function
Function SecProg(x As Integer, y As Integer, z As Integer)
SecProg = FirProg(z, x, y) - x
End Function
运行时出现一个黄色箭头指向第一行代码。这个程序正确运行后结果是4还是26？求解答

Answer 1

m后面少个 as 应该是：
Dim m As Integer, n As Integer, p As Integer
应该是end sub

运行后是-5

追问

改为Dim m As Integer后运行还是老问题

Answer 2

Dim m Integer 改成 dim m as integer
Print SecProg(p, n, m) 后的 End Sup 改成 End Sub

Answer 3

Dim m as Integer

End Sub

追问

改为Dim m As Integer后运行还是老问题