- 1、本文档共2页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
2010年(秋)上机 VisualBasic(VB01)答案
一、改错
【题目】本程序的功能是,找出10~100之间的所有只有奇数真因子的整数。所谓数据n
的真因子是指除1和n之外的因子。
PrivateSubCmd1_Click()
Dimfac()AsInteger,nAsInteger
DimiAsInteger,snAsString,flagAsBooleanflag=False err位置错
Forn=10To100
flag=False
Calljsyz(n,fac,flag)
IfflagThen
sn=n:
Fori=1ToUBound(fac)sn=snfac(i),
Nexti
List1.AddItemLeft(sn,Len(sn)-1)EndIf
NextnEndSub
PrivateSubjsyz(nAsInteger,fa()AsInteger,flagAsBoolean)
DimiAsInteger,kAsInteger err nAsInteger重复定义Fori=2Ton-1
IfnModi=0Then
IfiMod20Thenk=k+1
ReDimPreservefa(k) err无Preserve
fa(k)=i
Else
ExitSub
EndIfEndIf
Nexti
Ifk0Thenflag=TrueEndSub
二、编程题
【题目】编写程序,随机生成一个元素值为10~40之间整数的4行5列数组;找出该二维数组的最大元素与最小元素,并将最大元素与最小元素的值以及相应的行号和列号输出到图片框中。(注意:等于数组最大元素值与最小元素值的数组元素都可能有多个)
OptionExplicitOptionBase1
PrivateSubCmdRun_Click()
Dima(4,5)AsInteger,iAsInteger,jAsIntegerDimmaxiAsInteger,miniAsIntegerRandomize
Fori=1To4
Forj=1To5
a(i,j)=Int(Rnd*31)+10Pic1.Printa(i,j);
NextjPic1.Print
Nexti
Callmaxmin(a,maxi,mini)Fori=1To4
Forj=1To5
Ifa(i,j)=maxiThenPic2.Printmaxi;i;jNextj
Nexti
Fori=1To4
Forj=1To5
Ifa(i,j)=miniThenPic2.Printmini;i;jNextj
NextiEndSub
PrivateSubmaxmin(a()AsInteger,maxvAsInteger,minvAsInteger)
DimiAsInteger,jAsIntegermaxv=a(1,1):minv=a(1,1)Fori=1ToUBound(a,1)
Forj=1ToUBound(a,2)
Ifa(i,j)maxvThenmaxv=a(i,j)
ElseIfa(i,j)minvThenminv=a(i,j)
EndIfNextj
NextiEndSub
PrivateSubCmdClear_Click()Pic1.Cls:Pic2.Cls
EndSub
PrivateSubCmdExit_Click()End
EndSub
您可能关注的文档
- 2006年高考数学试卷含详解.docx
- 2006秋季高考备考会的几点体会111001001.docx
- 2006通识教育科专题研究报告.docx
- 2006高考文综考前指导5048111001111.docx
- 2006高考英语单词拼写预测111010100.docx
- 2007 Top 100 Contract Manufacturers分析和总结分析和总结.docx
- 20072008学年第一学期办公室工作总结.docx
- 2007北京高考理综物理试题及答案.docx
- 2007届高考仿句专题突破111100011.docx
- 2007年北京市高考新增加词汇93个1000000001.docx
- 10《那一年,面包飘香》教案.docx
- 13 花钟 教学设计-2023-2024学年三年级下册语文统编版.docx
- 2024-2025学年中职学校心理健康教育与霸凌预防的设计.docx
- 2024-2025学年中职生反思与行动的反霸凌教学设计.docx
- 2023-2024学年人教版小学数学一年级上册5.docx
- 4.1.1 线段、射线、直线 教学设计 2024-2025学年北师大版七年级数学上册.docx
- 川教版(2024)三年级上册 2.2在线导航选路线 教案.docx
- Unit 8 Dolls (教学设计)-2024-2025学年译林版(三起)英语四年级上册.docx
- 高一上学期体育与健康人教版 “贪吃蛇”耐久跑 教案.docx
- 第1课时 亿以内数的认识(教学设计)-2024-2025学年四年级上册数学人教版.docx
文档评论(0)