2021春VB.NET程序设计进阶（朱君波、杨志强）(同济大学) 中国大学mooc慕课答案2024版 m94492

作业第1讲 可视数组控件、结构数组和综合应用 第1讲可视数组结构数组实验作业

1、 输入整数n，显示出具有n行的杨辉三角形，如下图所示。以“昵称-1-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：“昵称-1-1.rar”，以附件形式提交。提示：① 定义一个二维数组，数组大小与文本框中输入的n有关；② 对下三角各元素进行设置：第一列及对角线上的元素均为1；其余每一个元素正好等于它上面一行的同一列和前一列的两个元素之和。即a(i , j)=a(i-1 , j-1)+a(i-1 , j)。③ 利用Space(4-Len(Trim(a(I,j))))函数定每列输出宽度为4，使得列对齐。
评分规则:  界面正确，项目能正确运行得2分；如果不能运行，但代码中二维数组及元素设置正确，得1分；否则0分。

2、 设计一个选课程序，界面如下图所示。它包含2个列表框，左边为已开设的课程名称，通过Form1_Load事件加入，并且设置了排序；当单击某课程名称后，该课程加入到右边列表框，并从左边列表框中删除。当右边课程数超过5门时不允许再加入。以“昵称-1-2”为项目名保存。‍项目完成后，将整个项目文件夹压缩成：昵称-1-2.rar，以附件形式提交。
评分规则:  界面正确，项目能正确运行得2分；如果不能运行，但代码中列表框Items方法使用正确，得1分；否则0分。

3、 窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，见左下图；单击”交换”命令按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换, 见右下图。以“昵称-1-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-1-3.rar，以附件形式提交。
评分规则:  界面正确，项目能正确运行得2分；如果不能运行，但代码中寻找最大值和最小值正确，得1分；否则0分。

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

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语句重新定义。
答案: 该属性实质是一个一维字符串数组，数组的长度根据数据项决定，所以是可变的。

10、 关于列表框(ListBox)的SelectedIndex属性默认值是__。

A:-1
B:0
C:1
D:0～Count-1中的一个随机值
E:Count-1
答案: -1

11、 利用Items.Add方法，可以向列表框或组合框里添加一项数据。

A:正确
B:错误
答案: 正确

12、 利用Items.Clear方法，可以将列表框或组合框里删除一项数据。

A:正确
B:错误
答案: 错误

作业第2讲 函数过程和子过程 第2讲函数过程和子过程实验作业

1、 参考教材例6.2，编一求两数m,n最大公约数的函数过程gcd(m,n)；主调程序在两个文本框输入数据，单击 “显示”按钮，调用gcd (m,n)，在右边标签显示结果，如下图。以“昵称-2-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-1.rar，以附件形式提交。
评分规则:  界面正确，项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

2、 编一子过程ProcMin(ByRef a%(), ByRef  amin%)，求一维数组a中的最小值amin。主调程序随机产生10个-300～-400之间的整数，并保存在数组中。显示产生的数组各元素；调用ProcMin子过程，显示出数组中的最小值。界面自行设置，以“昵称-2-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-2.rar，以附件形式提交。
评分规则:  项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

3、 编一个函数过程MySin(x)，求当第n项的精度小于0.000001时结束，x为弧度；主调程序同时调用Mysin和内部函数sin，进行验证。提示：关键是找部分级数和的通项，如下表示：Ti+2= -1Tixx/((i+1)(i+2))      i=1,3,5,7…界面自行设置，以“昵称-2-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-3.rar，以附件形式提交。
评分规则:  项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

4、 编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在右边的Label3显示输入的数，对于是回文数显示一个””，如下图。提示① 所谓回文数是指顺读与倒读数字相同，即指最高位与最低位相同，次高位与次低位相同，依次类推。当只有一位数时，也认为是回文数。② 回文数的求法，只要对输入的数(按字符串类型处理)，利用Mid函数从两边往中间比较，若不相同，就不是回文数。以“昵称-2-4”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-2-4.rar，以附件形式提交。
评分规则:  界面正确，项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

第2讲 函数过程和子过程 第2讲函数过程和子过程单元测验

1、 下面过程运行后显示的结果是__。Public Sub p1(ByRef x%, ByVal y%)    x = 2 * x: y = y + 2End SubSub Button1_Click(…) Handles Button1.Click  Dim a%,b%  a = 2:  b = 4  Call p1(a, b)  MsgBox( “a=” &  a  &  ” b=” &  b )  End Sub

A:a=4 b=4
B:a=2 b=4
C:a=4 b=2
D:a=6 b=8
E:a=8 b=6
答案: a=4 b=4

2、 在过程定义中，形参有传值、传地址两种方式，_______关键字表示传值方式。

A:ByVal
B:ByRef
C:Value
D:Val
E:Ref
答案: ByVal

