(填寫相應編號)添加列表框List1. (2)為實現上述功能,請在橫線處填入合適代碼. Private Sub Command1_Click( ?。?br />Dim s As Single,x As Single,n As Integer,i As Integer Randomize List1.Clear s=Val(Text1.Text) n=① For i=1To② x=Int((Rnd( )*s/(n-i)+0.005)*100)/100 List1.AddItem Str(x) s=③ Next i x=Int((s+0.005)*100)/100 List1.AddItem Str(x) End Sub.
(選填,填字母:A、對象名/B、事件名/C、事件處理過程名/D、方法名) (2)為實現上述功能,請在畫線處填入合適的代碼。 Private Sub Command1_Click ( ?。?br />Dim pv As Single,fv As Single,rate As Single,n As Integer pv=Val(Text1.Text)’pv 存儲的是投資金額 fv=Val(Text2.Text)’fv 存儲的是目標金額 rate=Val(Text3.Text)’rate 存儲的是年收益率 n=1 Do While pv<fv pv=① List1.AddItem“第“+Str(n)+“年“+““+Str(pv)+“元“ ② Loop Text4.Text=③ End Sub