东师 2020年春季 《VB 程序设计（高起专）》练习题答案.doc
VB程序设计练习题一参考答案:
一、选择题
1.B2.A3.A4.D5.C6.C7.A8.C9.B10.C
11.D12.B13.D14.D15.D16.C17.A18.A19.B20.D
21.B22.D23D24.C25.B26.B27.D28.A29.B30.D
31.A32.D33.C34.B35.C36.B37.A38.C39.D40.C
41.C42.A43.D44.C45.B46.D47.D48.D49.B50.B
二、填空题
1.12345.68
2.VB程序设计
VBProgramming
3.ForOutputAs#1
IfUCase(Text1.Text)=ENDThen
IfUCase(Text1.Text)=Text1.TextThen
4.4
5.n=LOF(1)
0
outchar
6.设计7.7 8.11 9.dlgSave.showsave10.4 政工部（或政工部）
11.byVal 12..VBP或VBP .BAS或BAS .FRM或FRM
13.SubMain
13.Append
14.Cancel
15.504504
16.30
17.33
18.x0 xamin amin
三、判断题(正确的用“T”表示，错误的用“F”表示。每小题2分，共20分)
1.F 2.T 3.F 4.F 5.F
6.T 7.F 8.T 9.T 10.T
11.F 12.T 13.T 14.F 15.T
16.T 17.F 18.F 19.T 20.T
21.F 22.T 23.F 24.T 25.F
四、编程题：
1、PrivateSubForm_Click()
Opend:\test\smtext1.txtForInputAs#1
DoWhileNotEOF(1)
LineInput#1,a$
whole$=whole$+a$+Chr(13)+Chr(10)
Loop
Text1.Text=whole$
Close#1
Opend:\test\smtext2.txtForOutputAs#1
Print#1,text1.text
Close#1
EndSub
2、PrivateSubcmdStatic_Click()
Randomize
Dima(10)
Forj=1To10
a(j)=Int((99*Rnd）+1)
Ifa(j)Mod5=0Thenk=k+1
Printa(j)
Nextj
Printk/10
EndSub
VB程序设计练习题二参考答案:
一、选择题(每小题2分，共40分)
1.B 2.A 3.C 4.C 5.C
6.A 7.A 8.C 9.A 10.B
11.D 12.D 13.B 14.D 15.A
16.A 17.D 18.B 19.A 20.C
21.B22.C23.D24.C 25.D26.A 27.C 28.D 29.B 30.A
31.D32.D33.C34.A 35.A36.A 37.C 38.C 39.D 40.D
41.B42.D43.C44.A45.B46.B47.B48.C49.B50.A
二、填空题(每空2分，共20分)
1.变体
2.或双引号 #或井字号
3.120
4.随机访问方式 顺序访问方式 二进制访问方式
5.7
6.1000
7.PopupMenu
8.9
9.-56
10.Picture1.Picture=LoadPicture(c:\picfile.jpg)
11.Label1.Caption=Ti