Question

关于VB可视化程序设计

求高人解决
1 求T=8！=1*2*3*4*5*6*7*8采用Do..loop前测和后测及for..next三种语句实现该程序
2 编写并实现该程序 用100元买一百只鸡，母鸡3元一只， 小鸡一元三只，请问各买多少只？ 将母鸡数目和小鸡数目在窗体上输出

谢谢啦！
希望可以详细一些！本人跪谢了

Answer 1

1、
jc=1
do while t>0
jc=jc*t
t=t-1
loop

jc=1
do
jc=jc*t
t=t-1
loop until t=1

for i=t to 1 step -1
jc=jc*i
next i

2
do while i*3<100
if 3*i+(100-i)/3=100 then print i,(100-i)
i=i+1
loop

变量声明和过程声明自己添加即可（程序自动添加过程声明）。

Answer 2

第一个就好答..!
sum=1
for i=2 to t
sum=sum*i
next i