Question

vb中总提示子程序或函数未定义

Private Sub Comand1_Click()
Labell.Caption = 0
For i = 1 To 30
X(i) = True
For j = 1 To 10
Call gxgzs
Next j
If E(O) = True Then
Textl.Text = Textl.Text + "{" + "x" + CStr(i) + "}" + ","
S1(i) = True '标记一阶割集
LabelI.Caption = Labell.Caption + 1
End If
X(i) = False
Next i
If Textl.Text = "" Then
Textl.Text = "无一阶割集"
End Sub
Private Sub gxgzs()
E(1) = X(7) Or X(8)
E(2) = X(9) Or X(l0) Or X(ll) Or X(l2)
A = E(l) Or E(2)
E(3) = X(13) Or X(14)
E(4) = X(15) Or X(l6) Or X(l7) Or X(l8)
B = E(3) Or E(4)
E(5) = X(19) Or X(20)
E(6) = X(21) Or X(22) Or X(23) Or X(24)
C = E(5) Or E(6)
E(7) = X(25) Or X(26)
E(8) = X(27) Or X(28) Or X(29) Or X(30)
D = E(7) Or E(8)
G21 = A Or B
G22 = A Or C
G23 = A Or D
G24 = B Or C
G25 = B Or D
G26 = C Or D
G2 = G2l Or G22 Or G23 Or G24 Or G25 Or G26
Gl = X(l) Or X(2)
G3 = X(3) Or X(4)
G4 = X(5) Or X(6)
T = G1 Or G2 Or G3 Or G4
End Sub
E1 = X7 Or X8
E2 = X9 Or Xl0Or XllOr Xl2
A = El Or E2
E3 = X13 Or X14
E(4) = X15 Or Xl6 Or Xl7 Or Xl8
B = E3 Or E4
E5 = X19 Or X20
E6 = X21 Or X22 Or X23 Or X24
C = E5 Or E6
E7)= X25 Or X26
E8 = X27 Or X28 Or X29 Or X30
D = E7 Or E8
G21 = A Or B
G22 = A Or C
G23 = A Or D
G24 = B Or C
G25 = B Or D
G26 = C Or D
G2 = G2l Or G22 Or G23 Or G24 Or G25 Or G26
Gl = Xl Or X2
G3 = X3 Or X4
G4 = X5 Or X6
T = G1 Or G2 Or G3 Or G4
把上面的写成函数形式就是gxgzs函数

Answer 1

你这是哪里抄来的代码啊？

Comand1 改为 Command1
所有 Labell 改为 Label1
所有 Textl 改为 Text1

如果还不行就具体说说哪行提示出错

追问

大四学生，学汽车的，现在急需帮助，qq360911213

Answer 2

你的数组没有声明，程序就会把没有声明的数组看作是未定义的程序或函数。

追问

怎么声明啊，你能教教我吗，我是理科的，学的C语言，现在急用

追答

在VB中,声明数组的方法和声明变量一样.
不同的是变量不带括号,并且也可以不经过声明就使用，(除非强制变量必须声明)。而数组带括号,并且可以在括号里定义维数和下标的上下限,
语法：
固定数组：
Dim 数组名1([下限 TO ] 上限 [,[下限 TO ]上限,……]) AS 数据类型
可变数组：
Dim 数组名2() AS 数据类型'定义一个可变数组
ReDim [Preserve] 数组名2([下限 TO ] 上限 [,[下限 TO ]上限,……]) [AS 数据类型] '改变可变数组的下标上限
带Preserve时，改变数最后一维下标时，会保留原来数组的内容，但下标的下限必须是0，不能自定义。

如果是定义公共数组,把Dim改成Public，(ReDim不能改)。

比较一下数组、子程序、函数三者在代码中的形式：
数组名(下标)
过程名([参数])
函数名([参数])
可以看出来三者在形式上几乎无法区别，所以，如果没有经过声明的数组，比如 E(I) 形式上很像函数或子程序，所以程序会认做未定义函数或子程序。
因此，不管是否指定强制变量必须声明，数组都必须声明。

Answer 3

X(I)是一个函数吗??