第1 课VB 概述
1.VB是一种编程语言
Basic 是Microsoft 销售的第一套软件。 Basic现在已经发展出很多版本，包括GW-Basic、QuickBasic、QBasic和Visual Basic。其中，Visual Basic是最容易学习和应用的编程语言之一。尽管它是最容易学习和使用的，但它非常强大，并且已经使用它创建了许多应用程序。
不是每个人都可以成为比尔·盖茨，但是您想知道您每天使用的Windows 功能有多少被实现了？为什么不编写自己的应用程序呢？通过学习VB，您将能够创建许多应用程序。
2. 打开程序。
单击桌面上的Visual Basic图标（或从“程序”菜单中打开“Microsoft Visual Basic 6.0中文版”），在弹出的窗口中选择“创建标准EXE”按钮，如图1所示。
图1
图2显示了确认后的状态。
图二
3、工作界面概述：
1. 标题栏
2. 菜单栏
3. 工具栏
图3
4. 工具箱面板
5. 编程区
6、VB项目管理器：用于管理开发VB程序所需的不同类型的窗体和模块。左图显示了该程序出现的界面。由程序内部使用。
7. 图4中的属性窗口用于显示控件的属性并允许您更改和设置这些属性的值。在表单设计区域中，选择表单上的一个控件作为按钮。例如，属性窗口显示常用属性，例如名称、标题和字体。尝试将“标题”属性更改为“this”。是一个按钮”，然后检查“主体设计区域”窗口中按钮上显示的文字是否发生变化？
8. 布局窗口图5
程序运行时调整程序窗体在屏幕上的初始位置。此时，拖动鼠标即可移动窗体。该窗口是在运行时设置的。
4. 使用控件
1. 控制属性
2. 使用控件
我们以控件“按钮”为例。
创建计算机界面。
双击“工具箱”面板中的命令按钮图标，如图6所示。
图6
程序界面上会出现其他命令按钮，如图7 所示。
图7
在控件的属性窗口中，将Caption属性设置为0，调整大小，然后选择字体和字体大小，如图8所示。
当您单击该按钮以选择它时，它周围会出现八个小手柄，当您从“编辑”菜单中选择“复制”命令，然后选择“粘贴”命令时，会出现一个与原始按钮完全相同的按钮。单击设计表单上的按钮。重复上述步骤，创建18个按钮，并更改这18个按钮的“Caption”属性。
5.生成可执行EXE文件
第2讲标签控制
标签（标签控件）是一种图形控件，其主要功能是显示文本信息，例如熟悉的程序安装界面。某些软件在安装过程中经常会显示帮助信息和产品相关的介绍信息。大多数是使用标签控件创建的。
在Visual Basic 工具箱中，标签控件图标如图1 所示。标签的默认名称和标题是LabelX（X 是1、2、3 等），标准化命名约定是：LblX（X 是LblShow、LblRed 等）
图1
一、标签控件的主要属性： 1.
标题属性：
该属性用于设置标签上显示的文本信息。您可以在创建界面时对其进行设置，或者如第1 章中的示例所示，您可以通过编程方式更改标签上显示的文本信息。单击按钮进行更改。
以编程方式更改标题属性的代码规则是：
标签名称.Caption=\’要显示的文本\’
:LblShow.Caption=\’跟我学VB教程\’等
但需要注意的是，上述代码必须写在与被触发的控件对应的程序代码区中。例如，在第1 章中，代码是在命令按钮的程序代码区域中输入的，而不是在命令按钮的代码区域中输入的。标签本身。
这也是初学者经常困惑的地方。当我想要更改标签中的单词时，为什么需要在其他控件中输入代码？这是因为我们想要触发另一个控件上的事件以使标签更改其Caption 属性。
当然，你也可以让标签本身触发一个Caption属性改变事件，比如用鼠标点击标签，但这种情况下你就必须在标签对应的程序代码区中输入代码，但实际写作所以它看起来像这样：这种情况极为罕见。毕竟，标签控件的目的是显示比响应鼠标单击更多的信息。
2.BorderStyle属性：
该属性用于设置标签边框类型。 0表示标签无边框，1表示标签有边框且有三维效果。对于两个标签:
图二
BorderStyle属性可以在设计界面时指定，如图3所示。
图3
它也可以在程序内更改（尽管这种应用很少见）。程序代码的规则如下：
标签名称.BorderStyle=0/1（0 或1，选择其中之一）
3.字体属性：
该属性用于设置标签显示的字体。它可以在创建接口时设置，也可以通过编程方式更改。
在创建界面时设置，如图4所示。
图4
在图4所示的设置屏幕上，除了选择字体之外，您还可以设置显示的文本是粗体、斜体还是下划线。
在程序内更改Font 属性时，编写程序代码的规则如下：
更改字体：标签名称.FontName=\’字体类型\’。 “字体类型”也可以是中文名称，例如“宋体”或“隶体”。它也可以是英文名称，例如“Arial”或“.”。泰晤士新罗马”等但是，这些字体名称必须存在于您的计算机上。
更改字体大小：tagname.FontSize=X，其中X 是代表字体大小的阿拉伯数字。示例：LblShow.FontSize=11。
粗体（FontBold）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）各属性的设置是代表真/假的逻辑判断值True/False，如下所示。
LblShow.FontBold=True/False LblShow.FontItalic=True/False
更改字体颜色
Lbl 表演。
前景色=颜色常量
颜色常数表
颜色常数
颜色
颜色常数
颜色
VB黑色
黑色的
红色VB
红色的
绿色VB
绿色的
VB黄色
黄色的
VB蓝色
蓝色的
vb 洋红色
红紫色
吴晓雅
蓝色的
VB白
白色的
或者
Lbl 表演。
先前颜色=RGB(R,G,B)
R、G、B分别代表红、绿、蓝值，取值范围为
0 到255 之间的整数。
4. 放置属性：
该属性用于设置标签上显示的文本的对齐方式。左对齐，0，右对齐，2。可以在接口配置时进行配置，如图5所示。
图5
您也可以在程序中更改它。这是代码：
标签名称.对齐方式=0/1/2
5、Visible（可见）属性：
大多数控件上都存在此属性，并允许您设置控件是否可见。如果值为True，则控件可见。如果值为False，则隐藏该控件。
如图6 所示，可以在界面配置期间设置控件的显示属性。
图6
您也可以在程序中更改它。这是代码：
标签名称.Visible=True/False
2、标签控件（Label）主要事件：所谓事件实际上是用户与应用程序的交互，如第一章中鼠标点击命令按钮触发的Click事件。
事件的作用是触发程序的执行。例如，第1 章中的Click 事件更改Label 控件的Caption 属性。
尽管标签控件的主要目的是显示文本信息，但它也支持多个事件。
1.点击事件（鼠标点击）：
鼠标点击标签时触发的事件，例如更改标签的字体属性：
Private Sub LblShow_Click() LblShow.FontName=\’官方脚本\’ End Sub
2.DbClick事件（鼠标双击）：
鼠标双击触发的事件，例如更改标签的可见性/隐藏：
私有子LblShow_DbClick() LblShow.Visible=False End Sub
三、知识点： 1.
用VB 编写程序就像搭积木一样。您将每个“构建块”（控件或其他对象）放置在适当的位置，然后使用特定的机制（程序）构建该“构建块”。我们需要的。因此，掌握每种类型的控件，包括其属性和关键事件，是学习编程的基础。
2、
有些属性是大多数控件所共有的，例如Name、FontBold、FontItalic 和Visible，而有些属性是特定于特定控件的，例如标签控件的WordWrap（如何显示标签标题）。本节仅描述标签控件的一些属性。有关其他属性，请参阅VB 帮助文件。
3.
在学习的过程中，你可能会奇怪为什么在设置属性时，有时在“=”右边使用“ ”，有时不使用“ ”。你有没有注意到，当你使用“”时，引号内是一个像“官方文字”或“Times New Roman”这样的字符串？
四。
大小写问题：初学者经常想知道什么时候应该大写字母，什么时候应该小写字母。其实VB程序中大小写字母是一样的，只是英文单词的首字母，如Visible、Name等，通常都是大写，以使程序更加规范，更容易阅读。
控件命名也遵循上述原则。不同的是，命名由“控件类型名称+具体名称”组成，并且控件类型名称的首字母必须大写。大写，例如LblShow 、 CmdShow 和LblChange 。
五。
程序代码说明： 下面是一个例子： Private Sub CmdShow_Click() LblShow.Caption=\’跟我学VB Prodigy教程\’ End Sub
Private Sub CmdShow_Click() 表示一个由两部分组成的过程，其中CmdShow 表示CmdShow 按钮，Click 表示该按钮的触发事件。
同样，Private Sub LblShow_DbClick()也代表一个过程，其中LblShow代表标签，DbClick代表双击事件。
另外，Private 的意思是“私有”，表示事件处理的类型。此外，还有Public，代表“公共”事件。
Sub表示这个进程是一个“子程序”，几个“子程序”组合在一起形成最终的应用程序。
()用于保存参数。稍后将解释这些参数。如果没有参数，() 为空。
4. 家庭作业
1. 启动界面
2.单击“用鼠标单击”区域以显示它。
单击“用鼠标单击”区域时出现
3.点击“带框”即可显示
3.点击“无边框”即可显示
第三部分数据类型1.数据类型数据是指需要计算机程序处理的各种信息。根据数据的性质，数据可以分为不同的类型。例：姓名、地址属于文本类型数据，数量、单价属于数字类型数据。 为了有效地处理数据，必须将数据分为不同的类型。 VB提供的数据类型主要有数值类型、字符串类型、布尔类型、日期类型等。 1、数值数据（1）、字节型（byte）、占用1个字节（2）、整数型（integer）、占用2个字节（3）、长整型（long）、占用4个字节（4）、单精度(sing)，占用4个字节(5)，双精度(double)，占用8个字节(6)，货币(currency)，占用8个字节2.字符串类型(string) 字符串被双精度数括起来就是字符串。引用。例如，以下字符串是有效字符串： 《你好》《12345》《ABCD123》《Visual Basic 6.0编程》《》3.布尔值布尔数据占用2个字节的存储空间。 用法逻辑决策只有两个值：真假。示例：值为32 为True，值为03 为False4 日期类型（Date） 如果需要表示日期类型数据，则必须用#符号将具体日期括起来。例如：日期：2004年2月23日则表示为：#2004-2-23# 2.算术运算和字符串运算执行各种运算可以用来解决问题。 VB 支持多种操作。本课介绍算术运算和字符串运算。 1. 算术运算：VB提供了7种算术运算符，按优先级顺序列于下表中。 1 ^ 幂3^2 92 – 负-3 -33 * 乘法3*5 153/浮点除法10/3 3.333333333333334 \\ 整数除法10\\3 35 Mod Modulo 10 mod 3 16 + 加法2+3 56 – 减法2- 3 -12. 字符串操作有两个字符串运算符：“”和“+”，它们将两个字符串连接成一个新字符串。例：“广州市”“中山大学” 结果为“广州市中山大学”“168”+“房间”。 结果是“Room 168”168+“Room”数据类型不匹配，错误3，课堂练习：
第四部分：如何使用TextBox（一）
工具箱中的文本框控件的名称是TextBox。在VB中，您可以使用文本框控件输入和输出数据。 1.属性： (1)文本属性：String类型。返回或设置文本框中显示的内容。示例：Text1.text=\”我们每年都绰绰有余\” (2) MultiLine 属性：布尔值。如果MultiLine 属性为True，则可以在文本框中输入或显示多行文本。 (3)Passwordchar属性：String类型。如果MultiLine 属性值为False，则该属性可用于密码输入。如果Passwordchar属性设置为字符，例如星号(*)，则当您在文本框中键入字符时，仅显示星号，而不会显示您键入的字符。 (4)ScrollBars属性：数值类型。 该属性用于判断文本框是否有滚动条。有四种选择： 0-无无滚动条1-水平仅水平滚动条2-垂直仅垂直滚动条3-水平和垂直滚动条仅当MultiLine 属性值为True Display 时，文本框才具有滚动条。 2.事件：文本框除了支持Mouse Click和DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件。在本课程中，我们将从了解Change 事件开始。 (1) Change 事件：当用户通过在文本框中键入新内容或在程序代码中赋值来更改文本框的Text 属性时，将触发Change 事件。 (2) 示例：创建两个文本框，分别命名为t1和t2。在执行过程中，当用户在文本框t1中键入内容时，相同的内容会显示在文本框t2中。程序代码： Private Sub t1_Change()t2.Text=t1.TextEnd Sub 3、一般练习（界面如下）： 1、设置属性如下： 2、程序代码如下： Private Sub Command1_Click() t3。 Text=t1 .TextEnd Sub——————————————————– ——- —- ——- ——————–私有子Command2_Click()t1.Text=\’\’t2 .Text=\’\’t3.Text=\’\’结束子- – – – – – – – – – – – – – – – – – – – – – – – – ———- —– —–私有子命令3_Click()EndEnd Sub私有子命令4_Click()t3.Text=t1.Text t2.TextEnd Sub———— ——— – ——- ———————————-Private Sub t1_Change ()t2.Text=t1.TextEnd 子
第5 讲变量1. 变量概念1. 变量：变量是应用程序运行时用于临时存储数据的位置。它的值根据分配而变化。 要使用变量，您必须指定变量的名称及其将存储的数据类型。这个过程称为变量声明。 2. 为了使您的程序符合规范并且更加高效，建议您在使用变量之前先声明变量。要强制执行此要求，必须将以下语句添加到每个程序模块的开头。 明确指定选项或使用以下方法： (1) 执行[工具]-[选项]菜单命令。 (2) 然后，如果在“选项”对话框中的框架的“编辑器”选项卡上启用了“要求变量寿命”项，则每当将新的表单或模块添加到项目时，系统会自动将上述语句添加到项目中。窗户。 (3) 如果添加可选的显式语句，VB 将在运行时显示未声明变量的错误消息。如图所示： 2、变量命名规范1、以字母或汉字开头，后面可以跟字母、数字或下划线。 2. 长度不得超过255 个字符。 3. 不能使用VB关键字。 4. 变量名不区分大小写。例如mystring、count123、A1、name、gender等都是合法的变量名。变量名无效。 2. 声明变量在使用变量之前，通常需要声明其名称和类型，以便系统为其分配存储单元。 1. 使用Dim 语句显式声明变量(1) 一般格式：Dim 变量名[AS 类型] 示例：dim a1 as integer \’声明整型变量a1 dim a2 as strin \’字符串声明变量a2 dim s as Single \’声明单精度实数变量s dim ss as Double \’声明双精度实数变量s。使用声明语句声明变量后，VB 自动将每种类型的变量初始化为0。字符串变量被初始化为零长度字符串（“”）。三、应用举例1.解释下列语句的作用。 y=3*x^3+5a=a+1 \’ 描述：计算右边的值，并将结果赋给左边的变量。
2. 示例：计算圆的面积和周长。 1、设计界面和执行界面如图所示。 2. 代码：显式选项————————————– — – — – Private Sub Command1_Click() Dim pi 作为单个，r 作为单个，l 作为单个，s 作为单个r=Val(t1.Text) pi=3.14 l=2 * pi * r s=pi * r ^ 2 l1 标题=。 Str(l) l2.Caption=Str(s) End Sub
****注意**** val(string)：将字符串转换为数字；str(number)：将数字转换为字符串由于输入数据是字符类型，因此必须将其转换为数字类型。是。计算；标签Caption属性是字符类型，所以计算结果必须转为字符类型输入。
第六章VB 编程概论1. 编写程序的基本概念1. 人脑的处理过程以“1+2=？”为例。 第1 步：收集信息。 第三步：打印信息。结果2.编写程序解决问题的思路和人脑处理问题的思路是一样的。第一步：可以通过文本框的文本属性完成数据输入。 (1) 赋值语句用于输入已知数据。 (2) TextBox用于输入暂时不确定或变化的数据。 **注意** TextBox 中输入的数字文本是字符类型。要进行数值计算，首先必须将其转换为数值类型（第二步：数据处理通常使用赋值语句来进行计算）。或者正如我们稍后将解释的那样。使用Label 控件的Caption 属性或TextBox 的Text 属性来输出数据。代码格式如下：控件名称.标题
=\”输出内容\”（使用Label控件输出）控件名称.Text
==“要输出的内容”（使用TextBox控件输出） **注意** 如果输出变量的类型是数字类型，则必须使用STR()函数将其转换为字符类型。 2.VB编程程序
分析您的问题，确定您的程序将执行的任务，然后按照以下步骤创建您的应用程序。 （一）新建工程。要创建应用程序，您首先需要打开一个新项目。 (2) 创建应用程序接口。 A、如何布局
B. 我应该使用多少个控件？
C. 每个控件的“职责”和放置
(3) 设置属性值。 A.名称属性
B. Cation、TextBox等属性的初始值
C. 字体大小、字体、颜色、背景色等属性
.
(4) 编程对象事件过程。 A. 我应该在哪个控件中编写代码？ 换句话说，事件将在哪个控件中发生？
B. 确定解决问题的思路
C.编写代码（注意变量定义）
(5) 保存文件。 (6)程序执行与调试。生成EXE文件。 3. 练习：
求函数y=5x^6+4 的值。
3、作业：
1. 如果知道边长，求正方形的面积和周长。
第7讲内部函数数学函数是指对一个或多个自变量进行一定的计算，以获得因变量的值。在VB 编程中，函数的定义已得到扩展，以使其使用更加灵活。 VB 附带了许多预定义的内部函数，您可以随时调用它们。 函数具有一个或多个称为参数的自变量。函数对这些参数进行操作并返回结果值。函数的一般调用格式为： 函数名称（[参数列表]） 示例： sqr(9) rgb(0,0,0) date() 其中，函数参数可以是常量、变量或表达式。如果有多个参数，请用逗号分隔。 这些功能按照其分类主要分为以下几类： 1. 转换函数2. 数值函数**注意** 要生成区间[a, b] 内的随机整数，可以使用以下公式： int((b – a+1)*rnd+a)。例如，要生成[10,100] 范围内的随机整数，可以使用表达式int(91*rnd+10)。 3. 字符串函数4. 日期和时间函数
序列号
功能
功能
例子
1
现在（）
返回系统日期和时间
2
日期（）
返回系统日期
3
时间（）
返回系统时间
5.其他功能练习：
第8讲IF语句（1）
此类问题在编程中很常见，需要根据情况采取不同的处理方法。例如，必须根据判别式是小于还是大于零，使用不同的公式来计算二次方程的根问题。单独使用顺序结构编程显然不足以解决此类问题。需要有分支结构。 1. If 语句格式： If 条件then 语句块1 [Else 语句块2] End If 说明： (1) “条件”一般是关系表达式或逻辑表达式。通常，当关系或逻辑表达式的值为true 时，称条件满足；当值为false 时，称条件不满足。反之亦然。确定以下条件是否成立：
1, 102, 1=03, 1=04, 3=35, 3=3 (2) 语句块1和语句块2分别是满足“条件”时和不满足时的处理方法。书面。这将是多个语句。 (3) If.Then、Else 和End If 是VB 中的保留字。功能： (1) 块首先确定“条件”。如果其值为true，则执行语句块1；如果为false，则执行语句块2。如果[Else.]的内容是默认的，则分支结构只会处理满足条件的情况。执行流程如下图所示。 2、示例：火车站行李收费为50公斤以下（含50公斤）0.20/公斤，超重行李0.50/公斤。编写一个程序，根据输入的重量计算支付的行李费。根据题意计算公式如下。 1. 界面设计： 2. 属性设置： 3. 代码： （1）“计算”按钮代码Private Sub Command1_Click() Dim w as single, pay as single w=Text1.Text If w 50 then pay=(w – 50)* 0.5 + 50 * 0.2 Else pay=w * 0.2 End If Text2.Text=pay End Sub (2) “清除”按钮代码Private Sub Command2_Click ( ) Text1.Text=\’\’ Text2.Text=\’\’ End Sub (3) “结束”按钮的代码Private Sub Command3_Click () End End Sub 3.（a 不为0） 提示：对于“输出”，等式变为： “无实数根”，否则打印两个实数表达式的根。将x1和x2的值转换为VB表达式为x1=(-b+sqr(b^2-4*a*c))/(2*a)。 x2=(-b-sqr(b^2 -4*a*c))/(2*a)
第9讲Select Case语句Select Case语句是一个多分支语句，也称为情境语句。格式：选择Case 测试表达式Case 表达式列表1 语句块1 Case 表达式列表
2 语句块2 … Case 表达式列表n 语句块n [Case Else 语句块n+1]End Select功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。 Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；如果没找到，则执行Case Else下面的语句块，然后执行End Select下面的语句。说明：· · · “测试表达式”可以是数值表达式或字符表达式；· · · “表达式列表”形式有以下3种：（1）一个表达式或用逗号隔开的若干表达式select case val(t1.text) case 1,3,5 L1.caption=”这是奇数” case 2,4,6 L1.caption=”这是偶数”end select（2）表达式1 To 表达式2select case t1.text case 1 to 9 L1.caption =”此数是在1到10的范围内” case “A” to “Z” L1.caption =”请输入数字”end select（3）Is 关系运算符 表达式select case val(t1.text) case is>=30 L1.caption =”此数的范围大于30” case is>=20 L1.caption =”此数的范围大于20” case is>=10 L1.caption =”此数的范围大于10”end select【例】输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。(1)界面设计(2)代码设计
Private Sub Command1_Click（）
Dim score!
score = val(Text1.Text)
Select Case score
Case Is >= 90
Text2.Text = \”优秀\”
Case Is >= 80
Text2.Text = \”良好\”
Case Is >= 70
Text2.Text = \”中\”
Case Is >= 60
Text2.Text = \”及格\”
Case Else
Text2.Text = \”不及格\”
End Select
End Sub
作业：求分段函数的值
第十讲 For 循环语句
在程序中，凡是需要重复相同或相似的操作步骤，都可以用循环结构来实现。例如：计算1+2+3+…+1000；计算1*2*3*….*1000等等。一、结构： For循环的一般格式如下： For 循环变量=初值 To 终值 [Step 步长] [循环体] Next [循环变量] 二、说明：1．格式中各项的说明 · 循环变量：亦称为循环控制变量，必须为数值型。 · 初值、终值：都是数值型，可以是数值表达式。 · 步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值 应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1， Step 1可略去不写。 · 循环体：在For语句和Next语句之间的语句序列。 · Next后面的循环变量与For语句中的循环变量必须相同。2．执行过程For循环语句的执行过程如下：（1）系统将初值赋给循环变量，并自动记下终值和步长。（2）检查循环变量的值是否超过终值。如果超过就结束循环，执行Next后面的语句；否则，执行一次循环体。（3）执行Next语句，将循环变量增加一个步长值再赋给循环变量，转到（2）继续执行。以上执行过程用流程图描述，如下图所示。这里所说的“超过”有两种含义，即大于或小于。当步长为正值时，循环变量大于终值为“超过”；当步长为负值时，循环变量小于终值为“超过”。我们通过分析下面的程序来进一步理解For语句的执行过程。 For n=1 To 10 Step 3 Print n， Next n具体执行情况如下：上面程序的执行结果为： 1 4 7 103．注意事项 For语句和Next语句必须成对出现，缺一不可，且For语句必须在Next语句之前。循环次数由初值、终值和步长确定，计算公式为： 循环次数=Int（（终值－初值）/步长）+1举例分析： For i = 1 To 10 Print i; Next i执行此语句将输出： 1 2 3 4 5 6 7 8 9 10 i是循环变量，它的初值为1，执行print语句，输出1；然后使i的值增加1，直到i的值超过终值10，就不再执行循环，它的流程如图所示：
三、例题与作业：
(1) 求s=1+3+5+…+101的值
(2) 求s=1*3*5*…*101的值
第十二讲 循环的嵌套
通常，把循环体内不再包含其他循环的循环结构称为单层循环。在处理某些问题时，常常要在循环体内再进行循环操作，这种情况称为多重循环，又称为循环的嵌套。如二重循环、三重循环等。 多重循环的执行过程是，外层循环每执行一次，内层循环就要从头开始执行一轮，如： for i=1 to 9 for j=1 to 9 print i*j next j next i 在以上的双重循环中，外层循环变量I取1时，内层循环就要执行9次；接着，外层循环变量I取2，内层循环同样要重新执行9次……所以，循环共执行了9×9次，即81次。【例1】单击 “正方形” 按钮时，在窗体上显示相应的图形。【效果图】【代码分析】 For i = 1 To 5 //外层循环 For j = 1 To 5 //内层循环，连续打印5个\”*\”号 Print \”*\”; Next j Print //换行 Next i【例2】单击 “平行四边形” 按钮时，在窗体上显示相应的图形。【效果图】【代码分析】 For i = 1 To 5 //外层循环 Print Spc(5 – i); //每行的开头需留有空格 For j = 1 To 5 //内层循环，连续打印5个\”*\”号 Print \”*\”; Next j Print //换行 Next i 【例3】单击 “直角三角形1” 按钮时，在窗体上显示相应的图形。【效果图】【代码分析】 For i = 1 To 5 //外层循环 For j = 1 To i //内层循环，连续打印i个\”*\”号 Print \”*\”; Next j Print //换行 Next i 【练习】请完成以下图案。【效果图】【知识拓充】下面的两个图案，你能打印出来吗？
本文和图片来自网络，不代表火豚游戏立场，如若侵权请联系我们删除：https://www.huotun.com/game/583581.html