东师 2020年春季 《VB 程序设计（高起专）》练习题答案.docVIP

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

Print

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