当前位置:首页 » VB程序题 » 正文

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://www.wb98.com/post/61.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号