VB程序设计学习与实验指导答案.docx

VB程序设计学习与实验指导答案.docx

《VB程序设计学习与实验指导答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计学习与实验指导答案.docx（21页珍藏版）》请在冰豆网上搜索。

VB程序设计学习与实验指导答案

VisualBasic程序设计学习与实验指导答案

上篇学习指导

第1章VisualBasic概述

一.选择题

1

2

3

4

5

6

7

8

9

A

B

D

D

B

B

C

A

C

10

11

12

13

14

15

16

17

18

A

A

C

C

D

C

A

B

D

二．填空题

1.事件

2.查看对象

3.工程

4.视图属性窗口

5.窗体编辑器

第2章面向对象程序设计初步

一.选择题

1

2

3

4

5

6

7

A

C

A

D

C

D

A

二．填空题

1.控件

2.事件

3.类属性

4.属性

5.略

6.Name

第3章VisualBasic语言基础

一.选择题

1

2

3

4

5

6

7

8

9

A

A

C

C

A

C

C

A

D

10

11

12

13

14

15

16

17

18

D

C

C

A

D

D

A

C

B

19

20

21

22

23

24

25

26

27

B

D

B

D

A

B

C

C

B

28

29

D

B

二．填空题

1.（a*sin（30/180*3.14）+c*（log（b）/log（10）））/（（Abs（d）+1）*（e+f））+1

2.mod

3.X=Int（X）AndY=Int（Y）AndX*Y>0

4.4.YMod4=0AndYMod100<>0OrYMod400=0

5.x=Int（（99-10+1）*Rnd+10）

6.0“”

7.空格

8.6，845.30

9.

（1）8

（2）1

（3）abcd

（4）出错，类型不匹配

（5）False

（6）2008-6-29

（7）IlikeVB

（8）4

（9）44

（10）34

（11）10-10

（12）-1

（13）aa

（14）3

（15）0

（16）1

（17）C

（18）5

（19）8

（20）34.54

（21）中国

（22）上海

（23）VISUALBASIC

（24）visualbasic

10.

（1）x<-100orx>100

（2）a=Int（a）Andb=Int（b）Ora<0Andb<0

（3）x<=yorx>=z

（4）a>0Anda<>Int（a）

（5）a=0xorb=0

（6）Len（S）<10

（7）UCase（S）=S

（8）Left（S,1）=”a”AndRight（S,1）=”a”

（9）Instr（S,”@”）<>0

（10）Trim（S）=S

（11）Date=#8/8/2008#

（12）Weekday（Date）=2

第4章程序控制结构与算法基础

一.简单填空

1.Randomize

2.N=Int（（99-10+1）*Rnd+10）

3.M=（Int（（100-10+1）*Rnd+10））/10

4.ExitFor

5.ExitDo

二．读程序写结果

1.15012

2.2223-1

3.530

4.204060

三．程序填空

1.Len（s）

Mid（s,i,1）

c>=”A”Andc<=”Z”

c>=”a”Andc<=”z”

c>=”0”Andc<=”9”

n3=n3+1

2.0

1n-1

nModi=0

sum+i

sum=n

3.1000

CStr（n）

CStr（n*n）

Right（s2,Len（s1））=s1

4.100200

2N-1

ExitFor

count+1

countMod5=0Print

5.sum=1

a*x^2/（（2*n-1）*（2*n））

sum+a

Abs（a）<=0.0000001

第5章数组的应用

一.选择题

1

2

3

4

5

6

7

8

9

B

C

C

A

C

A

D

B

C

10

11

12

13

A

B

D

A

二.读程序写结果

1.12036

2.10317

3.261426

三．程序填空

1.

A（i,j）;

Picture1.Print

A（i.1）

1

A（i,j）

j

“第”&i&“行最大数是”&MaxData&“，第”&Maxj&“列”

2.

Text1.Text&A（i）;

k

preserveB（k）

B（k）=A（i）

3.

Sqr（n-m）=Int（Sqr（n-m））

ReDimPreserveB（k）

n

A（m）&"和"&B（m）

4.

Int（（100-50+1）*Rnd+50）

1

B（i）+1

第6章过程

一．判断题

1

2

3

4

5

6

7

8

9

T

T

F

F

T

T

T

T

T

10

11

12

13

14

15

16

17

18

T

F

T

T

F

T

T

T

T

19

20

T

T

二.选择题

1

2

3

4

5

6

7

8

A

C

A

A

A

D

B

A

四．读程序写结果

1.x=2,y=2m=2

2.94,5,927

3.5026

4.564,5

5.7,1411,2215,30

6.29293

7.1225

下篇实验教程

实验2VisualBasic变量、函数与表达式的使用

实验2-1算术运算符的使用

13

17

8

3

3

2

2

6

2

-2

-2

0

2007-10-15

32.8571432.85714285714286

