文档介绍：该【VB模拟试题5 】是由【儒林】上传分享，文档一共【10】页，该文档可以免费在线阅读，需要了解更多关于【VB模拟试题5 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。VB模拟试题5一、单选题(每题1分,共30分)1、下列__A__不是VisualBasic程序的基本结构。A)层次结构B)分支结构C)循环结构D)顺序结构2、当文本框的内容发生变化时,必将触发__C__事件。A)LostFocusB)KeyPressC)ChangeD)Click3、在VisualBasic中,建立一个文本编辑区域,可采用下列_C___。A)命令按钮B)标签控件C)文本控件D)定时器控件4、在VisualBasic中,下列___D_表达式的值不等于4。A)int()B)int()C)Abs(int(-))D)Abs(int(-))5、代数表达式中的一元二次方和求根公式中的一个改成VB表达式是__A__。A)(-b+sqr(b*b-4*a*c))/(2*a)B)-b+sqr(b*b-4*a*c)/(2*a)C)(-b+sqr(b*b-4*a*c))/2*aD)(-b+(b*b-4*a*c))/(2*a)6、在VisualBasic中,下列__C_程序行是符合语法的。A)X=Y=5B)A+B=C^3C)Y=1;Y=Y+1D)I=10X7、假定X是一个数值型变量,那么由函数组成的表达式INT(X/2)=X/2,作用是__A__。A)用于测试X是否偶数B)返回一个整数C)返回一个奇数D)用于测试X是否整数8、表达式Abs(-)*sqr(100)的值是__D__。A)-360B)360C)-36D)369、为了使一个窗体从屏幕消失但仍在内存中,所使用的方法或语句为__B_____。A)ShowB)HideC)LoadD)Unload10、要改变新建对象的缺省名称,应使用属性_C___。A)FontB)ForeColorC)NameD)Height11、要使一个命令按钮显示文字“确定”,正确的设置是把它的属性__C__设置为“确定”。A)FontB)ForeColorC)CaptionD)BorderStyle12、在VisualBasic中,下列__A__单词用于注释语句。A)RemB)EndC)ElseD)Loop13、在VisualBasic中,设置控件的位置,可改变下列__C__属性。A)Height与WidthB)height与TopC)Left与TopD)Left与Width14、下列语句中__B__定义了一个单精度型变量。A)DimIAsIntegerB)DimSumAsSingleC)DimNameAsStringD)wjm="信息技术"A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返同给文件分配的字节数26、计算机之所以按人们的意志自动进行工作,最直接的原因是因为采用了___A_____。A)二进制数制B)高速电子元件C)存储程序控制D)程序设计语言27、微型计算机主机的主要组成部分是__B______。A)运算器和控制器B)CPU和内存储器C)CPU和硬盘存储器D)CPU、内存储器和硬盘28、一个完整的计算机系统应该包括____B____。A)主机、键盘、和显示器B)硬件系统和软件系统C)主机和其他外部设备D)系统软件和应用软件29、计算机软件系统包括_____A___。A)系统软件和应用软件B)编译系统和应用系统C)数据库管理系统和数据库D)程序、相应的数据和文档30、微型计算机中,控制器的基本功能是___D_____。A)进行算术和逻辑运算B)存储各种控制信息C)保持各种控制状态D)控制计算机各部件协调一致地工作二、填空题(共50分,每空2分)I阅读程序,写出下列程序的运行结果:1、下列VisualBasic程序段运行后,变量M的值为__[1]2__。a=3:b=2:c=5Ifa<bThenm=aElsem=bIfc<mThenm=c2、在窗体上画一个文本框,然后编写如下事件过程:PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(LCase(char))=String(6,KeyAscii)EndSub程序运行后,如果在键盘上输入字母“C”,则文本框中显示的内容为___[____。3、mand1的命令按钮,然后编写如下事件过程:mand1_Click()StaticxAsIntegerClsFori=lTO2y=y+xx=x+2NextPrintx,yEndSub程序运行后,mand1按钮后,窗体上显示的是___[3]810____。4、以下程序段的输出结果为____[4]4____。X=1Y=4DoUntilY>4X=X*YY=Y+1LoopPrintX5、mandl的命令按钮和一个名称为Textl的文本框,然后编写如下程序:mandlClick()Dimx,y,zAsIntegerx=5y=7z==""CallPl(x,y,z)=Str(z)EndSubSubPl(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后,如果单击命令按钮,则在文本框中显示的内容是___[5]12____。II在下列程序的划线处填写适当代码,使之能够完成题目要求:6、若一个三位数,它的个、十、百位数字的立方和恰巧等于这个数本身,则把这个数称为水仙花数。完善程序求出所有水仙花数。Dimx%,a%,b%,c%Forx=______[6]100to999______Step1a=Int(x/100)b=______[7](x-100*a)\10______c=x-100*a-10*bIf____________[8]x=a^3+b^3+c^3_______________ThenPrintx____[9]Endif_____Nextx7、编程键盘输入5个数字,求出其中最接近100的数字。mand1_Click()Dimi%,x%,Nu%Nu=Val(InputBox("请输入第一个数字"))Print"你输入的五个数分别是:"&Nu;Fori=2To5 x=____[10]val(inputbox______("请输入第"&i&"个数")) Printx; IfAbs(x-100)___[11]<____Abs(Nu-100)Then ____[12]Nu=x______ EndIfNextiPrintvbCrLf&"最接近100的数是____[13]Nu______EndSub8、完善程序,自定义一个名为ProcMin的函数,该函数能够接受一个整型的数组参数,求出该数组中最小的元素值并将这个值作为函数值返回。FunctionProcMin(b%())AsIntegerDimi%,Nmin%____[14]Nmin_______=b(LBound(b))Fori=LBound(b)+1To_____[15]UBound________Ifb(i)<NminThen_____[16]Nmin=b(i)______Nexti_____[17]ProcMin=Nmin_________EndFunction9、完善程序,完成冒泡排序。程序可随机生成指定个数的[50,80]区间的整数进行排序,在窗体中显示每一步排序操作的结果。Dim____[18]a()__________AsInteger,i%,j%,imin%,t%,n%n=Val(InputBox("请输入数组元素的个数:"))ReDimia(n)=1Tonia(i)=_____[19]int(rnd(31))+50________Printia(i);NextiFori=1TonForj=1To_______[20]n-i____________Ifia(j)<______[21]ia(j+1)________Thent=ia(j)ia(j)=ia(j+1)ia(j+1)=tEndIfNextjPrintForj=1TonPrintia(j);NextjNextiPrint10、完善程序,在窗体中绘制y=Cos(x)函数图形。要求鼠标单击窗体时开始绘制,绘制范围:-≤x≤。Dimx!,y!PrivateSub________[22]Form_click()___________x=-=100EndSubPrivateSubTimer1_Timer()__[23]x_____=x+[24]y=cos(x)___________x0=x+=-y+,y0-(x0,y0),RGB(255,0,0)Ifx______[25]>=0EndSub三、编程题(每题10分,共20分)1、编程输入10名短跑运动员的姓名及其100米跑成绩,输出最好成绩的运动员姓名及其成绩,再显示低于平均成绩的所有运动员姓名及其成绩。PrivateSubForm_click()Dima(10)AsString,b(10)AsSingleDimIAsInteger,avgAsSingle,maxAsSingle,firstAsStringForI=1To10a(I)=InputBox("请输入第"&I&"名运动员的姓名:")b(I)=InputBox("请输入第"&I&"名运动员的成绩:")Print"第"&I&"号选手"&a(I)&"的成绩为:"&b(I)NextIfirst=a(1)max=b(1)PrintForI=2To10Ifb(I)>maxThenmax=b(I)first=a(I)EndIfNextIPrint"成绩最好的运动员是"&first&",成绩为:";maxPrintForI=1To10s=s+b(I)NextIavg=s/10Print"所有运动员的平均成绩为:"&avgPrintForI=1To10Ifb(I)<avgThenPrinta(I)&"运动员的成绩低于平均成绩,他的成绩为:"&b(I)EndIfNextIEndSub2、素数(质数)是一个正整数,除了1和它本身之外,不能被其它任何正整数整除。编程:求出1到1000间的所有素数,并将这些素数显示在列表框中。当用户输入的数不是正整数时,给出提示并要求重新输入一个数。mand1_Click()DimIasinteger,jasintegerForI=2to1000Forj=2toi-1IfImodj=0thenexitforNextjIfj=()Dimnassingle,IasintegerN=val(inputbox(“请输入一个数正整数:”))Ifint(n)<>norn<=0thenmsgbox=(“你输入的不是正整数!”)N=val(inputbox(“请输入一个数正整数:”))EndifForI=2ton-1IfnmodI=0thenexitforNextiIfI=nthenPrintn&“是素数。”ElsePrintn&“不是素数。”EndifEndsub