VB套题附答案7.docx
- 文档编号:10400815
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:23
- 大小:139.51KB
VB套题附答案7.docx
《VB套题附答案7.docx》由会员分享,可在线阅读,更多相关《VB套题附答案7.docx(23页珍藏版)》请在冰点文库上搜索。
VB套题附答案7
1D
2D
3A
4D
5B
6D
7D
8C
9A
10B
11C
12A
13D
14A
15D
16B
17D
18D
19C
20C
21C
22A
23A
24C
25D
26B
27C
28A
29A
30B
程序填空1:
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
下面的程序用于求三个数中最大数
'请在【?
】处填入正确的内容
'-------------------------------------------------------
'
PrivateSubCommand1_Click()
Dima,b,c,max,minAsInteger
a=Val(InputBox("请输入第一个数:
"))
b=Val(InputBox("请输入第二个数:
"))
c=Val(InputBox("请输入第三个数:
"))
'**********SPACE**********
【?
】=a
min=a
'**********SPACE**********
Ifb>maxThen【?
】
Ifb '**********SPACE********** If【? 】Thenmax=c Ifc Print"最大数为: ";max Print"最小数为: ";min EndSub 程序填空2: '下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。 ' PrivateSubForm_Click() Print"5个数34、124、68、73、352的最大值是: " max1=max(34,124,68) '**********SPACE********** max1=【? 】 Printmax1 EndSub PublicFunctionmax(ByVala%,ByValb%,ByValc%) '**********SPACE********** If【? 】Then m=a Else m=b EndIf '**********SPACE********** If【? 】Then max=m Else max=c EndIf EndFunction 程序填空3: '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目: 本程序执行功能为,输入系列字符串,按递减次序排列。 ' (1)在文本框输入字符串,按回车键后存放到数组a()中; ' (2)单击"排序"按钮(Command1)时,进行递减次序排列,并在图形框控件显示。 '请在【】处填入正确的内容 '------------------------------------------------------- Dima()AsString,nAsInteger PrivateSubCommand1_Click() n=n-1 Fori=0Ton-1 imin=i '**********SPACE********** Forj=【? 】Ton '**********SPACE********** Ifa(imin)【? 】Thenimin=j Nextj t=a(i) '**********SPACE********** 【? 】 a(imin)=t Nexti Fori=0Ton Me.Picture1.Printa(i) Nexti EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=13Then '**********SPACE********** ReDim【? 】 '**********SPACE********** a(n)=【? 】 Text1.Text="" n=n+1 EndIf EndSub 程序填空4: OptionExplicit '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '题目: 用输入对话框输入x,根据如图公式计算对应的y, '并在窗体上输出y的值? '请在【? 】处填入正确的内容 '------------------------------------------------------- ' PrivateSubCommand1_Click() '**********SPACE********** DimxAsSingle,【? 】AsSingle '**********SPACE********** x=Val(【? 】("Pleaseinputx: ","输入X的值")) Ifx=10Then '**********SPACE********** 【? 】 ElseIfx>10Then '**********SPACE********** y=Sqr(x)【? 】 Else y=2*x^3+6 EndIf Printy EndSub 程序改错1: OptionExplicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目: 下列程序进行-n阶乘运算,当阶乘的值超过-21147483648 '溢出报错,并将结果输出为-1。 '------------------------------------------------ '注意: 不可增加或删除程序行,也不可以更改程序结 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目: 下列程序进行-n阶乘运算,当阶乘的值超过-21147483648 '溢出报错,并将结果输出为-1。 构 '------------------------------------------------ '**********FOUND********** PrivateFunctionjc(ByValnAsInteger)AsInteger DimIAsInteger DimresultAsLong result=1 I=1 DoWhileI<=n Ifresult<2114748348/IThen '**********FOUND********** result=result I=I+1 Else lblerr.Caption="溢出" '**********FOUND********** jc=-I ExitFunction EndIf Loop jc=result EndFunction PrivateSubForm_Click() MsgBoxjc(3) EndSub 程序改错2: OptionExplicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目: 给定三角形的三条边,计算三角形的面积。 要求 '程序首先判断给定的三条边能否构成三角形。 '------------------------------------------------ '注意: 不可增加或删除程序行,也不可以更改程序结构 '------------------------------------------------ PrivateSubForm_Click() DimaAsSingle,bAsSingle,cAsSingle DimsAsSingle,tAsSingle start: a=InputBox("输入1边长: ") b=InputBox("输入2边长: ") c=InputBox("输入3边长: ") '**********FOUND********** Ifa+b MsgBox("不能构成三角形,请重新输入个边") GoTostart EndIf '**********FOUND********** t=(a+b)/2 '**********FOUND********** s=Sqr((t-a)*(t-b)*(t-c)) Print"该三角形的面积: ";s EndSub 程序改错3: OptionExplicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目: 下面函数的功能是: 求变量s(s=a+aa+aaa+aaaa+……) '的值。 其中,a是一个0-9的数字,总共累加a项。 列如, '当a=3时,s=3+33+333(共累加3项)。 '------------------------------------------------ '注意: 不可增加或删除程序行,也不可以更改程序结构 '------------------------------------------------ PublicFunctionCalc(aAsInteger) DimsAsLong DimtAsLong DimiAsInteger s=a '**********FOUND********** t=1 Fori=2Toa '**********FOUND********** t=t+a s=s+t Nexti Calc=s Prints EndFunction PrivateSubCommand1_Click() DimiAsInteger i=InputBox("请输入数字(0-9): ") '**********FOUND********** Calc(i) EndSub 程序改错4: OptionExplicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目: 输出40以内能够被3整除的数,要求输出结果为5 '个数一行。 '------------------------------------------------ '注意: 不可增加或删除程序行,也不可以更改程序结构 '------------------------------------------------ PrivateSubForm_Click() Cls DimxAsInteger DimiAsInteger '**********FOUND********** i=1 Forx=1To40 If(x/3)=(x\3)Then '**********FOUND********** Printx i=i+1 EndIf IfiMod5=0Then Print EndIf '**********FOUND********** Nexti EndSub 程序设计1: OptionExplicit '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目: : 编写函数fun其功能是: 判断一个整数w的各位 '数字平方之和能否被5整除,可以被5整除则返 '回1,否则返回0 '------------------------------------------------- '注意: 请在指定的事件内编写代码。 '------------------------------------------------- PrivateFunctionfun(wAsInteger)AsBoolean '**********Program********* '**********End************* EndFunction PrivateSubForm_Load() Show Printfun(50) WWJT EndSub PrivateSubWWJT() DimiAsInteger DimsAsString DimlAsInteger DimdAsDouble Dima(10)AsString DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10 LineInput#fIn,a(i) l=Val(a(i)) Print#fOut,fun(l) Next Close#fIn Close#fOut EndSub 程序设计2: PrivateSubForm_Click() '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目: (事件)单击窗体。 '(响应)如果一个数的真因子之和等于这个数本身, '则称这样的数为“完全数”。 例如,整数 '28的真因子为1、2、4、7、14,其和是28。 '因此28是一个完全数。 请编写一个程序, '求出500以内最大的完全数。 并存入变量SUM中。 '使用for...next语句完成程序 '------------------------------------------------- '注意: 请在指定的事件内编写代码。 '------------------------------------------------- DimsumAsInteger '*****************Program************** '***************End************************* Callcs(sum) EndSub PrivateSubcs(iAsInteger) DimOUTAsInteger OUT=FreeFile OpenApp.Path&"\out.txt"ForOutputAs#OUT Print#OUT,i Close#OUT EndSub 程序设计3: PrivateSubForm_Click() '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目: (事件)单击窗体。 '(响应)求100以内偶数的和,并将结果输出在窗体上。 '将结果存入变量SUM中 '------------------------------------------------- '注意: 请在指定的事件内编写代码。 '------------------------------------------------- DimsumAsInteger '*******Program************ '*******End************ YZJ(sum) EndSub PrivateSubYZJ(iAsInteger) DimOUTAsInteger OUT=FreeFile OpenApp.Path&"\26.out"ForOutputAs#OUT Print#OUT,i Close#OUT EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 套题附 答案