2022大学慕课答案 2020春 VB.NET程序设计（朱君波）(同济大学) 最新大学MOOC满分章节测试答案

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

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

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分。
】

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

【作业】第6讲 控制结构-循环结构 第6讲 实验作业 循环结构

1、 问题:用单循环显示有规律的图形，如图6.1所示。 以“昵称-6-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-1.rar，以附件形式提交。                                       图6.1  运行界面            【提示】问题的关键：① 找出行号（ i=1～8）与字母的关系：即： Chr(64+i), i=1～8；② 再利用StrDup函数产生有规律的字符串，即：StrDup(18-2*i, Chr(64+i))；③ 利用Space函数产生每行起始空格数。
评分规则: 【 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
】

2、 问题:筛选字母并反序存放，界面如图6.2所示。以“昵称-6-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-2.rar，以附件形式提交。【提示】① 输入的字母可能有大写和小写。② 首先利用Len函数求TextBox1.Text字符串长度，然后利用For循环结构逐一取字符进行是否为字母的判断，若是字母则利用语句：       TextBox2.Text =字母 & TextBox2.Text将字母连接到TextBox2文本框。思考：若连接表达式为：TextBox2.Text &=字母，则效果如何？                                        图6.2  运行界面
评分规则: 【 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
】

3、 问题:编一程序，显示出所有的水仙花数。所谓水仙花‍数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为 。以‍“昵称-6-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-6-3.rar，以附件形式提交。【提示】解该题的方法有两种：① 利用三重循环，将三个一位数连接成一个3位数再进行判断。例如，将i,j,k三个一位数连成一个三位数的表达式为：           i100+j10+k           ‘ i、j、k分别为三重循环的循环控制变量② 利用单循环将一个3位数逐位分离后进行判断。例如，x是一个三位数，分离为三个一位数i、j、k：x=357i= x \100                   ‘ i获得百位数，结果为3j= (x Mod 100) \10            ‘ j获得十位数，结果为5k=x Mod 10                        ‘ k获得个位数，结果为7
评分规则: 【 界面正确，项目能正确运行得2分；代码中For结构正确，但不能运行得1分，否则0分。
】

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

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
C:.sln
D:.exe  
E:.user
F:.frm
答案: 【.vbproj】

6、 问题:在下列窗口中，           可以查看与项目有关的所有文件。
选项：

请输入手机号或商家订单号

打不开请联系客服QQ 2356025045 商家订单号在哪里？点此了解

---

商家订单号查看步骤

打开支付宝

方法一：我的 > 账单 > 账单详情 > 更多>复制商家订单号

方法二：我的 > 账单 >搜索关键字【网课小帮手】
> 账单详情 > 更多>复制商家订单号

方法三：联系客服QQ 2356025045

微信支付

我 > 支付 > 钱包 > 账单 > 账单详情

手机号用于查询订单，请认真核对

支付宝