用Vasual Basic6.0作为程序设计语言,设计如下程序

1:你的问题好象有问题吧,是正方体吧?
2:如果是正方体周长是不是指12条边长度之和?
3:我的回答是按照你说的是正方体来计算的

Private Sub Command1_Click()
Dim LineLen As Double
Dim S As Double
Dim ZhouC As Double
Dim V As Double
LineLen = Val(InputBox("请输入边长"))
S = 6 * LineLen ^ 2
ZhouC = 12 * LineLen
V = LineLen ^ 3
MsgBox "表面积=" & S & "周长=" & ZhouC & "体积=" & V
End Sub

窗体你自已做了，只要一个文本框和一个按钮就行了。
我只给你主要点
private sub button1_Click()
dim l as integer '正方行的边长
l=trim(text1.text)
msgbox "正方形的面积为：" & l*l & vbcrlf & " 正方体的体积为：" & l*l*l & vbcrlf & " 正方形的边长为：" & l*4
end sub

就是这个了，另外说一下，正方形怎么为有体积？要正方体才有啊？