UC知道VB 3条简单编程题！！
来源：百度知道 编辑：UC知道 时间：2024/05/10 08:10:01
写出各条题目程序 题目如下：
1. 利用InputBox输入三角形三条边的长度a,b,c,计算并显示三角形的面积！（只用一个对话框和一个命令按钮）
2. 用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，之间有间隔。
3. 随机产生一个三位正整数，然后逆序输出，产生的小数与逆序数同时显示。例如，产生246，输出是642 ！
谢谢了！ 满意的话会再加悬赏分！！
答案是在窗体中显示的！不是另有对话框！！
1. 利用InputBox输入三角形三条边的长度a,b,c,计算并显示三角形的面积！（只用一个对话框和一个命令按钮）
2. 用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，之间有间隔。
3. 随机产生一个三位正整数，然后逆序输出，产生的小数与逆序数同时显示。例如，产生246，输出是642 ！
谢谢了！ 满意的话会再加悬赏分！！
答案是在窗体中显示的！不是另有对话框！！
答案补充：已经做了修改，显示在窗体中。（一开始说“只用一个对话框……”后来却是“不是另有对话框！！”委屈啊～～～）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
T1.
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, l As Single
a = InputBox("a=?")
b = InputBox("b=?")
c = InputBox("c=?")
l = (a + b + c) / 2
If a >= l Or b >= l Or c >= l Then
Print "不能构成三角形"
Else
Print "三角形面积为：" & Sqr(l * (l - a) * (l - b) * (l - c))
End If
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
T2.
Private Sub Form_Paint()
Dim a As Single
a = InputBox("a=?")
Print Round(a * a, 3), Round(Sqr(a), 3), Round(a ^ 3, 3), Round(a ^ (1 / 3), 3)
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
T3.
Private Sub Form_Paint()
Randomize
Dim a As Integer
a = Rnd * 100 + 900
Print a, StrReverse(a)
End Sub
太小气了吧
才10分
private sub form_load()
dim a as single,b as