title2021春VB.NET程序設計進階（朱君波、楊志強）(同濟大學)中國大學mooc答案100分最新版content作業第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.RemoveAt2、下面對列表框(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

DimNoasinteger

DimGenderAsChar

EndStructure

Dim

s(100)AS

MyStruA:MyStru是結構變量

B:s是結構數組

C:s(0).No=1234是正確的賦值語句

D:Gender是結構中的一個成員

E:s(1)是數組中的一個元素

答案:MyStru是結構變量5、若有如下定義，選項中正確的語句是___。

StructureStudent

DimNoAsInteger

DimNameAsString

EndStructure

DimMyAsStudentA:My.No=101

B:Name=”Zhong”

C:No=101

D:My=(101,”Zhong”)

E:Student=(101,”Zhong”)

答案:My.No=1016、在下面對列表框(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、若有如下定義，選項中正確的語句是___。

Sructurestudent

DimNameAsString

DimScoreAsIntegerEndStructure

DimsasStudentA: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

答案:DropDownStyle9、關于列表框(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

答案:-111、利用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(ByRefa%(),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、下面過程運行后顯示的結果是__。PublicSubp1(ByRefx%,ByValy%)

x=2*x:y=y+2EndSubSubButton1_Click(…)HandlesButton1.Click

Dima%,b%

a=2:

b=4

Callp1(a,b)

MsgBox(“a=”&

a

&

”b=”&

b)

EndSubA:a=4b=4

B:a=2b=4

C:a=4b=2

D:a=6b=8

E:a=8b=6

答案:a=4b=42、在過程定義中，形參有傳值、傳地址兩種方式，_______關鍵字表示傳值方式。A:ByVal

B:ByRef

C:Value

D:Val

E:Ref

答案:ByVal3、從子過程退出，并返回到主調過程，可使用語句______。A:ExitSub

B:ExitFunction

C:ReturnSub

D:ReturnFunction

E:StopSub

答案:ExitSub4、下面過程運行后顯示的結果是__。SubButton1_Click(…)HandlesButton1.Click

Dimx%,y%

x=12:

y=34

CallF1(x,y)

MsgBox(x

&“

“&

y)EndSubPublicSubF1(ByRefn%,ByValm%)

n=nMod10

m=m\10EndSubA:2

34

B:12

34

C:2

4

D:1

3

E:12

3

答案:2

34

5、子過程定義如下：PublicSubF1(ByRef

n%)

…

n=3*n+4

…EndSubSubButton1_Click(……)HandlesButton1.Click

Dimn%,m%

n=3

m=4

…

‘調用F1語句

…EndSub則在Button1_Click事件中有效的調用語句是______。A:F1(m)

B:F1(n+m)

C:F1(4)

D:F1(3+4)

E:F1(m,n)

答案:F1(m)6、下面過程定義正確的是_______。A:Functionf1%(ByValn%)

B:Subf1(ByRefn()AsInteger)

C:Subf1(ByValn(6)asInteger)

D:Functionf1%(ByReff1%)

E:Subf1(ByRefn%)AsInteger

答案:Functionf1%(ByValn%);

Subf1(ByRefn()AsInteger)7、要將兩個整數參數傳遞給子過程MySub，并返回一個整數結果，下列子過程定義中符合要求的是___。A:SubMySub(ByValm%,ByRefn%)

B:SubMySub(ByValm!,ByValn!)

C:SubMySub(ByValm%,ByValn%)asInteger

D:SubMySub(ByValm!,ByRefn!)asInteger

E:SubMySub(ByValm%,ByValn%())

答案:SubMySub(ByValm%,ByRefn%)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=”15678AAABB