大学VB实验答案模板.doc

上海立信会计学院本科试验汇报
班级： 学号： 姓名： 指导老师：
系部： 专业： 试验时间：
试验4 循环结构
试验目标
掌握For语句使用
掌握Do语句多种形式使用。
掌握怎样控制循环条件，预防死循环或不循环。
二、试验要求
在C:\下建立子文件夹“VB试验4”，根据题目要求，在该文件夹下为各题保留对应文件，如本试验中第一题，需保留文件有：工程文件()、窗体文件() 及可实施文件（），本试验中第二题，需保留文件有：工程文件()、窗体文件() 及可实施文件（），其它试验依这类推。
撰写试验过程中出现了哪些问题、错误，你是怎样处理，做一个小结。
试验内容：
编一程序利用单循环结构显示图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, "")
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, "")
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, "")
End Sub
求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a)，其中a是一个由随机数产生1～9（包含1、9）中一个正整数，n是一个由