实验5循环结构程序设计.docVIP

实验5 循环结构程序设计 实验目的： 掌握各种类型循环结构程序设计方法 掌握多重循环的用法 熟悉一些常用的算法 掌握字符串函数的使用 实验5.1打印图形 实验任务： 编程利用循环结构显示如图5-1的结果，要求利用Form_Click事件完成程序设计。 图 5-1 实验5.1运行界面 提示： 1．因为输出图形的行数已知，因此可以利用For-Next循环语句进行设计。 2．利用String函数的功能进行设计，注意String函数的格式要求，它要求输出字符串的首字符重复多少次，因此本题可以用Right函数获得所需数字输出图形。 3．每行的显示位置比上一行向前移一个位置，因此可以利用Tab定位函数控制输出位置，即可以 Tab（常数-当前所在行数）来控制，注意常数要大于总行数。 思考：把图形结果怎样保存到文件中呢？试一试。 实验5.2数列求和 实验任务： 用FOR循环编程计算的值。要求利用Form_Click事件完成程序设计，最后在窗体上输出累加和即可。 提示：注意累加和变量S要用实型变量。 实验5.3近似计算 实验任务： 编程计算π的近似值，直到通项的值小于1.001为止，π的计算公式为： 并把计算结果存入数据文件“pai.dat” 中。 提示：可以利用Form_Click事件，在窗体上输出π的近似值。这是一个典型的无法预知循环次数的问题，一般用Do-Loop语句可以配合Exit Do语句来解决。在循环中可以用n表示项数，它的初值可以为2，每做一次循环，n = n + 1；如果的通项的值小于1.001，则结束循环，输出结果。注意变量的类型定义。 思考： 若想将结果保留小数点后两位，对第三位四舍五入，应怎样修改代码? 将公式改为 要求计算结果第n项的绝对值小于10-5。请修改程序代码。 实验5.4水仙花数 实验任务： 编程显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为153=13+53+33。要求用Form_Click事件完成程序设计，在窗体上输出水仙花数。 提示：解该题可以有两种方法，其一利用一重循环将一个三位数逐一分离成三个一位数；其二利用三重循环将三个一位数合并成一个三位数。 实验5.5判断素数 实验任务： 编程输入一个正整数，判断该正整数是否为素数。要求依据素数的定义“一个数x除了1和它本身之外，不能被任何数整除，则x为素数”，对输入的正整数进行判断。 提示： 1．可以定义一个整型变量i，i从2至x-1以步长值1依次递增，若x能被i整除，则停止循环，即 For i=2 To x-1 If x Mod I = 0 Then Exit For Next 当循环正常结束，即循环变量的值从2变化到x（x-1+1），说明x是素数；而当循环通过Exit For语句非正常结束，说明x不是素数。 If i=x Then MsgBox str（x）+是素数 Else MsgBox str（x）+不是素数 End If 思考：下面的程序正确吗？为什么？ For i=2 To x-1 If Mod（x，i）=0 Then MsgBox str（x）+不是素数 Else MsgBox str（x）+是素数 End If Next i 2．实际上，循环变量i并不需要变化到x-1，请你至少想出两个小于x-1的循环终值：__________和__________。 实验步骤: 1．界面设计如图5-2所示，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton控件。 2．属性设置 控件名称 属性名称 属性值 标签1 Name LblInput Font 宋体三号粗体 Caption 输入正整数 文本框1 Name TxtInput Text 空 命令按钮1 Name CmdJudge Caption 判断 命令按钮2 Name CmdExit Caption 退出 3．完善程序 Option Explicit Dim i As Integer Dim x As Integer Private Sub cmdJudge_Click() x = Val(txtInput.Text) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next If __________ Then MsgBox Str(x) + 是素数！ Else MsgBox Str(x) + 不是素数！