


版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VisualBasic(6)8考试形式闭 2002年5院 年 学 绩 A.DOS和 VisualBasic程序设计时常用的move、Print属于 在VisualBasic中最基本的对象是 A.B.文本框 B.C. D.7 B(, B( B(1to 假定变量LOGIC类型是BOOLEAN,下面赋值语 C.LOGIC= D.LOGIC= 控件固 B.可C.添 B.C. D.控件 函 C.拖动鼠 Ctrl Click、 B.Name、C.top、 的Click事件。 选项按钮、B.复选框 20.A.1B.2C.3D. OptionPrivateSubDimMAsInteger,NAsIntegerForM=1ToNNextMPrintMPrintEnd执行下面的程序,单击窗体后在窗体上显示的第一行结果是 ,第三行结果 PrivateSubDimMystrAsString,Mystr1AsString,Mystr2AsStringMystr1=“H”Fori=1ToMystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrNextiEndSub运行下面的程序,当单击窗体时,窗体上显示的内容的第一行是 ,第二行 PrivateSubTest(xAsInteger)Ifx<6CallEndIfForm1.PrintxEndPrivateSubForm_Click()Test2EndSub过程Main()是本程序的起始过程其他为窗体模块中的事件过程当说明语句A被注释,说明语句B有效,执行本程序,分别单击命令按钮Command1和Command2,在窗体上显示的输出内容是7 ;若将说明语句B注释掉,而使说明语句A有效(删去语句前的注释号执行本程序分别单击命令按钮Command1和Command2,在窗体上显示的输出内容是8。PublicxAsIntegerSubMain()Form1.Printx;EndDimyAsInteger PrivateSubCommand1_Click()DimyAsInteger BPrintEndPrivateSubCommand2_Click()PrintEnd PrivateSubDimaAsInteger,bAsIntegerCallProc1(a,b)Printa,bEndPrivateSubProc1(cAsInteger,dAsDimaAsInteger,bAsIntegerPrintc,dEndPrivateSubProc1(ByValcAsInteger,ByValdAs那么,执行后第一行结果是 ,第二行结果是 执行下面程序后,A(1,3)的值 ,A(2,2)值 14,A(3,1)值 15OptionPrivateSubDimA(3,3)AsInteger,IAsDimJAsInteger,KAsInteger,NAsIntegerForK=5To1Step-1IfK>=3ThenForI=1To6-KNextForI=1ToA(K-I+1,3-N=N-NextIEndIfNextForK=1ToForI=1ToPrintA(K,I);NextINextKEndOUT.TXT中。DimPrivateSubForm_Click()Open"A:\TEST.TXT"ForInputAs#1DoWhileNotEOF(1)Input#1,a(1,i),a(2,i)Close#1Open"A:\OUT.TXT"ForOutputAs#2Fori=1 flag=Forj=1To ExitForEndIfNextNextFori=1ToForj=1ToIfa(2,i)=a(1,j)ThenExitForEndIfNextIfflag=0ThenWrite#2,a(2,i)NextiClose#2EndSub把字母A、B、C、Da、b、c、d1,2,3,45。PrivateSubForm_Click()DimchAsString,IAsIntegerch=InputBox("输入") Case"A","a":I=Case"B","b":I=Case"D","d":I=I=EndMsgBox运行结果chStr(I)EndSubabcdefghijklmnopqrstuvwxyzefghijklmnopqrstuvwxyzabcd输入框如下:PrivateSubDimstAsString,chAsString,iAsInteger,nAsIntegerst=InputBox( i=ch n DoWhilech<> n=n+4EndIf(ch>="w")And(ch<="z")Thenn=n+4-26EndPrintChr(n);i=i+1ch=Mid(st,i,1)n=Asc(ch)End1234554321,要求将原来的数覆盖掉,求出PrivateSubDimxAsInteger,sumAsIntegerx=1234Callrv(x,Print"x=";x,"sum=";sum;EndSubPrivateSub xAsInteger,sAsDimiAsInteger,a(10)AsIntegeri=1:k
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年中国胃膜素行业市场深度分析及未来发展趋势预测报告
- 2025年工业玻璃钢制品项目投资可行性研究分析报告
- 2025年吹塑软管行业深度研究分析报告
- 箱式喷流预热器行业市场发展及发展趋势与投资战略研究报告
- 中国HR管理软件行业市场发展监测及投资潜力预测报告
- 花边制品行业市场发展及发展趋势与投资战略研究报告
- 消痔贴行业深度研究报告
- 中国电化学储能行业发展全景监测及投资方向研究报告
- 2019-2025年中国稀土永磁电机行业发展趋势及投资前景预测报告
- 2025年静电产生器行业深度研究分析报告
- 2025年度光伏电站光伏组件回收处理合同示范文本
- 2025年春季少先队工作计划及安排表(附:少先队每月工作安排表)
- 中央2025年公安部部分直属事业单位招聘84人笔试历年参考题库附带答案详解
- 《教育强国建设规划纲要(2024-2035年)》全文
- 2024-2025学年全国中学生天文知识竞赛考试题库(含答案)
- 小学科学湘科版六年级下册全册同步练习含答案
- 思维第一:全面提升学习力
- 影视文学教程整本书课件完整版电子教案全套课件最全教学教程ppt(最新)
- 防火门监控系统调试、检测、验收记录
- “大水利”概念及其意义
- 三年级上册数学应用题大全98715
评论
0/150
提交评论