VB程序设计实要求及报告4.docVIP

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验4 循环结构 实验目的 掌握For语句的使用 掌握Do语句的各种形式的使用。 掌握如何控制循环条件，防止死循环或不循环。 二、实验要求 在C:\下建立子文件夹“VB实验4”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件（41.exe），本实验中的第二题，需保存的文件有：工程文件(42.vbp)、窗体文件(42.frm) 及可执行文件（42.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 编一程序利用单循环结构显示如图4-1所示的界面。要求：循环体内显示的内容用String函数来实现，找出循环控制变量与String函数内字符个数的关系：即String(2*i-1,Trim(Str(i)))。窗体显示字体默认、大小为小四，通过单击窗体触发程序运行。 图4-1 Private Sub Form_Click() For i = 1 To 9 Print Tab(15 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub 计算的近似值，的计算公式为： ，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format函数保留5位小数。窗体中所有控件字体默认、大小为小四。效果如图4-2所示。 图4-2 Private Sub Command1_Click() pi = 2 For i = 1 To 10 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print n=10 ∏近似值=; Format(pi, 0.00000) pi = 2 For i = 1 To 100 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print n=100 ∏近似值=; Format(pi, 0.00000) pi = 2 For i = 1 To 1000 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print n=1000 ∏近似值=; Format(pi, 0.00000) End Sub 求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a)，其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数，n是一个由随机数产生的4～9（包括4、9）中的一个正整数，产生随机数需使用Randomize语句。例如，当a=2，n=5时，Sn=2+22+222+2222+22222。要求：单击窗体时，在窗体上逐个显示S的结果，效果如图4-3所示。所有控件字体默认、大小为小四，窗体宽度设置为9000Twip。 图4-3 Private Sub Form_Click() Randomize a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 4) Print 絞a=; Trim(Str(a)); 时，n=; Trim(Str(n)); 时， S=; For i = 1 To n - 1 Print String(i, Trim(Str(a))) + +; Next i Print String(n, Trim(Str(a))) End Sub 编一程序，要求在程序启动时显示出所有的水仙花数。所谓水仙花数是指100~999之间的一个3位正整数，其各位数字立方和等于该数字本身。例如153是水仙花数，因为153=13+53+33。窗体中字体默认、大小为小四。效果如图4-4所示。 图4-4 Private Sub Form_Load() Dim x%, x1%, x2%, x3% Show Print Tab(2); 正整数 100-999所有水仙花数为： For x = 100 To 999 x1 = x \ 100