VB程序设计第八章习题.docVIP

下载本文档

15
0
约5.02千字
约 8页
2017-08-24 发布于河南
举报
版权申诉

VB程序设计第八章习题.doc

1、本文档共8页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

1. Option Base 1 Private Sub Form_Click() Dim i As Integer, j As Integer, t As Integer Dim arr(10) Print 原来数组： For i = 1 To 10 arr(i) = Val(InputBox()) Print arr(i); Next i Print For i = 1 To 5 t = arr(i) arr(i) = arr(11 - i) arr(11 - i) = t Next i Print 对换后数组： For i = 1 To 10 Print arr(i); Next i End Sub 2. Option Base 1 Private Sub Form_Click() Dim a, b, c(8) As Integer a = Array(2, 8, 7, 6, 4, 28, 70, 25) b = Array(79, 27, 32, 41, 57, 66, 78, 80) For i = 1 To 8 c(i) = a(i) + b(i) Next i Print 第三个数组为：; For i = 1 To UBound(a) Print c(i); Next i End Sub 3. Option Base 1 Private Sub Form_Click() Dim mat() As Integer, max As Integer Dim n, m As Integer n = InputBox(请输入矩阵的行数) m = InputBox(请输入矩阵的列数) ReDim mat(n, m) As Integer For i = 1 To n For j = 1 To m mat(i, j) = InputBox(请输入数组第 Str(i) 行第 Str(j) 列元素值) Next j Next i Print 所建立的矩阵为： For i = 1 To n For j = 1 To m Print mat(i, j); ; Next j Print Next i max = mat(1, 1) For i = 1 To n For j = 1 To m If max mat(i, j) Then max = mat(i, j) col = j row = i End If Next j Next i Print Print 矩阵最大的元素的值为：; mat(row, col) Print 它所在的行号为：; row; ,列号为：; col End Sub 4. Option Base 1 Private Sub Form_Click() Dim mat(4, 4) As Integer Dim n As Integer, m As Integer, t As Integer n = 4 m = 4 For i = 1 To n For j = 1 To m mat(i, j) = InputBox(请输入数组第 Str(i) 行第 Str(j) 列元素值) Next j Next i Print 初始矩阵为： Print For i = 1 To n For j = 1 To m Print Tab(6 * j); mat(i, j); Next j Print Next i 输出矩阵对角线上的数 Print Print 矩阵对角线上的数为： Print For i = 1 To n For j = 1 To m If i = j Then Print Tab(6 * j); mat(i, j); End If Next j Next i 输出各行和各列的和 Print Print 各行的和依次为： Print For i = 1 To n Sum = 0 For j = 1 To m Sum = Sum + mat(i, j) Next j Print Sum; Next i Print Print 各列的和依次为： Print For j = 1 To m Sum = 0 For i = 1 To n Sum = Sum + mat(i, j) Next i Print Sum; Next j 交换第一行和第三行的位置 Print For j = 1 To m t = mat(1,