VB练习测试题 8页

一，选择题。1.关于KeyPress事件的Keyascii参数，下列说法正确的是（A）。A．Keyascii参数返回用户所按键的ASCII码B．Keyascii参数为字符型C．Keyascii参数与KeyCode参数返回值一样D．Keyascii参数可以省略2.以下程序段执行的结果是(B)j=0DoWhilej<30j=(j+1)*(j+2)k=k+1LoopPrintk;jA.01B.3182C.3030D.4303.以下叙述中错误的是（A）　　A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件　　B.以.BAS为扩展名的文件是标准模块文件　　C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件4.PrivateSubForm_Click()score=85SelectCasescoreCaseIs<60a$="F"Case60To69a$="D"Case70To79a$="C"Case80To89a$="B"CaseElsea$="A"EndSelectPrinta$EndSub程序运行后，单击窗体，则在窗体上显示的是（B）A．AB．BC．CD．D5.如果变量a、b、c均为整型，下列程序段的输出结果为（C）a=2b=3\nc=a*bPrinta&“*”&b&“=”&cA．c=6B．a*b=cC．2*3=6D．a*b=66.以下程序段执行的结果是(C)。Privatesubcommand1_click()Dimx%,y%X=10:y=5Callf1(x,y)Printx,yEndsub----------Subf1(byvalx1asinteger,y1asinteger)X1=x1+2Y1=y1+2EndsubA.105B.125C.107D.1277.在标签控件上显示变量T的值，语句是（C）。A．Text1.Value=TB．Text1.Caption=TC．Label1.Caption=TD．Label1.Value=T8.设a=3,b=5，则以下表达式值为真的是（B）A.a>=bAndb>10B.(a>b)Or(b>0)　C.(a<0)Eqv(b>0)D.(-3+5>a)And(b>0)9.下列语句中循环体的执行次数是（A）a=3:b=1ForI=atobstep1PrintINextIA．0B．1C．2D．310.以下叙述中错误的是（C）　　A.VisualBasic是事件驱动型可视化编程工具　　B.VisualBasic应用程序不具有明显的开始和结束语句　　C.VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性　　D.VisualBasic中控件的某些属性只能在运行时设置11.关于文件的叙述，错误的是（A）。A.VB提供访问文件的模式有：二进制访问、八进制访问和十六进制访问B.文件是相关记录的集合C.文件一般指存储在计算机外部介质上一组信息的集合\nD.字符是数据文件中最小的信息单位12.MouseMove事件的发生是（A）。A.伴随鼠标指针移动而连续不断发生的B.当鼠标移动时将无限次的被激发C．每秒激发一次D．与鼠标灵敏度相关的13.若要暂时关闭时钟，可通过设置属性（B）为False来实现。A.VisibleB.EnabledC.IntervalD.Timer14.在窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=10y=5z=23Text1.Text=""Callp1(x,y,z)Text1.Text=Str(z)EndSub--------Subp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，则文本框中显示的内容是（B）A．0B．15C．Str(z)D．2315.滚动条的（A）属性用于返回或设置滚动条的当前值。A.Value　　B.Max　　C.Min　　D.Data16.当VB执行下面语句后，A的值为（A）A=1IfA>0ThenA=A+1IfA>1ThenA=0A．0B．1C．2D．317.语句Dima(-1To10)定义的数组元素的个数为（D）。A．1B．10C．11D．1218.当一个工程含有多个窗体时，其中的启动窗体是（D）。A.启动VB时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体19.有语句abc=Inputbox(“str1”,“str2”,“str3”,2)执行后,将显示一个信息框,此时如单击“确定”按钮,则abc的值是(C)A.str1B.str2C.str3D.320.表达式4+5\6*7/8Mod9的值是：BA.4B.5C.6D.7\n二判断题1.在控件数组中，控件的类型可以不同，但控件的名字必须相同。（F）2.模块（module）是相对独立的程序单元。（T）3.时钟控件只支持Timer事件。（T）4.运算符mod与\的功能是一样的。（F5.在VB中,s=iif(x>=0,1,-1}与ifx>=0thens=1elses=-1是完全等效的语句。（T）6.组合框包含了列表框的功能。（T）7.在控件数组中，每一个控件都共享同一个事件过程。（T）8.在命令按钮释放鼠标按钮时，所触发的事件称为mouseup事件。（T）9.VisualBasic是一种面向对象的可视化程序语言，采用了事件驱动的编程机制。（T）10.KeyDown事件、KeyUp事件不与KeyPress事件同时激发。（F）三填空题1.有过程swap，其功能为交换一维数组，即第一个与最后一个元素交换，第二个与倒数第二个元素交换，……请填空。Subswap(a()asinteger)M=Lbound(a)N=Ubound(a)J=0Fork=Mto(N-M+1)/2T=a(k)a(k)=a(N-J)a(N-J)=TJ=J+1Next2.产生10个介于0到100之间的随机整数，求数组中的最大数并在窗体上输出。PrivateSubCommand1_Click()Dima（1To10）AsIntegerDimmaxAsIntegerForI=1To10a(I)=Int(Rnd*101)NextImax=a(1)ForI=2To10Ifa(I)>maxThen______________NextIMAX=A(I)3.输入二个正整数N、N，用辗转相除法求它们的最大公约数P。\nSubcommand1_click()DimM%,N%M=val(inputbox(“M=”))N=val(inputbox(“N=”))DoP=MmodNM=NN=PLoopWhileP<>0P=MPrintPEndsub4.输入一个正整数N，判断它是否是素数。Subcommand1_click()DimN%N=val(inputbox(“N=”))Fork=2tosqr(N)IfNmodk=0thenEXITFOREndifNextIfk>sqr(N)thenPrintN;”是素数”ElsePrintN;”不是素数”EndifEndsub5.下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数，并求出它们的总和。请将下列程序补充完整。PrivateSubCommand1_Click()dimx%,k1%,m%k1=0Form=1To10x=Int(Rnd*_________)Ifxmod5=0ThenPrintx;k1=k1+xEndIfNextmPrint"k1=";k1EndSub_101+100\n6.以下程序的运行结果为_A.B.C=152749_________。PrivateSubCommand1_Click()Dima%,b%,C%a=3:b=5:c=7a=a+b+cb=a+b+cc=a+b+cprint“a,b,c=”;a;b;cEndSub7.下列程序段的执行结果为_9________。a=5Fork=2.6to4.9step0.6a=a+1NextPrinta8.以下程序段执行时，当在Command1按扭上单击，该程序的输出结果是___15______。PrivateFunctionFunc(ByValaAsInteger,ByValbAsInteger)Func=a+bEndFunctionPrivateSubCommand1_Click()Dimx%,y%,z%,r%x=2:y=5:z=8r=Func(Func(x,y),z)PrintrEndSub9.以下程序的运行结果为10。OptionBase1PrivateSubForm_Click()DimaDimiAsIntegerDimmaxAsIntegerDimminAsIntegera=Array(1,3,9,4,7,6,2,8,5)max=a(1)min=a(1)Fori=2To9Ifa(i)>maxThenmax=a(i)Ifa(i)