vb复习题1(带参考答案)

vb复习题1(带参考答案)vb复习题1(带参考答案)vb复习题1(带参考答案)vb复习题1(带参考答案)编制仅供参考审核批准生效日期地址：电话：传真:邮编:1．下列用来求两个数的较大值的程序中，错误的是。(A)max=x:Ify>=xThenmax=y (B)Ify>=xThenmax=y:max=x(C) max=Iif(x>y,x,y) (D) Ifx>yThenmax=xElsemax=y2．设计动画时，用计时器控件的属性来控制动画速度。(A) Enabled (B) Timer (C) Interval (D) Index3．若要在文本框Text1上按回车键来激发运行某段程序，则该程序段应编写在Text1的事件中。(A)Change (B) KeyPress (C) Click (D) GotFocus4．语句Print"A+2"的运行结果是。(A)A+2 (B) A (C) 2 (D) 运行出错5．语句Print"AB12"+34的运行结果是。(A) AB1234 (B) 1234 (C) 46 (D) 运行出错6．若要将标签控件的文字居中对齐，应将其Alignment属性设置为。(A) 0 (B) 1 (C) 2 (D) 37．表达式x=x+1是。(A)关系表达式 (B)赋值表达式 (C)算术表达式 (D)逻辑表达式8．下列定义数组的语句，错误的是。(A) Dima(10) (B)Dima(2To2)asVariant(C)Dima(-3To–9) (D) Dima(-2To0)9．下列有关过程的说法错误的是。(A) 可以定义没有参数的过程 (B) 过程的定义不能嵌套，但过程的调用可以嵌套(C) 过程可以通过参数的地址传递向主调程序返回结果 (D) 过程不可能向主调程序返回结果10．在+、Not、And、Or四个运算符中，优先级最低的是。(A) + (B) Not (C) And (D)Or11．下面有关For循环的说法中，正确的是。(A) 循环初值必须小于终值 (B) 步长为0时，循环是死循环(C) 循环变量可以是字符型 (D) For循环不可能有死循环12．对Command1编写如下单击事件，单击Command1的运行结果是。 PrivateSubCommand1_Click() x=4 Ifx^2<15Theny=3 Ifx^2=16Theny=2 Ifx^2>15Theny=1 PrintyEndSub(A) 1 (B) 2 (C) 3 (D)413．在VisualBasic中，下列变量名合法的是。(A)cosX (B)cos(x) (C)2y (D) x-y14．工程文件的扩展名是。(A).vbp (B) .frm (C) .res (D) .cls15．双击窗体窗口，打开的窗口是。(A) 属性窗口 (B) 资源管理器窗口 (C) 代码窗口 (D) 布局窗口16．下列叙述中不正确的是(A)变量名的第一个字符必须是字母 (B)变量名可以包含小数点或者内嵌的类型声明字符(C)变量名的长度不超过255个字符 (D)变量名不能使用关键字17．产生[10,37]之)间随机整数的VisualBasic表达式是 (a) Int(Rnd*27)+10 (b) Int(Rnd*27)+11 (c) Int(Rnd*28)+10 (d) Int(Rnd*28)+1118．函数Ucase(Mid("visualbasic",8,5))的值是 (a) BASIC (b) visual (c) VISUAL (d) basic19．若将PasswordChar属性设置为一个字符（如*），则在运行时，文本框中输入的字符仍然显示出来，而不显示星号（*），原因可能是(A)文本框的MultiLine属性值为True (B)文本框的Locked属性值为True(C)文本框的MultiLine属性值为False (D)文本框的Locked属性值为False14．下面的过程定义语句中合法的是 (a) SubProc(ByValn()) (b) SubProc(n)AsInteger (c) FunctionProc(ByValn) (d) FunctionProc(Proc)15．下列程序段的执行结果是 x=2 Printx+1;x+1 (a) 2+12+1 (b) 33 (c) 34 (d)x+1x+116．决定窗体标题栏显示内容的属性是 (a) Caption (b) Name (c) Text (d) BackStyle17. 下列语句中正确的是(A)+= (B)a=Inputbox("Hello")(C)=1234 (D)=CmdOk18. 要使滚动条表示的最小值为10，应设置其属性 (a) MinChange (b)Min (c)Minimize (d) SmallChange19. 在过程调用中，参数的传递可以分为两种方式 (a) 按地址传递与按值传递 (b) 按值传递与按位置传递 (c) 按参数传递与按地址传递 (d) 按位置传递与按参数传递20.如下数组声明语句，正确。(A)Dima[3,4]AsInteger (B)Dima(3,4)AsInteger(C)Dima(n,n)AsInteger (D)Dima(34)AsInteger21.数学关系3≤x<10表示成正确的VB表达式为。(a) 3<=x<10 (b) 3<=xAndx<10 (c) x>=3Orx<10 (d) 3<=xAnd<1022.Rnd函数不可能为下列值。(a) 0 (b) 1 (c) (d) 23.若a$=〞〞,则表达式Val(Left$(a$,4)+Mid$(a$,4,2))的值为。(a) 123456 (b) 123445 (c) 8 (d) 624.显示如下图所示输入框的语句是(A)a=InputBox("请输入一个正数"，"示例"，"1") (B)a=InputBox("示例"，"请输入一个正数"，"1")(C)a=InputBox("1"，"示例"，"请输入一个正数") (D)a=InputBox("请输入一个正数"，"1"，"示例")1．"YES">"yes"的结果是False。2．数学表达式sin150+的VB表达式为sin(15*PI/180)+sqr(x+e^3)。3．若要在运行时将标签Label1的字体大小改为20磅字，对应的设置语句=20。4．表达式Abs(-3)*10\6/2的值为10。(选*/再\)5．结构化程序设计的三大结构分别是顺序、选择和循环。6．计时器控件的Interval属性的默认单位是是毫秒。7．根据数组中包含的元素个数是否固定，可将数组分为静态数组和动态数组。8．对Command1编写如下单击事件，单击Command1后在输入对话框中输入整数75后按回车键，程序的运行结果是3。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个整数") Ifx>80Then Print5 ElseIfx>60Then Print3 Else Print1 EndIfEndSub9．下面的循环结构能不能正常结束（能/不能）。 i=3Doi=i+2LoopUntiliMod2=010．对Command1编写如下单击事件，单击Command1的运行结果是8。PrivateSubCommand1_Click() Dima(1To10)AsInteger Fori=1To10 a(i)=2*i Nexti Printa(a(a(1)))EndSub11．InputBox函数返回值的类型是String，Time()函数返回值的类型是日期型(Date)。12．下面的程序用于求3个数中的最大数。PrivateSubCommand1_Click() a=Val(InputBox("请输入第一个数")) b=Val(InputBox("请输入第二个数")) c=Val(InputBox("请输入第三个数")) max=a:min=a Ifb>aThenmax=b Ifb<aThenmin=b Ifc>maxThenmax=c Ifc<minThenmin=c Print"最大值为："；max Print"最小值为："；min EndSub13．程序代码将整型动态数组x声明为具有20个元素的数组，并给数组的所有元素赋值1。dimx()AsIntegerPrivateSubCommand1_Click()Redimx(1to20) Forj=1To20 x(j)=1 Printx(j) NextjEndSub1． OptionBase1PrivateSubCommand1_Click() Dima a=Array(2,4,6,8) j=1 Fori=4To1Step-1 s=s+a(i)*j j=j*10 Nexti PrintsEndSubi次A(i)js48183610682410046812100024682．PublicSubf1(n%,ByValm%) n=nMod10+2m=m\10EndSubPrivateSubCommand1_Click() Dimx%,y% x=98:y=223Callf1(x,y)Printx,yEndSubXY运行前98223运行后112233.写出执行下列程序的结果 PrivateSubCommand1_Click() x=-7 IfSgn(x)Then y=Sgn(x^2) Else y=Sgn(x) EndIf PrintyEndSub14.写出下列程序运行后的结果 PrivateSubCommand1_Click() ConstP=3 Dima(8)AsInteger Fori=1To8 a(i)=8-i Nexti Printa(a(P))EndSub 35.写出下列程序运行后的结果 PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=10:y=5 Callf1(x,y) Printx;yEndSubPrivateSubf1(ByValx1AsInteger,y1AsInteger) x1=x1+2: y1=y1+2EndSub10 76．以下程序段的功能是。Dimia(1To10)AsInteger DimmaxAsInteger,imaxAsInteger max=ia(1):imax=1:sum=ia(1) Fori=2To10sum=sum+ia(i) ‘只是累加Ifia(i)>maxThen