Question

vb缺少子程序函数或属性？！！

Private Sub Form_Load()Dim a, b, c As IntegerDim e, f, g, h As Stringa , b, c = 1For a = 1 To 20 For b = a To 20 For c = b To 20 If (a ^ 2 + b ^ 2 = c ^ 2) Then e = Str(a) f = Str(b) g = Str(c) h = h + e + " " + f + " " + g + ";" End IfMsgBox h这个程序用来找到所有小于20勾股数的数组

Answer 1

代码中错误较多
dim a,b,c as integer 应写作 dim a as integer,b as integer ,c as integer
a,b,c=1 应写作a=1 : b=1: c=1
此外，每个for 都要有一个next 来标志循环体的范围，否则是要报错的。