实验报告-循环结构程序设计.docVIP

西 南 石 油 大 学 实 验 报 告 课 程 VB程序设计 实验项目 循环结构程序设计 专业年级 储运2011级 指导教师 张淮鑫 成 绩 姓 名 李志鹏 学 号 1101020426 实验日期 2012-05-09 一、实验目的： （1）掌握循环结构和多重循环嵌套方法 （2）掌握循环结构与选择结构的综合使用 （3）进一步学习VB内部函数的使用 （4）学习字符串的处理技术 （）【实验1】编写程序，显示出所有的水仙花数。Private Sub Command1_Click() For i = 100 To 999 Step 1 a = i Mod 10 b = i \ 10 Mod 10 c = i \ 100 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i End If Next i End Sub （2）运行效果 【实验】编写程序，计算的近似值 （1）编写代码 Private Sub Command1_Click() Dim a() As Long ReDim a(1 To i + 1) If i = 1 Then a(1) = 1 End If For i = 2 To i a(i) = a(i - 1) + i Next i Dim b() As Long ReDim a(1 To i) b(i) = 1 / a(i) Do While b(i) 10 ^ (-5) s = s + b(i) Loop Print s End Sub （2）运行效果 【实验】编写程序，计算sin（x）的近似值 （1）编写代码 （2）运行效果 【实验】编写程序，按图输出数字字符图案。Private Sub Command1_Click() Print 0 Print 1 1 1 Print 2 2 2 2 2 Print 3 3 3 3 3 3 3 Print 4 4 4 4 4 4 4 4 4 Print 5 5 5 5 5 5 5 5 5 Print 6 6 6 6 6 6 Print 7 7 7 7 7 Print 8 8 8 Print 9 End Sub （2）运行效果 【实验】编写程序，输出任意范围的所有素数。Private Sub Command1_Click() For n = 100 To 150 For i = 2 To n - 1 If n Mod i = 0 Then Exit For Next If i n - 1 Then Print n Next n End Sub （3）运行效果 【实验】 （2）编写代码 （3）运行效果 【实验】编写程序，统计输入的任意字符串中的字母、数字、空格和其他字符个数。【实验】 提示：对于特殊字符“★”、“☆”可通过汉字标准输入的软键盘菜单中的“特殊符号”命令来实现。