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

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

創(chuàng)新互聯(lián)專注于倉(cāng)山企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),商城建設(shè)。倉(cāng)山網(wǎng)站建設(shè)公司,為倉(cāng)山等地區(qū)提供建站服務(wù)。全流程定制制作，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(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編程問題：在一個(gè)窗體上打印空正方形的程序，應(yīng)該在一個(gè)文本框里輸入正方形的邊長(zhǎng)

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

其中的LineColor是顏色代號(hào)，也可以省略不寫。

輸出一個(gè)正方形圖形，vb程序

方法有好幾種，最簡(jiǎn)單一個(gè)

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

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

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

網(wǎng)站標(biāo)題：vb.net打印正方形 vb打印直角三角形
網(wǎng)頁(yè)鏈接：http://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)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)