vb实验报告总结精选 .doc

vb实验报告总结 实 验 报 告 课程名称 程序设计语言 实验学期 至 学年 第 学期 学生所在系部 年级 班级 学生姓名 学号 任课教师 实验成绩 计算机学院制 计算机学院综合性实验报告 《 程序设计语言 》课程综合性实验报告 编号： 2011－2012学年第二学期 实 验 报 告 实验课程名称VB程序设计基础与VBA应用 专 业 班 级 学号 学 生 姓 名 实验指导老师 浙江大学城市学院实验报告 课程名称 VB程序设计基础与实验 实验项目名称 实验十、上机综合练习 学生姓名 专业班级 学号 实验成绩 指导老师 日期 一. 实验目的和要求 掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法。 二. 实验内容和原理 从键盘输入两个正整数，判定其中一个是否能整除另一个； Private Sub Form_Click Dim a As Integer, b As Integer a = Val) b = Val) If a Mod b = 0 Or b Mod a = 0 Then Print 能整除 Else Print 不能整除 End Sub 从键盘输入n，计算s=1-5+9-13+17-…+的值； Private Sub Form_Click Dim n As Integer, flag As Integer, i As Integer, s As Integer n = Val) flag = 1: s = 0 For i = 1 To 4 * n + 1 Step 4 s = s + i * flag flag = -flag Next i Print s End Sub 产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇 数按从小到大的顺序在窗体中用紧凑格式输出； Private Sub Form_Click Dim a As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a = ⑴ : Next i For i = 1 To 29 For j = ⑵ If a a Then m = a: ⑶ :a = m End If Next j,i For i = 1 To 30 If ⑷ Then Print a; Next i End Sub Private Sub Form_Click Dim a As Integer, i As Integer, j As Integer, m As Integer Print 排序前： For i = 1 To 30 a = Int) + 10 Print a; If i Mod 10 = 0 Then Print Next i For i = 1 To 29 For j = i + 1 To 30 If a a Then m = a: a = a: a = m End If Next j Next i Print 排序后： For i = 1 To 30 Print a; If i Mod 10 = 0 Then Print Next i Print 其中的奇数： For i = 1 To 30 If a Mod 2 = 1 Then Print a; Next i End Sub 求二维数组a中的最大值以及最大值所在的行号和列号，行数m、列数n及数组元素从键盘输入； Private Sub Form_Click Dim a As Integer, m As Integer, n As Integer, i As Integer, j As Integer Dim x As Integer, y As Integer, Max As Integer m = Val) n = Val) ReDim a For i = 1 To m For j =