請問在這個程式碼中如何加入列出所有公因數的程式碼
text1,text2 = 輸入的值
Private Sub Command1_Click()
Dim max, min, tmp As Long
If Text1 > Text2 Then
max = Text1: min = Text2
Else
max = Text2: min = Text1
  End If
Do
tmp = min
 min = max - (Int(max / min) * min)
 max = tmp
Loop Until min = o
xmin = max
xmax = Text1 * (Text2 / xmin)
Label5 = xmin
Label6 = xmax
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()