第1个回答 2015-10-08
把n1 = GCD(m1, n1)这条语句改成： GCD(m1, n1)
Private Sub Command1_Click()
Dim Ar() As Long
Dim n%, i%, n1&, m1&
n = Val(InputBox("求几个数的最大公约数？"))
If n < 2 Or n > 20 Then Exit Sub
ReDim Ar(n)
For i = 1 To n
Ar(i) = Val(InputBox("输入第" & i & "个数："))
If Ar(i) <= 0 Then
Picture1.Cls
Exit Sub
End If
Picture1.Print Ar(i);
If Picture1.CurrentX > Picture1.Width * 0.8 Then Picture1.Print
Next i
Picture1.Print
n1 = Ar(1)
For i = 2 To n
m1 = Ar(i)
GCD(m1, n1) '这里改一下即可
If n1 = 1 Then
Exit For
End If
Next i
Picture1.Print "以上"; n; "个数的最大公约数是："; n1
End Sub
Private Sub Command1_Click()
Dim Ar() As Long
Dim n%, i%, n1&, m1&
n = Val(InputBox("求几个数的最大公约数？"))
If n < 2 Or n > 20 Then Exit Sub
ReDim Ar(n)
For i = 1 To n
Ar(i) = Val(InputBox("输入第" & i & "个数："))
If Ar(i) <= 0 Then
Picture1.Cls
Exit Sub
End If
Picture1.Print Ar(i);
If Picture1.CurrentX > Picture1.Width * 0.8 Then Picture1.Print
Next i
Picture1.Print
n1 = Ar(1)
For i = 2 To n
m1 = Ar(i)
GCD(m1, n1) '这里改一下即可
If n1 = 1 Then
Exit For
End If
Next i
Picture1.Print "以上"; n; "个数的最大公约数是："; n1
End Sub
第2个回答 2015-05-07
form2.show和form1.hide中间应该是英文的冒号追问
不用定义变量么
追答什么变量？
你是这行错了吗？
追问我之后的程序会用到
第3个回答 2015-05-07
你的程序代码呢？追问
除了第一行，没什么错，第一行改成：
private sub cmdokbutton_click()
要确保确定按钮的名称（Name）是cmdokbutton
嗯嗯。
我想点下一个点直到图二中的地形点总个数，然后下一点的按钮变灰，同时出现图一，代码怎么编？谢谢
初学V B发现编程好难
本回答被提问者采纳
相似回答