求VB 程序 ，输入N个数A—N，再输入一个数字M（M<N），求M个数之间的组合的积
1个回答
展开全部
在窗体上放一个命令按纽和一个图型框控件，2个文本框，代码如下PrivateSubCommand1_Click()Dimm,nAsLongm=Val(Text1.Text)n=Val(Text2.Text)fm,nEndSubFunctionf(m,nAsLong)Dimmax,min,i,kAsLongIfm<nThenmax=n:min=mElsemax=m:min=nFori=1TominIfmaxModi=0AndminModi=0Thenk=iNextiPicture1.Printm&"和"&n&"的最大公约数是"&kEndFunctionPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
