2018 2018秋 VisualBasic.NET程序设计(同济大学) 最新满分章节测试答案

本答案对应课程为:点我自动跳转查看
本课程起止时间为:2018-09-12到2019-01-07
本篇答案更新状态:已完结

第8讲 数组概念和常用算法（2） 第8讲单元测验

1、 问题:数组的上界可通过__函数得到。
选项：
A:Ubound
B:Lbound
C:Size
D:Length
答案: 【Ubound】

2、 问题:下列数组声明语句，__是正确的。
选项：
A:Dim  a(3, 4) As Integer
B:Dim  a(3, 4) As Single
C:Dim  a{3, 4} As Integer
D:Dim  a[3, 4] As Integer
E:Dim  a(3  4) As Integer
F:Dim  a[3：4] As Integer
答案: 【Dim  a(3, 4) As Integer;
Dim  a(3, 4) As Single】

3、 问题:程序的功能是通过计算将数列的前9项保存到数组中：0、0、2、4、8、12、18、24、32。 数列计算公式为：          在空白处填入合适的表达式，使程序完整。        Dim x(8) As Integer        Dim i As Integer                For __            If i mod 2 = 1 Then                 x(i) = (i * i – 1) / 2            Else                x(i) = (i * i) \ 2            End If                    Next
选项：
A:i = 0 To 8
B:i = 1 To 9
C:i = 2 To 10
D:i = 0 To 8 step 2
E:i = 1 To 9 step 2
答案: 【i = 0 To 8】

4、 问题:如下声明多维数组，则数组a有__个元素。    Dim  a(3, 0, 5) As Integer
选项：
A:24
B:15
C:8
D:16
E:0
答案: 【24】

5、 问题:以下程序输出的结果是__。Dim i%Dim a() As Integer={1, 2, 3, 4, 5, 6, 7}For i =0  To UBound (a) a(i) = a(i) * a(i)Next iMsgBox(a(i))
选项：
A:程序出错
B:49
C:0
D:7
E:不确定
答案: 【程序出错】

6、 问题:对于正在使用的数组x(n)，要增加2个数组元素，又要保留原来数组中的值，以下语句中正确的写法是___。
选项：
A:ReDim Preserve x(n+2)
B:Dim x(n+2)
C:ReDim x(n+2)
D:Dim Preserve x(n+2)
E:Dim x(n+2) As ReDim
答案: 【ReDim Preserve x(n+2)】

7、 问题:下面程序对已知数组a()，删除数组中某个数组元素。在空白处填入合适的语句，使程序完整。        Dim i, j, Key As Integer        Dim a() As Integer = {1, 6, 8, 3, 5, 9, 10, 2, 7, 4}        Key = Val(InputBox("输入要删除的值"))        For i = 0 To UBound(a)            If a(i) = Key Then                __            End If        Next i        If i <= UBound(a) Then            For j = i + 1 To UBound(a)                a(j – 1) = a(j)            Next            ReDim Preserve a(UBound(a) – 1)            MsgBox("删除完成")        Else            MsgBox("找不到要删除的元素")        End If
选项：
A:Exit For
B:Exit Sub
C:Exit Do
D:a(i – 1) = a(i)
E:a(i) = a(i – 1)
答案: 【Exit For】

8、 问题:下列数组声明初始化语句，__是正确的。
选项：
A:Dim  a( ) As Single={1，2，3，4，5，6，7，8，9，10}
B:Dim  a(9) As Single={1，2，3，4，5，6，7，8，9，10} 
C:Dim  a() As Single={1，”a”，”bc”，4，5，6，7，8，9，10}
D:Dim  a( , ) As Integer={1，2，3，4，5，6，7，8，9，10}
E:Dim  a( ) As Integer=（1，2，3，4，5，6，7，8，9，10）
答案: 【Dim  a( ) As Single={1，2，3，4，5，6，7，8，9，10}】

9、 问题:程序的功能是将斐波那契数列前若干项保存到数组，项数由输入框输入。斐波纳契数列前n项的值依次为：0、1、1、2、3、5、8、13、21、…，n由用户输入。在空白处填入合适的语句，使程序完整。        Dim x() As Integer        Dim i,n As Integer         n = Val(InputBox("请输入项数n："))           Redim x(n)        x(0)=0:x(1)=1:            For i =                                         x(i) = x(i – 1) + x(i – 2)                             Next
选项：
A: 2 To n  
B:0 To n
C:1 To n
D:n To0 2
E:0 To n-2
答案: 【 2 To n  】

