VB练习题解Word文件下载.docx

VB练习题解Word文件下载.docx

《VB练习题解Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB练习题解Word文件下载.docx（42页珍藏版）》请在冰豆网上搜索。

A2,”A3=”;

A3,”T=”;

T

习题二

一．选择题

1.下列四个语句中，正确的赋值语句是

A）LETA=B+CB）LETB+C=A

C）B+C=AD）LETA-B=C

2.下列四个语句中，不正确的打印语句是

A）PRINTA=3+5B）PRINT“A=”;

3+5

C）PRINT“A=3+5”D）PRINTA=;

3.打印语句PRINT“44+66=”;

44+66运行后输出的结果是

A）“44+66=”110B）44+66=110

C）“44+66=”;

110D）44+66=,110

4.下列四个语句中,语法正确的是

A）READπ/3,π/6,π/4,π/5B）READPI/3,PI/6,PI/4,PI/5

C）READA,B,C,DD）READ2.14,.707,.866,1.414

5.下列四个语句中,语法正确的是

A）INPUT“A,B,C=”;

A,B,CB）INPUT“A,B,C=”,A;

B;

C

C）INPUT“A=”;

A,“B=”;

B,“C=”;

C

D）INPUT:

“A,B,C=”,A,B,C

6.下列四个语句中,语法正确的是

A）READA,B,C,DB）DATA1;

2;

3;

4

DATA1,2,3,4READA;

C;

D

C）READa,b,c,d,D）DATA1,2,3,4,

DATA1,2,3,4READA,B,C,D,

7.下列程序运行后输出的结果是

10READA,B,C,D

20X=B+D

30RESTORE120

40READA,B,C,D

50Y=B+D

60RESTORE

70READA,A,A,A

80READA,A,A,A

90X=X+Y+A

100PRINTX

110DATA1,2,3

120DATA4,5,6

130DATA7,8,9

140END

A）26B）20C）18D）30

8.下列程序运行后输出的结果是

READA,B

READC,D,E

RESTOREb

READF,G,H,I,J,K,L

RESTORE

READM,N

a:

DATA1,2,3

b:

DATA4,5,6,7

c:

DATA8,9,10

PRINTA,B,C,D,E,F,G,H,I,J,K,L,M,N

A）12345B）12345

45678678910

910121234

C）12345D）123

123454567

123458910

1234

9.下列程序运行后输出的结果是什么?

INPUT“X=”;

X,“Y=”;

Y

PRINT“X+Y=”;

X+Y

PRINT“X-Y=”;

X-Y

PRINT“X,Y=”;

X,Y

END

A）键盘输入的两数之和B）键盘输入的两数之差

C）键盘输入的两个数D）显示出错信息

二.填空题

1.写出下列程序运行后输出的结果

A=3

B=4

C=5

A=B

B=A

C=B

PRINTC

END

4

2.写出下列程序运行后输出的结果

A=4

B=7

A=A+1

B=B+1

SWAPA,B

PRINTA,B

85

3.写出下列程序运行后输出的结果

READA,B,C,D,E,N

T=A+B+C+D+E

U=T/N

PRINTUSING“$$##.##”;

U

DATA8,4,6,15,4,5

$7.40

三.编程题

1.编程计算3个学生每个人三门课程的总成绩和平均成绩.每个学生的成绩分别用LET语句和INPUT语句提供数据.

解:

FORI=1TO3

INPUTA1,A2,A3

S=A1+A2+A3

T=S/3

NEXTI

PRINTS,T

2.编程计算某个工厂产值5年增加一倍,每年的平均增长率是多少?

设原产值为,五年后的产值为,由题设→→于是编程如下:

r=2^（1/5）-1

PRINTr

3.编程计算顾客购买单价为25.35元的书35本,书店给以15%的折扣,需付书款多少?

PRINT25.35*35*0.85

习题三

一.选择题

1.QBASIC的6个关系运算符在逻辑运算中优先级最高的是

A）>

B）=C）<

=D）不分先后

2.QBASIC的3个逻辑运算符在逻辑运算中的优先顺序是

A）NOT→AND→ORB）AND→NOT→OR

C）OR→NOT→ANDD）AND→OR→NOT

3.已知X=3,Y=5,A=2,B=-3,逻辑表达式X>

AANDY<

B的值是

A）–1B）1C）0D）TRUE

4.已知A=8,B=3,C=-4,逻辑表达式

A>

BANDC>

AORA<

BANDNOTC>

A）TRUEB）-1C）0D）FALSE

5.与逻辑表达式NOT（A+B>

CANDA+C>

BANDB+C>

A）等值的逻辑表达式是

A）A+B>

CORA+C>

BORB+C>

A

B）A+B>

C）A+B<

=CORA+C<

=BORB+C<

=A

D）A+B>

A

6.下列程序运行时输出的结果是什么？

K=1

IFK<

=1THENA=2*K

=2THENA=2*K+1

=3THENA=K

PRINTK;

A）12B）13C）11D）31

7.下列程序运行时输出的结果是什么？

