作业帮VB计算200以内所有的7倍数,打印输出,求出个数和7倍数和.(使用循环语句)
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 11:38:33
9、18、27、36、45
PrivateSubCommand1_Click()Dimi%Fori=100To999IfiMod7=0AndMid(CStr(i),2,1)="2"ThenPrintiNextEndSub再问：M
count=0Fori=1To1000IFi%7==0Thencount++Nexti
有3、6、9、12、15、18、21、24、27、30、33、36、39您的采纳是我前进的动力,也能给你带去财富值……
n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM
1×7＝72×7＝143×7＝214×7＝285×7＝356×7＝427×7＝49
...i=1;counter=0;//用于计数while(i
PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSu
7142128
1000/7=142.余61000以内,7的倍数共有142个,它们是：7,14,21,.,980,987,994；也即：7n：n=1,2,.,142.
就是7的口诀7、14、21、28、35、42、49、56
7,14,21,28,35,42,49,56~
计算器一下啦.13.26.39.53.66.79.92.
(i%7==0)||(i/10==7)||(i%10==7)
3691215182124273033363942454851545760636669727578818487909396991021051081111141171201231261291321351
PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu
3,6,9,12,15,18
7,14,21,28,35,42,49
100以内7的倍数有：7、14、21、28、35、42、49、56、63、70、77、84、91、98．
9、18、27、36、45、54、63、72、81、90、99再问：太慢了点吧！