VB 复习范围.docx
- 文档编号:5657134
- 上传时间:2022-12-30
- 格式:DOCX
- 页数:63
- 大小:1.93MB
VB 复习范围.docx
《VB 复习范围.docx》由会员分享,可在线阅读,更多相关《VB 复习范围.docx(63页珍藏版)》请在冰豆网上搜索。
VB复习范围
程序设计
1.'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
编写函数fun,函数的功能是:
计算两个正整数的
'最大公约数,并显示。
如:
'两个数为15、20,结果显示"5"
'要求使用Do...Loop语句来实现。
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
Loop
fun=n
'-------------------------------------------------
'注意:
请在指定的事件内编写代码
'代码只能写在两行标识之间
'不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
'-------------------------------------------------
2.'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
编写函数fun,函数的功能是:
当x的初值为10,
'每年增长率为百分之一,计算多少年以后x的值能达到y,
'并显示所需年数的值(变量名必须为n)。
'要求使用Do...LoopUntil语句来实现。
x=10
n=0
Do
x=x*1.01
n=n+1
LoopUntilx>=y
fun=n
'-------------------------------------------------
'注意:
请在指定的事件内编写代码
'代码只能写在两行标识之间
'不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
'-------------------------------------------------
3.'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
编写函数fun,函数的功能是:
求从m到n的奇数的乘积并显示,
'如:
m为2,n为5时,显示"15"
'存储连乘的乘积的变量必须为Product
'要求使用For语句来实现。
Product=1
Fori=mTon
IfiMod2<>0ThenProduct=Product*i
Nexti
fun=Product
'-------------------------------------------------
'注意:
请在指定的事件内编写代码
'代码只能写在两行标识之间
'不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
'-------------------------------------------------
4.'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
:
编写函数fun,函数的功能是:
计算并输出给定
'整数n的所有因子之和(不包括1与自身)。
规定
'n的值不大于1000.
'例如:
n的值为855时,应输出704。
Dims,iAsInteger
Fori=2Ton-1
IfnModi=0Then
s=s+i
EndIf
Next
Fun=s
'-------------------------------------------------
程序填空
1.编程求1-10之间任一数字的阶乘。
OptionExplicit
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(Text1.Text)
Ifx>=1Andx<=10Then
Label2.Caption=Text1
'**********FILL**********
text2.Text=CStr(fac(x))
EndSub
PrivateFunctionfac(nAsInteger)AsLong
DimiAsInteger
DimsAsLong
s=1
Fori=1Ton
'**********FILL**********
s=s*i
Nexti
'**********FILL**********
fac=s'返回函数值
EndFunction
PrivateSubCommand2_Click()
End
EndSub
2.编写一个求三个数最大值的函数max(x,y,z),然后调用此函数求下列表达式的值,首先在文本框中输入a,b,c
三个数,然后单击"计算"按钮,在文本框中输出表达式的值m。
表达式为:
m=max(a,b,c)*max(a+b,b,c)-max(a,b,
b+c)
OptionExplicit
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
DimcAsInteger,mAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
'**********FILL**********
m=max(a,b,c)*max(a+b,b,c)-max(a,b,b+c)
'**********FILL**********
Text4.Text=CStr(m)
EndSub
PrivateFunctionmax(ByValxAsInteger,ByValyAsInteger,ByValzAsInteger)AsInteger
'**********FILL**********
max=x
Ifmax Ifmax EndFunction PrivateSubCommand2_Click() End EndSub 3.求质因子。 设计如图所示的程序界面,并完善下面的程序代码。 按原文件名保存,运行正确。 OptionExplicit PrivateSubCommand1_Click() DimnAsInteger,a()AsInteger,kAsInteger DimstAsString,iAsInteger n=Text1 '**********FILL********** k=2'给k赋初值 Do IfnModk=0Then i=i+1 '**********FILL********** ReDimPreservea(i) a(i)=k n=n\k'设置循环 Else k=k+1 EndIf '**********FILL********** LoopUntiln=1'设置循环loop st=Text1&"=" '**********FILL********** Fori=1ToUBound(a)-1 st=st&a(i)&"*" Nexti Text2=st&a(i) EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" EndSub PrivateSubCommand3_Click() End EndSub 4.随机产生10个两位数整数,利用函数调用求这10个数的最大值和最小值。 OptionExplicit OptionBase1 PrivateSubCommand1_Click() Dima(10)AsInteger,iAsInteger DimmaxAsInteger,minAsInteger Randomize Fori=1To10 '**********FILL********** a(i)=Int(Rnd*90+1) Printa(i); Nexti Print '**********FILL********** max=f(a,min) Printmax;min EndSub PrivateFunctionf(b()AsInteger,minAsInteger)AsInteger DimiAsInteger '**********FILL********** f=b (1) min=b (1) Fori=2ToUBound(b) '**********FILL********** Iff Ifmin>b(i)Thenmin=b(i) Nexti EndFunction 5.'本程序段将一个十进制整数m转换成r(2-16)进制字符串 '方法: 将m不断除r取余数,直到商为零,以反序得到结果。 '------------------------------------------------------- FunctionTranDec$(ByValm%,ByValr%) DimStrDtoR$ DimiB%,mr% StrDtoR="" DoWhilem<>0 '**********FILL********** mr=mModr m=m\r Ifmr>=10Then '**********FILL********** StrDtoR=Chr(mr-10+65)&StrDtoR Else StrDtoR=mr&StrDtoR EndIf Loop TranDec=StrDtoR EndFunction PrivateSubCommand1_click() Dimm0%,r0%,i% m0=Val(Text1.Text) r0=Val(Text2.Text) Ifr0<2Orr0>16Then i=MsgBox("输入的R进制数超出范围",vbRetryCancel) Ifi=vbRetryThen Text2.Text="" Text2.SetFocus Else End EndIf EndIf Label3.Caption="转换成"&r0&"进制数" '**********FILL********** Text3.Text=TranDec(m0,r0) EndSub 6. OptionBase1 Dima(5,8)AsSingle,athlete(5)AsString*8 PrivateSubCommand1_Click() DimchAsString Text1="" '**********FILL********** OpenApp.Path&"\in5.dat"ForInputAs#1 Fork=1To5 Input#1,ch '**********FILL********** athlete(k)=ch Text1=Text1&ch&"" Forj=1To8 Input#1,ch a(k,j)=Val(ch) Text1=Text1&ch&"" Nextj Text1=Text1&Chr(13)&Chr(10) Nextk Close#1 EndSub PrivateFunctiongetmark(nAsInteger)AsSingle s=a(n,1) maxnum=s minnum=s Fork=2To7 '**********FILL********** s=s+a(n,k)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 复习范围 复习 范围