立信会计学院vb程序设计复习材料题库

VB 2、在窗体上画一个文本框，其名称为Text1 A：Text1.EnabledFalseD：Text1.Visible=False3、对于语句Ifx=1Theny=1,下列说法正确的 Ax=1和y=1Bx=1和y=1均为关系表达C：x=1为赋值语句，y=1为关系表达式Dx=1为关系表达式，y=1为赋值语句 是不符合VisualBasic名规范的5、MsgBox函数返回值的类型 7、设a=6，则执行后，x的值 A：- PrintFormat$("32548.5","000,000.00")10、设有DimXAs如果Sgn(X)的值为-1，则X的值 A：等于0的整B：大于0CD：小于0的整数PrivateSubFori=1Tox=Forj=1Tox=Fork=1To2x=x+6NextkNextjNextiPrintxEndSub 15#1515 Fori=2.6To4.9Step0.6Next 14、表示x是5的倍数或是9的倍数的逻辑表达式 参考答案：xMod50OrxMod90#xMod90OrxMod5PrivateSubForm_click()Dimx,yAsSingleDimzAsx=InputBox("EnteraDowhiley=y+z=z+x=InputBox("Enterascore")Ifz=0Thenz=1Endy= PrintyEndSubVB 2、在窗体上画一个名称为List1的列表框，一个名称为Label1的。列表框中显示若干城市的名称。 A：PrivateSubList1_Click()EndSubB：PrivateSubList1_Click()EndSubC：PrivateSubList1_Click()EndSubD：PrivateSubList1_Click()EndSub 5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句 A：Fori=1ToB：Fori=0ToList1.Count-C：Fori=0ToList1.ListCount-D：Fori=1ToOptionBase0PrivateSubForm_Click()DimaDimiAsa=Array(1,2,3,4,5,6,7,8,Fori=0To3Printa(5-i);End A：654B：543C：432D：7657、设执行以下程序段时依次输入1、3、5，执行结果为 Dima(4)AsInteger,b(4)AsIntegerForK=0Toa(K1Val(InputBox("请输入数据"))b(3-K)=a(K+1)NextKPrintb(K)A：0B：C：D：8、在窗体上画一个名称为Command1令按钮，然后编写如下程序PrivateSubDimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3Printa(i,j);NextjNextiEndSub A：124578B：233445C：142536D：122436 Dimarr(3To5,-2to2) A：static语句B：Dim语句C：public语句D：ReDim语句answer=执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为 A：0是默认B：变量X的值是字符串C：在InputBox框标题栏中显示的是"示例D：变量X的值是数值 Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsDoUntilflag=TrueFori=-1To5j=j+Ifa(i)=FalseThena(i)=TrueExitForEndIfIfi=5Thenflag=TrueEndIfPrint14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为 x=IIF((a>b)And(c<d),10,20)15、要将一个组合框设置为简单组合框（SimpleCombo），则应将其Style属性设置 VB考试三1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句 A：Combo1.RemoveItemCombo1.ListcountB：Combo1.RemoveItem2C：Combo1.RemoveItem3D：Combo1.RemoveItemText参考答案：B2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：FunctionFunc(ByValxAsInteger,yAsInteger)y=x*Ify>0ThenFunc=xFunc=yEndIfEndPrivateSubCommand1_Click()DimaAsInteger,bAsa=b=c=Func(a,b)Print"a=";aPrint"b=";bPrint"c=";cEndSub A：a=b=c=B：a=b=c=C：a=b=c=D：a=b=c=参考答案：D PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,y)Printx;yEndSubA：12B：2C：12D：2参考答案：D 参考答案：B CDC66、在窗体上画一个命令按钮（名称为Command1），然后编写如下过程PrivateSubDimbAsIntegerb=b+1End运行程序，三次单击命令按钮后，变量b的值是 参考答案：BFunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)NextiFun=s1EndFunctionPrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1InputBox("请输入一个字符串")Str2=Fun(Str1)PrintStr2EndSub 参考答案：A8、Sub过程与Function过程最根本的区别 C：Sub过程可以使用Call语句或直接使用过程名调用，而FunctionD：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值参考答案：D题分：6SubP(a,b)End下 A：CallPB：CallP10,20D：CallP(10,20)参考答案：D mand1令按钮，然后编写如下程序PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerY=Y=Y+5X=5+PrintX,YEndSub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果 A：15B：15C：15D：5参考答案：B题分：6LoopWhile<条件 A：循环体中可以使用ExitDo语C：若"条件"是一个为0的常数，则一次也不执行循环体D：如果"条件"总是为True，则不停地执行循环体参考答案：C mand1令按钮，然后编写如下通用过程和命令按钮的过程PrivateFunctionfun(ByValmAsIfmMod2=0Thenfun=2fun=1EndIfEndPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)PrintsEnd 参考答案：A题分：6VB考试四PrivateSubDima(10)AsInteger,maxAsIntegerFork=1To10NextkFork=1ToIfa(k)>maxEndIfNextkPrintmaxEndSub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需 A：把max=a(k)改为B：把Ifa(k)>maxThen改为Ifa(k)<maxC2个循环语句Fork=1To10改为Fork=2To10D：把max=0改为max=a(10)2、设有语句：Open"d:\Test.txt"ForOutputAs#1，以下叙述中错误的是 A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息C：该语句打开d盘 下一个已存在的文件Test.txt，之后就可以从文件中信D：若d盘根 下无Test.txt文件，则该语句创建此文件3、工程中有2个窗体，名称分别为Form1、Form2，Form1Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click过程应该 A：PrivateSubCommand1_Click()EndB：PrivateSubCommand1_Click()EndC：PrivateSubCommand1_Click()LoadForm2EndD：PrivateSubCommand1_Click()End4、在窗体上画一个名为Command1令按钮，然后编写如下代码OptionBasePrivateSubDimaFori=4To1Step-1NextiPrintsEndSub 5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单Command1按钮，就删除选中的项，确的过程 A：PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndB：PrivateSubCommand1_Click()EndC：PrivateSubCommand1_Click()EndSubD：PrivateSubCommand1_Click()End6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下面 A：rm1Cato="：Fam.a框架"C：rm1.x框架"DFrm1Vl=""A7、设窗体上有一个框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现 A：CallLoadPicture("File1.jpg")8、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器，则以下正确的属 9、在窗体上画一个通用框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下过PrivateSubCommand1_Click()CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"MsgBoxCommonDialog1.FileNameEndSub A：TextC：ExecutableFiles(*.exe)D PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print EndSub则 11、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()EndPrivateSubCommand2_Click()Timer1.Enabled=FalseEndPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.Left+20EndIfEnd B：的移动方向为自右向 C："字符串D："字符串框"13、假定在框Picture1中装入了一个图形，为了清除该图形（不删除框），应采用的正确方法 A：执行语句Picture1.PictureB：执行语句Picture1.PictureLoadPictureC：选择框，然后按Del键D：选择框，在属性窗口中选择Picture属性条，然后按回车键14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：PrivateSubCommand1_Click()t="旅游景点："_&IIf(a>0Anda<=10,"","")&IIf(a>10Anda<=20,"故宫","")_&IIf(a>20Anda<=31,"","")Text1.Text=tEndSub程序运行后，如果从键盘上输入16，则在文本框显示的内容是 B：旅游景点：故宫C：旅游景点：D：旅游景点：故宫15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型 PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2ToIfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub 18、设窗体上有一个列表框控件List1 19、设a=5,b=10，则执行c=Int((b-a)*Rnd+a)+1后，c值的范围 20、在窗体上有1个名为Cd1的通用框，为了在运行程序时打开保存文件框，则在程序中应使 A：DimaAsInteger,b,cAsStringB：Dima%,b$,cAsStringC：Dimn,mAsInteger,sAsStringD：Dimx%,yAsInteger,zAsString22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性PrivateSuba=InputBox("Enteranb=InputBox("Enteraninteger")Text1.Text=b+aEnd程序运行后，单击命令按钮，如果在输入框中分别输入8和10，则文本框中显示的内容是 monDialog1的通用框，一个名称为Command1令按钮。然后PrivateSubCommand1_Click()CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"End C：该框的标题为D：该框被设置为"打开"框24、设在窗体Forml上有一个列表框Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示 A：PrivateSubList1_Click()PrintForm1.TextEndB：PrivateSubForm1_Click()PrintList1.TextEndC：PrivateSubPrintList1.TextEndSubD：PrivateSubForm1_Click()List1.PrintList1.TextEnd25、在窗体上从左到右有Text1、Text2两个文本框（见图），要求运行程序时在Text1中输入1个分数后按回车键，则判断分数的，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出框"分数错"。下面程序中正确的是 A：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车符的ASCII13Ifa<0Anda>100ThenEndIfEndIfEndSubB：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车符的ASCII13Ifa>=0Ora<=100ThenEndIfEndIfEndSubC：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车符的ASCII13Ifa>=0Anda<=100ThenEndIfEndIfEndSubD：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车符的ASCII13Ifa>=0Anda<=100ThenEndIfEndIfEndSub26、假定通用框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的框的标题为"NewTitle"的过程是 A：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"EndB：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"EndC：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"EndD：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"End27、在窗体上画一个通用框，程序运行后，通过ShowOpen方法显示"打开"框，要求在该框的"文件类型"栏中只显示扩展名为DOC的文件，则对通用框的Filter属性的正确设置是： C：任何时候都可以通过单击标准上的"菜单编辑器"按钮打开菜单编辑器29、为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是 30、在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在上显示一次系统当前时PrivateSubTimer1_Timer()End A：通过属性窗口把计时器的Enabled属性设置为B：把过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.TimeC：通过属性窗口把计时器的Interval属性设置为2000D：把过程中的Label1.Caption=Time$语句改为31、若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框 B：1个"$"C：8个"*"D：8个"$"PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1End 34、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下过PrivateSubForm_Load()List1.AddItem"Item1"List1.AddItem"Item2"List1.AddItem"Item3"EndSubPrivateSubCommand1_Click()List1.List(List1.ListCount)="AAAA"End 35、在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事PrivateSubCommand1_Click()SelectCasexCase1,3CaseIs>=10,Is<=-Case-10To10EndSelectEndSub程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是 A：先执行y=x*x，再执行y=-x：执行xC：执行DC A：PrintLeft("VBProgram",7)B：PrintRight("VBProgram",7)C：PrintMid("VBProgram",3)D：PrintMid("VBProgram",3,7)37、窗体上有1个名称为Text1的文本框和1个名称为Command1令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面 A：PrivateSubCommand1_Click()Open"out.txt"ForAppendAs#1Print#1,Text1.TextClose#1EndB：PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndC：PrivateSubCommand1_Click()Open"out.txt"ForInputAs#1Print#1,Text1.TextClose#1EndD：PrivateSubCommand1_Click()Open"out.txt"ForRandomAs#1Print#1,Text1.TextClose#1EndPrivateSubCommand1_Click()Text1.Text="VisualBasic"EndPrivateSubText1_LostFocus()IfText1.text<>"BASIC"ThenEndIfEndSub程序运行时，在Text1文本框中输入"Basic"（如图所示），然后单击Command1按钮，则产生的结果 D：文本框中为"VisualBasic"，焦点在按钮上 40、创建了1个工程，其中的窗体名称为Form1；之后又添加了一个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是 A：把Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2B：在Form1的Load过程中加入语句LoadForm2C：在Form2的Load过程中加入语句Form2.ShowD：在工程属性框中把"启动对象"设置为Form2 种框A：4B：5C：7D：6设x=10，则y的值是 您的答案：B参考答案标名层显 A：PrivateSubbigicon_Click()