vb编写约分程序

Private Sub Form_Click()

m = 6

n = 14

Print "约分前的分数表示为：" &m"/" &n

If m >0 And n >0 Then

a = m

b = n

res = b Mod a

Do While (res <>0)

b = a

a = res

res = b Mod a

Loop

Print "约分后的分数表示为：" &m / a"/" &n / a

Else

Print "结果为：0"

End If

End Sub

数据量大的话，而又要一个个输入，那么影响速度的可不是代码执行效率，而是人工输入代码的耗时。如果是已经确定好的数据的话，做成文件，让程序从文件中读取数据。

求约分的算法网上代码有现成的，简单改写了一下。

#include <iostream.h>

void main()

{

    int a, b

 while(1)

 {

  cout<<"输入两个整数，a=-999退出:"<<endl

  cin>>a>>b

  if(a == -999)

  {

   return

  }

  else 

  {

   if(b == 0)

   {

    cout<<"结果: Error!"<<endl

   }

   

   else

   {

    for(int i=2 i <= a i++) 

    {

     if(a%i == 0 && b%i == 0)

     {

      a/=i

      b/=i

      i--       

     }

    }

    if(a%b == 0)

    {

     cout<<"结果:"<<a/b<<endl

    }    

    else

    {

     cout<<"结果:"<<a<<"/"<<b<<endl

    }

   }

  }

 }

}

---