上海编程大神(有编程大神的电视剧)

2023-12-16 08:41:16 数码极客 bianji01

求VB编程大神,求高手解答!!!急急急!!!

PrivateSubCommand1_Click()

DimmAsLong,nAsLong

m=Text1

n=Text2

Label3.Caption=m&"和"&n&"的最大公约数是"&gcd(m,n)

EndSub

PrivateSubCommand2_Click()

DimmAsLong,nAsLong

m=Text1

n=Text2

Text3=m&"和"&n&"的最大公约数是"&gcd(m,n)

EndSub

PrivateSubForm_Load()

Label1.Caption="第一个数:"

Label2.Caption="第二个数:"

Label3.Caption=""

Text1=""

Text2=""

Text3=""

Command1.Caption="标签显示结果"

Command2.Caption="文本框显示结果"

EndSub

Functiongcd(mAsLong,nAsLong)AsLong

r=mModn

Whiler>0

r=mModn

gcd=n

EndFunction

 

声明:易趣百科所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系315127732@qq.com
广告位招租
横幅广告