我想编一个从a到b连乘的算法(都是正整数), 如下图所示 请问错在哪儿?

[复制链接]
查看11 | 回复2 | 2011-4-4 09:01:31 | 显示全部楼层 |阅读模式
比如a是1 b是3 就输出 a=6
(1*2*3)
回复

使用道具 举报

千问 | 2011-4-4 09:01:31 | 显示全部楼层
<pre id=\"best-answer-content\" class=\"reply-text mb10\">Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
s = 1
Do While a = b

s = s * a

a = a 1
Loop
Label1.Caption = s
End Sub
回复

使用道具 举报

千问 | 2011-4-4 09:01:31 | 显示全部楼层
<pre class=\"replyask-text\" id=\"content-3517367\">那 改成 cb对不对?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行