实验2-2字符运算符的使用

200710

200710

2017

2007-10-1010

2007-10-20

出错，类型不匹配

实验2-3关系运算符的使用

False

False

False

False

False

False

False

True

False

True

实验2-4逻辑运算符的使用

True

True

False

True

False

False

True

True

False

5

-5

9

实验2-5常用函数的使用

3.143.14

7.38905609893065

1-1.999999998205103

4

-110

.7055475

58

2525

12500

Aa

6597

4868

8-9

8-8

9-9

aaa4.5aaa4.5

165

Visua6.0

suaBasicBasic6.0

abcdeEFG

BasicBasicBasic

VisualBasic6.0Basic

88

aaadd

2011-3-15

2011-3-1514:

35:

52

15

3

2011

3

001.73

1.73

1.73

17.32E-01

0173%

实验3算法基础及程序控制结构

实验3-1三个数的交换

A=C

C=B

B=T

B

C

实验3-2求周长和面积

ConstPI=3.1415926

2*PI*R

PI*R*R

Picture1.Cls

Format（L,".00"）

Format（M,".00"）

实验3-3求分段函数的值

x=Val（Text1.Text）

y=1+Sin（x）

y=Log（x）

Text1.Text=""

Text2.Text=""

实验3-4求一元二次方程的根

Val（Text2.Text）

Val（Text3.Text）

b^2-4*a*c

"x1="&（-b+Sqr（delt））/（2*a）

"x2="&（-b-Sqr（delt））/（2*a）

Text2.Text=""

Text3.Text=""

End

实验3-5判断素数

NModk=0

k=N

NModi=0

k=2

实验3-6求最大公约数和最小公倍数

M

L=M

L=N

MModk=0AndNModk=0

Text3.Text=k

ExitFor

M>N

L=M

L=N

kModM=0AndkModN=0

Text4.Text=k

ExitFor

实验3-7判断升序数、降序数

CStr（N）

Len（S）–1

Mid（S,k,1）>=Mid（S,k+1,1）

k=Len（S）

N=Val（Text1.Text）

S=CStr（N）

Fork=1ToLen（S）-1

IfMid（S,k,1）<=Mid（S,k+1,1）ThenExitFor

Nextk

k=Len（S）

实验3-8判断回文数

1

Len（s）\2-1

Mid（S,k,1）<>Mid（S,Len（S）-k+1,1）

k=Len（S）\2

Mid（S,k,1）+S1

S=S1

实验3-9求级数的值

Val（Text1.Text）

0

1

x^n

s*n

t/s<=10^-6

Text2.Text=y

实验3-10查找数字串并求和

Text1.Text=""

Text2.Text=""

List1.Clear

Text1.Text

0

False

0

WhileMid（s,i,1）>="0"AndMid（s,i,1）<="9"

Flag=True

k=k*10+Mid（s,i,1）

i=i+1

Flag=True

sum+k

Text2.Text=sum

实验3-11随机产生20个奇数

Int（（99-10+1）*Rnd）+10

aMod2=1

nMod5=0

Picture1.Cls

实验3-12加密解密

Chr（Asc（"a"）+（Asc（c）-Asc（"a"）+3）Mod26）

c=Chr（Asc（"A"）+（Asc（c）-Asc（"A"）+3）Mod26）

c&s2

Text2.Text

Len（s2）

Mid（s2,i,1）

c=Chr（Asc（"a"）+（Asc（c）-Asc（"a"）+23）Mod26）

c=Chr（Asc（"A"）+（Asc（c）-Asc（"A"）+23）Mod26）

c&s1

s1

Text1.Text=""

Text2.Text=""

实验3-13统计单词个数

Text1.Text

0

Mid（s,i,1）<>""Andi<=Len（s）

i=i+1

Mid（s,start,i-start）

n

Text1.Text=""

List1.Clear

实验4数组的使用

实验4-1一维数组的产生及输出

i=1To20

Int（（9-0+1）*Rnd+0）

i=1To20

Printa（i）;

Print

i=1To20

Picture1.Printa（i）;

IfiMod5=0ThenPicture1.Print

i=1To20

Text1.Text&Space

（2）&a（i）

IfiMod5=0ThenText1.Text=Text1.Text&vbCrLf

vIna

IfiMod5=0ThenPicture2.Print

实验4-2选手得分

Int（（50-10+1）*Rnd+10）/10

i=1To6

sum=sum+score（i）

max=score

（1）

min=score

（1）

score（i）>maxThenmax=score（i）

score（i）

（sum-max-min）/4

实验4-3产生10个互不相同的整数

Int（（999-10+1）*Rnd+10）

tMod10=5

ThenExitFor

n=n+1

a（i）=t

Fori=1To10

Printa（i）;

IfiMod5=0ThenPrint

Nexti

实验4-4统计数字出现的次数