SCORE=INT（RND）+5

SELECTCASESCORE

CASE5

A$=“GOOD”

CASE4

A$=“OK”

CASE3

A$=“PASS”

CASEELSE

A$=“BAD”

ENDSELECT

PRINTA$

A）BADB）PASSC）OKD）GOOD

二.填空题

1.写出下列程序运行时输出的结果

X=5

Y=6

PRINTX+Y=11

-1

2.写出下列程序运行时输出的结果

E=SGN（X）+1

ONEGOTOa,b,c

a:

Y=X*X+1:

GOTOd

b:

Y=5*X+5:

c:

Y=0

d:

PRINTY

30

3.写出下列程序运行时输出的结果

X=2:

J=0

Y=RND（X）+4

SELECTCASEY

CASE1

J=J+1

CASE2

J=J+2

J=J+3

J=J+4

PRINTJ

4

4.写出下列程序运行时输出的结果

Y=-20

IFNOTX>

0THENX=Y-3ELSEY=X+3

PRINTX-Y;

X+Y

-313

5.铁路运货的运费freight与路程s远近有关

不足50公里,每吨每公里为1.00元

>

=50公里,<

100公里，每吨每公里为0.90元

=100公里,<

200公里，每吨每公里为0.80元

=200公里,每吨每公里为0.70元

程序是计算运货w吨,路程s公里的运费freight.程序不完整,补充之.

INPUT“w=”;

w

INPUT“s=”;

s

P=[1]p=1

IFs>

=200THEN

P=.7

ELSEIFs>

=100THEN

P=.8

=50THEN

P=.9

ENDIF

PRINT“freight=”;

p*s*w

三.编程题

1.输入一个整数,判断它能否被3或5整除,如能整除就打印该数,否则不打印.请编写此程序.

INPUTx

IFxMOD3=0ORxMOD5=0THENPRINTxELSEPRINT“NO”

2.输入10个数,分别求出其中奇数与偶数的和.请编写此程序.

FORI=1TO10

INPUTS

IFSMOD2=0THEN

S1=S1+S

ELSE

S2=S2+S

PRINTS1,S2

3.任意从键盘上输入一个0到99999之间的整数,判断输入的是几位数.请编写此程序.

INPUTX

SELECTCASEX

CASE0TO9

PRINT“1”

CASE10TO99

PRINT“2”

CASE100TO999

PRINT“3”

CASE1000TO9999

PRINT“4”

CASE10000TO99999

PRINT“5”

习题四

1.下列程序运行时输出的结果是

FORJ=10TO6STEP-1

K=J

NEXTJ

PRINTK;

J

A）55B）56C）65D）66

2.下列程序运行时输出的结果

X=0

WHILEX<

20

X=X+1

X=X*X

WEND

PRINTX

A）16B）19C）20D）25

3.下列程序运行时输出的结果

FORA=1TO3

FORB=1TOA

FORC=BTO3

NEXTC

NEXTB

NEXTA

A）14B）27C）9D）6

4.下列程序运行时输出的结果是

SUM=0

FORJ=1TO10

IFJ=10THEN

EXITFOR

ELSE

SUM=SUM+J

ENDIF

PRINTSUM

A）45B）55C）10D）36

5.下列程序运行时输出的结果

S=0

FORK=1TO3

=1THENX=1

=2THENX=2

=3THENX=3

S=S+X

PRINTX;

NEXTK

PRINTS

A）3339B）3216

C）1113D）1236

6.下列程序运行时输出的结果是

FORX=1TO2

A=0

FORY=1TOX+1

A=A+1

NEXTY

PRINTA;

NEXTX

A）11B）0C）12D）23

二.填空题

1.写出下列程序运行时输出的结果

FORX=3.5TO6STEP1.5

NEXTX

3.55

2.写出下列程序运行时输出的结果

FORJ=1TO6

K=K*J

PRINTK+J

727

FORA=1TO5

Y=1

FORB=1TO10

FORC=1TO6

Y=Y+1

NEXTC

NEXTB

NEXTA

解:

61

4.写出下列程序运行时输出的结果

FORX=1TO4.5STEP–0.5

1

6.下列程序的功能为输入10个数并求它们之和,请将程序补充完整.

N=1

INPUTM

WHILEN<

=10

S=S+M

N=N+1

[1]INPUTM

PRINT

7.下列程序的功能为输出如下的图形,请将程序补充完整.

********

********

CLS

FORi=1TO4

PRINTTAB（10+i）;

FORj=[1]ITO7+IOR1TO8

PRINT“*”;

NEXTj

PRINT

NEXTi

1.编程计算t=

T=0

FORI=0TO63

T=T+2^I

PRINTT

2.编程找出1到100之间的“同构数”。

“同构数”是这样一种数:

它出现在它的平方数的右端.例如,5的平方是25,5是25中右端的数,5就是同构数;

25也是一个同构数,它的平方是625.

S=1

DOUNTILS>

99

IF（S^2-S）MOD100=0ORS<

10AND（S^2-S）MOD10=0THENPRINTS

