IVB程序设计.doc

五、程序设计 共12题 第1题 题号:14 --------------------------------- 【程序设计】 --------------------------------- 【题目要求】 1) 编写程序，生成一个4行5列的二维数组，其每个数组元素是随机产生的两位数， 求该数组的最大元素及其所在的行号、列号。 （若有多个相同的最大元素，则要一一标出其所在行号、列号） [算法提示]首先找出最大元素，再将数组中的元素与最大元素一一比较， 若有相等元素则输出其所在位置。 窗体设计界面参见已给出的参考界面。 【编程要求】 1) 运行程序，按“运行”按钮(Command1)，生成一个4行5列的两位随机整数数组， 按参考界面格式显示在多行文本框Text1中，再调用求二维数组最大元素的通用过程， 最后将结果输出到一个多行文本框Text2中；（注意代码中不得使用randomize语句） 按“清除”按钮(Command2)，则将文本框与图片框清空； 2) 程序中应定义一个名为maxele的通用函数过程，用于求二维数组的最大元素。 【代码书写要求】 1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 2)请在“****Program*****”与“****End*****”之间添加程序代码 3)请在指定区间 (1)先写出自定义函数过程maxele的程序代码以及Command2的代码 (2)最后完善Command1_Click()事件过程代码。 !!!! 注意： Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， 均不得删除，否则无分。 答案： Private Function maxele(a() As Integer) As Integer Dim i As Integer, j As Integer Dim max As Integer max = a(1, 1) For i = 1 To 4 For j = 1 To 5 If a(i, j) max Then max = a(i, j) End If Next j Next i maxele = max End Function Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub Private Sub Command1_Click() Dim a(4, 5) As Integer Dim i As Integer, j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text Str(a(i, j)) Next j Text1.Text = Text1.Text vbCrLf Next i max = maxele(a) Text2.Text = 最大元素是 max vbCrLf Text2.Text = Text2.Text 位置是 vbCrLf For i = 1 To 4 For j = 1 To 5 If max = a(i, j) Then Text2.Text = Text2 i 行 j 列 vbCrLf End If Next j Next i 第2题 题号:9 --------------------------------- 【程序设计】 --------------------------------- 【题目要求】 编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。 例如，数组各元素的值依次为1，2，3，4，5，6，7，8，9，10； 位移3次后，各元素的值依次为8，9，10，1，2，3，4，5，6，7。 窗体设计界面参见已给出的参考界面。 【编程要求】 1) 数组可定义为固定大小的10个元素的数组。 按“输入”按钮(Command1)，则用inputbox函数逐一输入 “1---10”10个数据，并显示在文本框Text1中。 在文本框Text2中输入循环移位位数（请输入3） 按“移位”按钮，调用通用Sub过程rmove()，实现移位操作,同时将 移位后10个数据显示在文本框Text3中。