VB程序设计习题参考答案(部分) 浙江大学出版社
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题十
一、选择题
1.D、2.D、3.C、4.D、5.C、6.B、7.C、8.A、9.A、10.C、11.B、12.C、13.D、14.B、15.D
二、程序设计题（略）
程序1
25 50 75
程序2
1．6 0
三、程序填空题
1．（1）p = True（2）m Mod i = 0（3）i - 2, i
2．（1）a() Aa Double（2）n-1（3）a(j) < a(k)
3．（1）n / 2（2）b(n - i + 1)（3）a, 10
习题六
一、选择题
1、A 2、A 3、A 4、C 5、B 6、C 7、B 8、D 9、D 10、C 11、B 12、A
End Sub
习题二
一、判断题
1.√2.×3.×4.√5.×6.√
二、单选题
1.B2.D 3.B 4.A 5.B 6.D 7.B 8.B 9.C 10.B
11.C 12.C 13.C 14.B 15.C 16.A 17.C 18.C 19.B 20.D
三、程序设计题
1．参考程序代码如下：
Private Sub Form_click()
End Sub
Private Sub Command2_Click()
End
End Sub
3．界面设计（略）
Private Sub Command1_Click()
Label1.Visible = False
End SБайду номын сангаасb
Private Sub Command2_Click()
Label1.Visible = True
t = (a + b + c) / 2
s = Sqr(t * (t - a) * (t - b) * (t - c))
MsgBox "三角形的面积：" + Str(s)
End Sub
2．参考程序代码如下：
Private Sub Form_click()
Dim r As Integer, s As Integer
二、填空题
1、驱动器列表框目录列表框文件列表框
2、Path
3、FileCopy
4、Freefile
5、Open“c:\a.dat”For Output As #1
三、程序阅读题
1、
NO. 3 2
NO. 43
NO. 5 5
NO. 6 8
NO. 7 13
2、
y=1 a= 1
y=3 a= 2
y=6 a= 3
13、D 14、B 15、B 16、C 17、B 18、B 19、D 20、C 21、C 22、B 23、B
24、D 25、D 26、C 27、D 28、A 29、A 30、D
二、程序阅读题
1、（1）PasswordChar（2）Ucase(Text1.Text)
2、（1）KeyAscii = 13（2）n = Len(x)（3）y = y + Mid(x, i, 1)（4）Text2.Text =y
习题八
一、判断题
1、√2、× 3、× 4、× 5、√ 6、√ 7、× 8、√
二、单选题
1、A 2、C 3、A 4、D 5、C 6、B 7、B 8、A 9、D 10、D
11、B 12、D 13、A
三、填空题
1、showOpen showSave ShowPrint ShowColor ShowFont
13、A 14、B 15、B 16、A 17、B 18、C 19、B 20、C
二、程序填空题
1、（1）ScaleWidth（2）Line (x1, 0)-(0, y2)（3）Circle (x1 / 2, y2 / 2), r, vbRed
2、（1）FillStyle = 0（2）Circle (x, y), r, RGB(255, 0, 0)
程序1.
-3 3
程序2.
Bcddef
程序3.
15 0 4
程序4
55
程序5.
s=24
程序6
A
A
A
三、程序填空题
1．（1）q * i（2）s + p * i / q（3）Next i
2．（1）t + m（2）m = m + 2（3）m <= 39
3．（1）Len(Text1.Text)（2）d & c（3）Text2.Text = d
习题四
一、选择题
1．A
2．B
3．C
4．C G A C D E
二、程序阅读题（写出下列程序的运行结果）
程序1
18
程序2
13
程序3
1 4 9 16 25
程序4
三、程序填空题
1．（1）10 + Int(Rnd * 90)（2）i + 1 To 30（3）a(i)=a(j)（4）a(i) Mod 2 = 1
Const pi = 3.14159
r = Val(InputBox("r=", "请输入圆的半径"))
l = 2 * pi * r
s = pi * r ^ 2
Print "r="; r, "l="; l, "s="; s
End Sub
习题三
一、选择题
1．C 2．A 3．D 4．C 5．C 6．D
二、程序阅读题（写出下列程序的运行结果）
Dim a As Integer, b As Integer, c As Integer
Dim t As Integer, s As Integer
a = Val(InputBox("a=", "输入三角形的三条边"))
b = InputBox("b=", "输入三角形的三条边")
c = InputBox("c=", "输入三角形的三条边")
习题参考答案
习题一
一．判断题
1．√2．√3．√4．√5．×6．√7．×8．√9．√10．√
二．选择题
1．C 2．D 3．C 4．B 5．A 6．D 7．A 8．B 9．C 10．D
三．程序设计题
1．（略）
2．界面设计（略）
代码设计如下：
Private Sub Command1_Click()
Text2.Text = Text1.Text
3、（1）List1.ListCount（2）List1.RemoveItem i（3）i=i+1
4、（1）Change()（2）Hscroll1.Value（3）Scroll（4）Hscroll1_ Change
习题七
一、选择题
1、A 2、D 3、A 4、B 5、A 6、D 7、B 8、C 9、C 10、B 11、A 12、C
2、MsgBox 消息框标题 提示文字 消息框的按钮和图标样式
3、菜单编辑器
4、Checked
5、Enabled
6、-
四、程序填空题
（1）Text1.Text + a（2）a = ""（3）Text1.Text =""
（4）Text1.Text = ""（5）a = ""（6）a
习题九
一、选择题
1、D 2、A 3、A 4、C 5、A 6、B 7、A 8、C 9、C 10、D
2．（1）Int(Rnd * 90) + 10（2）arr(i) > 50（3）sum + arr(i)
3．（1）ReDim a(n, n) As Integer（2）Int(n / 2 + 0.5)（3）a(j, k) = i（4）Print
习题五
一、选择题
1．A B
2．A
3．D
4．C
5．D
二、程序阅读题（写出下列程序的运行结果）
一、选择题
1.D、2.D、3.C、4.D、5.C、6.B、7.C、8.A、9.A、10.C、11.B、12.C、13.D、14.B、15.D
二、程序设计题（略）
程序1
25 50 75
程序2
1．6 0
三、程序填空题
1．（1）p = True（2）m Mod i = 0（3）i - 2, i
2．（1）a() Aa Double（2）n-1（3）a(j) < a(k)
3．（1）n / 2（2）b(n - i + 1)（3）a, 10
习题六
一、选择题
1、A 2、A 3、A 4、C 5、B 6、C 7、B 8、D 9、D 10、C 11、B 12、A
End Sub
习题二
一、判断题
1.√2.×3.×4.√5.×6.√
二、单选题
1.B2.D 3.B 4.A 5.B 6.D 7.B 8.B 9.C 10.B
11.C 12.C 13.C 14.B 15.C 16.A 17.C 18.C 19.B 20.D
三、程序设计题
1．参考程序代码如下：
Private Sub Form_click()
End Sub
Private Sub Command2_Click()
End
End Sub
3．界面设计（略）
Private Sub Command1_Click()
Label1.Visible = False
End SБайду номын сангаасb
Private Sub Command2_Click()
Label1.Visible = True
t = (a + b + c) / 2
s = Sqr(t * (t - a) * (t - b) * (t - c))
MsgBox "三角形的面积：" + Str(s)
End Sub
2．参考程序代码如下：
Private Sub Form_click()
Dim r As Integer, s As Integer
二、填空题
1、驱动器列表框目录列表框文件列表框
2、Path
3、FileCopy
4、Freefile
5、Open“c:\a.dat”For Output As #1
三、程序阅读题
1、
NO. 3 2
NO. 43
NO. 5 5
NO. 6 8
NO. 7 13
2、
y=1 a= 1
y=3 a= 2
y=6 a= 3
13、D 14、B 15、B 16、C 17、B 18、B 19、D 20、C 21、C 22、B 23、B
24、D 25、D 26、C 27、D 28、A 29、A 30、D
二、程序阅读题
1、（1）PasswordChar（2）Ucase(Text1.Text)
2、（1）KeyAscii = 13（2）n = Len(x)（3）y = y + Mid(x, i, 1)（4）Text2.Text =y
习题八
一、判断题
1、√2、× 3、× 4、× 5、√ 6、√ 7、× 8、√
二、单选题
1、A 2、C 3、A 4、D 5、C 6、B 7、B 8、A 9、D 10、D
11、B 12、D 13、A
三、填空题
1、showOpen showSave ShowPrint ShowColor ShowFont
13、A 14、B 15、B 16、A 17、B 18、C 19、B 20、C
二、程序填空题
1、（1）ScaleWidth（2）Line (x1, 0)-(0, y2)（3）Circle (x1 / 2, y2 / 2), r, vbRed
2、（1）FillStyle = 0（2）Circle (x, y), r, RGB(255, 0, 0)
程序1.
-3 3
程序2.
Bcddef
程序3.
15 0 4
程序4
55
程序5.
s=24
程序6
A
A
A
三、程序填空题
1．（1）q * i（2）s + p * i / q（3）Next i
2．（1）t + m（2）m = m + 2（3）m <= 39
3．（1）Len(Text1.Text)（2）d & c（3）Text2.Text = d
习题四
一、选择题
1．A
2．B
3．C
4．C G A C D E
二、程序阅读题（写出下列程序的运行结果）
程序1
18
程序2
13
程序3
1 4 9 16 25
程序4
三、程序填空题
1．（1）10 + Int(Rnd * 90)（2）i + 1 To 30（3）a(i)=a(j)（4）a(i) Mod 2 = 1
Const pi = 3.14159
r = Val(InputBox("r=", "请输入圆的半径"))
l = 2 * pi * r
s = pi * r ^ 2
Print "r="; r, "l="; l, "s="; s
End Sub
习题三
一、选择题
1．C 2．A 3．D 4．C 5．C 6．D
二、程序阅读题（写出下列程序的运行结果）
Dim a As Integer, b As Integer, c As Integer
Dim t As Integer, s As Integer
a = Val(InputBox("a=", "输入三角形的三条边"))
b = InputBox("b=", "输入三角形的三条边")
c = InputBox("c=", "输入三角形的三条边")
习题参考答案
习题一
一．判断题
1．√2．√3．√4．√5．×6．√7．×8．√9．√10．√
二．选择题
1．C 2．D 3．C 4．B 5．A 6．D 7．A 8．B 9．C 10．D
三．程序设计题
1．（略）
2．界面设计（略）
代码设计如下：
Private Sub Command1_Click()
Text2.Text = Text1.Text
3、（1）List1.ListCount（2）List1.RemoveItem i（3）i=i+1
4、（1）Change()（2）Hscroll1.Value（3）Scroll（4）Hscroll1_ Change
习题七
一、选择题
1、A 2、D 3、A 4、B 5、A 6、D 7、B 8、C 9、C 10、B 11、A 12、C
2、MsgBox 消息框标题 提示文字 消息框的按钮和图标样式
3、菜单编辑器
4、Checked
5、Enabled
6、-
四、程序填空题
（1）Text1.Text + a（2）a = ""（3）Text1.Text =""
（4）Text1.Text = ""（5）a = ""（6）a
习题九
一、选择题
1、D 2、A 3、A 4、C 5、A 6、B 7、A 8、C 9、C 10、D
2．（1）Int(Rnd * 90) + 10（2）arr(i) > 50（3）sum + arr(i)
3．（1）ReDim a(n, n) As Integer（2）Int(n / 2 + 0.5)（3）a(j, k) = i（4）Print
习题五
一、选择题
1．A B
2．A
3．D
4．C
5．D
二、程序阅读题（写出下列程序的运行结果）