10、 问题:使用ReDim语句可以重新定义数组的大小和类型。
选项：
A:正确
B:错误
答案: 【错误】

11、 问题:数组元素的下标可以是整型常量，也可以是整型变量。
选项：
A:正确
B:错误
答案: 【正确】

12、 问题:数组a中有6个元素，随机生成，查找数组中最大元素及其下标。在空白处填入合适的表达式，使程序完整。        Dim a(5) As Integer, i%, imax%, max%        Label1.Text = ""        For i = 0 To 5            a(i) = Int(Rnd() * 99 + 1)            Label1.Text &= a(i) & "  "        Next        max = a(0)        imax = 0        For i = 1 To 5            If a(i) > max Then                max = a(i)                imax = __            End If        Next        MsgBox("最大值:" & max & "下标:" & imax)
答案: 【(以下答案任选其一都对)i;
I】

13、 问题:若一数组中各元素值为 {8  6  3  9  2  7}，则利用冒泡排序的方法（按升序、大数沉底），经过一轮排序后，数组元素值8在数组中的下标值为               。
答案: 【2】

第9讲 数组控件、结构数组和综合应用 第9讲单元测验

1、 问题:删除列表框中第2项的项目，应使用的方法为______。
选项：
A:Items.RemoveAt
B:Items.Move
C:Items.Remove
D:Items.Clear
E:Items.Delete
答案: 【Items.RemoveAt】

2、 问题:下面对列表框(Listbox1)的操作中，正确的语句是______。
选项：
A:ListBox1.Items.Remove("计算机")
B:Listbox1.Items.Cls
C:ListBox1.Items.Remove(4)
D:ListBox1.Items.Add(1, "打印机")
E:ListBox1.Items.RemoveAt("计算机")
答案: 【ListBox1.Items.Remove("计算机")】

3、 问题:引用列表框 ListBox1 最后一个数据项应使用代码___。
选项：
A:ListBox1.Items(Listbox1.Items.Count – 1)
B:ListBox1.Items(Listbox1.Items.Count)
C:ListBox1.Items(Count – 1)
D:ListBox1.Items.Count
答案: 【ListBox1.Items(Listbox1.Items.Count – 1)】

4、 问题:若有如下定义，选项中不正确的语句是___。   Structure  MyStru     Dim No as integer     Dim Gender As Char  End Structure  Dim  s(100) AS   MyStru
选项：
A:MyStru是结构变量
B:s是结构数组
C:s(0).No=1234是正确的赋值语句
D:Gender是结构中的一个成员
E:s(1)是数组中的一个元素
答案: 【MyStru是结构变量】

5、 问题:若有如下定义，选项中正确的语句是___。        Structure Student           Dim No As Integer           Dim Name As String       End Structure       Dim My As Student
选项：
A:My.No=101
B:Name="Zhong"
C:No=101
D:My=(101,"Zhong")
E:Student=(101,"Zhong")
答案: 【My.No=101】

6、 问题:在下面对列表框(Listbox1)的操作中，错误的语句是______。
选项：
A:ListBox1.Items.RemoveAt(SelectedIndex)
B:ListBox1.Items.RemoveAt(0)
C:ListBox1.Items.Remove(ListBox1.Text)
D:ListBox1.Items.Add("0")
答案: 【ListBox1.Items.RemoveAt(SelectedIndex)】

7、 问题:若有如下定义，选项中正确的语句是___。 Sructure student    Dim Name As String    Dim Score As IntegerEnd Structure              Dim s as Student
选项：
A:s.Name="zhang"
B:s="zhang"
C:student.Name="zhang"
D:s=student
E:student.s="zhang"
答案: 【s.Name="zhang"】

8、 问题:如果要修改组合框(ComboBox)的下拉样式，应设置__属性。
选项：
A:DropDownStyle
B:DrawMode
C:FormBoderStyle
D:List
E:Enabeled
答案: 【DropDownStyle】

9、 问题:关于列表框(ListBox)和组合框(ComboBox)的Items属性的说法，正确的是__。
选项：
A:该属性是一个一维字符串数组，数组的长度根据数据项决定，所以是可变的。
B:该属性是一个一维字符串类型的数组，数组的长度是256。
C:该属性是一个一维数组，数据类型可以自己定义。
D:该属性是一个二维数组，数据类型是字符串类型。
E:该属性是一个一维数组，可以用ReDim语句重新定义。
答案: 【该属性是一个一维字符串数组，数组的长度根据数据项决定，所以是可变的。】