欢迎来到课桌文档! | 帮助中心 课桌文档-建筑工程资料库
课桌文档
全部分类
  • 党建之窗>
  • 感悟体会>
  • 百家争鸣>
  • 教育整顿>
  • 文笔提升>
  • 热门分类>
  • 计划总结>
  • 致辞演讲>
  • 在线阅读>
  • ImageVerifierCode 换一换
    首页 课桌文档 > 资源分类 > DOCX文档下载  

    山东理工VISUALBASIC程序设计在线考试复习题.docx

    • 资源ID:850472       资源大小:137.97KB        全文页数:36页
    • 资源格式: DOCX        下载积分:5金币
    快捷下载 游客一键下载
    会员登录下载
    三方登录下载: 微信开放平台登录 QQ登录  
    下载资源需要5金币
    邮箱/手机:
    温馨提示:
    用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP免费专享
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    山东理工VISUALBASIC程序设计在线考试复习题.docx

    VISUALBASlC程序设计在线考试复习题一单选题1 .关于语句IfX=ITheny=l,下列说法正确的是()A. X=I和y=l均为赋值语句B. X=I和y=l均为关系表达式C.x=l为关系表达式,y=l为赋值语句Dx=l为赋值语句,y=l为关系表达式2 .以下选项中,不是VisualBaSiC控件的是()。A.窗体B.定时器C.单选框D.命令按钮3 .选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的布尔表达式为()。A. T>=1.7AndW<=62.5B. T>1.7AndW<62.5C. T<=1.7OrW>=62.5D. T>=1.7OrW<62.54 .要清除列表框中所有的列表项时,应使用()方法。A. RemoveB. ClearC. RemoveitemD. Move5 .窗体Fornll的NamC属性是FrnIl,它的单击事件过程名是()。A. Forml_ClickB. Form_ClickC. Frml_ClickD. Me_Click6 .设置个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是()OA. CaptionB. NameC. TextD. Value7 .SQL语句Select*Formstudent中的*表示(A.所有记录B.所有字段C.所有表D.都不对8 .要给代码加注释,可以在注释内容前面加上()符号。A.,B.:CD.“9 .在窗体上画一个名称为TXtA的文本框,然后编写如下的事件过程:PrivateSubTxta_KeyPress(keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPreSS事件的操作是()。A.单击鼠标B.双击文本框C.鼠标滑过D.按键盘上的某个键10 .下列叙述中,错误的是()A.标签和文本框都有Caption属性B.标签和文本框的主要区别在于能否编辑其内容C.标签具有AUtOSiZe属性,而文本框没有D.文本框具有SCrOlIBar属性,而标签没有11 .下面程序的运行结果不同是()。A. For1=100To200Pset(100,I)NextIB. 1.ine(100,100)-(100,200)C. 1.ine(100,100)-Step(0,100)D. 1.ineStep(100,100)-Step(100,200)12 .Int(Rnd*100)表示的是()范围内的一个整数。A. 0,100B. 1,99C. 0,99D. 1,10013 .如果要在文本框中键入字符时只显示某个字符如星号(*),应设置文本框的()属性。A.CaptionB. TextC. CharD. PasswordChar14 .执行下面的程序段后,a的值为()。a=1Fori=1To12Step2a=a+iMod8NextiA. 1B. 5C. 17D. 2115 .设有如下语句:Strl=InputBox(输入,“,练习")从键盘上输人字符“示例”后,Strl的值是()。A."输入B.”"C."练习”D.“示例"16 .在ViSUalBaSiC程序中实现复制文件“c:ConI”到d:盘根目录下的语句为()。A. Copy"",',"B. FiIeCopy"",""C. FiIeCopy"cxommand","dxommand"D.以上都不对17 .若要设置定时器控件的定时时间,需设置的属性是()。A. EnabledB. ValueC.IntervalD.Text18 .可决定窗体的左上角是否有控制菜单的属性是()。A. ControIBoxB. MinButtonC. MaxButtonD. BorderStyIe19 .若要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性窗口中设()。A. Text属性值为*B. Caption属性值为*C. Password属性值为D. PasswordChar属性值为*20 .语句Print”TheanSWeris:"20/4-2的结果为()。A. Theansweris20/4-2B. Theansweris3C. Theansweris"20/4-2"D.非法语句21 .数学表达式Sin25°写成VB表达式是()。A. Sin(25*3.14180)B. Sin25C. Sin(25)D. Sin(25o)22 .下列符号不能作为VB中变量名的是()。A. P3ABCDEFGB.P00000C. 89YWDDFD. ×yz23 .下列符号中哪个是VB程序中合法的变量名()。A. ab7B. 7abC. IfD. a*bc24 .下列不属于ViSUaIBaSiC数据文件的是()。A.顺序文件B.随机文件C.二进制文件D.数据库文件A. .下列控件中既可用于接受用户输入文本,又可用于显示文本的是().B. 1.abel控件C. TextBox控件D. Timer控件E. CommandButton控件25 .语句Print"Theansweris:"20/4-2的结果为()<>A. Theansweris20/4-2B. Theansweris3C. Theansweris"20/4-2"D.非法语句27.下列()不是ViSUal BaSiC的关键字。A. NumB. PublicC. DimD. Const28 .下列赋值语句()是有效的。A. sum=sum-sumB. x+2=x+2C. x+y=sumD. last=y/029 .下列关于VB列表框的叙述中错误的是()A.可通过属性"Item”,返回列表框中的项目。B.可通过属性叮ext,得到当前选中的列表项的内容。C.可通过属性"Listindex”返回当前选中的列表项的索引。D.可通过属性"ListCount"返回列表框中项目的数目。30 .下面不是VB工作模式的是()A.设计模式B.设计模式C.汇编模式D.中断模式31 .将通用对话框COnlmOnDialOg的类型设置成“颜色”对话框,可调用该对话框的()方法。A. ShowOpenB. ShowSaveC. ShowCoIorD. ShowFont32 .以下选项中,不属于标签的属性是()。A. EnabledB. CaptionC. DefaultD. Font33 .双击窗体中的对象后,VisualBaSiC将显示的窗口是()。A.代码窗口B.工具箱C.项目(工程)窗口D.属性窗口34 .要求改命令按钮显示的文本,应当在属性窗口中改变的属性是()。A. CaptionB. NameC. TextD. 1.abel35 .允许在菜单项的左边设置打勾标记,下面哪种论述是正确的?()。A.在标题项中输入&,然后打勾B.在索引项中打勾C.在有效项中打勾D.在复选项中打勾36 .窗体的hide属性的含义是()。A.隐藏B.展现C.装入D.卸载37 .在ViSUalBaSiC中,按文件的访问方式不同,可以将文件分为()。A.顺序文件、随机文件和二进制文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCn文件和二进制文件38 .标准模块文件的扩展名是()。A. frmB. vbpC. basD. vbg39 .SUb过程与FUnCtion过程最根本的区别是()。A. Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值B. Sub过程可以使用Call语句或直接使用过程名调用,而FUnCtiOn过程不可以C. Function过程可以有参数,SUb过程不可以D.两种过程参数的传递方式不同40,下列哪个控件是容器控件()。A. ImageB. PictureC. ComboBoxD. FiIeListBox41.在程序运行过程中,单击窗体时,以下程序的输出结果为()。PrivateSubFormClick()DimxX=Array(wBasicw,wPascalw,"Foxprow,”Database")PrintUcase(Mid(x(2),Len(x(2)-3)EndSubA.sealB.SCALC.×proD.XPRO42 .表达式2*3-2+2*84+3-2的值为()。A. 64B. 31C. 49D. 4243 .执行MSgBoX”除数不能为0!”,VbEXClanlation,数据出错,在弹出的消息框中显示的图标是()A.停止图标B.问号图标C.感叹号图标D.消息图标44 .菜单控件只包括一个事件,即(),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。A. GotFocusB. 1.oadC. ClickD. KeyDown45 .表达式Inid(abcdefg,3,2)的值是()。A. abeB. cdC. bedD.abcde46 .若要将窗体从内存中卸载出去,其实现的方法是()0A. ShowB. HideC.LoadD.UnLoad47 .下列关于VB列表框的叙述中错误的是()。A.可通过属性"Item”,返回列表框中的项目。B.可通过属性WTeXt,得到当前选中的列表项的内容。C.可通过属性"Listindex"返回当前选中的列表项的索引。D.可通过属性"ListCount”返回列表框中项目的数目。48.在窗体上放置一个文本框,程序运行后,在文本框中输入abc,但显示的却是*,可能的原因是该文本框的()属性值已经被设置为*A.FontB.TextC.NameD.PasswordChar二多选题49 .下列对象能响应CIiCk事件的是()。A.列表框B.图片框C.窗体D.计时器50 .以下选项中,属于VisualBaSiC控件的是()。A.窗体B.定时器C.单选框D.命令按钮51 .不能改变夏选框中背景颜色的属性是()。A. ValueB. FontCoIorC. BackCoIorD. Font52 .窗体不能响应的事件是()。A. ActiveFormB. 1.oadC. DriveD. Change三判断题53 .除框架外,标签是能对单选按纽分组的控件()54 .SUm和int.sum都可以作为VB的变量名。()55 .在ViSaUIBaSiC中,常量分为直接常量和符号常量两种。()56 .三种方式的组合框都允许用户输入那些不在列表框中的选项。()57 .代码COnStNUmberl=15:NUmberl=IO是正确的。()58 .Private过程可以被本工程中的所有其它过程调用。()59 .定义数组语句Dima(b)AsInteger是错误的。()60 .通过改变属性窗口中的Name属性,来改变窗体的标题。()61 .工程文件的扩展名是.vbg。()62 .在过程调用中,“实参表”和“形参表”中对应的参数个数必须相等,实参的类型不必与相应形参的类型相符。()63 .在VB中,对象的事件可以通过用户的操作触发。()64 .文本框控件中没有Caption属性。()65 .要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。()66 .VisaulBaSie中,当一个工程含有多个窗体时,默认的启动窗体是最后一个添加的窗体。()67 .代码ConstNumberl=15:Numberl=IO合法。()68 .在ViSaUlBaSiC中,一个工程可以有多个窗体模块。()69 .如果在一行中输入多条语句,各语句之间使用分号;分隔。()70 .变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。()四填空题),而 FUnCtiOn 过程)属性为TrUe来实现。71 .SUb过程与FUnCtion过程最根本的区别是SUb过程()O72 .VB6共有三个版本,按功能从弱到强的顺序排列应是(73 .写出整数n能同时被3和7整除的表达式_(74 .要使标签的大小自动与所显示的文本相适应,可以通过设置(75 .能响应CIiCk事件的对象有列表框、()、()。76 .选拔身高T超过L7米且体重W小于62.5公斤的人,表示该条件的布尔表达式为()。77 .设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用()属性。78 .将数学表达式a2+2ab+b2转换为VB表达式,应写成()。79 .若要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性窗口中设置()O80 .确定一个控件在窗体上的位置的属性是()和()。81 .浮点类型数据包括单精度型和()数据。82 .VB提供了结构化程序设计的三种基本结构,三种基本结构是()、()、顺序结构。83 .表达式2*3.2+2*84+3,2的值为()。84 .在VB中,修改窗体的()和()属性值,可改变窗体的大小。85 .日期表达式#2/24/02#-#2/12/02#的值为()O86 .为了把焦点移到某个指定的控件,所使用的方法是()O87 .将通用对话框ConlmonDialOg的类型设置成“颜色”对话框,可调用该对话框的()方法。88 .在ViSUalBaSiC程序中实现复制文件"c:”到d:盘根目录下的语句为()O89 .用来返回或设置图片控件中显示的图形的属性是()。90 .若要在一行书写多条语句,则各语句之间应使用()相分隔。91 .在VB中,数值型变量的初值为(),布尔型变量的初值为()。92 .VisualBaSiC应用程序的运行是从()开始执行。93 .控件中可以改变大小的有PiCtUreBox、()、()。94 .PiCtUreBoX控件可通过设置其()属性为TrUe使之可自动调整大小。95 .数学表达式Sin25°写成VB表达式是()。96 .已知a=3,b=4,c=5,表达式a>bandNotc>aOrc>bAndc<a+b的值是()»97 .为了把焦点移到某个指定的控件,所使用的方法是()o98 .用语句dima(-lto4)定义的数组含有()个元素。五综合题.PrivateSubForm_Load()单击命令按钮COmmandI后的运行结果为:1.istLAddItem,aaa"1.istLAddItem,bbb,'1.istLAddItem"ccc"1.istLAddItem"ddd,'1.istI-AddItem,eee"EndSubPrivateSubCommand1_Click()Fori=OToListLListCountPrintListl.List(i);NextEndSub99 .PrivateFunctionfun(a,b)单击命令按钮COmmandl后的执行结果为:a=a*ab=b*bfun=a-bEndFunctionPrivateSubcommandl_click()a=4:b=3c=fun(a,b)Printa,b,cEndSub100 .DimA(10,10)运行结果为:ForI=2To4ForJ=4To5A(IJ)=I*JNextJNextIPrintA(2,5),A(3,4)101 .在窗体上画一个命令按钮,名称为CommandL然后编写如下代码:OptionBase0PrivateSubCommandlClickODimA(4)AsInteger,B(4)AsIntegerFork=0To2A(k+D=InputBox("请输入一个整数”)B(3-k)=(k+l)NextkPrintB(k)EndSub程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,写出输出结果。输出结果:102 .写出下面过程运行后显示的结果。PublicSubFl(n%,ByValm%)n=nMod10m=m10EndSubPrivatesubcommandlclick0Dimx%,y%X=12Y=34CallFl(x,y)Printx,yEndsub运行结果:103 .Dima(10)AsDouble运行结果为:Fori=1To10a(i)=i*2NextFori=10To1Step-2Printa(i);Next104 .Kx=5:y=-20IfNotx>0Then运行结果为:×=y-3日Sey=×+3EndIfPrintx,y105 .DimA(IO)运行结果为:Fork=1To10A(k)=kNextkPrintA(2)+A(4)+A(6)运行结果为:106 .2、Forx=-lTo1Step2SelectCase×+2Print,y="×2+lzCase 2Print"y=";x-4,Case 3Print"y="×3+100,EndSelectNextx107 .Subproc1(x,y,z)单击命令按钮COmmandl后的运行结果为:x=x+3:y=yMod10:z=x+y+zEndSubPrivateSubCommand1_C1ick()x=1:y=31:z=40Callprocl(x,y,z)Printx;y;ZEndSub108 .X=5:Y=-20运行结果为:IfNotx>0Thenx=y-3Elsey=x+3Printx-y,y-xEndIf109 .PrivateSubForm_Click()运行结果为:SUM=0DoWhilek<=10SUM=SUM+kk=k+11.oopPrintSUMEndSub110 .X=95SelectCaseX运行结果为:Case 15 >=60Print”及格”Case 16 >=75Print”良好,Case 17 >=90Print”优秀”CaseElsePrint”不及格”EndSelect111 .x=InputBox(,'enterx:")X的输入值为-8,则结果为:SelectCaseSgn(x)+2Case 1Print"y="xA2+lCase 2Print',y="j-4Case 3Print',y=;x3+100EndSelect六编程题113 .利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和。114 .随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,输出是642。115 .输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除)。116 .编程求200400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数,则只能加一次)。117 .随机产生10个30,100内的整数,求最小值及所对应的下标。118 .写程序实现如下功能:单击屏幕时产生10个0,99之间的随机整数并显示在屏幕上,求出其中的最大数并显示在屏幕上。119 .写程序实现如下功能:单击屏幕时产生10个0,99之间的随机整数并显示在屏幕上,求出其中的最小数并显示在屏幕上。120 .分别统计ITOO中,满足3的倍数、7的倍数的数各有多少。121 .编写程序:给出一个数字形式的星期几,要求输出对应的英文。数字在文本框1中输入,英文在文本框2中显示,设计及运行界面如下两图所示,请写出转换按钮的单击事件代码。n星期几的转换X数字:Sunday英文:122 .有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根。123 .某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。124 .编写程序:给出一个百分制的成绩,要求输出成绩的相应等级。转换规则为:90分以上为“A”,8089分为“B”,7079分为iiCfr,6069分为“D”,60分以下为iiEffo分数在文本框1中输入,等级在文本框2中显示,设计及运行界面如下两图所示,请写出转换按钮的单击事件代码。125 .工程的运行界面如右图所示,设三个文本框的Name属性值依次是Texll、Texl2和TeXI3。要求根据TeXtI中输入的数字,在Text2和Text3中显示相应的输出结果。请写出命令按钮控件判断的CliCk事件代码。Textl1234567Text2二三四五六0ext3英语数学语文自然画图体育休息126 .输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,060转换为不及格。127 .设在窗体FOrml上有一个命令按钮Command1。要求单击Commandl时,产生20个0,99之间的随机整数,并显示到窗体上;然后按从小到大的顺序排序,并显示到窗体上。128 .随机产生10个1100之间的正整数并保存在数组中,在屏幕上显示产生的数,计算并输出其中的最大值、最小值、平均值。129 .输入3个数,编程输出最大的数。参考答案一单选题1 .答案:C2 .答案:A3 .答案:B4 .答案:B5 .答案:C6 .答案:D7 .答案:B8 .答案:C9 .答案:D10 .答案:A11 .答案:D12 .答案:C13 .答案:D14 .答案:B15 .答案:D16 .答案:B17 .答案:C18 .答案:A19 .答案:D20 .答案:B21 .答案:A22 .答案:C23 .答案:A24 .答案:D25 .答案:B26 .答案:B27 .答案:A28 .答案:A29 .答案:A30 .答案:C31 .答案:C32 .答案:C33 .答案:A34 .答案:A35 .答案:D36 .答案:A37 .答案:A38 .答案:C39 .答案:A40 .答案:B41 .答案:D42 .答案:B43 .答案:C44 .答案:C45 .答案:B46 .答案:D47 .答案:A48 .答案:D二多选题49 .答案:A,B,C50 .答案:B,C,D51 .答案:,B,D52 .答案:A,C,D三判断题53 .答案:错54 .答案:错55 .答案:对56 .答案:错57 .答案:错58 .答案:错59 .答案:对60 .答案:对61 .答案:对62 .答案:错63 .答案:对64 .答案:对65 .答案:对66 .答案:错67 .答案:错68 .答案:对69 .答案:错70 .答案:对四填空题71 .答案:过程名不能返回值能够通过过程名返回值72 .答案:学习版,专业版和企业版73 .答案:nMod3=0AndnMod7=074 .答案:AutoSize75 .答案:图片框窗体76 .答案:T>1.7AndW<62.577 .答案:AutoRedraw78 .答案:a*a+2*a*b+b*b或者a2+2*a*b+b279 .答案:PassworclChar属性值为*80 .答案:Left、Top81 .答案:双精度82 .答案:选择结构、循环结构83 .答案:3184 .答案:高度(Height)宽度(Width)85 .答案:1286 .答案:SetFocus87 .答案:ShowColor88 .答案:FileCopy"c:",rd"89 .答案:Picture90 .答案:冒号(:)91 .答案:0False92 .答案:建立的窗体模块93 .答案:TeXtBoXLabel94 .答案:AutoSize95 .答案:Sin(25*3.14/180)96 .答案:TrueFalse97 .答案:SetFocus98 .答案:6五综合题99 .答案:aaabbbddd100.答案:1697101.答案:1012102.答案:2103.答案:1、234104.答案:20161284105.答案:58106.答案:12107.答案:y=2y=101108.答案:4145109.答案:-33110.答案:55111.答案:及格112.答案:y=65六编程题113 .答案:PrivateSubCommandlClickODima%(4,5),sumFori=1To4Forj=ITo4a(ij)=IntfRnd*31)+20Printa(i,j);sum=sum+a(izj)NextjPrint'换行NextiPrint"sum="sumEndSub114 .答案:PrivateSubCommandl_Click()Dimx%zxl%z×2%z×3%×=Textl×1=xMod10×2=(xMod100)10×3=x1001.abell=×1*100+×2*10+×3EndSub115 .答案:PrivateSubCommandlClickODimy%y=InputBoxC请输入年份”)IfyMod4=0AndyMod100<>0OryMod400=0ThenVal(MSgBOx(“闰年!”)日SeVal(MSgBOx(“平年!”)EndIfEndSub116 .答案:PrivateSubCommandl_Click()Fori=200To400IfiMod5=OOriMod7=0ThenSum=Sum+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0ThenSum=Sum-iEndIfNextiPrint“倍数之和="SumEndSub117 .答窠:PrivateSubCommandlClickODima(lTo10),mRandomizeForI=1To10a(l)=IntfRnd*71)+30Printa(l)NextIMin=a(l)ForI=2To10Ifa(l)<MinThenMin=a(l):m=INextIPrint"min="MinPrint"min的下标为"mEndSub118 .答案:Dima(lTo10)AsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)Printa(i)NextMax=a(l)Fori=2To10Ifa(i)>MaxThenMax=a(i)EndIfNextPrint"Max="&Max119 .答案:Dima(lTo10)AsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)Printa(i)Nextmin=a(l)Fori=2To10Ifa(i)<MinThenMin=a(i)EndIfNextPrint"Min="&Min120 .答案:PrivateSubCommandlClickODimi,s3,s7s7=0Fori=1To100IfiMod3=0Thens3=s3+1EndIfNextiFori=1To100IfiMod7=0Thens7=s7+1EndIfNextiPrint,3的倍数”;s3Print"7的倍数”;s7EndSub121 .答案:xq=VaI(TextLText)SelectCasexqCase 1Text2.Text="Monday1'Case 2Text2.Text="Tuesday"Case 3Text2.Text="Wednesday'1Case 4Text2.Text="Thursday"Case 5Text2.Text=',Friday"Case 6Text2.Text="Saturday"Case 7Text2.Text=',Sunday"EndSelect122 .答窠:有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根PrivateSubCommandl_Click()Dima,b,c,na=Textlb=Te×t2c=Text3n=b*b-4*a*cIfn>=0Then1.abel4="方程有根”日Se1.abel4="方程无根”EndIfEndSub123 .答窠:PrivateSubCommandlClickODimmax,a(lTo7),min,sFori=1To7a(i)=VaI(InPUtBOX(U输入第“&i&”个数,)Nextimax=a(l)min=a(l)S=aIfa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)s=s+a(i)Nextis=s-min-maxs=s/5Print,平均分”;sEndSub124.答案:ff=Val(TextLText)SelectCaseffCaseIs>=9()Text2.Text=,A,'CaseIs>=80Text2.Text=',B''CaseIs>=70Text2.Text=',C"CaseIs>=60Text2.Texl=',D''CaseElseText2.Text="E"EndSelect125.答案:PrivateSubCommandl_Click()DimaAsIntegera=Val(TextLText)SelectCaseaText2.Text="一"Text3.Text="英语”Case 1Text2.Text="二"Text3.Text="数学”Case 2Text2.Text="三"Text3.Text="语文”Case 3Text2.Text二"四"Text3.Text="自然”Case 4Text2.Text="五"TexBText="画图”Case 5Text2.Text="A"Text3.Text="体育”Case 6Text2.Text=',0nText3.Text="休息"EndSelectEndSub126 .答案:PrivateSubCommandlClickOa=Val(InPUtBOx(”请输入成绩”)lfa>100ThenPrint”超出范围”Ifa>=90Anda<=100ThenPrint”优秀”Ifa>=80Anda<90ThenPrint"良好”lfa>=70Anda<80ThenPrint"中等”Ifa>=60Anda<70ThenPrint"及格"Ifa<60ThenPrint,不及格“EndSub127 .答案:PrivateSubCommandl_Click()Dima(lTo20)AsIntegerRandomizeFori=1To20a(i)=Int(Rnd*100)Printa(i);NextPrintFori=1To19Forj=i+1To20Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1To20Printa(i);NextiEndSub128 .答案:PrivateSubCommand1ClickOFori=1To10a(i)=lnt(Rnd*101)+1Printa(i)NextiMax=a(l)Min=a(l)Avg=a(l)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10Print"max="MaxPrint,min="MinPrint,avg="AvgEndSub129 .答窠:PrivateSubcommandIclickODimmaxFori=1To3n=VaI(InPUtBOx(,输入第”&i&”个数”)Ifn>maxThenmax=nEndIfNextPrint"三个数中最大的数是";maxEndSub

    注意事项

    本文(山东理工VISUALBASIC程序设计在线考试复习题.docx)为本站会员(夺命阿水)主动上传,课桌文档仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知课桌文档(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    备案号:宁ICP备20000045号-1

    经营许可证:宁B2-20210002

    宁公网安备 64010402000986号

    课桌文档
    收起
    展开