Question

大一VB作业

1、 利用文本框输入三角形的3条边长a,b,c，计算并显示三角形的面积，请分别用文本框、label标签、print方法和msgbox消息提示框显示结果。求三角形面积的公式：
area=sqr(s*(s-a)(s-b)(s-c)) ,s=(a+b+c)/2
2、 用Inputbox输入框输入一个正实数，用print方法在一行上显示出它的平方和平方根，立方和立方根，每个数保留3位小数点。
3、 随机产生一个3位数，然后逆序输出，产生的数和逆序数同时显示。例如产生548，输出845。要求至少用两种方法实现。

Answer 1

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
Text4 = area
Label1.Caption = area
Print area
MsgBox area, vbOKOnly, "面积"
End Sub
Private Sub Command2_Click()
X = Val(InputBox("输入正实数"))
Print Format(X ^ 2, "#.000")
Print Format(Sqr(X), "#.000")
Print Format(X ^ 3, "#.000")
Print Format(X ^ (1 / 3), "#.000")
End Sub
Private Sub Command3_Click()
Dim y, z
Randomize
X = Int(Rnd * 900 + 100)
Print X
For i = 0 To 2
y = y & Mid(X, 3 - i, 1) '方法一
Next i
Print y
z = X Mod 10 & Int(X / 10) Mod 10 & Int(X / 100) '方法二
Print z
End Sub

Answer 2

想干什么哦
这个东西写不上来的

Answer 3

a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
s=(a+b+c)/2
面积=sqr(s*(s-a)(s-b)(s-c))
text4.text=面积
label1.caption=面积
print 面积
msgbox 面积

第二题

x=abs(val(inputbox("输入正实数")))
print format(x^2,"#.000")’平方和
print format(Sqr(x),"#.000")'平方根
print format(x^3,"#.000")'立方和
print format(x^(1/3) ,"#.000")'立方根

第三题

Private Sub Command1_Click()
Randomize
x = Int(Rnd * (1000 - 100) + 100)
Print x
Print StrReverse(x)
Print Format(((x Mod 100) Mod 10) * 100 + ((x Mod 100) \ 10) * 10 + x \ 100, "000")
End Sub