我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox("请输入形状(只限于长方形~正方形或三角形)","请输

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 00:15:45
我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputB

我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox("请输入形状(只限于长方形~正方形或三角形)","请输
我用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

我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox("请输入形状(只限于长方形~正方形或三角形)","请输
判断写错,改完的:
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

我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox(请输入形状(只限于长方形~正方形或三角形),请输 谁能帮我用VB设计一个简单的程序:计算正方形的面积(详细点) 谁能帮我用VB设计一个简单的程序:计算正方形的面积(详细点) 三角插纸是正方形还是长方形 三角行 正方形 长方形 直线 圆形 用英语单词怎么说 正方形长方形圆形椭圆形三角形等等形状用英语怎么念?读音帮我用汉语或拼音写出来. 在VB中如果a=b或a=c用if语句该怎么写?if a=b or c 这样写对吗?我不想写成if a=b or a=c,因为a是一个很长的计算表达式,这样写会造成重复计算,浪费时间. 一个正方形和一个长方形的面积相等,正方形的边长是24dm,长方形的长是9cm,宽是多少?长方形的周长是多少其实不用换单位的,是我写错了,抱歉! 用8个棱长为1厘米的小正方形拼成一个长方形(或正方形),表面积最大是?最小是? 不懂做,是表面积,不要看体积了! 求一组数字验证的正则表达式验正一组字符,只能由一个或多个4位或3位数字组成,数字间用.间隔 我用的是VB.net举个例子:987.1234.1321.222我自己写了个,但效果不正确,貌似{3,4}3起作用了,但4不 我用VB编了一个计算器程序,不知为什么只能进行5位数计算,到6位数就提示“溢出”.这是怎么回事? 物理学计算中经常出现一个正三角或倒三角,是什么算符? 物理学计算中经常出现一个正三角或倒三角,是什么算符? 将一个正方形一边缩短5分之1,另一边加2米,得到一个长方形,面积与正方形相等.正方形面积是多少?最好列算式,不要用方程式用方程式的话,每一步怎样计算的写清楚,清楚的话我提悬赏 用VB画圆、正方形、长方形、球、正方体、长方体要编程的内容过程最好编程简单点否则以我的程度 怕看不懂 用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了, 用一个长80厘米宽6厘米的长方形计算一个最大的正方形 VB中计算c = 5 (x-32) / 9 用VB语言怎么写