用vb做杨辉三角的程序,输入n则显示n行
另:(1)用vb做一个程序由e^x=(x^1)/1+(x^2)/2!+(x^3)/3!+.....+(x^n)/n!求e的值,其中n是可输入的数,x为任意数或由1开始逐步...
另:(1)用vb做一个程序
由e^x=(x^1)/1+(x^2)/2!+(x^3)/3!+.....+(x^n)/n!求e的值,其中n是可输入的数,x为任意数或由1开始逐步增大的数。
(2)谁有vb初学者适用的小程序,可否奉献几个
注:本人学习vb不久,刚学到循环和数组,希望各位在帮我的时候讲的详细一点,谢谢啦! 展开
由e^x=(x^1)/1+(x^2)/2!+(x^3)/3!+.....+(x^n)/n!求e的值,其中n是可输入的数,x为任意数或由1开始逐步增大的数。
(2)谁有vb初学者适用的小程序,可否奉献几个
注:本人学习vb不久,刚学到循环和数组,希望各位在帮我的时候讲的详细一点,谢谢啦! 展开
展开全部
Option Base 1
Private Sub Command1_Click()
Dim a(), b(), i, j, k As Integer
i = Val(Text1)
ReDim Preserve a(1)
ReDim Preserve b(1)
a(1) = 1
b(1) = 1
If i = 1 Then
Print 1
Else
For j = 1 To i
a = b
ReDim Preserve a(j)
ReDim Preserve b(j)
Print b(1);
For k = 2 To j
b(k) = a(k - 1) + a(k)
Print b(k);
Next k
Print
Next j
End If
End Sub
Private Sub Command1_Click()
Dim a(), b(), i, j, k As Integer
i = Val(Text1)
ReDim Preserve a(1)
ReDim Preserve b(1)
a(1) = 1
b(1) = 1
If i = 1 Then
Print 1
Else
For j = 1 To i
a = b
ReDim Preserve a(j)
ReDim Preserve b(j)
Print b(1);
For k = 2 To j
b(k) = a(k - 1) + a(k)
Print b(k);
Next k
Next j
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询