VB程序填空题Word文档格式.docx
- 文档编号:17800877
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:15
- 大小:20.49KB
VB程序填空题Word文档格式.docx
《VB程序填空题Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB程序填空题Word文档格式.docx(15页珍藏版)》请在冰豆网上搜索。
i=12:
s=1
DoWhile_________________
s=s*i
i=i-1
Loop
MsgBox(s)
ENDSub
5、下面的程序是求7!
(7!
=1*2*3...*6*7)的值,并在默认窗口输出这个值。
程序中有两处错误,请更正。
a=0
Fori=1ton
a=a*i
Msgbox(a)
①_____________________________②___________________________
6、下面的程序是求100以内奇数和s的值(S=1+3+5+7...+99)。
请将程序补充完整:
DimsAsSingle
DimiAsSingle
S=________
Fori=1to100Step________
___________
Msgbox(s)
7、下列VisualBasic程序:
DimsumAsLong,iAsInteger
sum=0
Fori=1To100Step2
sum=sum+i*i
=Str(sum)
该程序能完成计算的数学表达式是________________________________
8、小明数了圈在一起的鸡和兔共有30个头,90只脚,在这个圈子中鸡和兔各有多少只为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式。
设鸡为x只,兔为y只,VisualBasic程序如下:
Consthead=30,foot=90
Dimx,yAsInteger
y=______________________
x=_______________________
=Str(x)
=Str(y)
9、利用文本框输入一个正整数N,求出2+3/2+4/3+5/4+……+(N+1)/N
程序是:
PrivateSubcommand1_click()
DimN,s,iAsInteger
s=0
N=Val
Fori=_____To_________
s=________________
Msgbox(_____)
EndSub
10、编写一个计算矩形面积的Sub过程,然后调用该过程计算矩形面积。
PrivateSubForm_Click()
DimAAsSingle,BAsSingle
A=Val(InputBox("
Whatisthelength"
))
B=Val(InputBox("
Whatisthewidth"
CallRecarea(A,B)
SubRecarea(RlenAsSingle,RwidAsSingle)
DimAreaAsSingle
Area=_______________________
MsgBox"
TotalAreais"
&
________________'
输出矩形面积
11、用物理天平测量物体的质量时,测得物体的质量为a克(a为整数,并小于1千克),问:
这时在天平的砝码盘中应有哪几个砝码请选用最少数量的砝码(称质量为1千克的物体,天平的砝码由下列质量的砝码组成:
500克1个,200克1个,100克2个,50克1个,20克1个,10克2个,5克1个,2克2个,1克1个)。
为了实现这一目标,请参照右边的流程图完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。
Dima(1To12)AsInteger
DimiAsInteger,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
x=Val
i=1
DoWhile____________
Ifx>
=a(i)Then
Str(a(i))
____________________
i=i+1
12、有一个单击按纽过程,其作用是产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。
请补充下面的程序:
DimX,NAsInteger
DimcounterAsInteger'
counter用来保存能被6整除余2的数据的个数
RandomizeTimer'
随机数初始化,以时钟为随机数种子
ForN=1To50
X=___________+int(Rnd*40)'
随机产生50个60~100的随机数
IfXMod6=2Then
Str(X)
_________________________
NextN
Printcounter
13、下面是一个检测密码的程序(界面如图7-4,其功能是:
当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统”;
否则显示“密码错误!
请重新输入密码:
”。
正确的密码是09。
仔细阅读程序,请问程序中划线处的语句应为___________________。
PrivateSubForm_Load()
="
"
:
=10
*"
'
表示密码用*显示
=2
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then'
KeyAscii=13表示是回车键
If______________________________________________Then
欢迎您使用本系统!
Else
=____________________________
以下两语句的作用是使程序能自动选中错误的密码,使用户可直接重新输入
=0
=Len
EndIf
14、猴子吃桃问题。
猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个。
第二天早晨又将剩下的桃子吃了一半,又多吃了一个。
以后每天早上都吃了前一天剩下的一半零一个。
到第十天早上再想吃时,见只剩一个桃子了。
问:
第一天猴子共摘了多少个桃子。
为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。
VisualBasic程序如下:
SubCommand1_Click()
Dimi,sAsInteger
Fori=1to9
_______________________
=Str(s)
15、下面程序(界面如图7-3)的功能是:
将0到255之间的十进制整数转换为二进制整数的表示形式。
在如图中上面的文本框(Text1)中输入一个0到255之间的十进制整数,单击“转换”按钮,该十进制整数的二进制形式会显示在下面的文本框(Text2)中。
为了实现这一目标,程序中划线处的语句应为_____________.
DimaAsInteger
DimsAsString
DimiAsInteger
Dimc(1To8)AsInteger
a=val(
Ifa<
0Ora>
255Then
输入数据错误,请重新输入!
Else
Fori=1To8
c(i)=aMod2
a=________________
s=Str(c(i))+s
=s
EndIf
16、个位数字是6,且能被3整除的3位数共有多少个下面程序用于解决这一问题,在划线处填入合适的语句或表达式,设共有n个这样的数,VisualBasic程序如下:
SubCommand1_Click()
DimiAsInteger,nAsInteger
m=106
n=__________
DoWhilem<
=996
If_______________________Thenn=n+1
m=__________
=Str(n)
17、求两个整数的最大公约数分析:
求最大公约数的算法思想:
(1)对于已知两数m,n,使得m>
n;
(2)m除以n得余数r;
(3)若r=0,则n为求得的最大公约数,算法结束;
否则执行(4);
(4)m←n,n←r,再重复执行
(2)。
例如:
求m=14,n=6的最大公约数.mnr
1462
620
请根据以上思路补充下面的程序代码:
m=InputBox("
m="
)
n=InputBox("
n="
Ifm<
nThent=m:
m=n:
n=t
r=________________
DoWhile(r<
>
0)
m=n
n=r
r=mModn
Print"
最大公约数="
n
18、以下程序的功能是:
从键盘上输入若干个学生的考试分数,统计并输出
最高分数和最低分数,当输入负数时结束输入,输出结果,请将程序补充完
整。
PrivateSubForm_Click()
Dimx,amax,aminAsSingle
x=InputBox("
Enterascore"
)
amax=x
amin=x
DoWhile_____________
Ifx>
amaxThen
EndIf
If_____________Then
Loop
=amax
=___________
19、从键盘键入一个整数x,将x插入到一列有序数据:
-5,3,4,12,20,45,70中,并使数据序列仍保持有序,试求出x应插入的位置。
为了实现这一目标,请参照右边的流程图,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计。
Dima(1To8)AsInteger
Dimn,i,j,xAsInteger
a(n)Then
______________________
DoWhilex>
a(i)
_________________
=Str(i)
IfKeyAscii=13Then
n=n+1
a(n)=Val
Str(a(n))
20、输入100个数,统计其中负数、零及正数的个数。
PrivateSubForm_Click()
Dimi,fs,zs,nsAsInteger‘fs,ns,zs分别代表负数、零及正数的个数
DimkAsDouble
Fori=1To100
k=Val(InputBox("
输入一个数据"
Ifk>
0Then
____________
ElseIfk<
fs=fs+1
_________
Print"
负数、零及正数的个数分别是:
;
fs,ns,zs
21、有一个数组DATA存放了N个数据,现从中删除了一个元素,其余的元素依次向前递补(假设删除的是第3个元素,则要将第4个元素移到第3个元素处,第5个元素移到第4个元素处,以此类推),然后输出数组内容。
填写程序中的空缺
Dimdata(10)AsInteger
DimI,N,TAsInteger
N=10
ForI=1ToN
data(I)=I*2
NextI
T=InputBox("
删除第几个元素"
ForI=____________________
data(I-1)=data(I)
__________________
Printdata(I);
22、寻找100以内的勾股数。
“勾三股四弦五”大家都知道32+42=52,3,4,5就是勾股数,寻找100以内的勾股数。
请完成下面的程序填空:
DimsumAsInteger
Dimi,j,kAsInteger
假定k>
j>
i,可以避免重复寻找
Forj=1To100
Fork=jTo100
If__________________________Then
(Str(i)+Str(j)+Str(k))
sum=sum+1'
统计个数
Nextk
Nextj
组数:
+Str(sum)
23、随机产生10个1-100之间的正整数,按从小到大的次序排序并输出。
为了实现这一目标,完善下面的VB程序,在划线处填入合适的语句或表达式,完成程序设计:
Constn=10
DimiAsInteger,jAsInteger,tAsInteger
Dima(1To100)AsInteger
Fori=1To10
a(i)=100*Rnd
(1)+i
Nexti
Fori=1Ton-1
Forj=i+1Ton
If___________________Then
k=a(i):
a(i)=a(j):
a(j)=k
Nextj
24、有30个人,其中有男人、女人和小孩。
他们在一家饭馆里花去500元。
已知,每个男人花30元,每个女人花20元,每个小孩花10元。
男人、女人、小孩各为多少人。
DimmanAsInteger,womanAsInteger,childAsInteger
Forman=1To15
Forwoman=1To23
child=_________________________
s=30*man+20*woman+10*child
If_____________________Then
Str(man)+"
+Str(woman)+"
+Str(child)
Nextwoman
Nextman
25、在我国古代《孙子算经》中曾经提出这样一个问题。
原文是这样的:
“今有物,不知其数,三三数之,剩二;
五五数之,剩三;
七七数之,剩二;
问物几何”试用枚举法来解决这一问题。
现分析如下,所寻找之数为满足如下条件的自然数:
以3除余2,以5除余3,以7除余2,程序将从自然数1开始依次寻找,逐一判断某一自然数是否满足全部条件,直至在指定范围内找到满足条件的所有自然数。
程序代码如下,请补充完整:
DimsumAsInteger'
sum用来统计符合条件的自然数个数
Dimn,maxAsInteger
max=_________________'
指定查找范围的最大自然数,在text1框中输入
n=0
DoWhilen<
=max
n=n+1'
从自然数1开始不断往上寻找
If_________________________________________________Then
Str(n)'
找到后在list1中显示结果
_________________________________
Loop
("
共计"
+Str(sum)+"
个"
26、下面程序若用于计算s=1!
+2!
+3!
+4!
+5!
+6!
+7!
+8!
+9!
+10!
,则程序中划线处的语句应为__________________。
s=0:
t=1
___________________
s=s+t
27、用VB编写一个计算S=1-1/3!
+1/5!
-1/7!
+……+(-1)n--1/(2n-1)!
的程序,程序代码如下,请补充完整:
PrivateSubCommand1_Click()
Dimi,nAsInteger
Dimj,sAsDouble
j=1
n=Val
Fori=2Ton
j=______________________'
计算1/(2*i-1)!
s=__________________________'
累加通项式
=Str(s)'
结果显示到文本框text2中
28、设有n盏灯,放在一排,从1~n依次顺序编号。
有n个人也从1到n依次编号。
第1个人(1号)将灯全部关闭,第2个人(2号)将凡是2的倍数的灯打开,第3个人(3号)
将凡是3的倍数的灯做相反处理(该灯如为打开的,则将它关闭,如关闭的则将它打开),
以后的人都和3号一样,将凡是自己号数倍数的灯做相反处理。
试计算,当n个人操作后,
哪几盏灯是亮的。
(提示:
亮灯为0,关闭为1)为了实现这一目标,完善下面的VB程序。
根据右面的流程图,在划线处填入合适的语句或表达式,完成程序设计。
Constn=20
Dimi,jAsInteger
Dima(1Ton)AsInteger
Fori=1Ton
a(i)=0
Forj=1Ton
IfjModi=0Then
_______________________
If____________ThenStr(i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 填空