6、根据练习图练习2.6所示的运行参考界面。要求如下： 通暂环语句的综合练习 日▣☒ 显示并统计100以内的所有索数 筑十素取 束数的个数： 10 东数里示：2357111317192329 计虹表达式 计短 401T913 注序具景 AICDEFG 逆序 GFEDCBA 图练习2.6循环语句综合练习的运行参考界面 将光盆配套素材文件夹CpFx2下的窗体文作e6b加载到“Ex”的项，并将项目的 启动对象设为Ex6,编写代码实现相应功能： 1)单击按钮统计京数时，在相应的标签控件中显示0以内的所有素数及素数的个数。 2)单击按钮计算时，计幕：】 从，结果显示在其右边的标签控件中。 3)单击按钮应序时，将输入的字符申反序显示于按细下方的标签控件中。 【提示】考虑： 1)for i=str.length-1 to 0 step-1 2)关键函数：str.subString(i,1) 7、根据练习图练习27所示的运行参考界面，要求如下：
6、根据练习图练习 2.6 所示的运行参考界面。要求如下： 图练习 2.6 循环语句综合练习的运行参考界面 将光盘配套素材文件夹 ChapterEx2 下的窗体文件 ex6.vb 加载到“Ex”的项目，并将项目的 启动对象设为 Ex6，编写代码实现相应功能： 1）单击按钮 时，在相应的标签控件中显示 30 以内的所有素数及素数的个数。 2）单击按钮 时，计算： = 10 1 ! k k ，结果显示在其右边的标签控件中。 3）单击按钮 时，将输入的字符串反序显示于按钮下方的标签控件中。 【提示】考虑： 1）for i= str.length-1 to 0 step -1 2）关键函数：str.subString(i,1) 7、根据练习图练习 2.7 所示的运行参考界面。要求如下：
两利用新环语句显承平面图案 ▣☒ 数手阳案 李符图案 行数：10 行数29)： 字符： E案2 1 121 多等 12321 多事 1234221 55多$ 123454321 多多多多事 3多3333事 事事车E5零零等 多事事事多多多多事 33事3事多多等33 图练习27利用循环语句显示图案的运行参考界面 将光盘配套素材文件夹CpE2下的窗体文作a7.b加载到“Ex”的项目，并将项目的 启动对象设为Ex6,编写代码实现相应功能： 1)单击按钮 图案！时，在其下面的标签控件中如图所示规律的数学图案，行数由左边 的文本框得到 2)单击按钮 四2 时，在其下面的标签控件中如图所示规律的字符图案。行数和显示 字符由其左边相应的文本柜得到， 【提示】这类题对干训练初学者的编程能力是根有帮助的。以显示“数字图案”为例说明问 题的解决思路。 (1)总体印象：共5行。图案中包含空格和数字这两类字符：行结构与所在行的行号存在 某种美系。 (2)观靠、总结、抽象。 行结构 观黎 行号 空格数 前段数字 后段数字 第1行 5.1■4 特 第2行 5-2=3 12 1 定 第3扫 53-2 123 21 行 第4行 5-4=1 1.23.4 32.1 第5行 53-0 12345 432.1 总结：一股行 第1行 5-i 12….1 1,1 抽象成语句 For i=l to 5 Space(5.i) for j-l to i for ji-l to I step-l For i=l1 to SpacelrowNum 同上 同上 若将行数5月 rowNum )。其中系统 变量rowNum 函数Spc 代替 用于返回n个 空格 (3》参考代码如下：
图练习 2.7 利用循环语句显示图案的运行参考界面 将光盘配套素材文件夹 ChapterEx2 下的窗体文件 ex7.vb 加载到“Ex”的项目，并将项目的 启动对象设为 Ex6，编写代码实现相应功能： 1）单击按钮 时，在其下面的标签控件中如图所示规律的数字图案，行数由左边 的文本框得到。 2）单击按钮 时，在其下面的标签控件中如图所示规律的字符图案，行数和显示 字符由其左边相应的文本框得到。 【提示】这类题对于训练初学者的编程能力是很有帮助的。以显示“数字图案”为例说明问 题的解决思路。 （1）总体印象：共 5 行，图案中包含空格和数字这两类字符；行结构与所在行的行号存在 某种关系。 （2）观察、总结、抽象。 观察 行 号 行 结 构 空格数 前段数字 后段数字 特 定 行 第 1 行 5-1=4 1 第 2 行 5-2=3 1,2 1 第 3 行 5-3=2 1,2,3 2,1 第 4 行 5-4=1 1,2,3,4 3,2,1 第 5 行 5-5=0 1,2,3,4,5 4,3,2,1 总结：一般行 第 i 行 5-i 1, … , i i-1,…,1 抽象成语句 For i=1 to 5 Space(5-i) for j=1 to i for j=i-1 to 1 step-1 若将行数 5 用 变量 rowNum 代替 For i=1 to rowNum Space(rowNum -i)，其中系统 函数 Space(n) 用于返回 n 个 空格 同上 同上 （3）参考代码如下：
”功能：按规律显示数字图案 Private Sub btnShow_Click(ByVal sender As System.Object,ByWal e Dim rowNuim,i,j As Integer ro州m=Canvert.ToInt:32(txtRouNum.Text)'从界面得到行数 1 blSho.Text=*“ Fori三1 To row成m'第行 ‘显示第i行的空格数，利用系统函数S即得到空格 1blShow.Text 1blShow.Text Space (rouNum -i) ”显示第1行的前积数字 For j=1 To i lblShow.Text 1blShow.Text j Next ”显示第1行的后段数字 Far j=i-1 To 1 Step -1 1blShow.Text 1blShow.Text j Next 行 lblShow.Text 1blShow.Text Chr(10) Next End Sub