S=S+1

LOOP

OR:

FORI=1TO100

T=I*I

IFT>

100ANDTMOD100=ITHENPRINTI

IFT<

100ANDTMOD10=ITHENPRINTI

3.1990年我国人口数为11亿.如果每年的人口增长率为1.5%,编程计算多少年后人口达到或超过15亿.

，，

，

N=LOG（15/11）/LOG（1。

015）

PRINTN

习题五

1.表达式INT（-17.8）+SGN（17.8）的值是

A）18B）–17C）–18D）–16

2.正确的自定义函数语句是

A）DEFFNA（X,Y）=X^3+Y^2B）DEFFN（X,Y）=X^3+Y^2

C）DEFABC（X,Y）=X^3+Y^2D）DEFFNA=X^3+Y^2

3.函数INT（RND（0）*11）+10的值的范围是

A）[0,10]B）[10,10]C）[10,20]D）[0,20]

4.下列程序运行时输出的结果是

DEFFNA（Y）=Y+1

DEFFNS（Y）=FNA（Y）^2+FNA（Y）+Y^2+Y+1

PRINTFNS

（2）

A）3B）14C）19D）21

5.下列程序运行时输出的结果是

FORJ=1TO3

GOSUBf：

M=M+N

PRINTM

f:

N=N+2

RETURN

A）3B）12C）6D）9

1.写出表达式SGN（-12.3）*INT（ABS（-12.3））的值-12

L=1

ONLGOSUB200,300,300

L=L+1

PRINTA（J）;

DATA-24.96,-16,-23.85

200FORJ=1TO3

READA（J）

300A

（1）=SGN（A

（1）*INT（ABS（A

（1）））

A

（2）=SQR（ABS（A

（2）））

A（3）=ABS（INT（A（3）））

-24224

3.写出下列程序运行时输出的结果

FORJ=1TO10

GOSUBa:

S=S+J

J=J*（J+1）*（J+2）

510

4.下列是计算S=1!

+2!

+3!

+…+N!

的程序,请将程序补充完整.

DECLARESUBfact（n!

f!

）

INPUT“N=”;

N

FORL=1TON

CALLfact（L,f）

S=S+f

PRINT“L=”;

L,“S=”;

S

NEXTL

SUBfact（n,f）

f=1

FORJ=1TOn

f=[1]f*j

[2]ENDSUB

5.下面程序是用二分法求方程的根.请将程序补充完整.

DEFfna（x）=[1]x^2-x-2

DO

INPUT“enterx1,x2:

”,x1,x2

LOOPWHILESGN（fna（x1））=SGN（fna（x2））

DO

f1=[2]fna（x1）

f2=fna（x2）

x0=[3]（x1+x2）/2

f0=fna（x0）

IFSGN（f0）<

SGN（f1）THEN

x2=x0

f2=f0

x1=x0

f1=f0

[4]ENDIF

n=n+1

PRINTn,x1,x2

LOOPWHILEABS（f0）>

.00001ANDn<

100

PRINT“x=”;

x0

1.用多行DEF语句定义以下函数

10+x（当0≤x<

10）

20（当10≤x<

30）

y=20-（x-30）（当30≤x<

40）

10（当40≤x<

50）

10-（x-50）（当50≤x<

60）

编程序,从键盘输入x,要求输出y的值.

DEFFNCJP（X）

IFX>

=0ANDX<

60THEN

CASEIS<

10

Y=10+X

30

Y=20

40

Y=20-（X-30）

CASEIS<

50

Y=10

Y=10-（X-50）

ENDSELECT

FNCJP=Y

ENDDEF

INPUTX

PRINTFNCJP（X）

2.编一个程序,将从键盘输入的任意3个数a,b,c按从小到大的顺序重新排列.要求排序用子程序来实现.

SUBCJP（M,N）

IFM>

NTHENSWAPM,N

ENDSUB

DECLARESUBCJP（M,N）

INPUTA,B,C

CALLCJP（A,B）

CALLCJP（A,C）

CALLCJP（B,C）

PRINTA,B,C

3.编一个程序,求S=1!

+…+10!

.要求计算阶乘积的算法用函数过程来实现.

DECLAREFUNCTIONCJP（N）

INPUTN

FORK=1TON

S=S+CJP（K）

FUNCTIONCJP（N）

F=1

FORJ=1TON

F=F*J

CJP=F

ENDFUNCTION

习题六

1.语句DIMABC$（10,3）定义的是哪一种数组?

A）一维数值型数组B）二维数值型数组

C）一维字符型数组D）二维字符型数组

2.语句OPTIONBASE1:

DIMA（12,8）定义的数组有多少个元素?

A）96B）20C）117D）128

3.DIMa（11TO30）所定义的数组有多少个元素?

A）11B）20C）30D）330

DIMA（20）

FORK=1TO20

A（K）=K^2

PRINTA（K）

A）400B）20C）441D）显示出错信息

DIMA（3）

FORK=5TO7

A（K）=K

PRINTA（K）；

A）567B）123C）555D）显示出