UC知道vb的编程问题，偶较笨不要骂我
来源：百度知道 编辑：UC知道 时间：2024/05/12 05:06:02
编写程序判断三角形是否构成三角形
(画了三个文本框和4个标签，及一个命令按扭)大概如下，我不知道哪错了，高人指点！！！
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
a = InputBox("")
b = InputBox("")
c = InputBox("")
Do While a + b > c And a + c > b And b + c > a
Label4.Caption = "是三角形"
Loop
Label4.Caption = "不是三角形"
End Sub
主要是DO WHILE ……LOOP的中间老觉得不太对，是不是少了点什么？？？ （我按你们说的试了一下，但都是编译错误，未找到方法或数据成员。）
这个是原题目：
给定三角形得3条边长，计算三角形的面积。编写程序，首先判断给出的3条边是否够成三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。
(画了三个文本框和4个标签，及一个命令按扭)大概如下，我不知道哪错了，高人指点！！！
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
a = InputBox("")
b = InputBox("")
c = InputBox("")
Do While a + b > c And a + c > b And b + c > a
Label4.Caption = "是三角形"
Loop
Label4.Caption = "不是三角形"
End Sub
主要是DO WHILE ……LOOP的中间老觉得不太对，是不是少了点什么？？？ （我按你们说的试了一下，但都是编译错误，未找到方法或数据成员。）
这个是原题目：
给定三角形得3条边长，计算三角形的面积。编写程序，首先判断给出的3条边是否够成三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。
如果要实现单击一次按钮判断是否构成三角形，只要这样就行了
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
if a + b > c And a + c > b And b + c > a
Label4.Caption = "是三角形"
else
Label4.Caption = "不是三角形"
endif
End Sub
如果想做到不停地检测输入的数是不是三角形？
其实用Timer控件比较简单
在窗体上放一个Timer控件，然后双击该控件，修改其Timer1_Timer事件
然后输入下面代码
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
if a + b > c And a + c > b And b + c > a
Label4.Caption = "是三角形"
else
Label4.Caption = "不是三角形"
end if
同时把timer1的Interval属性改为1就可以了
如果要用点击一个按钮后不停检测，而不用计时器控件，那把代码改成如下试试。
Private Sub Command1_Click()
Dim a As Integer
Dim b