导航:首页 > 编程语言 > 编程打印平行四边形

编程打印平行四边形

发布时间:2024-07-04 21:56:21

A. VB里用星号输出平行四边形、正三角、倒三角的程序语句

一、Private Sub Form_Click()

show

Dim m, n, i, j As Integer

m = 4 :n = 7

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To n

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To i

Print " ";

Next j

For j = 1 To 2 * m - 2 * i + 1

Print "*";

Next j

Print

Next i

End Sub

二、Sub Command1_Click()

Dim i As Integer

For i = 1 To 11 Step 2

For m = 11 To i Step -1

Debug.Print "*";

Next

Print Chr(10) & Space(1 + i 2);

Next

End Sub

(1)编程打印平行四边形扩展阅读:

在VB中,注释有2种方式。

1、以Rem关键字开头,并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行,也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字,则必须使用冒号(:)与语句隔开。

2、使用一个撇号(')来代替Rem关键字。若使用撇号,则在其他语句行使用时不必加冒号。

特征衡量

在 Visual Basic 中,可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源:网络-Visual Basic

阅读全文

与编程打印平行四边形相关的资料

热点内容
华为服务器如何进阵列卡配置 浏览:433
apache服务器ip地址访问 浏览:716
如何买到安卓手机预装软件 浏览:535
冤罪百度云不要压缩 浏览:83
苏州云存储服务器 浏览:173
解压收纳原声 浏览:384
java注册验证 浏览:372
火花app怎么上推荐 浏览:980
什么app能游戏投屏到电视上 浏览:455
服务器托管到云端是什么意思 浏览:835
app保存草稿怎么用 浏览:808
安卓如何进入proumb 浏览:144
主机虚拟云服务器 浏览:619
删除分区加密的空间会不会恢复 浏览:706
京东app客户上门怎么看搜索量 浏览:741
怎么在农行app购买黄金 浏览:46
c型开发板和单片机 浏览:146
虚拟机建立用户的模板文件夹 浏览:904
无锡代码编程培训班 浏览:632
eps图形数据加密 浏览:933