2013vb期末考試答案及評(píng)分2013

1、第5頁(yè) 共5頁(yè)VB語(yǔ)言程序設(shè)計(jì)(VB.NET)試題(2013.6)A卷答案及評(píng)分標(biāo)準(zhǔn)一、填空題(每空1分，共10分)1. 編譯 2. AutoSize 3.文本 4. Round(1234.567, 0) 5. 構(gòu)造 6. 0 7. 整個(gè)應(yīng)用程序 8. 發(fā)生改變 9 Button1.Enabled=True 10 ForNext 或For二、單項(xiàng)選擇題(每題2分，共30分)1. D 2D 3. D 4. A 5. A 6 C 7. B 8. C 9. D 10. A 11B 12 A 13C 14. A 15. C 三、寫(xiě)出執(zhí)行下列程序的輸出結(jié)果(每題6分，共24分)1. 每行2分 a=-1

2、b=2 c=0 d=5e=0 f=0若輸出結(jié)果寫(xiě)為:-1 2 0 50 0扣1分。2. 每行2分點(diǎn)坐標(biāo)：(5,6) 坐標(biāo)：(5,6)線條的起點(diǎn)是：(5,6)，長(zhǎng)度是103. 每行2分 x=1 y=1x=2 y=3x=3 y=6若輸出結(jié)果寫(xiě)為:1 12 33 6扣1分。以上各題輸出格式不對(duì)適當(dāng)扣點(diǎn)分 4. 每行2分 f(0)=2 f(1)=3 f(2)=-1 f(3)=4 f(4)=-5 f(5)=9 按程序每行輸出兩個(gè)結(jié)果，若輸出結(jié)果寫(xiě)為:f(0)=2 f(1)=3 f(2)=-1 f(3)=4 f(4)=-5 f(5)=9 或類似的錯(cuò)(即輸出格式不對(duì))，扣2分 若輸出結(jié)果寫(xiě)為: 2 3 -1

3、 4 -5 9扣2分。四、程序填空題(每空2分，共20分)1. (1) System.Math (2) a+bc And b+c a And a+c b (3) 0,1,22. (4) i /(i+(i+1) (5) sign = -sign 3. (6) i Mod j = 0 (7) k=7 4. (8) StreamReader (9) line = F.ReadLine() (10) F.Close() 不完全正確扣1分。例如，第10個(gè)空填: Close()，扣1分。五、程序設(shè)計(jì)題(每題8分，共16分)1. Imports System.ConsoleModule Module1 Su

4、b Main() Dim i%, j%, s%, av! Dim a(,) As Integer = 10, 25, 15, 20, 30, 20, 21, 21, 18 s = 0 For i = 0 To 2 For j = 0 To 2 s = s + a(i, j) Next j Next i av = s / 9 WriteLine(平均值=0 , av) WriteLine(大于平均值的元素及其行號(hào)和列號(hào): ) For i = 0 To 2 For j = 0 To 2 If a(i, j) av Then WriteLine(a(0,1)=2, i, j, a(i, j) End

5、 If Next j Next i End SubEnd Module正確定義二維數(shù)組并初始化給1分；正確把矩陣元素輸入到二維數(shù)組中給1分； 正確求出平均分給3分；正確求出大于平均值的元素及其行號(hào)和列號(hào)給3分；其它可能答案:Imports System.ConsoleModule Module1 Sub Main() Dim m%, n%, i%, j%, s%, av! m = InputBox(m=) n = InputBox(m=) Dim a(m - 1, n - 1) As Integer s = 0 For i = 0 To m - 1 For j = 0 To n - 1 a(i

6、, j) = InputBox(a( + Str(i) + , + Str(j) + )=) s = s + a(i, j) Next j Next i av = s / (m * n) WriteLine(平均值=0 , av) WriteLine(大于平均值的元素及其行號(hào)和列號(hào): ) For i = 0 To m - 1 For j = 0 To n - 1 If a(i, j) av Then WriteLine(a(0,1)=2, i, j, a(i, j) End If Next j Next i End SubEnd Module或Imports System.ConsoleMod

7、ule Module1 Sub Main() Dim m%, n%, i%, j%, s%, av! Dim a(,) As Integer = 10, 25, 15, 20, 30, 20, 21, 21, 18 m = UBound(a, 1) n = UBound(a, 2) WriteLine(0,1, m, n) s = 0 For i = 0 To m For j = 0 To n s = s + a(i, j) Next j Next i av = s / (m + 1) * (n + 1) WriteLine(平均值=0 , av) WriteLine(大于平均值的元素及其行號(hào)

8、和列號(hào): ) For i = 0 To m For j = 0 To n If a(i, j) av Then WriteLine(a(0,1)=2, i, j, a(i, j) End If Next j Next i End SubEnd Module其它答案可參考上面的標(biāo)準(zhǔn)給分。2 Imports System.ConsoleModule Module1 Sub Main() Dim m%, n%, p%, s# m = InputBox(m=) n = InputBox(n=) p = InputBox(p=) s = (f(m) + f(n) / f(p) WriteLine(s=0 , s) End Sub Private Function f(ByVal x%) As Long Dim i As Integer, t As Long t = 1 For i = 1 To x t = t * i Next i Return t 或f = t End FunctionEnd Mo