vb例题循环解读课件

2023/7/231我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五,鸡母一、值钱三，鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？分析：若公鸡x只，母鸡y只，小鸡z只，依题意可以列出以下方程组：2023/7/231我国古代数学家张丘建在“算经”里提出一个2023/7/232

在上面的两个方程中，有3个未知数，属于不定方程，无法直接求解。下面我们用“穷举法”求解。穷举法是将各种可能的组合全部一一测试，将符合条件的组合输出。这里使用二层循环结构。即将公鸡数从1变化到100，母鸡数也从1变化到100，对于每一组公鸡和母鸡数，从100中减去公鸡和母鸡数就得到小鸡的个数，然后再计算买三种鸡的总钱数是否为100元。若是就得到一组解，然后再继续。2023/7/232在上面的两个方程2023/7/233

再仔细分析一下，若100元钱全部都买公鸡最多买20只，如果全部买母鸡最多买33只，所以穷举法外循环中公鸡数可从1变到19，内循环中母鸡数可从1变化到33，小鸡个数应100中减去公鸡数和母鸡数得到。工程设计步骤如下：（1）新建“标准EXE”工程，在出现的窗体上添加四个标签、一个列表框、一个框架和两个命令按钮。其中标签1是放在框架内。

2023/7/233再仔细分析一下，若100元钱全部2023/7/234（2）标签1的Caption属性设为“公鸡五元、母鸡三元、小鸡一元钱三只。100元钱买100只鸡。问公鸡、母鸡、小鸡各多少只？”标签2-标签4的Caption属性分别设置为“公鸡”、“母鸡”、“小鸡”。如下图所示。2023/7/234（2）标签1的Caption属性设为“公2023/7/235（3）代码编写如下：编写单击命令按钮“计算”所执行的代码如下。PrivateSubCommand1_Click()List1.ClearForx=1To19'外循环求公鸡数

Fory=1To33'内循环求母鸡数

z=100-x–y'小鸡数

If5*x+y*3+z/3=100Thenp=Format(x,"@@@")&Format(y,_"@@@@@@")&Format(z,"@@@@@@")

Format

是格式化一个表达式。2023/7/235（3）代码编写如下：Format是格式2023/7/236Rem把满足条件的一种情况添加到列表框中。

List1.AddItempEndIfNextyNextxEndSub编写单击命令按钮“退出”所执行的代码如下。PrivateSubCommand2_Click()EndEndSub在列表框中使用AddItem方法添加项目2023/7/236Rem把满足条件2023/7/237（4）运行结果。按F5键运行工程出现运行界面后按“计算”按钮后，得到结果如下图所示。图4-17百钱买百鸡问题的运行结果2023/7/237（4）运行结果。按F5键运行工程出现运行2023/7/238在窗体上输出下列图案2023/7/238在窗体上输出下列图案2023/7/239问题分析：该图案共有十行，每行有十个星号。要想输出该图案应使用For循环结构,可以先用变量a存放这十个星号。使用语句：

a=“**********”

由于要输出的是一个平行四边形，每一行的起始位置比上一行位置多2列。因此要使用Tab函数来确定每一行输出的起始位置。语句PrintTab(2*i);表示从第2*i列开始输出内容。编写代码如下：2023/7/239问题分析：2023/7/2310OptionExplicitPrivateSubCommand1_Click()DimaAsString,iAsInteger,jAsIntegera="**********"Form1.FontSize=14Fori=1To10PrintTab(2*i);PrintaNextiEndSub

表示从每一行的第2*i列开始输出变量a的值。2023/7/2310OptionExplicit表示从每2023/7/2311

在窗体上输出下列图案2023/7/2311在窗体上输出下列图案2023/7/2312问题分析：该图案共有十行，每行有不同的星号。第一行有一个“*”，第二行有三个“*”，第三行有五个“*”……，要想输出该图案应使用双层For循环结构,外层循环决定输出的行数，内层循环决定每行输出的星号数。可以先用变量a存放一个星号。使用语句：a=“*”

由于要输出的是一个等腰三角形，每一行的起始位置比上一行位置少一列。因此要使用Tab函数来确定每一行的起始位置。语句PrintTab(18-i);表示从第18-i列开始输出内容。编写代码如下：2023/7/2312问题分析：2023/7/2313编写代码如下：OptionExplicitPrivateSubForm_Click()DimaAsStringDimiAsInteger,jAsIntegera="*"Form1.FontSize=14

2023/7/2313编写代码如下：2023/7/2314Fori=1To10PrintTab(18-i);Forj=1To2*i-1Printa;NextjPrintNextiEndSub外循环决定共输出几行内循环决定每行共有几个“*”第一行是1个“*”，第二行是3个“*”，……第n是2*n-1个“*”。输出的位置2023/7/2314Fori=1To10外循环决2023/7/2315在窗体上输出乘法九九表2023/7/2315在窗体上输出乘法九九表2023/7/2316OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerDimmAsIntegerFontSize=12PrintTab(25);"乘法九九表"Print:PrintPrint"*";Fori=1To9PrintTab(i*6);i;NextiPrint

