一、单选题
1.在VB.NET中,一组具有相同名字、不同下标的变量称为____________。
A。数组 B.变量 C。同类数据 D。同类变量
2。一维数组的大小为______________。
A。上界+下界+1 B。上界+下界-1 C.上界-下界+1 D.上界—下界—1
3.数组的存放是按____________存放的。
A.数据大小 B。数据类型 C。列 D.行
4。数组具有相同的_____________。
A。下标 B.类型 C。数值 D.存放地址
5。重定义数组大小的语句是______________。
A.Dim语句 B。ReDim语句 C.Static 语句 D.Public 语句
6。使用Dim A(100） As Integer 语句声明了数组A，其下标的取值范围为____________。
A。0～100 B.1~100 C.0～99 D.1~99
7.若使用Dim A（100) As Integer 语句声明了数组A，下列引用错误的是___________。
A.A（0）=2 B.A（1）= -28 C.A（56）= A（-56） D。A(100）=A（0）+A(55)
8。如果要对已经声明的数组重新定义大小，并保留原有数据，可使用语句___________。
A。Dim B.ReDim C。Dim Preserve D.ReDim Preserve
9。对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。
A。空 B.0 C。1 D。最大数
10.执行重定义数组大小语句ReDim A(UBound（B)）后，A数组的上界为______________。
A。B数组的上界 B。B数组的上界+1 C.B数组的上界 — 1 D。不确定
11.下列数组声明语句中正确的是______________。
A.Dim A(9） As Single ={1，2，3，4，5，6，7,8，9,10｝
B。Dim A(） As Single ={1,2，3，4,5,6，7,8,9,10｝
C.Dim A(） As Single =｛1，"abc","ccc”，4，5，6,7，8，9,10｝
D。Dim A（ ， ) As Single ={1，2,3,4,5，6,7,8,9，10｝
12. 若有声明Dim a(2 ，3） as Integer，则数组a共有元素 个。
A．12 B．30 C．16 D．4
13。下列程序的输出结果是______________。
Dim A（) As Integer =｛1,2,3,4，5,6,7｝
For i=0 to UBound（A）
A（i）= A（i)* A（i)
Next i
MsgBox (A（i））
A。49 B。0 C。不确定 D。程序出错
14. 关于数组的声明，正确的是__________。
A。Dim a（5) As Integer = {1，2，3，4,5,6｝ B。Dim a(1,6） As Integer = {1，2,3,4,5,6｝
C.Dim a（ ） As Integer = ｛1,2,3,4，5,6} D。Dim a（1 to 6) As Integer = {1,2，3，4，5，6｝
15。 有两个数组s1和s2,要将s1的内容“拷贝”一份给s2，使用( ）.
A。s2=s1 B。 s2=s1。Copy C。s2=s1.Clone D.s2=s1.All
二、填空题
1。数组元素下标下界为_____0_____ ，不能改变；下标上界只能用常数表达式定义。
2。定义数组大小时，要想不丢失原有的数据，则必须在ReDim 后边加上关键字__ Preserve _。
3.若用Dim A(3,5) As Integer 语句声明数组A ，A数组有 _____24___ 个元素。
4。数组的存放是按行存放的，因此要将控制数组第一维的循环变量放在 ___外_______ 循环中。
5。若有语句A=Array(1,2,3，4,5，6,7,8），则A（5)的值是___6_____。
三、程序填空题
1. 将数组下标为偶数的元素从小到大排序，其他元素不变
Private Sub Button1_Click( ……） Handles Button1。Click
Dim a() As Integer = {90， 49， 23, 45, 11, 45， 67， 23， 68, 56｝
Dim i, j， n, temp As Integer
n = UBound（a）
For i = 0 To n
Label1。Text = Label1。Text ＆ a(i) & vbCrLf
Next i
For i = 0 （1） To (n \ 2 — 1) ＊ 2 (2）
For j = i+2 （3） To （n\2) ＊2 （4） Step 2
If a（i） > a（j) Then
temp = a(i): a（i） = a(j): a(j） = temp
End If
Next j
Next i
For i = 0 To n
Label2.Text = Label2。Text ＆ a（i) ＆ vbCrLf
Next i
End Sub
1．⑴ 0 ⑵ step 2 ⑶ i + 2 ⑷ （n \ 2) * 2
2．计算给定的10个数中正数之和和负数之和，最后输出这两个和数的绝对值之商。
Private Sub Button1_Click（……） Handles Button1.Click
Dim a（) As Integer = ｛23， —5, 23， -45， 11， 8, -3, 38, —31, 15｝
Dim s1， s2, i As Integer， x As Single
s1 = 0： s2 = 0
For i = （1） To (2）
Label1.Text = Label1。Text & a(i) & vbCrLf
If （3) Then
s1 = s1 + a（i)
Else
s2 = （4）
End If
Next i
x = s1 / Math。Abs(s2)
Label2.Text = x
End Sub
(1) 0 ⑵ UBound（a) （3) a（i） 〉 0 ⑷ s2+a(i)
3. 从键盘读取40个数保存到数组a中,将一维数组中各元素的值移到后一个元素中，而最末一个元素的值移到第一个元素中去。按每行4个数的格式输出.
array在vb什么意思啊 Private Sub Button1_Click（……） Handles Button1.Click
Dim A（10） As Integer，i， b As Integer
For i = 0 To 10
A（i) = Val(InputBox("请输入一个整数”))
Next i
b = A(10）
For i = （1)
A(i + 1) = A(i）
Next i
（2）
For i = 0 To 10
If i （3） 4 = 0 Then Label1.Text = Label1.Text ＆ vbCrLf
Label1.Text = Label1。Text & A（i） ＆ " ”
Next i
End Sub
3．⑴ 9 To 0 Step -1 ⑵ A(0) = b ⑶ mod
4.下列程序的功能是对已知数组A,删除数组中指定值的元素。
Private Sub Button1_Click(……） Handles Button1.Click
Dim A(） As Integer = {1, 2， 3， 4, 5, 6， 7， 8, 9, 10}
Dim key， i， j， n As Integer
n = UBound(A）
Key = Val(InputBox（”输入要删除的值”)）
For i = 0 To n
If (1） Then
For j = i + 1 To n
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论