VB 第四章 数组习题

第一章第一章数组数组 一 选择题 1 在窗体上画一个命令按钮 然后编写如下程序 Option Base 1 Private Sub Command1 Click Index As Integer Dim Arr1 12 As Integer Arr2 3 As Integer Dim Sum As Integer Sum 2 For i 1 To 12 Arr1 i i Next i For i 1 To 3 Arr2 i Arr1 i i Next i For i 1 To 3 Sum Sum Arr2 i Next i Print Sum End Sub 程序运行后 单击命令按钮 在窗体上的输出结果是 A 16B 24C 32D 36 2 在窗体上画一个文本框 然后编写如下代码 Option Base 1 Private Sub Form Click Dim arr Dim Start As Integer Finish As Integer Dim Sum As Integer arr Array 12 4 8 16 Start LBound arr Finish UBound arr Sum 0 For i Start To Finish Sum Sum arr i Next i c Sum Finish Text1 Text c End Sub 程序运行后 单击窗体 则在文本框中显示的内容是 A 40B 10C 12D 16 3 阅读程序 Option Base 1 Private Sub Form Click Dim Arr 4 4 As Integer For i 1 To 4 For j 1 To 4 Arr i j i 1 2 j Next j Next i For i 3 To 4 For j 3 To 4 Print Arr j i Next j Print Next i End Sub 程序运行后 单击窗体 输出结果是 A 57B 68C 79D 810 68 79 810811 4 用下面的语句所定义的数组的元素个数是 Dim A 3 To 5 As Integer A 6B 7C 8D 9 5 用下面的语句所定义的数组的元素个数是 Dim arr 3 To 5 2 To 2 A 20B 12C 15D 24 6 在窗体上画一个命令按钮 其 Name 属性为 Command1 然后编写如下代码 Private Sub Command1 Click Dim Arr1 10 Arr2 10 As Integer n 3 For i 1 To 5 Arr1 i i Arr2 n 2 n i Next i Print Arr2 n Arr1 n End Sub 程序运行后 单击命令按钮 输出结果是 A 113B 311C 133D 313 7 在窗体上画一个命令按钮 其 Name 属性为 Command1 然后编写如下代码 Option Base 1 Private Sub Command1 Click Dim a 10 p 3 As Integer k 5 For i 1 To 10 a i i Next i For i 1 To 3 p i a i i Next i For i 1 To 3 k k p i 2 Next i Print k End Sub 程序运行后 单击命令按钮 输出结果是 A 35B 28C 33D 37 8 在窗体上画一个命令按钮 其 Name 属性为 Command1 然后编写如下代码 Option Base 1 Private Sub Command1 Click Dim a a Array 1 2 3 4 j 1 For i 4 To 1 Step 1 s s a i j j j 10 Next i Print s End Sub 程序运行后 单击命令按钮 输出结果是 A 4321B 12C 34D 1234 9 在窗体上画一个命令按钮 其 Name 属性为 Command1 然后编写如下代码 Option Base 1 Private Sub Command1 Click Dim Arr 3 As Integer For i 1 To 3 For j 1 To 3 Arr j Arr i 1 Next j Next i Print Arr 3 End Sub 程序运行后 单击命令按钮 输出结果是 A 7B 6C 5D 4 10 在窗体上画一个名称为 List1 的列表框 一个名称为 Label1 的标签框 列表框中显示若干城市的名称 当单击列表框中的某一城市名时 在标签中 显示选中城市的名称 下列能正确实现上述功能的程序是 A Private Sub List1 Click B Private Sub List1 Click Label1 Caption List1 ListIndex Label1 Name List1 ListIndex End SubEnd Sub C Private Sub List1 Click D Private Sub List1 Click Label1 Name List1 Text Label1 Caption List1 Text End Sub End Sub 11 为了使列表框中的项目分为多列显示 需要设置的属性为 A ColumnsB StyleC ListD MultiSelect 12 要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目 则应把 该列表框的 MultiSelect 属性设置为 A 0B 1C 2D 其他 13 删除列表框中指定的项目所使用的方法为 A MoveB RemoveC ClearD RemoveItem 14 用户在组合框中输入或选择的数据可以通过一个属性获得 这个属性是 A ListB ListIndexC TextD ListCount 二 填空题 1 在窗体上画一个文本框 然后编写如下程序 Option Base 1 Private Sub Form Click Dim Arr 10 As Integer For i 6 To 10 Arr i i 3 Next i Text1 Text Str Arr 6 Arr Arr 6 Arr 10 End Sub 程序运行后 单击窗体 在文本框中显示的内容是10 2 以下程序的功能是产生 10 个 0 1000 的随机整数 放入数组 Arr 中 然后 输出其中的最大值 请填空 Option Base 1 Private Sub Form Click Dim Arr 10 As Integer Dim Max As Integer Randomize For i 1 To 10 Arr i Int Rnd 1000 Next i Max Arr 1 For i 2 To 10 If Max 0 Then List1 RemoveItem Label1 Caption Else MsgBox 请选择要删除的项目 End If End Sub 三 编程题 1 编写程序 输出魔方阵 魔方阵是一个 n n 的二维数组 其中 n 为奇数 它由 1 n n 的正整数组 成 其中每行 每列及对角线上所有数字的总和都相同 产生魔方阵的算法由很多种 下面的程序用 右上斜行法 产生魔方阵 其 算法如下 a 把 1 放在第一行的中间一列 b 从 1 往右上方走放下 2 但已超出方阵范围 故将其置于同列第 n 行 c 从 2 往右上方走放下 3 也超出方阵范围 将其置于同行第一列 d 由于 3 是 n 的倍数 接下来的数字 4 置于同行下一列 e 重复上述步骤 直到填满 n n 个数为止 2 编写程序 用选择法对数组中的数据按由小到大的顺序进行排序 3 从键盘上输入 10 个整数 并放入一个一维数组中 然后将其前 5 个元素与后 5 个元素对换 即 第一个元素与第十个元素互换 第二个元素与第九个元素 互换 第五个元素与第六个元素互换 分别输出数组原来各元素的值和对换 后各元素的值 4 设有如下两组数据 A 2 8 7 6 4 28 70 25 B 79 27 32 41 57 66 78 80 编写一个程序 把上面两组数据分别读入两个数组中 然后把两个数组中对 应下标的元素相加 即 2 79 8 27 25 80 并把相应的结果放入第 三个数组中 最后输出第三个数组的值 5 有一个 n m 的矩阵 编写程序 找出其中最大的那个元素所在的行和列 并 输出其值及行号和列号 6 某单位开运动会 共有 10 人参加男子 100