Visual Basic用For-Next结构画图

陈新龙

Visual Basic是一種由Microsoft公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，今天我们来讲讲如何用Visual Basic输出一个平行四边形，但是对角线要显示为空（如图1）。

分析：图1是有两个三角形，一个是正三角形，另一个是倒三角形，那么如何用VB来做出这样的图形呢？其实我们换种方式来思考这个图形，这是一个删除对角线的平行四边形，问题核心就是用什么办法可以把对角线删除。

代码分析，以For-Next为基础结构，“i”代表行数，这里图形有五行，所以设置变量1到5，然后Print Tab语句就是输出每行开始的空位，（7-i）实现每行第一个*号向左移动一个位置。“j”代表每行*号的个数，这里设置11个，其中10个*，1个对角线的空位。

用一个if语句的判断，如果（2 * i）=j 为真时，打印一个空格，否则打印*号。

看看执行的效果。这个实例重点在于理解内嵌For-Next结构中循环变量终值的推导和输出位置Tab函数中参数的推导（如图2）。

完成了这个实例后我再给大家出道使用For-Next输出图形的题目，数学和图形结合（如图3）。