Question

求高手做几段简单的VB小程序

我们这学期的信息作业= =
当我什么都不会- -
所以求几段很简单的vb小程序
1.求圆锥的体积
2.求球体的体积
3.求圆柱的体积
4.求正方体的体积

请贴代码
谢谢！
很急 在线等

Answer 1

Private Sub Command1_Click()
s = Val(InputBox("输入底面积"))
h = Val(InputBox("高"))
r = Val(InputBox("地面半径"))
V = 1 / 3 * s * h ' S是底面积，h是高，r是底面半径
Print "圆锥的体积为"; V
End Sub

Private Sub Command2_Click()
pi = 3.1415926
r = Val(InputBox("半径"))
V = (4 / 3) * pi * r ^ 3
Print "球体的体积为"; V
End Sub

Private Sub Command3_Click()
pi = 3.1415926
r = Val(InputBox("底面半径"))
h = Val(InputBox("高"))
V = 2 * pi * r * h
Print "圆柱的体积"; V
End Sub

Private Sub Command4_Click()
a = Val(InputBox("边长"))
V = a * a * a
Print "正方体的体积"; V
End Sub

Answer 2

还有界面部分没法表示

h = Val(text1.Text) '获得高
r = Val(text2.Text) '获得底面半径
v = 3.14 * r * r * h / 3 '计算圆锥体积
label1.Caption = v '显示体积

r = Val(text1.Text) '获得球半径
v = 4 * 3.14 * r ^ 3 / 3 '计算球体体积
label1.Caption = v '显示体积

h = Val(text1.Text) '获得高
r = Val(text2.Text) '获得底面半径
v = 3.14 * r * r * h '计算圆柱体积
label1.Caption = v '显示体积

l = Val(text1.Text) '获得棱长
v = l ^ 3 '计算长方体体积
label1.Caption = v '显示体积

LZ还有很多要学习的......

Answer 3

圆锥的体积公式是什么？
早忘记了！

Answer 4

Private Sub Command1_Click()
Dim s As String, pos As Integer
Dim j As Integer, k As Integer
Dim a(3, 3) As Integer, i As Integer
s = Text1
For i = 1 To 3
For j = 1 To 3
k = 0
pos = pos + 1
Do While Mid(s, pos, 1) <> "" And pos <= Len(s)
pos = pos + 1
k = k + 1
Loop
a(i, j) = Mid(s, pos - k, k)

Text2 = Text2 & CStr(a(i, j)) & ""
Next j
Text2 = Text2 & vbCrLf
Next i