星号版的平行四边形
2016-05-26 16:59
274 查看
Private Sub Command1_Click()
Cls
Print
For n = 1 To 10
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub
Cls
For n = 1 To 10
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Next n
End Sub
相关文章推荐
- 计算机网络笔记
- Android 通知栏Notification的整合 全面学习 (一个DEMO让你完全了解它)
- java追加写入Excel之新建工作薄
- Java网络编程精解之ServerSocket用法详解一
- iOS textfield实现一行的数字限制,超出进行弹框
- iOS9适配 之 关于info.plist 第三方登录 添加URL Schemes白名单
- 入门必看----------------------正则表达式
- 相机跟随和鼠标滚轮控制缩放
- PCI9054的DMA传输过程
- 打开快速开机时,动画播放不完整
- 在处理大文件时使用yield
- JS实现table表格数据排序功能(可支持动态数据+分页效果)
- 持续更新前端兼容坑
- poj 2828 Buy Tickets 线段树
- js最强的匹配网址-url的正则表达式:匹配www,http开头的一切网址
- 对Conten:”\20”、zoom:1及z-index: 1的理解
- 分享代码到jCenter
- Codeforces Round 354 div2 676ABCDE
- Swift强制解析
- 【总结】软件工程项目之C/S学习