




全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
一、单选题 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.0100 B.1100 C.099 D.199 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 共有元素 个。 A12 B30 C16 D4 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 (n2) *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 个数的格式输出。 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 (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(j-1) = 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) & Next For i = 0 To 8 For j = 9 To i + 1 / For j = 9 To i + 1 step -1 If a(j) a(j - 1) Then t = a(i) / t = a(j) a(j) = a(j - 1) a(j - 1) = t End If Next j Next i Label2.Text = 排序后的成绩为: & vbCrLf For i = 0 To 9 Label2.Text &= a(i) & Next i End Sub 2.随机产生20个不重复的AZ之间的英文字母,按字母顺序输出,如图4- 1所示,程序中有 三个错误,请改正。提示:定义一个有20个元素的字符型数组,将产生的字母放入数组中。 每次产生一个字母,则与已经产生过的字母比较,看是否相同若相同,则跳过该字母,不放 入数组中。 图 4- 1 产生随机字母 Private Sub Button1_Click( ) Handles Button1.Click Dim a(19) As Char, i, j As Integer Label1.Text = Randomize() For i = 0 To 19 a(i) = Int(Rnd() * 26 + 65) / a(i) = Chr(Int(Rnd() * 26 + 65)a(i) = Chr(Int(Rnd() * 26 + 65) For j = 0 To I / For j = 0 j = 0 To i i - - 1 1 If a(i) = a(j) Then i = i - 1 Next Next For i = 0 To 19 Label1.Text &= Chr(a(i) & / Label1.Text &= a(i) & Next End Sub 3.程序自动产生10个 1099 之间的随机正整数, 在lable1显示大的数, lable2显示小的数。 找出能被2、3、5整除的数,结果显示在Label3,如图4- 2所示。程序中有3个错误,请调试 改正。 图 4- 2 产生随机整数 Private Sub Button1_Click() Handles Button1.Click Dim a%(9), max%, i%, min% Randomize() For i = 0 To 9 a(i) = Int(Rnd() * 99 + 10) / I
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论