(2)编写代码实现以下功橙： 1)单击按细 纸十宽藏时，在相应的标签控件中显示00以内的所有完数和完数的个数。 2)单击按钮计罐时，计算表达式己k+之+员 的值，结果保留小数点后2位数， 显示在其右边的标签控作中。 3》单击按计□时，统计文本半中数字的个数，字母的个数，空格个数和其他字符的 个数，文本串由按钮上方的文本框获取，统计结果显示到相应的标签控件中， 。留环绵合应用举例 ▣☒ 显示并十10061内的所有完取 梳计完数 完数的个数 2 完数里示：628 计其表达式 计算 47510.93 分英时 mg电y企 数字个数 字母个数 卫格个数 其格学开个数 0 2 1 图248循环综合应川举例运行参考界面 解思步限 (1》加载指定素材Ex7.vb并将其设为启动窗体。 (2)给 统计完数按细编写代码并运行调试。沙及以下两个州恩： 1)什么是完数？完数的定文：如果一个数恰好等于它的因子之和，那么这个数就称为完数， 如6的因子为1,2,3。符合6=1+2+3，所以6就是完数。所以对丁给定的1，先找出其所 有因子。并将因子进行黑加。然后将与其因子的累加值法行比较。 2)本编码又沙及计数器的用法和在标签控件中连续输出数据的情形，希能熟练掌握，参考 代码截图如图2.49所示
(2) 编写代码实现以下功能： 1）单击按钮 时，在相应的标签控件中显示 100 以内的所有完数和完数的个数。 2）单击按钮 时，计算表达式 = = = + + 10 1 8 1 50 1 1 ! k k k k k k 的值，结果保留小数点后 2 位数， 显示在其右边的标签控件中。 3）单击按钮 时，统计文本串中数字的个数，字母的个数，空格个数和其他字符的 个数，文本串由按钮上方的文本框获取，统计结果显示到相应的标签控件中。 图 2.48 循环综合应用举例运行参考界面 解题步骤： （1）加载指定素材 Exp7.vb 并将其设为启动窗体。 （2）给 按钮编写代码并运行调试。涉及以下两个问题： 1）什么是完数？完数的定义：如果一个数恰好等于它的因子之和，那么这个数就称为完数， 如 6 的因子为 1，2，3，符合 6=1+2+3，所以 6 就是完数。所以对于给定的 i，先找出其所 有因子，并将因子进行累加，然后将 i 与其因子的累加值进行比较。 2）本编码又涉及计数器的用法和在标签控件中连续输出数据的情形，希能熟练掌握，参考 代码截图如图 2.49 所示
功能：统计100以内宽数的个数并输出完数 完数的规是：如果一个奖哈好等于它的因子之和，如6=1+2+3 Private Sub btnInt_Click (ByWal sender As Systen.Object,ByVal e As Systen. Dim i,j As Integer Dim s,count As Integer C0线nt=0 For i 1 To 100 8=0 '初始化用于累加因数的累加器 For j=1 To i-1 If i lod j=0 Then =8+j 将因数进行累加 End If Next If i s Then “按完数的定义规进行判断 count coumt 1 计数器加1 lB.Text=1blB.Text&“&i‘连续输出 End If Next lblA Text count End Sub 图2.49饶计并显示100以内完数的参考代码截图 (3》给计基按钮编写代码并运行调试。表达式 2++ 由三部分构成，注 意计算第2部分 1,累乘器的初始化语句：1的位置，参考代码截图如图2.50所示， ”功能：计算多项之和 Private Sub Buttonl_Click(ByVal sender As System.Object,ByYal e As Systen Dim sun,s As Double Dim i,j As Integer m=0'初始化总的累加器 下6r1=1To50该循环计算150之和 边=功+i Next For i 1 To 8 ·该循环用于累加1的阶兼 8=1 ’初始化用于存放1：的螺乘器 For j=1 To i ·该循环计算i 雪日5*j Next 勇三烈语十慕 ”将11添加到总的累加器中 Next For i 1 To 10 ·该循环计算并累加1/1110 m日m+1/i '将1/行添加到总的累加器中 Next sum Hath.Roumd(gun,2) lblSum Text sun End Sub 图2.50计算多项表达式的参考代码截图 （4)给计胺细细写代码并运行调试。本题的关健是理个判断文本串中的每个学符， 这里仅说明两种做法。以判断位置索引为的字符是否是数字为例：
图 2.49 统计并显示 100 以内完数的参考代码截图 （3）给 按钮编写代码并运行调试。表达式 = = = + + 10 1 8 1 50 1 1 ! k k k k k k 由三部分构成，注 意计算第 2 部分 = 8 1 ! k k ，累乘器的初始化语句：s=1 的位置，参考代码截图如图 2.50 所示。 图 2.50 计算多项表达式的参考代码截图 （4）给 按钮编写代码并运行调试。 本题的关键是逐个判断文本串中的每个字符， 这里仅说明两种做法，以判断位置索引为 i 的字符是否是数字为例：
1)利用Char.IsDigit(str,i),其中i是位置索引，从0开始 2)设一个Car型的中间变量ch,用于获得位置素引为的字符，对应语句是： ch=str,Substring(i,I)得到位置索引为i的字符 然后利用Car类带一个参数的橘数IsDig1t米列断ch是否是数字，即： Char,IsDigit(ch),本例采用第2种做法，参考代码截图如图251所示，本例中依然 通到计数器的使用。 ”功能：统计文本串中数字、字母、空格和其他字符的个数 Private Sub Button2_Click(ByVal sender As Syatem.Object,ByVal e As Syaten Dim str As String Dim ch As Char 提之米il.mct，msc6m0hre1aieg str txtStr.Text ”初始化各计致器 numDigital 0 nunietter 0 nunSpace 0 nunother 0 For i 0 To str.Length -1 ch str.Substring(i,1) “得到位置素引为的字符 If Char.IsDigit(ch)Then ”依据判结果决定计致器的取值 rumDigital=rumDigital 1 ElseIf Char.IsLetter(ch)Then raumlLetter mnietter 1 ElseIf Char.IswhiteSpace(ch)Then u5pace=unSpac8十】 Else ramother munother 1 End If Ne 输出结果 1blDigltal.Text mumDigital IblLetter.Text nunetter 1blSpace.Text munSpace 1bl0ther.Text munother End Sub 图251统计文本串中各类字符的参考代码截图
1）利用 Char.IsDigit(str, i)，其中 i 是位置索引，从 0 开始。 2) 设一个Char型的中间变量ch，用于获得位置索引为i的字符，对应语句是： ch = str.Substring(i, 1) '得到位置索引为i的字符 然后利用Char类带一个参数的函数IsDigit来判断ch是否是数字，即： Char.IsDigit(ch)，本例采用第2种做法，参考代码截图如图2.51所示，本例中依然 遇到计数器的使用。 图 2.51 统计文本串中各类字符的参考代码截图