从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
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
直接用me.line(x1,y1)-(x2,y2),LineColor,B就可以了
其中的LineColor是颜色代号,也可以省略不写。
方法有好几种,最简单一个
Line (200, 200)-(2000, 2000), , B '画空心正方形
Line (200, 200)-(2000, 2000), vbRed, BF '-画vbred(纯红颜色)实心正方形
Line (200, 200)-(2000, 2000), RGB(100, 32, 48), BF ‘画自定颜色正方形
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图