VB实验二实验报告.doc
文本预览下载声明
实 验 报 告 二
课 程 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
显示全部