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

以下一段程序是循环运行的,即,

得出结果后继续下一轮接受用户输入.

任何一个数为0

则退出.

程序运行过程:

接受用户输入两个数,

第一个是分子,

第二个是分母.

输出结果,并等待下一轮.

两个数中任意一个为0,

则程序立即退出.

#include

#include

main()

{

int

iNum,iDeno,iMod,iMin

iNum=iDeno=1

while(iNum!=0

&&

iDeno!=0)

{

printf("Please

input

the

numerator

and

the

denominator:\n")

scanf("%i%i",&iNum,&iDeno)

if

(iNum==0

||

iDeno==0)

continue

if

(iNum

iNum

||

i>iDeno)

break

if

(iNum%i==0

&&

iDeno%i==0)

{

iNum/=i

iDeno/=i

i=1

}

}

printf("\n%i\n----\n%i\n",iNum,iDeno)

getch()

}

}

---