have_no
【隐身守候】
采纳率100%
2020-06-04 17:29

VB问题,请各位大佬帮忙,谢谢!

已采纳

*****写出关键代码*****
1、累加。s=2+4+6+......+100,利用各种循环语句编程求解s。(2550)
2、条件累加。s=1+3+5+9+......,求s不大于1000最大值。
3、累加累乘。编程求:2!+4!+6!+8!+10! (3669866)
4、找最小数。随机产生十个1-100范围内的整数,输出最小数。
5、编程输出所有的水仙花数。
6、打印输出九九乘法表

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

1条回答

  • caozhy 回答这么多问题就耍赖把我的积分一笔勾销了 10月前
    (1)
    s = 0
    for i = 2 to 100 step 2
    s = s + i
    next
    msgbox s
    (2)
    s = 0
    n = 1
    while s < 100 + n
    s = s + n
    n = n + 2
    wend
    msgbox n
    (3)
    sum = 0
    acc = 1
    for i = 2  to 10
    acc = acc * i
    if (acc mod 2 = 0) then sum = sum + acc
    next
    msgbox sum
    (4)
    min = rnd() * 100
    for i = 1 to 9
    x = rnd() * 100
    if (min > x) then min = x
    next
    msgbox min
    (5)
    水仙花数有无数个,必须指定范围,否则无法打印
    (6)
    for i = 1 to 9
    for j = 1 to 9
    print i & "*" & j & "=" & i * j & " ",
    next
    print ""
    next
    
    点赞 2 评论 复制链接分享