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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答中转子版 » Qbasic软件问题
71/1返回列表
查看: 166  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【悬赏金币】回答本帖问题，作者乔老爹将赠送您 5 个金币

乔老爹

木虫 (小有名气)

[求助] Qbasic软件问题

两到题目在我的相册中
相册地址：http://hi.baidu.com/%F3%DF%BB%EA/album/Qbasic
希望大家帮忙
希望在12点前有答案
回复此楼

» 猜你喜欢
1楼 2008-04-09 22:07:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tibetebit

★ ★ ★ ★ ★
乔老爹(金币+5,VIP+0):第一题的答案不对
第一题：
SUM  = 0
FOR I = 1 TO 21 STEP 2
  TEMP = 1
  FOR J = 1 TO I
    TEMP = TEMP * J
  NEXT J
SUM = SUM + TEMP
NEXT I
PRINT SUM
赞一下(2人) 回复此楼
2楼2008-04-09 22:56:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tibetebit

有点晕了，这个是15年前学的东东，呵呵，幸好现在还从事IT行业，勉强记得一点点。
另外：按照编程规范，上面代码中的变量应该是见名知意的。为了表达对谭浩强这个领路人的敬意，我还是按当年书上的习惯来命名了，哈哈。
赞一下 回复此楼
3楼2008-04-09 22:59:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tibetebit

第二个题目，图片上的代码不全，没法改，呵呵
赞一下 回复此楼
4楼2008-04-09 23:01:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

乔老爹

木虫 (小有名气)
谢谢提醒 图片已重新编辑
赞一下 回复此楼
5楼2008-04-09 23:13:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tibetebit

sent$ = "tHE Boy!"
PRINT sent$
L = LEN(sent$)
s$ = ""
FOR i = 1 TO L
a$ = MID$(sent$, i, 1)
IF a$ >= "A" AND a$ <= "Z" THEN
a$ = LCASE$(a$)
ELSEIF a$ >= "a" AND a$ <= "z" THEN a$ = UCASE$(a$)
END IF
s$ = s$ + a$
NEXT i
PRINT s$
END

[ Last edited by tibetebit on 2008-4-9 at 23:42 ]
赞一下 回复此楼
6楼2008-04-09 23:39:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tibetebit

搞定，那个字符串我就懒得打了，你替换一下原题里面的就可以了。具体改动了几个地方，请自己比较，呵呵。
赞一下 回复此楼
7楼2008-04-09 23:41:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 乔老爹 的主题更新
71/1返回列表
不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 PYZmcHr5kSaq 2026-11-05 5/250 2026-11-05 21:27 by qL1cU46YIdK0
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 ELBZ6WwEaRj6 2026-11-05 3/150 2026-11-05 21:05 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:54 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:43 by qL1cU46YIdK0
[考研] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:43 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 9/450 2026-11-05 20:34 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-05 20:21 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 8/400 2026-11-05 20:21 by qL1cU46YIdK0
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 11/550 2026-11-05 20:10 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-05 20:10 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 ttH3f1oA6ace 2026-11-04 6/300 2026-11-05 18:00 by My20PsvIExYO
[考研] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 11/550 2026-11-05 17:58 by My20PsvIExYO
[考博] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 kvewwGtKktqB 2026-11-04 8/400 2026-11-05 17:47 by My20PsvIExYO
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 kvewwGtKktqB 2026-11-04 13/650 2026-11-05 17:47 by My20PsvIExYO
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-05 17:36 by My20PsvIExYO
[考研] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-05 17:36 by My20PsvIExYO
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 ncTVBM6AOJHF 2026-11-04 16/800 2026-11-05 17:25 by My20PsvIExYO
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 19/950 2026-11-05 17:25 by My20PsvIExYO
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ncTVBM6AOJHF 2026-11-04 13/650 2026-11-05 17:15 by My20PsvIExYO
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 15:13 by My20PsvIExYO
信息提示
关闭
请填处理意见
关闭