刘金玉的零基础VB教程075期：打印菱形图案 |
您所在的位置：网站首页 › 用vb编写菱形图形 › 刘金玉的零基础VB教程075期：打印菱形图案 |
刘金玉的零基础VB教程075期：打印菱形图案
|
视频讲解 https://v.qq.com/x/page/d0941a2daqp.html 文字讲解： 刘金玉的零基础VB教程075期： 打印菱形图案  课堂总结 主要还是总结分析思路 1、观察图案，总结规律 2、可以写下来，把行号与结果写来，然后再观察 3、下半部分的思路刚好与上半部分相反,也要写下来，总结观察 界面：  源代码： 代码语言：javascript复制Private Sub Form_Load() Show FontSize = 25 WindowState = 2 Dim i As Long Dim j As Long Dim n As Long '表示行数,这个行数是除了最长的一行*之外的数量 n = 6 '上半部分 For i = 0 To n Step 1 '输出空格 For j = 1 To n - i Step 1 Print " "; Next j '输出* For j = 1 To 2 * i + 1 Step 1 Print "*"; Next j Print '换行 Next i '下半部分 For i = 0 To n - 1 Step 1 '输出空格 For j = 0 To i Step 1 Print " "; Next j '输出* For j = 1 To 2 * (n - i) - 1 Step 1 Print "*"; Next j Print Next i End Sub |
【本文地址】
今日新闻 |
推荐新闻 |