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

本答案对应课程为:点我自动跳转查看
本课程起止时间为:2015-03-04到2015-07-20
本篇答案更新状态:已完结

【作业】第8讲 数组概念和常用算法（2） 实验作业 数组

1、 问题:随机产生10个30~100(包括30和100)的正整数，存放在数组。求最大值、最小值、平均值，并显示整个数组的值和结果，如下图所示。以“昵称-8-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-8-1.rar，以附件形式提交。
评分规则: 【 界面正确，项目能正确运行得2分；代码中数据产生并保存到数组正确，但不能运行得1分，否则0分。
】

2、 问题:已知有6个学生的成绩保存在数组中，成绩如下图，以每5分为一个“★”显示，效果如下图。以“昵称-8-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-8-2.rar，以附件形式提交。提示：①　同实验4.1的方式，通过Mid函数根据产生的分数四舍五入取子字符串，有关表达式如下： Mid(s, 1, Math.Round(a(i) / 5))其中s为已有20个“★”的字符串变量，a(i)为存放分数的数组元素，Round为四舍五入取整。② 更方便的方法是利用StrDup函数和数组，产生重复的字符串。
评分规则: 【 界面正确，项目能正确运行得2分；代码中数组及星的数目计算正确，但不能运行得1分，否则0分。
】

3、 问题:随机产生20个学生的成绩，统计各分数段人数。即0～59、60～69、70～79、80～89、90～100，并显示结果。产生的数据在Label1显示，统计结果在Label2显示，见下图。以“昵称-8-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-8-3.rar，以附件形式提交。 提示：①本程序有两个事件过程，都要用到存放20个学生的数组，因此在过程外声明模块级数组，例：Dim  mark% (19)；在Button2事件过程中声明一个数组s(9)，分别存放分数段的人数。② 在统计时关键确定每个人的分数mark(i)与s数组的下标关系，即：For  i=0  To  19    k=mark (i)\ 10                   Select Case  k        Case  0 To 5           ‘ 0～59分不及格的人数            s(5)=s(5)+1        Case  9 To 10          ‘90～100分的人数            s(9)=s(9)+1        Case 6 To 8             ‘ 其他三个分数段的人数有规律，根据K获得            s(k)=s(k)+1    End SelectNext i
评分规则: 【 界面正确，项目能正确运行得2分；代码中数组及各分数段的人数计算正确，但不能运行得1分，否则0分。
】

4、 问题:随机产生10个数2位正整数，将其显示在界面上；将数据排序，按大到小递减的次序排列，将排序结果也显示在界面上。界面自由设置，以“昵称-8-4”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-8-4.rar，以附件形式提交。
评分规则: 【 项目能正确运行,能显示原始数组,及排序后的结果得2分；代码中数组及各分数段的人数计算正确，但不能运行得1分，否则0分。
】

第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】

【作业】第1讲 VB.NET入门基础 实验作业 VB.NET环境和可视化编程基础

1、 问题:启动VB.NET，创建一个“Windows应用程序”类型的应用程序。程序的设计界面如图1.1，以“昵称-1-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-1.rar，以附件形式提交。要求：在屏幕上显示“欢迎学习VB.NET”，在文本框输入你的姓名，在标签框显示输入的姓名。                                     图1.1  实验1.1运行界面              【提示】① 所用的控件及属性设置见表2.1.1。② “欢迎学习VB.NET”要在两行显示，将Label1控件的宽度缩小一些，控件的属性见表2.1.1。③ Label1是第一个Label控件，小写字母“l”与数字“1”要区分。
评分规则: 【 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
】

2、 问题:模仿教材例1.1，改变事件过程中上下移动为左右移动，也要考虑文字出窗体边界的情况。                                   图1.2 实验1.2 设计界面各控件及属性在属性窗口设置见表格2.1.2，背景图形文件可以选择自己喜欢的。按钮上的图标通过Windows搜索功能查找。以“昵称-1-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-2.rar，以附件形式提交。        
评分规则: 【 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
】

3、 问题:编一程序，在文本框中显示该窗口上鼠标单击的次数，见图1.3。以“昵称-1-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-3.rar，以附件形式提交。提示: 对窗体编两个事件：Form_Load对文本框置初值为空；Form_Click对文本框计数。                             图1.3   运行界面【提示】对文本框计数：TextBox1.Text=Val(TextBox1.Text)+1
评分规则: 【 界面正确，项目能正确运行得2分；界面正确，但不能运行得1分，否则0分。
】

第1讲 VB.NET入门基础 单元测验

1、 问题:不属于VB.NET特点的是            。
选项：
A:没有语法的程序编写语言
B:易学易用的集成开发环境
C:具有面向对象的可视化设计工具
D:事件驱动的编程机制
E:支持结构化程序设计
F:具有丰富的数据类型、类库
G:强大的数据库、网络和图形功能
H:完备的帮助功能
答案: 【没有语法的程序编写语言】

2、 问题:在VB.NET中，显示帮助信息的快捷键是          。
选项：
A:F1
B:F2
C:F5
D:F6
E:F3
F:Alt+F4
G:Ctrl+C
答案: 【F1】

3、 问题:在VB.NET集成开发环境中，通过         窗口编写程序。
选项：
A:代码
B:即时
C:监视
D:布局
E:属性
F:事件
答案: 【代码】

4、 问题:在集成开发环境有两类窗口，浮动和固定，下面            窗口不是浮动窗口。
选项：
A:窗体
B:代码
C:工具箱 
D:属性  
E:即时
答案: 【窗体;
代码】

5、 问题:VB.NET项目文件的扩展名是            。
选项：
A:.vbproj
B:.vb