1. 所在位置：首页
  2. 问答
  3. 设计程序的题目，请高手帮忙回答

设计程序的题目，请高手帮忙回答

? Bonnie ヾ 2024-11-15 10:36:28
最佳回答
1 '求1到100间能被6整除的整数个数 private sub command1_click() dim i as integer dim count as integer for i = 1 to 100 if i mod 6 = 0 then count = count + 1 next i print "1到100间能被6整除的整数个数:"; count end sub 2 '输入一个正整数，判断其奇偶性并输出判断结果 private sub command2_click() dim a as string dim n as long a = inputbox("输入一个正整数", "输入") n = clng(a) if n mod 2 = 0 then print n; "是偶数" else print n; "是奇数" end if end sub 3 '输入一个数，判断其是否为整数并输出判断结果 private sub command3_click() dim a as string dim n as long a = inputbox("输入一个数", "输入") if not **numeric(a) then print a; " 不是数" elseif instr(1, a, ".") = 0 then print a; " 是整数" else print a; " 不是整数" end if end sub 4 '输入两个正整数，求它们的最大公约数并输出 private sub command4_click() dim m as long dim n as long dim r as long dim a as string a = inputbox("输入一个正整数", "输入") m = clng(a) a = inputbox("输入一个正整数", "输入") n = clng(a) if n > m then r = m m = n n = r end if dim m1 as long dim n1 as long m1 = m n1 = n r = m1 mod n1 do while r <> 0 m1 = n1 n1 = r r = m1 mod n1 loop print m; "和"; n; "的最大公约数: "; n1 end sub 5 '从键盘输入三角形的三条边的边长，判断其能否构成一个三角形并输出判断结果 private sub command5_click() dim a as single dim b as single dim c as single dim s as string s = inputbox("输入一个数", "输入") a = csng(s) s = inputbox("输入一个数", "输入") b = clng(s) s = inputbox("输入一个数", "输入") c = clng(s) if a > 0 and b > 0 and c > 0 and a + b > c and a + c > b and b + c > a then print a; ","; b; ","; c; "可以构成三角形" else print a; ","; b; ","; c; "不能构成三角形" end if end sub'6求10！的值并输出private sub command6_click()dim i as longdim n as longn = 1for i = 1 to 10n = n * inext iprint "10! ="; nend sub7'求1-2+3-4+……-n的计算结果并输出private sub command7_click()dim s as stringdim i as longdim n as longdim sum as longs = inputbox("输入一个正整数", "输入")n = clng(s)for i = 1 to nif i mod 2 = 0 thensum = sum - ielsesum = sum + iend ifnext iprint sumend sub 20210311
汇率兑换计算器

类似问答
  • 审计实务题 求帮忙回答！
    • 2024-11-15 20:15:00
    • 提问者: 未知
    审计实务题 求帮忙回答！1．某会计师事务所注册会计帅刘可、张明已于2014年2月26日完成对盛大股份有限公司2013年度会计报表的外勤审计工作，现在止在草拟审计报告。按审计业务约定书的要求，...
  • 读《摸书》后的几个问题（急需答案，请高手帮忙）
    • 2024-11-15 04:53:34
    • 提问者: 未知
    超难。
  • 请帮忙解答这道期货计算题。
    • 2024-11-15 23:37:31
    • 提问者: 未知
    100是100w欧元25是25％，因为三个月等于四分之一年，为25％
  • 请懂编程和股票的 高手帮忙！
    • 2024-11-15 21:21:09
    • 提问者: 未知
    你要做这个的陆地无非就是和大盘走势相比较你完全没有必要去做的，因为现在有软件可以实现这个功能的请留言
  • 贡茶设备多少钱请帮忙回答一下
    • 2024-11-15 19:28:09
    • 提问者: 未知
    贡茶的设备直接问 凯亚菲 就可以啦，配方也有的卖，搜凯亚菲。
  • 请高手帮帮忙
    • 2024-11-15 02:08:05
    • 提问者: 未知
    不管基础那边，先点满刺杀下面的刺杀精通、刺杀领悟，然后再点痛击下面的追击和格斗专精。然后点1点锋锐，再点基础的刺客专精，然后再回头点满锋锐。那么加点的顺序就是：...
  • 148平米住房装修设计请高手帮忙
    • 2024-11-15 15:34:56
    • 提问者: 未知
    你好 房子房型不错,唯一缺陷是阳台小,以后使用会不方便的。1、入**鞋柜，把花园做书房，这里采光很好。2、餐厅旁的卫生间，把洗漱台搬卫生间去，原来的位置可以做一个储藏间。3、厨房与餐厅间...
  • 请帮忙回答下，谢谢
    • 2024-11-15 13:25:47
    • 提问者: 未知
    可以委托律师了解案情、去看守所会见当事人提供法律帮助，如果符合法定条件，最好<ahref="http://china.findlaw.cn/ask/question_43227640.html"t...
  • 有请朋友帮忙回答。
    • 2024-11-15 18:00:00
    • 提问者: 未知
    1 2007年1月1日 无形资产现值=500000/（1+6%）+500000/（1+6%）2+500000/（1+6%）3=1336505.97元 未确认融资费用=1500000-1336505.97=163494.03元 借：无形资产—商标权 1336505.97 借：未确认...
  • 请帮忙回答下吉祥卡c的问题，谢谢
    • 2024-11-15 15:17:45
    • 提问者: 未知
    激活卡名称：吉祥卡c 销售单位安徽；意外伤害 20000 元 意外医疗4000元 住院30元每日 怎么和网上查询到的c卡保额不一样啊 百度下，怎么有的地方意外伤害 50000 元 意外医疗...
汇率兑换计算器

热门推荐
热门问答
最新问答
推荐问答
新手帮助
常见问题
房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

特别声明：本网为公益网站，人人都可发布，所有内容为会员自行上传发布"，本站不承担任何法律责任，如内容有该作者著作权或违规内容，请联系我们清空删除。