建站
咨詢
售后
建站咨詢
新聞中心
用VB畫等腰三角形
Const pi = 3.141593
創(chuàng)新互聯(lián)建站于2013年成立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站建設(shè)、做網(wǎng)站網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命，1280元富民做網(wǎng)站,已為上家服務(wù),為富民各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話: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坐標(biāo)？
如果點(diǎn)不在三角形內(nèi)呢？
原點(diǎn)你定義在哪呢？？
VB中,使用*組成一個(gè)等腰三角形,應(yīng)該使用哪種程序結(jié)構(gòu)？
VB中,使用*組成一個(gè)等腰三角形,應(yīng)該使用雙重循環(huán)的程序結(jié)構(gòu)。外循環(huán)決定一共有多少層，使用兩個(gè)內(nèi)循環(huán)，第一個(gè)內(nèi)循環(huán)用來輸出每行前面的空格。第2個(gè)內(nèi)循環(huán)用來輸出若干的星號(hào)，兩個(gè)內(nèi)循環(huán)結(jié)束后換行。
用VB.NET.編寫一個(gè)輸入三角形的三條邊a，b，c的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。
Dim a, b, c, s, p As Single
a = Val(InputBox("請(qǐng)輸入三角形邊長a"))
b = Val(InputBox("請(qǐng)輸入三角形邊長b"))
c = Val(InputBox("請(qǐng)輸入三角形邊長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("這是一個(gè)等腰三角形")
End If
If a = b = c Then
MsgBox("這是一個(gè)等邊三角形")
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("這是一個(gè)直角三角形")
End If
p = (a + b + c) / 2
s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
MsgBox("這個(gè)三角形的面積是" s)
End If
End Sub
vb打印等腰三角形的代碼
vb打印等腰三角形的代碼操作如下：
1、打開vb6.0軟件，新建一個(gè)工程。
2、窗口建立三個(gè)commandbutton控件，將其caption依次改為command。
3、雙擊任意一個(gè)commandbutton控件打開代碼窗口，輸入代碼即可。
新聞名稱：vb.net等腰三角形形 vb輸出等邊三角形
文章轉(zhuǎn)載：http://ef60e0e.cn/article/doeojej.html
