vb编程 在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 22:20:56
vb编程 在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和.
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
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
vb编程 在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和.
vb编程题:单击窗体,在窗体上显示1~200之间既能被5整除又能被7整除的数的和
vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n
求VB编程代码(For循环).题目:求Fibonacci数列:1,1,2,3,5,8,…的前40个数
vb编程 用递归函数求数列1,1,2,3,5,8,13,21.的第N项
vb编成实现求斐波拉契数列(1,1,2,3,5,8,13,21,34,)前n项的和
有一分数序列2/1,3/2,5/3,8/5 .,求这个数列前20 项之和 计算机VB编程,
求助VB编程题,斐波那契数列指的是这样一个数列:1,1,2,3,5,8,13,21...用递推和递归方法求解10项
VB:在不同的窗体上分别计算:y=(5!+7!)/8!和s=1!+2!+...+10!的值.要求在标准模块中定义求阶乘的
1,VB的续行标志是2,Int(RND*499) 2的范围是3,在窗体上打印出ASCII码值为65的字母,语句为4,ch
vb编程 已知sum=1!-2!+3!-4!...-10!,请将sum值输出到窗体上 用do while
用while…Wend语句完成求数列1,1,2,3,5,8,13,21,33……的前20项之和.中的求数列和,在VB程序