VB期中练习题-答案

（A）IfNotX>0Then(A)-33(对)(B)58(D)2525A．.FrxC．.VbpD．.FormB．.BasA．OptionExplicitB．OptionBaseA．x=SGN(0)C．x=LOG(0)D．a>6AndB．28Mod-15A．6567A$="54321"A．345C．454434455A．2C．6C．UnloadC．SetFocus"asdf"A、设计状态B、编写代码状态Ａ、.frmＣ、.basＤ、.frxＣ、.basＤ、.frx9、VB集成开发环境可以（D）Ａ、.frmＤ、.vbgA．Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)A、Ltrim()B、Trim()C、Instr()D、Left()A、Ltrim()C、Left()D、Instr()B.TextA.PictureC.DownPictureD.DisabledPicture18.为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件）其Interval属性值应A.文本框B.标签框C.窗体D.命令按钮A.TextB.MultiLineC.StyleD.VisibleA、工具箱B、项目（工程）窗口C、代码窗口C、LeftA．Int(3.4)+Int(-3.8)C．Fix(3.4)+Fix(-2.8)D.Fix(3.4)+Int(-3.8)29.在表达式y=InputBox(a,b,c)中，a,b,c分别为输入函数对话框的(B)（A）C）Printb+aC.456D.123456Dima,bAsIntegerPrintb+aA.579B.123，，5)(A)A.BBBBB.空A.SelectCasexB.SelectCasexCaseIs＞5,Is＜5D.SelectCasexCase1,3,Is＞5DoUntily＞4PrintxFori=1To20Step2Nexti(A)A.21B.22DoUntilx=-1x=Val(x)PrintaA、ExitForA、ExitsubC、EndFunctionD、ExitFunctionA、ExitsubB、EndsubC、EndFunctionD、ExitFunctionFori=1To10NextiDoWhilex＜50x=(x+2)*(x+3)Text1.Text=Str(n)Text2.Text=Str(x)A.1和0B.2和72ForI=1To4ForJ=0ToIPrintChr(65+I);PrintNextIPrivateSubForm_Click()x=-5:s=-5CaseIs＞0CaseIs＞=0Label1.Caption=xLabel2.Caption=yA.-5和-2B.-5和-4C.-5和-3D.-5和-5A.IfAIfAC.IfA>=BThenT=AFork=nTo1step-1x=k^2PrintxFork=10To19Step3i=i+1Printix=int(Rnd+4)优秀B.及格D.a=Array(1,2,3,4)Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsC.ScollA.ListB.ListIndexa=Text1.Text+Text2.TextPrintaK=4A=3456______A．x>yB．x=yA=02/13/25/38/513/8s=0I=0I=I+1A=0s=0s=s+1i=i+1i=i+1s=0i=1s=s+ii=i+1i=i+1式).__DbClick()______Click()______.__Gotfocus()7.在VisualBasic中,字符串常量要用(双引号)括起来,日期/时间型常量要用(#)括起(MultiLine)(Text1.SetFocus)..(Stretch)13.窗体,图片框或图像框中的图形通过对象的Picture)属性设置(14.VB的计时器控件用于_计时___,时间间隔以___毫秒____为单位.15.计时器事件之间的间隔通过(Interval)属性设置.别通过把Style属性设置为0,1,2来实现.Variant类型.20.在VB中若要让某对对象获取焦点,则可通过_SetFocus_方法来实现.量,表达式或数组叫做(实际参数)____text1.text="欢迎使用VisualBasic6.0"_____________（1）______text1.text=""______PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontBold=true_Text1.FontBold=FalseEndIfPrivateSubCheck2_Click()Text1.FontItalic=TrueText1.FontItalic_=FalseEndIfPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.FontUnderli