输出表头2023/7/2316OptionExplicit输出表头2023/7/2317Forj=1To9Printj;"";Fork=1TojPrintTab(k*6);j*k;"";NextkPrintNextjEndSub内循环决定输出乘积及个数外循环决定共输出几行2023/7/2317Forj=1To9内循2023/7/2318打印下列图案

分析：上面的图案可分成两个等腰三角形。上面的三角形有5行第1行为一个“*”，第2行为三个“*”，第3行为五个……第5行有2*5-1个“*”。代码编写如下页所示。2023/7/2318打印下列图案分析：上面的图案可分成2023/7/2319OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsIntegerDimaAsStringFori=1To5PrintTab(20-i);Forj=1To2*i-1Print"*";NextjPrintNexti输出上三角形2023/7/2319OptionExplicit输出上三2023/7/2320

Fori=4To1Step-1PrintTab(20-i);Forj=1To2*i-1Print"*";NextjPrintNextiEndSub输出下三角形2023/7/2320Fori=4To12023/7/2321任意输入一个自然数，编程输出其各个因子。工程设计步骤如下：（1）新建“标准EXE”工程，在出现的界面上添加三个标签、一个文本框、和两个命令按钮如图4-18所示。2023/7/2321任意输入一个自然数，编程输出其各个因子2023/7/2322（2）设置窗体及控件的属性。标签1的Caption属性为“请输入一个自然数”；标签2的Caption属性为“N的因子是：”；标签3的Caption属性为空，在运行时赋值。另外标签3的Autosize属性为True，以便在运行时赋值能根据实际内容自动适应。其他属性如下页图4-18所示。2023/7/2322（2）设置窗体及控件的属性。标签1的C2023/7/2323图4-18求自然数因子的工程界面及属性设置2023/7/2323图4-18求自然数因子的工程界面及属性2023/7/2324输入一个数y图4-19输出某个自然数y的所有因子流程图i=2yModi=0Whiley<>1输出iy=y\ii=i+1YN2023/7/2324输入一个数y图4-19输出某个自然2023/7/2325（3）编写代码如下：编写单击命令按钮“计算”所执行的代码PrivateSubCommand1_Click()DimxAsString,yAsSingley=Val(Text1.Text)i=2x=""2023/7/2325（3）编写代码如下：2023/7/2326DoWhiley<>1IfyModi=0Thenx=x&"*"&Str(i)&Chr(13)y=y\iElsei=i+1EndIfLoopLabel3.Caption=xLabel2.Caption=Text1.Text&"的因子是:"EndSub为找下一个因子做准备。2023/7/2326DoWhiley<>1为找下一2023/7/2327（4）运行结果。按F5执行工程，当出现运行界面时，从文本中输入一个自然数，然后单击命令按钮“计算”就会得到如图4-20所示的结果。即在标签3中输出了自然数的各个因子相乘的结果；另外，标签2的内容也根据输入的数自动改变如图4-20所示。

2023/7/2327（4）运行结果。按F5执行工程，当出现2023/7/2328

图4-20求自然数因子的运行结果

2023/7/2328图4-20求自然数因子的运行结2023/7/2329用牛顿迭代法求方程的根。所求的方程为：分析：用牛顿迭代法求方程f(x

)=0在x0

附近的实根的方法如下。（1）选一个接近x

的真实根x1

；（2）通过x1求出f(

x1

)。在几何中就是作x=

x1，交f(x

)于f(

x1

)见图4-21所示。（3）过f(

x1

)作f(x

)的切线，交x轴于

x2，可以用公式求出x2。由于

2023/7/2329用牛顿迭代法求方程的根。所求的方程为：2023/7/2330（4）通过x2求出f(

x2

)。（5）再通过f(

x2

)作f(x

)的切线，交x轴于

x3。

（6）再通过x3求出f(

x3

)。再通过f(

x3

)作f(x

)的切线，交x轴于

x4

。…一直求下去，直到接近真正的根。当两次求出的根之差|xn+1-xn|≤ε就认为xn+1足够接近于真实的根。故2023/7/2330（4）通过x2求出f(x2)。故2023/7/2331牛顿迭代公式是:f(x)x1x2x3x4f(x1)f(x2)f(x3)f(x4)yx图4-21牛顿迭代法几何原理图2023/7/2331牛顿迭代公式是:f(x)x1x2x32023/7/2332工程设计步骤如下：（1）新建“标准EXE”工程，在出现的界面上添加两个标签、一个文本框、一个图片框和两个命令按钮。如图4-22左图所示。（2）设置窗体及控件的属性如图4-22左图所示。

4-22牛顿迭代法求方程根工程界面设计及运行结果2023/7/2332工程设计步骤如下：4-22牛顿迭代2023/7/2333（3）编写代码如下编写单击Command1命令按钮“求根”所执行的代码

PrivateSubCommand1_Click()DimfAsDouble,f1AsDoubleConsteps=0.0001Dimx0AsDouble,x1AsDoublex1=Val(Text1.Text)2023/7/2333（3）编写代码如下2023/7/2334Dox0=x1f=Exp(-x0)-x0f1=-Exp(-x0)-1x1=x0-f/f1LoopWhile(x1-x0)>epsPicture1.ClsPicture1.Printx1EndSub根从图片框上输出牛顿迭代法求根20