VB填空题.docx

上传人:b****1 文档编号:2422968 上传时间:2022-10-29 格式:DOCX 页数:18 大小:150.05KB
下载 相关 举报
VB填空题.docx_第1页
第1页 / 共18页
VB填空题.docx_第2页
第2页 / 共18页
VB填空题.docx_第3页
第3页 / 共18页
VB填空题.docx_第4页
第4页 / 共18页
VB填空题.docx_第5页
第5页 / 共18页
点击查看更多>>
下载资源
资源描述

VB填空题.docx

《VB填空题.docx》由会员分享,可在线阅读,更多相关《VB填空题.docx(18页珍藏版)》请在冰豆网上搜索。

VB填空题.docx

VB填空题

第一套

1.有如下程序段:

x=5

y=6

p=Not(x+y=11)

该程序段运行后,P的值是 

(1)  。

2.有如下程序段:

x=5

y=10

z=12

ifx+y<=zOry+z<=xOrx+z<=ythena="False"elsea="True"

该程序段运行后,a的值为  

(1) 。

3.有如下程序段:

s=0

fori=1to5

s=s+i*i

nexti

该程序段运行后,s的值为  

(1)  。

4.程序填空

随机产生10个1~100之间的正整数,按从小到大的次序排序并输出。

为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计(流程图参见图12-3)。

图12-3

subcommand1_click()

constn=10

dimi,j,tasinteger

dima(1to10)asinteger

fori=1to10

______

(1)__________

nexti

Fori=1Ton-1

Forj=i+1Ton

If______

(2)______Then

k=a(i):

a(i)=a(j):

a(j)=k

EndIf

Nextj

Nexti

Fori=1Ton

List1.AddItemStr(a(i))

Nexti

Endsub

答案:

1.False

2.”True”

3.55

4.a(i)=int(rnd()*100)+1a(i)>a(j)

 

第二套

1.有如下程序段:

x=5

y=6

t=x

x=y

y=t

该程序段运行后,y的值为 

(1) 。

2.有如下程序段:

x=5

y=-20

ifnotx>0thenx=y-3elsey=x+3

该程序段运行后,x的值为 

(1)  。

 

3.有如下程序段:

e=0:

f=1

fori=1to3

e=e+f

f=f+e

nexti

该程序段运行后,f的值为 

(1)  。

 

4.程序填空

有30个人,其中有男人、女人和小孩。

他们在一家饭馆里花去500元。

已知,每个男人花30元,每个女人花20元,每个小孩花10元。

问男人、女人、小孩各为多少人?

为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。

subcommand1_click()

dimman,woman,child,sasinteger

forman=1to15

forwoman=1to23

child=_______

(1)__

s=30*man+20*woman+10*child

if___

(2)then

list1.additemstr(man)+""+str(woman)+""+str(child)

endif

nextwoman

nextman

endsub

图12-7

答案:

1.5

2.5

3.13

4.30-woman-mans=500andchild>0

 

第三套

1.有如下程序段:

x=5

y=6

x=y

y=x

该程序段运行后,y的值为  

(1) 。

2.有如下程序段:

x=5

y=-20

ifnotx>0thenx=y-3elsey=x+3

该程序段运行后,y的值为  

(1)   。

3.有如下程序段:

k=1

fori=1to5

k=k*i

nexti

该程序段运行后,k的值为  

(1) 。

4.程序填空

从键盘键入一个整数x,将x插入到一列有序数据:

-5,3,4,12,20,45,70中,并使数据序列仍保持有序,试求出x应插入的位置。

为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。

Dima(1To8)AsInteger

Dimn,I,j,xAsInteger

PrivateSubCommand1_Click()

x=Val(Text2.Text)

Ifx>a(n)Then

________

(1)__________

Else

i=1

DoWhilex>a(i)

_______

(2)__________

Loop

EndIf

Text3.Text=Str(i)

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

n=n+1

a(n)=Val(Text1.Text)

List1.AddItemStr(a(n))

Text1.Text="":

Text1.SetFocus

EndIf

EndSub

答案:

1.6

2.8

3.120

4.i=8或i=n+1i=i+1

5.

第四套

1.有如下程序段:

x=5

y=6

p=Not(x+y<>11)

该程序段运行后,P的值是  

(1)  。

2.有如下程序段:

x=5

y=10

z=12

Ifx+y>zAndy+z>xAndx+z>yThena="True"Elsea="False"

该程序段运行后,a的值为  

(1) 。

3.有如下程序段:

x=6

k=1

dowhilek<=5

k=k+3

x=x+k

