Question

电脑里装了VB程序设计软件的帮忙输出下一下的程序吧!

我电脑没装那个软件，需要结果，程序如下，好心人截图给我吧!
1
Private Sub Command1_Click()
s=0
x0 = 0.01
For i = 1 To 30
s = s + x0
x0 = x0 * 2
Next i
Print s
End Sub

2
Private Sub Command4_Click()
Picture1.Cls
Picture1.Print "x 课安排在 "; "y 课安排在 "; "z 课安排在 "
Picture1.Print ""
For z = 5 To 6
For x = 1 To z – 2
For Y = x + 1 To z – 1
X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
Y1 = Choose(Weekday(Y), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
z1 = Choose(Weekday(z), "周一", "周二", "周三", "周四", "周五", "周六", "周日") Picture1.Print " "; X1; " "; Y1; " "; z1
Next Y
Next x
Next z
End Sub
顺便问下运行的环境是啥？第一个题目是：
一个富翁试图与陌生人做一笔换钱生意，规则是：陌生人每天给富豪10万元钱，直到满一个月（30天），二富豪第一天给陌生人1分钱，第二天2分，第三天4分，····，富豪每天给陌生人得钱是前一天的两倍，直到满一个月。分别显示富豪给陌生人的钱和陌生人给富豪的钱是多少？
提示：舍富豪第一天给出的钱Xo，为0.001第二天给出的钱为前一天的两倍，既Xo=2*Xo,如此重复道30天，累计求得富翁给出的钱远远超过陌生人给出的钱10万*30=300万。

Answer 1

vb 6.0

追问

我怎么觉得第一个的答案怪怪的啊，原文题目在问题补充里。

为什么结果那么怪？能不能再试试呢？？太感谢了！

追答

分步弄的，结果没问题