我用vb写了一个计算长方形~正方形或三角形面积的程序~

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/06 06:42:34

我用vb写了一个计算长方形~正方形或三角形面积的程序~
代码如下~怎样修改啊~
Private Sub Command1_Click()
Dim a As String
Dim h,l,s As Single
a = InputBox("请输入形状（只限于长方形~正方形或三角形）","请输入")
If (a = "长方形" Or "正方形") Then
h = InputBox("请输入宽","请输入")
l = InputBox("请输入长","请输入")
s = h * l
Print a; "的面积为"; s
Else
h = InputBox("请输入的高","请输入")
l = InputBox("请输入的底","请输入")
s = h * l / 2
Print a; "的面积为"; s
End If
MsgBox "计算完毕",,"提示"
End Sub

判断写错,改完的：
Private Sub Command1_Click()
Dim a As String
Dim h,l,s As Single
a = InputBox("请输入形状（只限于长方形~正方形或三角形）","请输入")
If (a = "长方形" Or a = "正方形") Then
h = InputBox("请输入宽","请输入")
l = InputBox("请输入长","请输入")
s = h * l
Print a; "的面积为"; s
Else
h = InputBox("请输入的高","请输入")
l = InputBox("请输入的底","请输入")
s = h * l / 2
Print a; "的面积为"; s
End If
MsgBox "计算完毕",,"提示"
End Sub
再问：谢谢呀~~ 顺便问一下~ h = InputBox("请输入宽", "请输入") 在这段代码里~我想显示为这样 “请输入长方形的宽”即请输入a形的宽~~应该怎么改呀~~？
再答： Private Sub Command1_Click() Dim a As String Dim h, l, s As Single a = InputBox("请输入形状（只限于长方形~正方形或三角形）", "请输入") If (a = "长方形" Or a = "正方形") Then h = InputBox("请输入" & a & "的宽", "请输入") l = InputBox("请输入" & a & "的长", "请输入") s = h * l Print a; "的面积为"; s Else h = InputBox("请输入" & a & "的高", "请输入") l = InputBox("请输入" & a & "的底", "请输入") s = h * l / 2 Print a; "的面积为"; s End If MsgBox "计算完毕", , "提示" End Sub

我用vb写了一个计算长方形~正方形或三角形面积的程序~ 谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）用VB设计一个计算圆的面积的程序用VB设计一个计算银行存款利息的程序编写一个计算个人所得税的程序（用VB编写）请教大神用VB编一个计算的程序? 长方形、正方形、三角形面积计算推导过程, 求一个计算正方形面积的Java程序帮忙写一个vb程序要求通过文本框输入三角形任意两条边的长度和夹角度数,求三角形的面积求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα 求vb程序,关于计算圆环面积的在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序