UC知道求程序及答案
来源：百度知道 编辑：UC知道 时间：2024/05/11 03:56:10
一、数列a1、a2、a3、a4、a5......已知a1=0、a2=1、a3=1、a4=a1+2*a2+a3、 a5+a2+2*a3+a4、......依次类推编程输出第23项值。
二、已知三角形的两边分别为13、17，他们的夹角为36°，圆周率取3.14，编程求该三角形的面积（精度：四舍五入保留小数点后6位）
三、编程求12709到45368之间有多少个其各位数字之和为5的正整数。
二、已知三角形的两边分别为13、17，他们的夹角为36°，圆周率取3.14，编程求该三角形的面积（精度：四舍五入保留小数点后6位）
三、编程求12709到45368之间有多少个其各位数字之和为5的正整数。
第一题..递归算法
Function aX&(n%)
Select Case n
Case 1
aX = 0
Case 2, 3
aX = 1
Case Else
aX = aX(n - 3) + 2 * aX(n - 2) + aX(n - 1)
End Select
End Function
Private Sub Form_Click()
Print aX(23)
End Sub
第二题....晕..数学问题啊...汗水...s=(1/2)a*b*sinC
Private Sub Form_Click()
Const Pi = 3.14
Dim S!
S = 0.5 * 13 * 17 * Sin(36 * Pi / 180)
Print S
End Sub
第三题...
Private Sub Form_Click()
'都是5位数,我采用字符串分离的方法。
Dim i&, n&
For i = 12709 To 45368
If Val(Left(i, 1)) + _
Val(Mid(i, 2, 1)) + _
Val(Mid(i, 3, 1)) + _
Val(Mid(i, 4, 1)) + _
Val(Right(i, 1)) = 5 Then
n = n + 1
End If
Next i
Print "个数是";n