应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 网络生活区 » 有奖问答 » 其他问题 » VB程序设计
41/1返回列表
查看: 512  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

1485782876

新虫 (初入文坛)

[求助] VB程序设计

1000以内能同时被2.3.5整除的数以每行输出5个数，全部输出在屏幕上。

发自小木虫Android客户端
回复此楼

» 猜你喜欢
1楼 2016-04-19 21:17:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

疯人痴人

银虫 (正式写手)
先找出2,3,5的最先公倍数，然后在1000以内找出能整除这个最先公倍数的数，然后让他每行五个输出就行

发自小木虫Android客户端
赞一下 回复此楼
2楼2016-04-19 21:47:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1485782876

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by 疯人痴人 at 2016-04-19 21:47:00
先找出2,3,5的最先公倍数，然后在1000以内找出能整除这个最先公倍数的数，然后让他每行五个输出就行

要怎么写，写不出啊关键是

发自小木虫Android客户端
赞一下 回复此楼
3楼2016-04-19 22:09:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fuchuanqi

至尊木虫 (著名写手)

【答案】应助回帖

Private Sub Form_Load()
Show
For i = 1 To 1000
  If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 = 0 Then
    x = i
    Print x,
    n = n + 1
    If n = 3 Then
      Print
      n = 0
    End If
  End If

Next i

End Sub
赞一下 回复此楼
4楼2016-06-14 09:59:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 1485782876 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +4 十三加油 2026-03-21 4/200 2026-03-21 16:20 by barlinike
[考研] 286分人工智能专业请求调剂愿意跨考！ +4 lemonzzn 2026-03-17 7/350 2026-03-21 16:09 by lemonzzn
[考研] 332求调剂 +3 凤凰院丁真 2026-03-20 3/150 2026-03-21 10:27 by luoyongfeng
[考研] 材料工程（专）一志愿985 初试335求调剂 +3 hiloiy 2026-03-17 4/200 2026-03-21 03:04 by JourneyLucky
[考研] 南京大学化学376求调剂 +3 hisfailed 2026-03-19 6/300 2026-03-20 23:43 by hisfailed
[考研] 317求调剂 +5 申子申申 2026-03-19 9/450 2026-03-20 22:26 by JourneyLucky
[考研] 一志愿 西北大学 ，070300化学学硕，总分287，双非一本，求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 环境工程调剂 +9 大可digkids 2026-03-16 9/450 2026-03-20 17:38 by 醉在风里
[考研] 0856调剂，是学校就去 +8 sllhht 2026-03-19 9/450 2026-03-20 14:25 by 无懈可击111
[考研] 材料学硕318求调剂 +5 February_Feb 2026-03-19 5/250 2026-03-19 23:51 by 23Postgrad
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 085601专硕，总分342求调剂，地区不限 +5 share_joy 2026-03-16 5/250 2026-03-18 14:48 by haxia
[考研] 311求调剂 +11 冬十三 2026-03-15 12/600 2026-03-18 14:36 by 星空星月
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[考研] 334求调剂 +3 志存高远意在机� 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[考研] 考研求调剂 +3 橘颂. 2026-03-17 4/200 2026-03-17 21:43 by 有只狸奴
[考研] 考研化学学硕调剂，一志愿985 +4 张vvvv 2026-03-15 6/300 2026-03-17 17:15 by ruiyingmiao
[考研] 283求调剂 +3 听风就是雨； 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[考研] 0856专硕279求调剂 +5 加油加油！? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
信息提示
关闭
请填处理意见
关闭