VB填空练习答案Word格式.docx
- 文档编号:6916035
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:27
- 大小:42.98KB
VB填空练习答案Word格式.docx
《VB填空练习答案Word格式.docx》由会员分享,可在线阅读,更多相关《VB填空练习答案Word格式.docx(27页珍藏版)》请在冰点文库上搜索。
】=Val(Text1.Text)
SelectCaseint1
Case0
Text2.Text="
值为0"
Case【?
值在1和10之间(包括1和10)"
CaseIs>
值大于10"
CaseElse
值小于0"
EndSelect
(答案1)int11To1010
二.一般
本程序功能为,第一次单击窗体,Form1的输出结果为259
PrivateFunctionsum(nAsInteger)
】jAsInteger
j=j+n+1
sum=j
EndFunction
PrivateSubForm_Click()
Dimi%,s%
For【?
】=1To3
s=【?
Form1.Prints;
Nexti
(答案)StaticIsum(i)
窗体上建立了一个文本框Text1("
输入口令"
)和一个命令按钮Command1("
检查"
)。
判断密码是否正确,并显示相应提示
在加载窗体时设置密码框最大长度为8,密码显示字符为“*”
dimxasstring
x=Text1.Text
Ifx【?
】"
12345678"
Then
MsgBox("
欢迎你用机!
)
对不起,口令错"
Text1.Text="
Text1.SetFocus
PrivateSubForm_Load()
Text1.【?
】=8
】="
*"
(答案)=MaxLengthPasswordChar
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),
然后编写如下几个事件过程:
要求:
每一秒钟Label1更新显示一次系统时间
Timer1.Enabled=False
Timer1.Interval=【?
Timer1.Enabled=【?
PrivateSubTimer1_Timer()
Label1.Caption=【?
(答案)1000TrueNow或Time
写出程序运行后,单击窗体,Form1上显示的内容
sum函数的功能为累加求和
isum=1
isum=3
isum=6
isum=10
isum=15
DimIAsInteger,isumAsInteger
ForI=1To【?
isum=sum(I)
Form1.Print"
isum="
NextI
StaticjAsInteger
】j+n
(答案)5&
isumj=
三.级数
以下程序段用于求∑n!
DimsumAsInteger,nAsInteger
n=InputBox("
请输入一个正整数"
sum=0
Fori=1Ton
sum=【?
Printsum
PrivateFunctionmul(ByValxAsInteger)
DimsAsInteger,iAsInteger
s=1
Fori=1To【?
s=s*i
(答案)sum+mul(i)xmul=s
由输入对话框输入n(n必须为大于零且小于30的自然数),
计算下列表达式的值,并在标签框Label1上显示。
sum=1/2+1/6+...+1/(k*(k+1))(k<
=n)
DimnAsInteger,sumAsDouble,kAsInteger
n=Val(InputBox("
n="
请输入自然数n(n>
0且n<
30)"
))
DoWhilen<
=0【?
】n>
=30
请重输入"
Loop
k=0
Do
k=【?
sum=sum+1/(k*(k+1))
LoopUntil【?
Label1.Caption="
Sum="
+Str(sum)
EndSub
(答案)Ork+1k>
=n
四.数字关系
过程suixian可以判断某一个数字是否是水仙花数,利用该过程找出三位数中所有水仙花数。
所谓"
水仙花数"
是指一个3位数,其各位数字立方和等于该数本身。
DimiAsInteger
Fori=100To999
Nexti
PublicSubsuixian(xAsInteger)
Dimi%,j%,k%
i=【?
j=(x-i*100)\10
k=x-i*100-j*10
If【?
】ThenPrintx
(答案)callsuixian(i)x\100x=i^3+j^3+k^3
五.数组
下面的程序段,用于实现在一个nXm的矩阵中,找出
值最大的元素所在的行和列,并输出其值及行号和列号。
Dimmat()AsInteger
Dimnasinteger,mAsInteger
n=Val(InputBox("
请输入矩阵的行数"
m=Val(InputBox("
请输入矩阵的列数"
【?
Fori=1Ton
Forj=1Tom
mat(i,j)=InputBox("
请输入数组元素值"
mat(i,j)=Val(mat(i,j))
Nextj
Print"
所建立的矩阵为"
Printmat(i,j);
Max=mat(1,1)
If【?
】Then
Max=mat(i,j)
col=j
矩阵最大的元素的值为:
;
mat(row,col)
它所在的行号为:
row;
"
列号为:
col
(答案)ReDimmat(n,m)AsIntegermat(i,j)>
Maxrow=I
本程序利用二分法查找某数字n是否在已排序的数列当中,
若在其中则输出其在数列中的位置,否则输出-1。
OptionBase1
Subbirsearch(a(),ByVallow%,ByValhigh%,ByValkey,index%)
DimmidAsInteger
mid=(low+high)\2
Ifa(mid)=keyThen
ExitSub
ElseIflow>
highThen
index=-1
Ifkey<
a(mid)Then
high=【?
low=mid+1
Callbirsearch(a(),low,high,【?
】,index)
Dimb()AsVariant,indexAsInteger
b=Array(5,13,19,21,37,56,64,75,80,88,92)
n=Val(Text1)
Callbirsearch(b,LBound(b),UBound(b),n,index)
Printindex
(答案)index=midmid–1key
单击“插入数据”按钮后,输入一个整型数据,
该数据会被插入到一个有序的数组a(1to10)中,插入该数据后数组还是有序的。
Dima%(1To10),i%,k%,m%
Print"
原数列是"
Fori=1To9
a(i)=(i-1)*3+1
Printa(i);
m=Val(InputBox("
输入要插入的数据"
Fork=1To9
If(m<
a(k))Then【?
Nextk
Fori=9TokStep-1
a(【?
】)=a(i)
a(k)=【?
插入"
m;
后的数列是:
Fori=1To10
(答案)ExitFori+1m
写出程序运行时单击窗体后,Form1上的输出结果
x
(1)=8
x
(2)=6
x(3)=4
x(4)=3
x(5)=1
Dimx(5)AsInteger
Dimi,j,t,【?
】AsInteger
x
(2)=3
x(3)=1
x(4)=6
x(5)=4
Fori=1To4
Forj=i+1To5
Ifx(i)【?
】x(j)Thent=x(i):
x(i)=x(j):
x(j)=t
Nextj,i
**********SPACE**********
Fork=1To【?
x("
k;
)="
x(k)
(答案)K<
5
以下程序段用于输出杨辉三角:
结果样式如图1
-------------------------------------------------------
Constn=10
Dimarr(n,n)AsInteger
ForI=1Ton
arr(I,I)=1
NextI
ForI=3Ton
Forj=2ToI-1
arr(i,j)=【?
Forj=1ToI
?
】&
(答案)arr(i,1)=1arr(i-1,j-1)+arr(i-1,j)arr(i,j)
六.文件
本程序执行后,最终在窗体上打印数字7。
DimaAsString
OpenApp.Path&
\abc.bat"
】As#1
n=8
ForI=1Ton
Print#1,I+1
Close#1
Input#1,a
IfIMod5=0Then
PrintCInt(a)+【?
(答案)OutputInput1
本程序求3~100之间的所有素数(质数)并统计个数;
同时将这些素数从小到大依次写入顺序文件dataout.txt;
素数的个数显示在窗体Form1上。
DimcountAsInteger,flagAsBoolean
Dimt1AsInteger,t2AsInteger
\dataout.txt"
ForOutputAs【?
count=0
Fort1=3To100
flag=【?
Fort2=2ToInt(Sqr(t1))
Ift1Modt2=0Thenflag=False
Nextt2
IfflagThen
count=【?
Write#1,t1
Nextt1
素数个数"
count
(答案)#1Truecount+1
----------------------------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 填空 练习 答案