UC知道VB代码编程
来源：百度知道 编辑：UC知道 时间：2024/06/22 00:03:59
1、设计一程序，用户输入三角形的三条边A，B，C的长度，然后程序判断它们能否构成三角形。如果能构成三角形，则计算出面积并输出，然后程序结束；如果不能构成三角形，则提示用户：不能构成三角形并转回重新输入。
计算面积的公式为：面积= ，L=(A+B+C)/2
2、写一个程序打印出所有的“水仙花数”。水仙花数是指三位的正整数，其各位数字的立方之和等于该正整数本身。例如：407=4*4*4+0*0*0+7*7*7。
3、设计程序计算 Cosx=1- +．．．＋(-1) +．．．( n=0、1、2… ), 要求
用户输入x 值及精度值后，程序计算出Cosx且误差小于精度值。
编写一个程序，计算函数sin(x)= x- +．．．＋(-1) +．．．( n=1、2… ), 要求用户输入x 值及精度值后，程序计算出sinx值并且误差小于精度值。程序界面如右图所示。
求高手帮我编辑下这几个VB程序
计算面积的公式为：面积= ，L=(A+B+C)/2
2、写一个程序打印出所有的“水仙花数”。水仙花数是指三位的正整数，其各位数字的立方之和等于该正整数本身。例如：407=4*4*4+0*0*0+7*7*7。
3、设计程序计算 Cosx=1- +．．．＋(-1) +．．．( n=0、1、2… ), 要求
用户输入x 值及精度值后，程序计算出Cosx且误差小于精度值。
编写一个程序，计算函数sin(x)= x- +．．．＋(-1) +．．．( n=1、2… ), 要求用户输入x 值及精度值后，程序计算出sinx值并且误差小于精度值。程序界面如右图所示。
求高手帮我编辑下这几个VB程序
1、根据三角形两边之和大于第三边，代码如下：
Private Sub Form_Click()
Dim A, B, C As Single
Dim S As Single
Dim P As Single
Z1:
A = Val(InputBox("请输入边长A的值", "输入"))
B = Val(InputBox("请输入边长B的值", "输入"))
C = Val(InputBox("请输入边长C的值", "输入"))
If ((A + B) > C) And ((A + C) > B) And ((B + C) > A) Then
P = (A + B + C) / 2
S = Sqr(P * (P - A) * (P - B) * (P - C))
Print "三角形边长" & A & "," & B; "," & C & " 面积S=" & S
Else
MsgBox "输入的三边不能构成三角形", vbOKOnly, "提示"
GoTo Z1
End If
End Sub
2、100－999的水仙花数
Private Sub Form_Click()
Dim I As Integer
Dim A, B, C As Integer
Form1.Cls
Print "100－999之间的水仙花数" & Chr(13)
For I = 100 To 999
A = I \ 100
B = (I Mod 100) \ 10
C = I Mod 10
If I = A ^ 3 + B ^ 3 + C ^ 3 Then
Prin