快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net打印正方形 vb打印直角三角形

求用vb ,用双重循环,打印一个等腰梯形,等腰三角形和正方形图案,用“*”打印,谢谢!

Private Sub Command1_Click() '等腰三角形

创新互联专注于仓山企业网站建设,自适应网站建设,商城建设。仓山网站建设公司,为仓山等地区提供建站服务。全流程定制制作,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务

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编程问题:在一个窗体上打印空正方形的程序,应该在一个文本框里输入正方形的边长

直接用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 ‘画自定颜色正方形


当前文章:vb.net打印正方形 vb打印直角三角形
浏览地址:http://6mz.cn/article/doddehp.html

其他资讯