IsNumeric（S）=False

ExitSub

Len（S）

c>="0"Andc<="9"

A（c）=A（c）+1

A（k）<>0

m=m+1

实验4-5排序

1To10

Int（（99-10+1）*Rnd+10）

Text1.Text&A（n）&""

1To9

i+1To10

A（i）>A（j）

T=A（j）

A（j）=A（i）

A（i）=T

1To9

10-i

A（j）>A（j+1）

T=A（j+1）

A（j+1）=A（j）

A（j）=T

1To10

Text3.Text=Text3.Text&A（i）&""

10

T=A（i）

0

j

i-1

k+1

1To10

Text4.Text=Text4.Text&A（i）&""

实验4-6二维数组的产生及输出

1To4

1To5

Int（（9-0+1）*Rnd+0）

1To4

1To5

PrintA（i,j）;

Print

1To4

1To5

Picture1.PrintA（i,j）;

Picture1.Print

1To4

1To5

Text1.Text=Text1.Text&A（i,j）&""

Text1.Text=Text1.Text&vbCrLf

实验4-6查找最大和最小元素及其位置

1To3

1To4

A（i,j）=Int（（99-10+1）*Rnd+10）

Picture1.PrintA（i,j）;

Picture1.Print

A（1,1），1，1

A（1,1），1，1

A（i,j）

i

j

A（i,j）

A（i,j）

i

j

"最大元素"&"A（"&maxi&","&maxj&"）="&max

"最小元素"&"A（"&mini&","&minj&"）="&min

实验4-7矩阵转置

DimA（）AsInteger

"请输入N的值"

ReDimA（N,N）AsInteger

Fori=1ToN

Forj=1ToN

A（i,j）=Int（（99-10+1）*Rnd+10）

Text1.Text=Text1.Text&A（i,j）&""

Nextj

Text1.Text=Text1.Text&vbCrLf

Nexti

t=A（i,j）

A（i,j）=A（j,i）

A（j,i）=t

Fori=1ToN

Forj=1ToN

Text2.Text=Text2.Text&A（i,j）&""

Nextj

Text2.Text=Text2.Text&vbCrLf

Nexti

实验5过程

实验5-1孪生素数和降序素数

DimiAsInteger

Fori=2ToN-1

IfNModi=0ThenExitFunction

Nexti

Prime=True

DimaAsInteger

DimbAsInteger

a=N\10

b=NMod10

Ifa>bThen

DecNumber=True

Else

DecNumber=False

EndIf

10To100

Prime（i）=TrueAndPrime（i+2）=True

List2.AddItemi&"和"&i+2

DecNumber（i）=TrueAndPrime（i）=True

List3.AddItemi

实验5-2求多项式和

k=1

a=f（x,k）

S+a

k=k+1

SingleAsSingle

DimiAsInteger,aAsSingle

a=（x+1）/x

Fori=2Tok

a=a*（x+i）/（（2*i-1）*x）

Nexti

a

实验5-3进制转换

Asc（C）-Asc（"A"）+10

Left（S,k-1）

Mid（S,k+1）

Change（Mid（S2,i,1））*N^（0-i）

T1+T2

Tran（8,S）

Tran（16,S）

Not（C>="0"AndC<="7"OrC>="A"AndC<="F"OrC="."）

实验5-4Armstrong数

iAsLong,aAsLong,bAsLong

Combo1.Text

实验5-5

OptionBase1

Dima（5）AsInteger

Dimb（5）AsInteger

b（i）=i*i+1

Text2.Text=Text2.Text&b（i）&""

1To5

1To5

Gcd（a（i）,b（j））=1

Gcd=K

ExitFor

实验5-6

Create（a）

Output（a）

Sort（a）

Output（a）

GetMaxMin（a,MaxData,MinData）

MaxData

MinData

Average（a）

Int（（99-10+1）*Rnd+10）

1ToUBound（a）

a（i）;

a（i）>a（j）

t=a（j）

a（j）=a（i）

a（i）=t

2ToUBound（a）

a（i）>M

M=a（i）

a（i）

N=a（i）

s=s+a（i）

Average=s/UBound（a）

实验6界面设计

实验6-1用户登陆

MsgBox"请登录！

"

PassWordInput=TxtPassW.Text

UserIdInput=UserIdAndPassWordInput=PassWord

CmdReset_Click

实验6-2学籍登记

OptXb（0）.Value=True

List1.AddItemSpace（4）&xh&Space（6）&xm&Space（6）&xb&Space（12）&xy&Space（16）&zy&Space（4）

List1.RemoveItemList1.ListIndex

实验6-3字体格式设置

SelectCaseOpFont

Check2.Value=1

OpColor=Index

OpFont=Index

实验6-4兴趣调查

List1.AddItemItem

End

SelectCaseIndex

Item=Text1.Text

实验6-5调色板