VB填空题文档格式.docx
- 文档编号:19580578
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:18
- 大小:160.73KB
VB填空题文档格式.docx
《VB填空题文档格式.docx》由会员分享,可在线阅读,更多相关《VB填空题文档格式.docx(18页珍藏版)》请在冰豆网上搜索。
If______
(2)______Then
k=a(i):
a(i)=a(j):
a(j)=k
EndIf
Nextj
Nexti
Fori=1Ton
Str(a(i))
Endsub
答案:
2.”True”
(i)=int(rnd()*100)+1a(i)>
a(j)
第二套
1.有如下程序段:
t=x
x=y
y=t
该程序段运行后,y的值为
(1) 。
2.有如下程序段:
y=-20
ifnotx>
0thenx=y-3elsey=x+3
该程序段运行后,x的值为
(1) 。
3.有如下程序段:
e=0:
f=1
fori=1to3
e=e+f
f=f+e
该程序段运行后,f的值为
(1) 。
4.程序填空
有30个人,其中有男人、女人和小孩。
他们在一家饭馆里花去500元。
已知,每个男人花30元,每个女人花20元,每个小孩花10元。
问男人、女人、小孩各为多少人
为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。
dimman,woman,child,sasinteger
forman=1to15
forwoman=1to23
child=_______
(1)__
s=30*man+20*woman+10*child
if___
(2)then
str(man)+"
"
+str(woman)+"
+str(child)
endif
nextwoman
nextman
endsub
图12-7
1.5
2.5
3.13
4.30-woman-mans=500andchild>
第三套
1.有如下程序段:
y=x
该程序段运行后,y的值为
(1) 。
该程序段运行后,y的值为
(1) 。
k=1
k=k*i
该程序段运行后,k的值为
(1) 。
从键盘键入一个整数x,将x插入到一列有序数据:
-5,3,4,12,20,45,70中,并使数据序列仍保持有序,试求出x应插入的位置。
Dima(1To8)AsInteger
Dimn,I,j,xAsInteger
PrivateSubCommand1_Click()
x=Val
Ifx>
a(n)Then
________
(1)__________
Else
i=1
DoWhilex>
a(i)
_______
(2)__________
Loop
EndIf
=Str(i)
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
n=n+1
a(n)=Val
Str(a(n))
="
"
:
1.6
2.8
3.120
4.i=8或i=n+1i=i+1
5.
第四套
p=Not(x+y<
>
11)
该程序段运行后,P的值是
(1) 。
x=5
y=10
z=12
Ifx+y>
zAndy+z>
xAndx+z>
yThena="
True"
Elsea="
False"
x=6
dowhilek<
=5
k=k+3
x=x+k
loop
该程序段运行后,x的值为
(1) 。
用物理天平测量物体的质量时,测得物体的质量为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
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
i=1
dowhile_______
(1)_
ifx>
=a(i)then
_________
(2)____________
Endif
i=i+1
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<
太小"
=py
该程序段运行时,在Label1标签上显示的是
(1) 。
3.以下VisualBasic程序的功能是:
计算表达式1+2+4+8+16+32+…+1024的值,并在文本框Text1中输出结果。
为了实现这一功能,程序中划线处的表达式应更正为_____
(1)________。
DimiAsInteger,sAsLong
s=0
i=1
DoWhilei<
=1024
s=s+2*i
i=i*2
Loop
=Str(s)
4.有一道趣味题,张老师问李老师:
你今年几岁你爱人今年几岁"
李老师笑笑说:
我年龄的平方与我爱人年龄之和恰好等于1053。
而我爱人年龄的平方与我的年龄之和却等于873。
你计算一下吧!
设李老师年龄为x岁,他爱人年龄为y岁,由题意可得x,y满足的数学式为:
x2+y=1053
x+y2=873
解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的VisualBasic程序如下,在
(1)和
(1)划线处,填入合适的语句或表达式,把程序补充完整。
DimxAsInteger,yAsLong
x=1
y=1053-x*x
DoWhile
(1)
(2)
y=1053-x*x
=Str(x)
=Str(y)
程序中划线处
(1)应填入
程序中划线处
(2)应填入
1.9
2.太大
3.i
4.y*y+x<
873x=x+1
第六套
a="
Happy"
b="
ness"
c=a+b
该程序段运行后,变量c的值是_____
(1)______。
DimxAsSingle,cAsString
x=Val
Ifx>
12Then
c="
PM"
c="
AM"
=c
该程序段运行时,在文本框Text1中输入,Label1标签上将显示的是
(1) 。
3.下列VisualBasic程序的功能是:
计算表达式12+42+72+…+972的值,并在文本框Text1中输出表达式的值。
为了实现这一目标,程序中For语句划线处的循环变量步长应为_________
(1)_________。
DimsumAsLong
DimiAsInteger
sum=0
Fori=1To97Step
sum=sum+i*i
=Str(sum)
EndSub
4.模拟一个简单计算器,输入两个数和一个运算符(加、减、乘、除),进行算术运算,并输出运算结果。
程序界面如图VB-1所示,在文本框Text1中输入第一个数a,在文本框Text2中输入第二个数b,在文本框Text3中输入运算符ch,在文本框Text4中输出运算结果。
图VB-1
当输入的运算符不是加、减、乘、除四种运算符时,则输出"
运算符不正确"
;
当进行除法运算时,如果除数为0,提示输出"
除数不能为零"
。
解决上述问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在
(1)和
(2)划线处,填入合适的语句或表达式,把程序补充完整。
DimaAsSingle,bAsSingle,chAsString
a=Val
b=Val
(1)
Ifch="
+"
Then
=Str(a+b)
ElseIfch="
*"
=Str(a*b)
-"
=Str(a-b)
/"
If
(2)Then=Str(a/b)Else="
除数不能是零"
1.Happyness
2.PM
3.3
4.ch=b<
第七套
a="
Tea"
b="
cher"
c=a+b
该程序段运行后,变量c的值是:
(1)。
n=0
Fori=1To100
IfiMod4=0Thenn=n+1
该程序段运行后,n的值为:
3.《浙江省电网销售电价表》中规定,不满1千伏"
一户一表"
居民用电价格,按以下标准计算:
月用电量在50千瓦时及以下部分,每千瓦时以元计算;
51~200千瓦时部分,则每千瓦时按元计算;
200千瓦时以上部分,每千瓦时按元计算。
某学生设计了一个VisualBasic程序,能根据用户的月用电量分段计算电费。
其思路如下:
设某用户的当月用电量是x千瓦时,
当x≤50时,电费为×
x元;
当50<x≤200时,电费为×
(x-50)+×
50元;
当x>200时,电费为×
(x-200)+×
150+×
在文本框Text1输入x,在文本框Text2中输出相应的电费。
VisualBasic程序如下,程序中划线处的语句应更正为:
DimxAsInteger
X=Val
Ifx<0Then
="
用电量不能是负的!
ElseIfx<=50Then
=Str*x)
ElseIfx>200Then
=Str*(x-50)+*50)
Else
=Str*(x-200)+*150+*50)
以下是根据如图所示界面设计的一个VisualBasic程序段,目的是用对分查找的方法根据某货物编号(1001到1020之间)查询其对应的库存结余量,并统计出查找的次数。
其中货物库存信息已经按"
货物编号"
由小到大排列,列表框List1用于显示货物编号(1001至1020)及相应的库存结余量,文本框Text1用于输入待查货物编号,文本框Text2用于输出相应货物的库存结余量,文本框Text3用于输出查找的次数,变量nc用于累计查找的次数,数组bh中已依次存放货物编号1001,1002,…,1020,数组number中存放了相应货物的库存结余量。
请在
(1)和
(2)划线处,填入合适的语句或表达式,把程序段补充完整。
Functionsearch(keyAsInteger)AsInteger
i=1:
j=20:
nc=0
DoWhilei<=j
(1)
m=Int((i+j)/2)
Ifbh(m)=keyThen
Search=number(m):
ExitFunction
Ifkey<bh(m)Then
i=m+1
Search=0
EndFunction
DimkeyAsInteger
Key=Val
Nr=search(key)
Ifnr>0Then
=Str(key)+"
货号的库存结余量:
+Str(nr)
找不到"
=Str(nc)
程序中划线处
(1)应填入:
。
程序中划线处
(2)应填入:
1.Teacher
2.25
3.x<
=200
4.nc=nc+1j=m-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 填空
![提示](https://static.bdocx.com/images/bang_tan.gif)