


版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VisualBasic(17)页考试形式闭 2002年5院 年 学 绩一. 只有一个和一个出在下 FormListBox
FormPictureBox
DimARedimA
RedimPreserveADimA(5To 逻 B.语C.函 D.运 属性设置为True时,用户按下<ESC>键可以激发对应命令按钮的Click事件。
属性设置
x和y不能同时为零的逻辑表达式 x=0Andx=0Ory<>0Andx<>0Or
x<>0Orx=0Xor A.B.C.D.多窗体程序由多个窗体组成在缺省情况下,VB在执行应用程序时总是把 Frm1
StyleGraphicsStylePicture Print
PictureGraphics二. PrivateSubDimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10StepForj=1ToIfj>5Thenk=k+4:ExitFork=k+1Printi,kIfi>8ThenExitPrinti,kEndSub ,五行 PrivateSubDimiAsInteger,X(3) AsInteger,YAsIntegerX(3)=98:X(2)=54:X(1)=76Fori=1ToY=Int(X(i)\SelectCaseCasePrint优秀"Case7To8Print良好"Case6Print及格"CaseElsePrint不及格EndEndSubB OptionPrivateSubForm_Click()DimFAsLongPrint3;"!=";F=Fact(3)Print"=";EndPrivateFunctionFact(NAsInteger)AsLongIfN=0OrN=1ThenFact=Fact=N*Fact(N-PrintN; ‘AEndPrintN; ‘BEnd OptionPrivateSubDimmstAsString,mst1AsString,mst2AsStringDimiAsIntegermst1=Fori=Len(mst1)To1Step-mst2=UCase(Mid(mst1,i,mst2=mst2&LCase(Mid(mst1,i-1,1))mst=mst&mst2PrintEndSub 第三行 OptionPrivateSubDima(3,3)AsInteger,iAsInteger,jAsInteger,kAsIntegerk=1Fori=1ToForj=1Toa(i,j)=kk=k+Fori=1ToCallChange(a,Fori=1ToForj=1ToPrinta(i,EndSub
PrivateSubChange(a()AsInteger,iAsDimkAsInteger,cAsIntegerc=a(i,UBound(a))Fork=UBound(a)-1To1Step-1a(i,k+1)=a(i,k)a(i,1)=cEndSubPrivateSubDimssAsString,dAsLongss=“1A2”d=Printss;"-->";dEndSubPrivateFunctionCv(sAsString)AsDimnAsInteger,iAsInteger,ssAsString*DimpAsLong,kAsLong,acAsIntegern= p=16^nFori=1Top=p/ss= SelectCasessCase k=k+p*Val(ss)Case"A"To"F"ac=Asc(ss)-Asc("A")+ _(18)_ EndSelectNexti _(19) End随机产生25个的互不相同的两位整数,以5行5列的形式显示在框Picture1中;Picture2中,如图所示。OptionPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimx()AsInteger, CallSjs(x)Fori=1ToPicture1.Printx(i);CallJH(x,Fori=1ToForj=1ToEndSub
PrivateSubSjs(A()AsDimiAsInteger,jAsInteger,AsBoolean,xAsIntegeri=1ReDimA(i)x=Rnd*89+10Forj=1ToIfx=A(j) =False:ExitIfThenA(i)=xi=i+EndLoopWhile EndSubPrivateSubJH(A()AsInteger, DimmaxAsIntegerDimiAsInteger,jAsInteger,nAsIntegerFori=1To5Forj=1To
B(i,j)=A(n)Fori=1To :n=Forj=1ToIfB(i,j)>maxmax=B(i,
EndEndSub
B(i,1)=OptionPrivateSubForm_Click()Dima(9)AsIntegerDimiAsInteger,nAsIntegerDimchAsString,iLineAsStringOpen“d:\data.txt”aFor As#1DoWhile LineInput#1,iLineFori=1To ch=Mid(iLine,i,I
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 智能门禁系统安装合同
- 教师职称评定育人工作证明
- Tricyclohexylphosphine-Tricyclohexylphosphane-生命科学试剂-MCE
- 影视剧制作投资拍摄协议
- Actein-Standard-生命科学试剂-MCE
- 寓言故事愚公移山的教育意义深度解读
- 美容美发产品使用效果免责承诺书
- 水电站落水孔清洗施工方案
- 苏州玻璃钢化粪池施工方案
- 2025年滁州c1货运上岗证模拟考试
- 2024版《糖尿病健康宣教》课件
- 大数据分析及应用实践全书课件汇总整本书电子教案(最新)
- 教练技术一阶段讲义(共59页)
- 第3章-系统模型与模型化
- 精品课程建设验收自评报告
- 福建省义务教育课程设置及比例(修订)
- 未成年人需办银行卡证明(模板)
- 员工考勤流程图
- 出口加工区外汇管理培训(ppt49)
- 彩色英文书写纸(共9页)
- 初中学生综合素质评价填写示例
评论
0/150
提交评论