当前位置 :
算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2,程序将从自然数1开始依次寻
1人问答
八字精批流年运程八字合婚八字起名
问题描述:

算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2

所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2,程序将从自然数1开始依次寻找,逐一判断某一自然数是否满足全部条件,直至在指定范围内找到满足条件的所有自然数,并将其输出,请将下列程序补充完整.

PrivateSubCommand1_Click()

DimsumAsInteger,maxAsInteger

sun=0

max=Val(Text1.Text)

Fori=Tomax

If_____________________Then

Printi

_____________'统计个数

EndIf

NextI

Printsum

EndSub

郭力培回答:
  PrivateSubCommand1_Click()   DimsumAsInteger,maxAsInteger   sun=0   max=Val(Text1.Text)   Fori=1Tomax   IfiMod3=2AndiMod5=3AndiMod7=2Then   Printi   sun=sun+1   EndIf   Nexti   Label1.Caption=Str(sun)   EndSub   这个程序我用printsun打印不出来,我把这句改了,加了一个label自己在摸索着吧.我也不是很会才学两个月.多指教!
八字精批 八字合婚 八字起名 八字财运 2024运势 测终身运 姓名详批 结婚吉日
已出生未出生
最新更新
PC端 | 移动端 | mip端
字典翻译(zidianfy.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
电话:  邮箱:
Copyright©2009-2021 字典翻译 zidianfy.com 版权所有 闽ICP备2022014709号-7
lyric 頭條新聞
复制重新加载
原创不易,您的支持将成为鼓励我的动力
《算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2,程序将从自然数1开始依次寻|其它问答-字典翻译问答网》
1、付费复制方式
支付宝付费后即可复制当前文章
限时特价:5.99元
原价:20元
打开支付页
2、微信付费复制方式
微信扫码付费后即可复制当前文章
限时特价:5.99元
原价:20元