【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-VB程序设计实验要求及报告4!10 - 技术总结的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

上海立信会计学院本科实验报告 班级 学号 姓名 指导教师 系部 专业 实验时间 实验4 循环结构 一、 实验目的 1 掌握For语句的使用 2 掌握Do语句的各种形式的使用。

     3 掌握如何控制循环条件防止死循环或不循环。

     二、实验要求 1 在C:下建立子文件夹“VB实验4”按照题目要求在该文件夹下为各题保存相应的文件如本实验中的第一题需保存的文件有工程文件41.vbp、窗体文件41.frm 及可执行文件41.exe本实验中的第二题需保存的文件有工程文件42.vbp、窗体文件42.frm 及可执行文件42.exe其余实验依此类推。

     2 撰写实验过程中出现了哪些问题、错误你是如何解决的做一个小结。

     三、 实验内容 1. 编一程序利用单循环结构显示如图4-1所示的界面。

    要求循环体内显示的内容用String函数来实现找出循环控制变量与String函数内字符个数的关系即String2i-1TrimStri。

    窗体显示字体默认、大小为小四通过单击窗体触发程序运行。

     图4-1 Private Sub Form_Click For i 1 To 9 Print Tab15 - i String2 i - 1 TrimStri Next i End Sub 2. 计算的近似值的计算公式为 1212275653431222222nnn要求单击按钮同时显示当n10、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 n10 ∏近似值 Formatpi 0.00000 pi 2 For i 1 To 100 pi pi 2 i 2 / 2 i - 1 2 i 1 Next i Print n100 ∏近似值 Formatpi 0.00000 pi 2 For i 1 To 1000 pi pi 2 i 2 / 2 i - 1 2 i 1 Next i Print n1000 ∏近似值 Formatpi 0.00000 End Sub 3. 求Snaaaaaaaaaa??aa??aaan个a其中a是一个由随机数产生的19包括1、9中的一个正整数n是一个由随机数产生的49包括4、9中的一个正整数产生随机数需使用Randomize语句。

    例如当a2n5时Sn222222222222222。

    要求单击窗体时在窗体上逐个显示S的结果效果如图4-3所示。

    所有控件字体默认、大小为小四窗体宽度设置为9000Twip。

     图4-3 Private Sub Form_Click Randomize a IntRnd 9 1 n IntRnd 6 4 Print 绞a TrimStra 时n TrimStrn 时 S For i 1 To n - 1 Print Stringi TrimStra Next i Print Stringn TrimStra End Sub 4. 编一程序要求在程序启动时显示出所有的水仙花数。

    所谓水仙花数是指100999之间的一个3位正整数其各位数字立方和等于该数字本身。

    例如153是水仙花数因为153135333。

    窗体中字体默认、大小为小四。

    效果如图4-4所示。

     图4-4 Private Sub Form_Load Dim x x1 x2 x3 Show Print Tab2 正整数 100-999所有水仙花数为 For x 100 To 999 x1 x 100 x2 x Mod 100 10 x3 x - x1 100 - x2 10 If x x1 3 x2 3 x3 3 Then Print Tab2 x1 3 x2 3 x3 3 x1 3 x2 3 x3 3 x End If Next x Print Print End Sub 5. 一个富翁试图与陌生人做一笔换钱生意换钱规则为陌生人每天给富翁10万元钱直到满一个月30天而富翁第一天给陌生人1分钱第二天2分第三天4分????富翁每天给陌生人的钱是前一天的两倍直到满一个月。

    编一程序计算第几天富翁付出钱的总数超过陌生人付出钱的总数并显示第30天时他们分别付给对方的金额总数以及富翁将多付出的金额数要求程序运行时立即显示结果窗体中字体默认、大小为小四效果如图4-5所示。

     图4-5 Private Sub Form_Load Dim mf m i fm Show mf 0: fm 0: m 0.005: i 0 Do While fm