3、 从子过程退出，并返回到主调过程，可使用语句______ 。

A:Exit Sub
B:Exit Function
C:Return Sub
D:Return Function
E:Stop Sub
答案: Exit Sub

4、 下面过程运行后显示的结果是__。Sub Button1_Click(…) Handles Button1.Click   Dim x%, y%  x = 12:   y = 34  Call F1(x, y)  MsgBox( x  & “  “ &  y)End SubPublic Sub F1(ByRef n%, ByVal m%)  n = n Mod 10  m = m \ 10End Sub

A:2   34 
B:12   34
C:2   4
D:1   3
E:12   3
答案: 2   34 

5、 子过程定义如下：Public Sub F1(ByRef  n%)   …  n=3*n+4   …End SubSub Button1_Click(……) Handles Button1.Click  Dim n%, m%   n=3   m=4     …   ‘ 调用F1语句    …End Sub则在Button1_Click事件中有效的调用语句是______。

A:F1( m)
B:F1(n+m)
C:F1( 4)
D:F1(3+4)
E:F1( m,n)
答案: F1( m)

6、 下面过程定义正确的是_______。

A:Function f1%(ByVal n%)
B:Sub f1(ByRef n() As Integer)
C:Sub f1(ByVal n(6) as Integer)
D:Function f1%(ByRef f1%)
E:Sub f1(ByRef n%) As Integer
答案: Function f1%(ByVal n%);
Sub f1(ByRef n() As Integer)

7、 要将两个整数参数传递给子过程MySub，并返回一个整数结果，下列子过程定义中符合要求的是___。

A:Sub MySub(ByVal m%, ByRef n%)
B:Sub MySub(ByVal m!, ByVal n!)
C:Sub MySub(ByVal m%, ByVal n%) as Integer
D:Sub MySub(ByVal m!, ByRef n!) as Integer
E:Sub MySub(ByVal m%, ByVal n%() )
答案: Sub MySub(ByVal m%, ByRef n%)

8、 数组作为参数，形参无论是ByRef还是ByVal，其效果都是ByVal方式。

A:正确
B:错误
答案: 错误

9、 子过程和函数过程的区别之一是子过程名没有值，而函数名有值。

A:正确
B:错误
答案: 正确

作业第3讲 过程（续） 和 常用算法（3） 第3讲 过程（续） 和 常用算法（3）实验作业

1、 如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6=1+2+3，所以6是一个完数。编写一个函数IsWs(m)判断m是否为完数，函数的返回值是逻辑型。主调程序在窗体上显示1000以内的完数，见下图所示。以“昵称-11-1”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-11-1.rar，以附件形式提交。提示判断一个数m是否是完数，算法思想是：将m依次除以1～m/2，对于能整除，就是m的一个因子，进行累加；循环结束，若m与累加因子和相等m就是完数。
评分规则:  界面正确，项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

2、 编一个子过程DeleStr(s1，s2)，将字符串s1中出现s2子字符串删去，结果还是存放在s1中。例如：s1=” 12345678AAABBDFG12345 ”  s2=”234″结果：s1=” 15678AAABBDFG15 “界面自行设置，以“昵称-11-2”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-11-2.rar，以附件形式提交。提示为了删除子串，首先利用InStr函数查找子串；找到则通过Mid函数实现子字符串的删除；同时要利用循环考虑到删除多个子字符串的情况。
评分规则:  项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

3、 编一子过程MaxLength(s，MaxWord)，在已知的字符串s中，找出最长的单词MaxWord。假定字符串s内只含有字母和空格，空格分隔不同的单词。程序运行界面如下图所示。以“昵称-11-3”为项目名保存。项目完成后，将整个项目文件夹压缩成：昵称-11-3.rar，以附件形式提交。提示① 首先利用InStr函数从S中从左开始找第一个出现的空格，利用Mid函数分离出空格左边的单词，与MaxWord最长单词比较（MaxWord初态为空）；       i=InStr(S,”  “)      ‘ 找第一个出现的空格       Word=Mid(S,1，i-1)    ‘ 分离出空格左边的单词       Word与MaxWord  比较决定是否替换为MaxWord   ② 取S中剩余字符串，重复①，直到S为空。      S=Mid(S,i+1)        ‘  取S中剩余字符串

评分规则:  界面正确，项目能正确运行，代码中函数定义、调用正确得2分；如果不能运行，但代码中函数定义、调用正确，得1分；否则0分。

下方是付费阅读内容：本平台商品均为虚拟商品，无法用作二次销售，不支持退换货，请在购买前确认您需要购买的资料准确无误后再购买，望知悉！

完整答案需点击上方按钮支付5元购买,所有答案均为章节测试答案，购买后上方矩形框将出现已付费的隐藏内容。

不知道怎么购买？点此查看购买教程！