利用InputBox输入三角形的三边长度,计算并显示三角形的面积.
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/01 05:41:42
利用InputBox输入三角形的三边长度,计算并显示三角形的面积.
利用InputBox输入三角形的三边长度,计算并显示三角形的面积.
利用InputBox输入三角形的三边长度,计算并显示三角形的面积.
Sub CalcTriangle()
Dim getstr As String
Dim arr(1 To 3) As Double
Dim p As Double,s As Double
Dim i As Integer
While (True)
For i = 1 To 3
getstr = InputBox("输入三角形第" & i & "边边长","计算三角形面积",1)
If (getstr = "") Then
Exit Sub
End If
arr(i) = 0
If (IsNumeric(getstr)) Then
arr(i) = CDbl(getstr)
End If
If (arr(i)
#include "stdio.h"
#include "conio.h"
float sj(float w,float h)
{
if((w == 0) || (h == 0))
{
return(0);
}else
{
return((w*h)/2);
}...
全部展开
#include "stdio.h"
#include "conio.h"
float sj(float w,float h)
{
if((w == 0) || (h == 0))
{
return(0);
}else
{
return((w*h)/2);
}
}
void main()
{
float sj(float w,float h);
float w,h,s;
printf("input a w:");
scanf("%f",&w);
printf("input a h:");
scanf("%f",&h);
s=sj(w,h);
if (s > 0)
{
printf("w -> %f\nh -> %f\nS = (w * h)/2 = %f\n",w,h,s);
}else
{
printf("input is error!!!");
}
getch();
}
收起