loop

该程序段运行后,x的值为  

(1) 。

4.程序填空

用物理天平测量物体的质量时,测得物体的质量为a克(a为整数,并小于1千克),问这时在天平的砝码盘中应有哪几个砝码,请选用最少数量的砝码(称质量为1千克的物体,天平的砝码由下列质量的砝码组成:

500克1个,200克1个,100克2个,50克1个,20克1个,10克2个,5克1个,2克2个,1克1个)。

为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计(流程图见图12-15)。

Dima(1To12)AsInteger

Dimi,xAsInteger

PrivateSubCommand1_Click()

a

(1)=500:

a

(2)=200:

a(3)=100

a(4)=100:

a(5)=50:

a(6)=20

a(7)=10:

a(8)=10:

a(9)=5

a(10)=2:

a(11)=2:

a(12)=1

x=Val(Text1.Text)

i=1

dowhile_______

(1)_

ifx>=a(i)then

List1.AddItemStr(a(i))

 _________

(2)____________

 Endif

 i=i+1

loop

EndSub

1.True

2.“True”

3.17

4.x<>0x=x-a(i)

 

第五套

1.有如下VisualBasic程序段:

a=3:

b=2:

c=3

b=a+b*c

该程序段运行后,变量b的值为

(1)

 

2.有如下VisualBasic程序段:

a=39

b=93

Ifa+b>100Thenpy="太大"

Ifa+b=100Thenpy="相等"

Ifa+b<100Thenpy="太小"

Label1.Caption=py

该程序段运行时,在Label1标签上显示的是 

(1)  。

3.以下VisualBasic程序的功能是:

计算表达式1+2+4+8+16+32+…+1024的值,并在文本框Text1中输出结果。

为了实现这一功能,程序中划线处的表达式应更正为_____

(1)________。

PrivateSubCommand1_Click()

DimiAsInteger,sAsLong

s=0

i=1

DoWhilei<=1024

s=s+2*i

i=i*2

Loop

Text1.Text=Str(s)

EndSub

4.有一道趣味题,张老师问李老师:

"你今年几岁?

你爱人今年几岁?

"李老师笑笑说:

"我年龄的平方与我爱人年龄之和恰好等于1053。

而我爱人年龄的平方与我的年龄之和却等于873。

你计算一下吧!

"

设李老师年龄为x岁,他爱人年龄为y岁,由题意可得x,y满足的数学式为:

x2+y=1053

x+y2=873

解决此问题的流程图如VB-1所示。

根据流程图VB-1编写的VisualBasic程序如下,在

(1)和

(1)划线处,填入合适的语句或表达式,把程序补充完整。

PrivateSubCommand1_Click()

DimxAsInteger,yAsLong

x=1

y=1053-x*x

DoWhile

(1)

(2)

y=1053-x*x

Loop

Text1.Text=Str(x)

Text2.Text=Str(y)

EndSub

程序中划线处

(1)应填入

程序中划线处

(2)应填入

答案:

1.9

2.太大

3.i

4.y*y+x<>873x=x+1

 

第六套

1.有如下VisualBasic程序段:

a="Happy"

b="ness"

c=a+b

该程序段运行后,变量c的值是_____

(1)______。

2.有如下VisualBasic程序段:

DimxAsSingle,cAsString

x=Val(Text1.Text)

Ifx>12Then

c="PM"

Else

c="AM"

EndIf

Label1.Caption=c

该程序段运行时,在文本框Text1中输入15.6,Label1标签上将显示的是 

(1)  。

3.下列VisualBasic程序的功能是:

计算表达式12+42+72+…+972的值,并在文本框Text1中输出表达式的值。

为了实现这一目标,程序中For语句划线处的循环变量步长应为_________

(1)_________。

PrivateSubCommand1_Click()

DimsumAsLong

DimiAsInteger

sum=0

Fori=1To97Step

sum=sum+i*i

Nexti

Text1.Text=Str(sum)

EndSub

4.模拟一个简单计算器,输入两个数和一个运算符(加、减、乘、除),进行算术运算,并输出运算结果。

程序界面如图VB-1所示,在文本框Text1中输入第一个数a,在文本框Text2中输入第二个数b,在文本框Text3中输入运算符ch,在文本框Text4中输出运算结果。

图VB-1

当输入的运算符不是加、减、乘、除四种运算符时,则输出"运算符不正确";当进行除法运算时,如果除数为0,提示输出"除数不能为零"。

解决上述问题的算法流程图如图VB-2所示,相应的VisualB

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试认证 > 财会金融考试

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1