VB程序题：Print 方法练习，显示字符图形。龚沛曾 源码

VB程序题：Print 方法练习，显示字符图形。
参考教学篇例例4.3输出简单图形(如左下图所示)。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。
提示：
利用循环语句和String函数。读者也可以发挥自己的想像力，设计更美观的图形。
进一步要求：若要显示如右下图所示的图形，程序要如何修改？

解题：先在窗体上画2个按钮，一个用于输入图形，一个用于清屏，代码如下：
Private Sub Command1_Click()
  Print
  For i = 1 To 5
    Print Tab(15 - i * 2); String(2 * i - 1, "★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, "★")
   Next i
End Sub

Private Sub Command2_Click()
  Cls
End Sub

输入的结果就是左上图所示。

------------------------wb98.com
右上图的编程源代码：（按钮1的点击源码稍改一下）
Private Sub Command1_Click()
  Print
  For i = 1 To 5
    Print Tab(15 - i * 2); String(2 * i - 1, "★"); String(9 - 2 * (i - 1), "☆"); String(2 * i - 1, "★")
  Next i
End Sub
 
-------------------------wb86.com

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码
 

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/61.html