微信小程序 > 微信公开课 > 请用vb编写一个找出10000以内的亲密数对的小程序
微信小程序，微信公开课，请用vb编写一个找出10000以内的亲密数对的小程序

请用vb编写一个找出10000以内的亲密数对的小程序

2019-03-12 17:02:19

微信公开课小程序热门讨论「请用vb编写一个找出10000以内的亲密数对的小程序」最新回复-需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：OptionExplicitDimIAsLong,JAsLong,XAsLongPrivateSubForm_Load()Me.ShowForI=1To10000DoEventsX=Yzh(I)IfX=10000AndIXThenIfYzh(X)=IThenText1=Text1&(&I&,&X&)&Chr(13)&Chr(10)YzhOut(I)YzhOut(X)EndIfEndIfNextText1=Text1&计算完成EndSubPrivateFunctionYzh(NAsLong)AsLongYzh=0ForJ=1ToN/2IfNModJ=0ThenYzh=Yzh+JNextEndFunctionPrivateFunctionYzhOut(NAsLong)AsLongDimYzhAsLongText1=Text1&N&=1Yzh=1ForJ=2ToN/2IfNModJ=0ThenText1=Text1&+&JYzh=Yzh+JEndIfNextText1=Text1&=&Yzh&Chr(13)&Chr(10)EndFunction程序计算结果，有5组亲密数对，程序输出是：(220,284)220=1+2+4+5+10+11+20+22+44+55+110=284284=1+2+4+71+142=220(1184,1210)1184=1+2+4+8+16+32+37+74+148+296+592=12101210=1+2+5+10+11+22+55+110+121+242+605=1184(2620,2924)2620=1+2+4+5+10+20+131+262+524+655+1310=29242924=1+2+4+17+34+43+68+86+172+731+1462=2620(5020,5564)5020=1+2+4+5+10+20+251+502+1004+1255+2510=55645564=1+2+4+13+26+52+107+214+428+1391+2782=5020(6232,6368)6232=1+2+4+8+19+38+41+76+82+152+164+328+779+1558+3116=63686368=1+2+4+8+16+32+199+398+796+1592+3184=6232计算完成
呵呵，用枚举做咯对每个数都检查一遍看是否符合要求不过要求一个数的因子和，这个函数我还真的不会 更多有关「请用vb编写一个找出10000以内的亲密数对的小程序」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，请用vb编写一个找出10000以内的亲密数对的小程序

「请用vb编写一个找出10000以内的亲密数对的小程序」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「请用vb编写一个找出10000以内的亲密数对的小程序」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「请用vb编写一个找出10000以内的亲密数对的小程序」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「请用vb编写一个找出10000以内的亲密数对的小程序」

微信公开课小程序热议话题「请用vb编写一个找出10000以内的亲密数对的小程序」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「请用vb编写一个找出10000以内的亲密数对的小程序」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:02:19

一键制作小程序 全国代理小程序 订阅微信公开课