admin 管理员组

文章数量: 1086019


2024年4月21日发(作者：程序流程图怎么画switch)

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．24 C．32 D．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

= c

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是

A．40 B．10C．12 D．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．5 7 B．6 8 C．7 9D．8 10

6 8

7 9


本文标签： 窗体 命令 文本框 编写 程序

版权声明：本文标题：vb第四章数组习题 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1713707493a647889.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。