实验十、上机综合练习.doc

浙江大学城市学院实验报告 课程名称 VB程序设计基础 实验项目名称 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求 掌握数组二. 实验内容和原理 【练习-1】【练习-2】…+(4n+1)的值； 【练习-3】产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出Private Sub Form_Click() Dim a(30) As Integer, k As Integer, t As Integer For i = 1 To 30 a(i) = Int(Rnd * 90) + 10 Next i For i = 1 To 29 k = i For j = i + 1 To 30 If a(k) a(j) Then k = j Next j If i k Then t = a(i) a(i) = a(k) a(k) = t End If Next i For i = 1 To 30 If a(i) Mod 2 = 1 Then Print a(i); Next i End Sub 【练习-4】求二维数组（mn）中的最大值以及最大值所在的行号和列号，m、n及数组元素从键盘输入Public Sub form_click() Dim x() As Integer, m As Integer, n As Integer Dim i As Integer, j As Integer, max As Integer, imax As Integer, jmax As Integer m = InputBox(输入数组的行数：) n = InputBox(输入数组的列数：) ReDim x(m, n) For i = 1 To m For j = 1 To n x(i, j) = InputBox(输入数组元素:) Next j, i max = x(1, 1) imax = 1 jmax = 1 For i = 1 To m For j = 1 To n If x(i, j) max Then max = x(i, j) imax = i jmax = j End If Next j, i Print 最大值:; max Print 最大值所在的行号和列号:; imax; jmax End Sub【练习-5】产生k个互不相等的三位正整数。（提示：每产生一个数都要与数组中已有的元素逐个比较，若是重复数则丢弃，若不是重复数则入数组，直至数组中有互不相等的k个元素。）算法：每产生一个数n都要与数组中已有的元素逐个比较，若是重复数则n丢弃，若不是重复数则加n入数组，直至数组中有k个元素。 Private Sub Form_Click() Dim a() As Single, sum As Integer, aver As Single Dim i As Integer, n As Integer k = InputBox(输入n:) ReDim a(k) a(1) = Int(Rnd * 900) + 100 n = 1 Do While n k x = Int(Rnd * 900) + 100 For i = 1 To n If a(i) = x Then Exit For Next i If i n Then n = n + 1: a(n) = x Loop For i = 1 To k Print a(i); Next i End Sub 【练习-6】 * 1 A *** 222