Question

用vb编一程序，一个月，陌生人每天给富翁十万元，富翁第一天给一分，以后每天给前

Answer 1

Private Sub Command1_Click()
Dim m As Currency, n As Currency, i As Integer
For i = 1 To 30
m = m + 0.01 * (2 ^ (i - 1))
n = n + 100000
Next
MsgBox "陌生人给富翁的钱是" & n & "元" & vbCrLf & "富翁给陌生人的钱是" & m & "元"
End Sub

Answer 2

10万X30天=300万
0.01元X2^(n-1天)

第一个省略了，谁都会

m=0
for i=1 to 30
m = m + 0.01 * ( 2 ^ ( i - 1 ) )

next i

得到结果是10,737,418.23元

实际应用是1到30天，写程序的时候可以直接for i=0 to 29
这样就不用( i - 1 )了

Answer 3

这个这个 这个 题不全

追问

陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的前为多少？

追答

这个 富翁给陌生人的钱 是2的1——n次方 的和 ，穷人给富翁的钱 就是简单的加法 这个没什么难呀

追问

是用vb编一个程序

追答

知道 这个用一个 循环就行了 不是很难呀
写一个主体吧
for i= 1 to 30
a= 2^(i-1)
b=100000+b
next
不会再追