vb编程题，考试急需答案 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → vb编程题，考试急需答案

标题：vb编程题，考试急需答案

只看楼主

周伟杰

等　级：新手上路
帖　子：1
专家分：0
注　册：2013-11-4
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：1

vb编程题，考试急需答案

编写程序，输出能被4除余数为3，被7除数为4，被9除余数为4的所有四位数，并求上述满足条件的数的平方和。求答案。

搜索更多相关主题的帖子: 编写程序　

2013-11-04 18:55

vbvcr51

等　级：贵宾
威　望：18
帖　子：364
专家分：1724
注　册：2013-11-3

第 2 楼

得分:20

dim a as integer
dim sum as long 'sum为平方和，最后结果
sum=0
for a=1000 to 9999
  if a mod 4=3 and a mod 7=4 and a mod 9=4 then
     print a  '在窗口输出
    sum=a^2+sum
  else
  end if
next a

我自己运行了一下程序，结果为共36个数，最后结果sum= 1329781140，不知道答案对不对.

36.rar (5.19 KB)

[ 本帖最后由 vbvcr51 于 2013-11-4 20:19 编辑 ]

2013-11-04 20:02

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-423034-1-1.html