题目
vb编程 在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和.
提问时间:2021-01-03
答案
Private Sub Form_Click()
Dim T(10) As Integer
Dim R(10) As Integer
R(0) = 1
T(0) = 2
S = 0
For i = 1 To 10
If i = 1 Then
R(i) = R(i - 1) + 1
Else
R(i) = R(i - 1) + R(i - 2)
End If
T(i) = R(i - 1) + T(i - 1)
Next i
For i = 0 To 10
S = T(i) / R(i) + S
Print T(i) & "/" & R(i)
Next i
Print "总和为:"; S
End Sub
![](http://f.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=4c585db0c3cec3fd8b6baf73e6b8f807/8435e5dde71190ef838c32a3ce1b9d16fdfa6053.jpg)
Dim T(10) As Integer
Dim R(10) As Integer
R(0) = 1
T(0) = 2
S = 0
For i = 1 To 10
If i = 1 Then
R(i) = R(i - 1) + 1
Else
R(i) = R(i - 1) + R(i - 2)
End If
T(i) = R(i - 1) + T(i - 1)
Next i
For i = 0 To 10
S = T(i) / R(i) + S
Print T(i) & "/" & R(i)
Next i
Print "总和为:"; S
End Sub
![](http://f.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=4c585db0c3cec3fd8b6baf73e6b8f807/8435e5dde71190ef838c32a3ce1b9d16fdfa6053.jpg)
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点
- 1四年级暑假作业本(数学和英语)那里有卖
- 2如果一个等腰三角形的三边长为2a、3a+5、5a-3,求这个三角形的周长
- 3两个正数a.b的等差中项与等比中项的大小关系是_____________.
- 4化简√ (2+ cos2-sin平方1)的结果是
- 5到大自然去观察.探索,你发现什么有趣的事
- 6乱花渐欲迷人眼的下一句是什么?
- 7You can buy____(dry) fish in the supermarket.
- 8英语缺词填空
- 9已知:x/3y=y/2x-5y=6x-15y,求:[(4x)平方+5xy+(6y)平方]/[(x)平方-2xy+(3y)平方]拜托了各位
- 10课文中几次写到“唯一的听众”用意是什∥