《(完整版)VB项目4数组习题答案.doc》由会员分享，可在线阅读，更多相关《(完整版)VB项目4数组习题答案.doc（5页珍藏版）》请在金锄头文库上搜索。
1、(完整版)VB项目4数组习题答案一、单选题1.在VB.NET中,一组具有相同名字、不同下标的变量称为_。A。数组 B.变量 C。同类数据 D。同类变量2。一维数组的大小为_。A。上界+下界+1 B。上界+下界-1 C.上界-下界+1 D.上界下界13.数组的存放是按_存放的。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。0100
2、B.1100 C.099 D.1997.若使用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 Preserve9。对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为_。A。空 B.0 C。1 D。最大数10.执行重定义数组大小语句ReDim A(UBound（B)）后，A数组的上界为_。A。B
3、数组的上界 B。B数组的上界+1 C.B数组的上界 1 D。不确定11.下列数组声明语句中正确的是_。A.Dim A(9） As Single =1，2，3，4，5，6，7,8，9,10B。Dim A(） As Single =1,2，3，4,5,6，7,8,9,10C.Dim A(） As Single =1，abc,ccc”，4，5，6,7，8，9,10D。Dim A（ ， ) As Single =1，2,3,4,5，6,7,8,9，1012. 若有声明Dim a(2 ，3） as Integer，则数组a共有元素 个。A12 B30 C16 D413。下列程序的输出结果是_。Dim A
4、（) As Integer =1,2,3,4，5,6,7For i=0 to UBound（A） A（i）= A（i)* A（i)Next iMsgBox (A（i）A。49 B。0 C。不确定 D。程序出错14. 关于数组的声明，正确的是_。A。Dim a（5) As Integer = 1，2，3，4,5,6B。Dim a(1,6） As Integer = 1，2,3,4,5,6C.Dim a（ ） As Integer = 1,2,3,4，5,6D。Dim a（1 to 6) As Integer = 1,2，3，4，5，615。 有两个数组s1和s2,要将s1的内容“拷贝”一份给s2
5、，使用( ）.A。s2=s1B。 s2=s1。CopyC。s2=s1.CloneD.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. 将数组下标为偶数的元素从小
6、到大排序，其他元素不变 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 （n2) 2 （4） Step 2 If a
7、（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 iEnd Sub1 0 step 2 i + 2 （n 2) * 22计算给定的10个数中正数之和和负数之和，最后输出这两个和数的绝对值之商。 Private Sub Button1_Click（） Handles Button1.Click Dim a（) As Integer = 23， 5, 23， -45， 11， 8, -3,
8、 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中,将一维数组中各元素的值移到后一个元素中，而
9、最末一个元素的值移到第一个元素中去。按每行4个数的格式输出. 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
10、 = Label1。Text & A（i） ” Next iEnd Sub3 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 Fo
11、r j = i + 1 To n (2） Next j ReDim （3) MsgBox（删除完成） Exit For End If Next i If i n Then MsgBox（找不到要删除的元素”)End Sub (1) A(i） = key（2) A(j1) = A(j）(3) Preserve A(n - 1）四程序调试题1。下面程序对产生的10个随机数进行排序，程序中有3个错误，请在相应的行上改正。 Private Sub Button1_Click(） Handles Button1.Click Dim a（9) As Integer Dim i, j， imin， t As Integer Label1.Text = ”原始成绩为: & vbCrLf For i = 1 To 10 / For i = 0 To 9 a（i） = Int（Rnd（） 101） Label1.Text = a(i） &
