1、上海立信会计学院本科实验报告班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验 4 循环结构一、 实验目的1 掌握 For 语句的使用2 掌握 Do 语句的各种形式的使用。3 掌握如何控制循环条件，防止死循环或不循环。二、实验要求1 在 C:下建立子文件夹“VB 实验 4”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件（41.exe） ，本实验中的第二题，需保存的文件有：工程文件 (42.vbp)、窗体文件(42.frm) 及可执行文件（ 42.exe） ，其余实验依此类推
2、。2 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。三、 实验内容：1. 编一程序利用单循环结构显示如图 4-1 所示的界面。要求：循环体内显示的内容用String 函数来实现，找出循环控制变量与 String 函数内字符个数的关系：即 String(2*i-1,Trim(Str(i)。窗体显示字体默认、大小为小四，通过单击窗体触发程序运行。图 4-1Private Sub Form_Click()For i = 1 To 9Print Tab(15 - i); String(2 * i - 1, Trim(Str(i)Next iEnd Sub2. 计算 的近似值， 的计算
3、公式为：，要求：单击按钮同时显示当)12()(75634122nn=10、100、1000 时的结果，利用 Format 函数保留 5 位小数。窗体中所有控件字体默认、大小为小四。效果如图 4-2 所示。图 4-2Private Sub Command1_Click()pi = 2For i = 1 To 10pi = pi * (2 * i) 2 / (2 * i - 1) * (2 * i + 1)Next iPrint “ n=10 近似值 =“; Format(pi, “0.00000“)pi = 2For i = 1 To 100pi = pi * (2 * i) 2 / (2 *
4、i - 1) * (2 * i + 1)Next iPrint “ n=100 近似值 =“; Format(pi, “0.00000“)pi = 2For i = 1 To 1000pi = pi * (2 * i) 2 / (2 * i - 1) * (2 * i + 1)Next iPrint “ n=1000 近似值 =“; Format(pi, “0.00000“)End Sub3. 求 Sn=a+aa+aaa+aaaa+aaaaa(n 个 a)，其中 a 是一个由随机数产生的 19（包括1、9）中的一个正整数，n 是一个由随机数产生的 49（包括 4、9）中的一个正整数，产生随机数
5、需使用 Randomize 语句。例如，当 a=2，n=5 时，Sn=2+22+222+2222+22222。要求：单击窗体时，在窗体上逐个显示 S 的结果，效果如图 4-3 所示。所有控件字体默认、大小为小四，窗体宽度设置为 9000Twip。图 4-3Private Sub Form_Click()Randomizea = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 4)Print “絞 a=“; Trim(Str(a); “时，n=“; Trim(Str(n); “ 时， S=“;For i = 1 To n - 1Print String(i, Trim(Str
6、(a) + “+“;Next iPrint String(n, Trim(Str(a)End Sub4. 编一程序，要求在程序启动时显示出所有的水仙花数。所谓水仙花数是指 100999 之间的一个 3 位正整数，其各位数字立方和等于该数字本身。例如 153 是水仙花数，因为 153=13+53+33。窗体中字体默认、大小为小四。效果如图 4-4 所示。图 4-4Private Sub Form_Load()Dim x%, x1%, x2%, x3%ShowPrint Tab(2); “正整数 100-999 所有水仙花数为： “For x = 100 To 999x1 = x 100x2 =
7、(x Mod 100) 10x3 = x - x1 * 100 - x2 * 10If x = x1 3 + x2 3 + x3 3 ThenPrint Tab(2); x1 x1 3 xEnd IfNext xPrintPrintEnd Sub5. 一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁 10 万元钱，直到满一个月（30 天） ；而富翁第一天给陌生人 1 分钱，第二天 2 分，第三天 4 分，富翁每天给陌生人的钱是前一天的两倍，直到满一个月。编一程序，计算第几天富翁付出钱的总数超过陌生人付出钱的总数，并显示第 30 天时他们分别付给对方的金额总数以及富翁将多付出的金
8、额数？要求：程序运行时立即显示结果，窗体中字体默认、大小为小四，效果如图 4-5 所示。图 4-5Private Sub Form_Load()Dim mf i; “ 天 富翁的付钱总数超过陌生人的付钱总数“Print “ 富翁付给陌生人钱的总数为：“; Format(fm, “0.00“); “元“Print “ 陌生人付给富翁钱的总数为：“; Format(mf, “0.00“); “元“Printmf = 0: fm = 0: m = 0.005For i = 1 To 30mf = mf + 100000m = m * 2fm = fm + mNext iPrint “ 第 30 天“Print “ 富翁付给陌生人钱的总数为：“; Format(fm, “0.00“); “元“Print “ 陌生人付给富翁钱的总数为：“; Format(mf, “0.00“); “元“Print “ 富翁将多付出：“; Format(fm - mf, “0.00“); “元“End Sub四、 实验过程中的问题、错误，解决方法，总结、体会、建议。
