各种题库-vb笔试

苏州大学VisualBasic程序程试卷（9）卷9考试形式闭 2002年5 一选择题 VisualBasic是程序设计语言属于(1

面象的语

下列窗体属性中（

要在窗体上显示，需要设置窗体的 ）属性

将窗体的（5 下面字符串常量中，最大的是

“ “ “ “广州 下列符号常量的中 ConstaAsSingle=1.1B:ConstaAsInteger= ConstaAsDouble=Sin(1) Consta=“OK” 下列变量boolvar是一个布尔型变量，则下面正确的赋值语句是（ boolvar=‘True‘ boolvar=. Boolvar=#true# Boolvar=3<4 以下 ）程序段可实现X、Y变量值的互换 Y=X:X= Z=X:Y=Z:X= Z=X:X=Y:Y= Z=X:W=Y:Y=Z:X= 下列叙述不正确的是 ） 以下关于Name属性的说法，错误的是（ 要清除已经在框Picture1中打印的字符串而不清除其中的图象，应使用语 Picture1.Picture=Loicture(““) Picture1.print““ Picture1.Picture=“ 以下关于复选框的说法，正确的是 复选框的Enabled属性用于决定该复选框是否被选中 复选框的Value属性用于决定该复选框是否被选中 复选框的Visible属性用于决定该复选框是否被选中 定时器的Interval属性以 ）为单位指定Timer事件之间的时间间 以下说法不正确的是

在窗体模块的通用段中变量时，不能使用

在参数传递过程中，使用关键字

Sub过程与Function过程最根本的区别是 Function过程可以有参数，Sub 当一个PictureBox控件的Autosize属性为True，在该控件中载入一个比控件的高度与宽度都大的时，的大小与控件的大小相比是（19 标准模块的文件名的扩展名为

二根据程序写结 下列程序段的执行结果为x=y=z=x=yPrintx;y;z 下列程序段的执行结果为y=Ifx*y<1Theny=x-1Elsey=-1Printy-x>0 下列程序段的执行结果为a=b=e=Right(a,f=Mid(b,2,IfefThenPrintefElsePrintfe 下列程序段的执行结果为（24）i= =10To19Step3i=i+1Print 下列程序段的执行结果为a=a=a+b=b+1LoopWhilea<10Printa;b 下列程序段的执行结果为n=Fori=1ToForj=5To1Step-n=n+Printn;j;DimFori=0Tom(i)=2*PrintDima(10),Fori=1Toa(i)=Forj=1Tob(j)=j*a(5)=Print"a(5)=";Dima(5,5)AsFori=1ToForj=1Toa(i,j)=i*Forn=1ToForm=1ToPrinta(m,Dima(5)AsFori=0Toa(i)=i+m=i+Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=3Thena(i+1)=a(m-4)a(4)=Print 单击命令按扭时，下列程序代码的执行结果是PrivateSubProc1(nAsInteger,ByValmAsInteger)n=nMod10m=m\10EndSubDimxAsInteger,yAsIntegerx=12y=Printx;yEnd （32m=m*n=n-5EndSubPrivateSubDimxAsInteger,yAsIntegerx=10y=Printx;yEnd 单击窗体时，下列程序代码的执行结果是x=x*2+1Ifx<6CallEndx=x*2+1Printx;EndTest2End 下列程序代码的执行结果是Dimstr1AsString,str2Asstr1=Fori=Len(str1)To1Stepstr1=str1&Chr(Asc(Mid(str1,i,1))+三程序填空

PrivateSubDimaAsDouble,bAsDouble,cAsDoublea=Val(InputBox("请输入a:")) Debug.Print End PrivateSubif( )thenPrinty&"年为闰年End

Printy&"年不是闰年"EndIf DimnumAsif( )="("thennum=num+elseif( EndIfKeyAscii=13if( )thenPrint左右括号配对elseif )Print左括号多于右括号num;个Print右括号多于左括号num;个EndIfEnd Fori=1Tox= ifx/2= )thenprintEndSub Dima()AsIntegernInputBox("数据个数：")n=n+1 Fori=1Ton-d=Val(InputBox("的数据："))p=Val(InputBox("的位置："))dowhile(48 "fori=nto( a(i)=a(i-1) Fori=1To EndSub6:如果一个正整数从到低位上的数字递减，则称此数为降序数。例如，5433，887等numDec1过程PrivateSubnumDec1(nAs DimxAsString,iAsIntegerx=Trim(Str(n))fori=1to ifi=( )thenflag=trueelseflag=falseEndSubPrivateSubDimn