(2)编写代码实现以下功能 1)单击按钮所有空数和时，计算b之间的所有整数之和，，b的植分别由其左边文本 概中输入，结果暴示在其右边的标签控件中。 2)单击按钮所有音数和时，计算其b之何的所有奇数之和，ab的值分别由其左边文 木框中输入，结果显示在其右边的标签控件中。 3)单击按钮显示时，在其右边的标签控件中显示1000以内所有能被138正降的数。 4)当单击 判新胺银时，判断其左边文本输入的整数。是否是素数。结果显示在其 右边的标签控件中。 通Fr语句应用举例 ▣☒ 进行数的果加 斯有型数和 5 计虹从1到 5 所有商数和 显异一系列的湖据 138216414552690828966 判新一个拔是否是家数 判断■ 31是素数， 图2.39 For+Next语句举例参考界面 解题步煤： (1)加载指定素材Exp5.vb并将其设为启动窗体， (2》给按钮所有莹圈和编写代码并运行调试。区间的妃始植和终止值从界面得到，注意 在累加之前即蕾环之前，给存放黑如结果的变量s进行初始化。即0：如果是累乘，给存 放累乘结果的变量s进行初始化时，应该是：，参考代码如图2.40所示
(2) 编写代码实现以下功能： 1）单击按钮 时，计算 a~b 之间的所有整数之和，a，b 的值分别由其左边文本 框中输入，结果显示在其右边的标签控件中。 2）单击按钮 时，计算其 a~b 之间的所有奇数之和，a，b 的值分别由其左边文 本框中输入，结果显示在其右边的标签控件中。 3）单击按钮 时，在其右边的标签控件中显示 1000 以内所有能被 138 正除的数。 4）当单击 按钮时，判断其左边文本框输入的整数，是否是素数，结果显示在其 右边的标签控件中。 图 2.39 For…Next 语句举例参考界面 解题步骤： （1）加载指定素材 Exp5.vb 并将其设为启动窗体。 （2）给按钮 编写代码并运行调试。区间的起始值和终止值从界面得到，注意 在累加之前即循环之前，给存放累加结果的变量 s 进行初始化，即 s=0；如果是累乘，给存 放累乘结果的变量 s 进行初始化时，应该是：s=1，参考代码如图 2.40 所示
‘功能：进行数据的累加 Private Sub Bt1_Click(ByVal sender As Systen.Object,ByVal e As Systen Din a b As Integer ”用于获取基数据 Din i As Integer ·声明一个循环控制变量 Din s As Integer ‘用于存放结果 ”获取基瑞数据 a Canvert.ToInt32(txtA.Text) b Comvert.ToInt32(txtB.Text) '初始化用于存放累加结果的变量 s=0 ‘利用循环语句进行累加 For i a To b a8卡i Next ’输出结果 1blSum.Text Convert.ToString(s) End Sub 图2.40进行数据累加的参考代码截图 【思考】若考虑b的情形，代码该如何完普？ (3》给所有膏数和技银编写代码并运行调试。和刚才的代码相比。其基本套路相比，只是 对于每一个具体的数。这里用1表示，须先对其进行条件判断，才决定是否将其选行据加， 参考代码如图2.41所示。 功院：茂条件进行致菇的加 Private Sub btn2_Click(ByVal sender As Systen.Object,ByVal e As System Dim a,b As Integer Din i As Integer ·声明一个循环控制变量 Dim s As Integer 获取基础数据 a Convert.ToInt32(txtA Text) b=Convert.ToInt32(txtB.Text) '初始化用于存放累加结果的变量 8日0 ”利用循环语句进行累加 For i a To b If i od 2 0 Then ·符合指定条件才进行累加 ss i End If Next 1bl0dd.Text Canvert.ToString(s) End Sub 图24】按条件进行数据累如的参考代码截图 (4)给显示按钮编写代马并运行调试。和累如相比。将一系列的数据或者字符显示在文 本框或者标签控件中也是在实际编程中经常遇到的，为了使新的数据能够跟在后面输出，关 @是语句：Lbl为t,Text·LblData,Text&””&i,许多初学者会写成 LbIData T一i的形式，这样具能显示最后一个i,面不能显示一系列符合条件的数据， 希里读者留意这细节，参考代码如图242所示
图 2.40 进行数据累加的参考代码截图 【思考】若考虑 a>b 的情形，代码该如何完善？ （3）给 按钮编写代码并运行调试。和刚才的代码相比，其基本套路相比，只是 对于每一个具体的数，这里用 i 表示，须先对其进行条件判断，才决定是否将其进行累加， 参考代码如图 2.41 所示。 图 2.41 按条件进行数据累加的参考代码截图 （4）给 按钮编写代码并运行调试。和累加相比，将一系列的数据或者字符显示在文 本框或者标签控件中也是在实际编程中经常遇到的，为了使新的数据能够跟在后面输出，关 键是语句：LblData.Text = LblData.Text & " " & i，许多初学者会写成： LblData.Text = i 的形式，这样只能显示最后一个 i，而不能显示一系列符合条件的数据， 希望读者留意这细节，参考代码如图 2.42 所示
”功能：在标签文本)控件中业示一组的数据 Private Sub btn3_Click(ByVal sender As Systen.Object,ByVal e As System. Dim i As Integer 声明一个循环控制变量 Fcr1=100To1000 If1Mod138=0Them'符合指定条件才显示 “利用连字符&显示所有符合条件的效据，数据之间用空格隔开 LblData.Text LblData.Text &""&i End If Next End Sth 图242显示一组数据的的参考代码截图 (5)给 判断按钮编写代码并运行调试。对干木程序的编写，需明确以下两点： 1)什么是素数、如何判断？所谓素数是只能搜1和它本身整除的整数，如3,7，山，13 等：判断原则是： 如果整数m不能被2~m1之间的任意一个整数整除，那么m就是素数，否则m就不 是素数。为了提高判断的效率，也可以下规则判断： 如果整数m不能被2、√m之间的任意一个整数整除，郑么m就是素数，否则m就不 是素数。即只要m能被2、√所之间的任意一个整数整除，那么就可以得出m不是素数的 结果，本题采用此烧则进行判断。 2)0语句正常结束和提前结束表现在循环控制变量取值的不月。如 For i=l tok 444 Next for 如果循环正常结束，i的值是k+小：如果循环是提前结束，1的值是介于1k之间。因此 可根据循环控制变量！的取值米确定循环是否正常结束。 明确这两点之后就可以着手编写代到了，参考代到如图243所示。 '功能：判断一个数是否为素数 '所请素数是指只能被1和它本身整除的整数 Private Sub btn4_Click(ByVal sender As Systen.Object,ByVal e As System Din m As Integer Din i As Integer '南明一个循环控制变量 Din k As Integer ·声明一个中间变量 获取基肚数据 =Comvert.ToInt32(txt.Text) 获取，的平方根并取整 k Convert.ToInt32(Math Sqrt(n)) Far i 2 To k If n Mod i =0 Then Exit For ‘提前结束循环，此时肯定小于或者等于k。 End If le置t IFi>k Then"判断循环是否正常结束？若是，则i=k+1 1 blPrime.Text=n盘“是素数。 Else 1b1Prie,Text=n&"不是素数。” End If End Sub
图 2.42 显示一组数据的的参考代码截图 （5）给 按钮编写代码并运行调试。对于本程序的编写，需明确以下两点： 1）什么是素数、如何判断？所谓素数是只能被 1 和它本身整除的整数，如 3，7，11，13 等；判断原则是： 如果整数 m 不能被 2 ~ m-1 之间的任意一个整数整除，那么 m 就是素数，否则 m 就不 是素数。为了提高判断的效率，也可以下规则判断： 如果整数 m 不能被 2 ~ m 之间的任意一个整数整除，那么 m 就是素数，否则 m 就不 是素数，即只要 m 能被 2 ~ m 之间的任意一个整数整除，那么就可以得出 m 不是素数的 结果，本题采用此规则进行判断。 2）for 语句正常结束和提前结束表现在循环控制变量取值的不同。 如 For i = 1 to k …… Next for 如果循环正常结束，i 的值是 k+1；如果循环是提前结束，i 的值是介于 1~k 之间。因此 可根据循环控制变量 i 的取值来确定循环是否正常结束。 明确这两点之后就可以着手编写代码了，参考代码如图 2.43 所示
图243判断一个是否是素数的参考代码截图
图 2.43 判断一个是否是素数的参考代码截图