VB实验二实验报告.docVIP

实 验 报 告 二 课 程 VB程序设计 实验项目 循环、数组结构程序设计(6学时) 成 绩 专业班级 环境工程1班 姓 名 朱鹏华 学 号 201431040384 实验日期 2015/4/15 实验目的 （1）掌握For-Next、While-Wend、Do-Loop语句 （3）掌握素数算法 （4）掌握控制结构相关控件（列表框、组合框等） （5）能综合运用循环控制结构解决较复杂的问题 实验内容 【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值10-5时计算结束结束。 实验结果： 【】 Private Sub Form_Load() Form1.AutoRedraw = True c = 1 s = 1 Do b = b + 1 c = c + b a = 1 / c s = a + s i = i + 1 Loop While a = 10 ^ -5 Print 第 i - 1 项结束 Print 答案是; s - a End Sub 【】 【实验2】将200~300之间的素数输出到列表框中 实验结果： 【2 代码】 Private Sub Command1_Click() For i = 200 To 300 For j = 2 To Int(Sqr(i)) If i Mod j = 0 Then Exit For Next If j = Int(Sqr(i)) + 1 Then List1.AddItem Str(i) Next End Sub【2 典型结果】 【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。 实验结果： 【3 代码】 Private Sub Form_Load() Form1.AutoRedraw = True For i = 1 To 9 For j = 1 To i s = i * j = i * j Print s Next Print Next End Sub 【3 典型结果】 【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换…… 实验结果： 【4 代码】 Option Base 1 Private Sub Form_Load() Form1.AutoRedraw = True Dim a(10) For i = 1 To 10 Next For i = 1 To 4 k = a(i): a(i) = a(11 - i): a(11 - i) = k Next For i = 1 To 10 Print a(i) Next End Sub 【4 典型结果】 【实验5】静态声明一个二维数组，输入和输出该数组各元素的值 要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值 实验结果： 【5 代码】 Option Base 1 Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 5 For j = 1 To 5 a(i, j) = j + (i - 1) * 5 Next Next For i = 1 To 5 For j = 1 To 5 Print Tab((j - 1) * 9 + 1); a(i, j); Next Print Next For i = 1 To 5 s = s + a(i, i) Next For i = 1 To 5 n = n + a(i, 6 - i) Next Print Print 主对角线的和为： s Print 次对角线的和为： s Print Print 1、3行交换后的数组为 For j = 1 To 5 k = a(1, j): a(1, j) = a(3, j): a(3, j) = k Next For i = 1 To 5 For j = 1 To 5 Print Tab((j - 1) * 9 + 1); a(i, j); Next Print Next Print Print 行列交换后的数组为 For j