求用vb ，用雙重循環(huán)，打印一個等腰梯形，等腰三角形和正方形圖案，用“*”打印，謝謝！

Private?Sub?Command1_Click()?'等腰三角形

創(chuàng)新互聯(lián)專注于倉山企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),商城建設(shè)。倉山網(wǎng)站建設(shè)公司,為倉山等地區(qū)提供建站服務(wù)。全流程定制制作，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

Dim?i?As?Integer,?n?As?Integer

n?=?5

For?i?=?1?To?n

Print?Space(n?-?i);?String(2?*?i?-?1,?"*")

Next

End?Sub

Private?Sub?Command2_Click()?'正方形

Dim?i?As?Integer,?n?As?Integer

n?=?5

For?i?=?1?To?n

For?j?=?1?To?n

Print?"*?";

Next

Print

Next

End?Sub

Private?Sub?Command3_Click()?'等腰梯形

Dim?i?As?Integer,?n?As?Integer,?m?As?Integer

n?=?5

m?=?5

For?i?=?1?To?n

Print?Space(n?-?i);?String(2?*?i?-?1?+?m,?"*")

Next

End?Sub

VB編程問題：在一個窗體上打印空正方形的程序，應(yīng)該在一個文本框里輸入正方形的邊長

直接用me.line(x1,y1)-(x2,y2),LineColor,B就可以了

其中的LineColor是顏色代號，也可以省略不寫。

輸出一個正方形圖形，vb程序

方法有好幾種，最簡單一個

Line (200, 200)-(2000, 2000), , B '畫空心正方形

Line (200, 200)-(2000, 2000), vbRed, BF '-畫vbred(純紅顏色)實心正方形

Line (200, 200)-(2000, 2000), RGB(100, 32, 48), BF ‘畫自定顏色正方形

網(wǎng)站標題：vb.net打印正方形 vb打印直角三角形
網(wǎng)頁鏈接：http://www.chinadenli.net/article48/doddehp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、App開發(fā)、網(wǎng)站策劃、靜態(tài)網(wǎng)站、電子商務(wù)、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)