大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Const pi = 3.141593
创新互联建站于2013年成立,是专业互联网技术服务公司,拥有项目网站建设、做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元富民做网站,已为上家服务,为富民各地企业和个人服务,联系电话:13518219792
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize
r = 1000 * Rnd
d = 10 * Rnd
Me.Line (X, Y)-(X + r * Cos(pi / d), Y + r * Sin(pi / d))
Me.Line -(X - r * Cos(pi / d), Y + r * Sin(pi / d))
Me.Line -(X, Y)
End Sub
给出(x,y,z)????
平面图形,哪来的z坐标?
如果点不在三角形内呢?
原点你定义在哪呢??
VB中,使用*组成一个等腰三角形,应该使用双重循环的程序结构。外循环决定一共有多少层,使用两个内循环,第一个内循环用来输出每行前面的空格。第2个内循环用来输出若干的星号,两个内循环结束后换行。
Dim a, b, c, s, p As Single
a = Val(InputBox("请输入三角形边长a"))
b = Val(InputBox("请输入三角形边长b"))
c = Val(InputBox("请输入三角形边长c"))
If a + b = c Or b + c = a Or c + a = b Then
MsgBox("这样的三角形不存在")
Else
If a = b Or b = c Or c = a Then
MsgBox("这是一个等腰三角形")
End If
If a = b = c Then
MsgBox("这是一个等边三角形")
End If
If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or c ^ 2 + a ^ 2 = b ^ 2 Then
MsgBox("这是一个直角三角形")
End If
p = (a + b + c) / 2
s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
MsgBox("这个三角形的面积是" s)
End If
End Sub
vb打印等腰三角形的代码操作如下:
1、打开vb6.0软件,新建一个工程。
2、窗口建立三个commandbutton控件,将其caption依次改为command。
3、双击任意一个commandbutton控件打开代码窗口,输入代码即可。