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://lszwz.com/article/doddehp.html

其他资讯

售后响应及时

7×24小时客服热线

数据备份

更安全、更高效、更稳定

价格公道精准

项目经理精准报价不弄虚作假

合作无风险

重合同讲信誉，无效全额退款

乐山小谭建站工作室是一家专注从事于高品质视觉体验及互联网设计开发，乐山网站建设，乐山网站设计，乐山网页设计，乐山网站制作，品牌网站建设，营销网站建设，集团网站建设，企业网站建设，外贸网站建设，响应式网站建设，小程序开发，微信开发，企业形象设计，企业宣传视频等服务，小谭建站位于乐山市龙岗区大运软件小镇，小谭建站拥有经验丰富的高级网站建设工程师和一流的网页高端设计人员，具备各种规模与类型网站建设的雄厚实力，在网站建设领域树立了自己独特的设计风格。

友情链接交换友情链接

成都学生服定制虚拟主机成都品牌官网设计公司鸿艺文化谷歌推广绵阳梓潼做网站电商网站四川锦华橡塑成都帛金建站资阳网站建设

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室 All Rights Reserved 蜀ICP备2021004003号-25

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室

蜀ICP备2021004003号-25