VB考试题库,二级习题(含答案)

VB考试一1、能够获得一个文本框中被选取文本的内容的属性是 ______。A：SelStart B：SelLength C：SelText D：Text参考答案：C2、在窗体上画一个文本框， 其名称为 Text1，为了在程序运行后隐藏该文本框， 应当使用的语句为：______。A：Text1.Enabled=False B：Text1.HideC：Text1.Clear D：Text1.Visible=False参考答案：D3、对于语句 Ifx=1Theny=1, 下列说法正确的是 ____。A： x=1和y=1均为赋值语句B： x=1和y=1 均为关系表达式C：x=1为赋值语句， y=1为关系表达式D：x=1为关系表达式， y=1为赋值语句参考答案：D4、以下变量名中， ______是不符合 VisualBasic的命名规X的。A：_mnu_Open_234 B：Abc901 C：price_ D：K参考答案：A5、MsgBox 函数返回值的类型是 __________。A：数值或字符串 B：字符串 C：变体 D：整型数值参考答案：D6、VB一共有设计、运行和中断三种模式，要使用调试工具应该 ______。A：进入中断模式 B：进入运行模式C：进入设计模式 D：不用进入任何模式参考答案：A7、设a=6，则执行x=IIF(a>5,-1,0) 后，x的值为______。A：-1 B：6 C：0 D：5参考答案：A8、可以同时删除字符前导和尾部空白的函数是 ______。A：Mid B：Rtrim C：Trim D：Ltrim参考答案：C9、以下语句的输出结果是 ______。PrintFormat$("32548.5","000,000.00")1A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50参考答案：C10、设有如下声明：DimXAsInteger如果Sgn(X)的值为-1，则X的值是______。A：等于0的整数B：大于0的整数C：整数D：小于0的整数参考答案：D11、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是 ______。参考答案： 15#15#15#1512、执行下面的程序段后， S的值为______。s=5Fori=2.6To4.9Step0.6s=s+1Nexti参考答案：913、下列表达式有错误 ,正确的写法应该是 ______。[(a+b)+c]/80-5 (d+e)÷参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示x是5的倍数或是 9的倍数的逻辑表达式为 __________参考答案：xMod5=0OrxMod9=0#xMod9=0OrxMod5=015、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。2PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("Enterascore")Dowhilex>=0y=y+xz=z+1x=InputBox("Enterascore")LoopIfz=0Thenz=1EndIfy=______PrintyEndSub参考答案：y/zVB考试二1、列表框中的列表项的数目可以通过以下哪个属性的值获得 ______。A：ListIndex B：ListCount C：Count D：Index参考答案：B2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 ______。A：PrivateSubList1_Click()Label1.Caption=List1.TextEndSubB：PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubC：PrivateSubList1_Click()Label1.Name=List1.TextEndSubD：PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSub参考答案：A3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示 ______。A：Listindex B：Index C：List D：Tabindex参考答案：A34、为了清除列表框中的所有内容，应使用的方法是： ______。A：Clear B：Remove C：RemoveItem D：Cls参考答案：A5、在窗体上画一个名称为 List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 ______。A：Fori=1ToList1.ListCount⋯⋯NEXTB：Fori=0ToList1.Count-1⋯⋯NEXTC：Fori=0ToList1.ListCount-1⋯⋯NEXTD：Fori=1ToList1.Count⋯⋯NEXT参考答案：C6、设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是______。A：6543B：5432C：4321D：7654参考答案：A7、设执行以下程序段时依次输入 1、3、5，执行结果为 ______。Dima(4)AsInteger,b(4)AsIntegerForK=0To2a(K+1)=Val(InputBox("请输入数据"))b(3-K)=a(K+1)NextKPrintb(K)A： 0 B： 3 C：5 D：1参考答案：D48、在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是 ______。A： 123456789B： 234345456C： 147258369D： 123246369参考答案：A9、用下面的语句所定义的数组的元素个数是： ______。Dimarr(3To5,-2to2)A：24 B：12 C：15 D：20参考答案：C10、下列______语句可以为动态数组分配实际元素个数。A：static语句 B：Dim语句 C：public语句 D：ReDim语句参考答案：D11、假定程序中有以下语句：answer=MsgBox("String1",,"String2","String3",2)执行该语句后，将显示一个信息框，此时如果单击 "确定"按钮，则 answer的值为：______。A：String3 B：String2 C：String1 D：1参考答案：D512、设有语句x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值 10并按回车键，则下列叙述中正确的是 ______。A：0是默认值B：变量X的值是字符串"10"C：在InputBox对话框标题栏中显示的是 "示例"D：变量X的值是数值 10参考答案：B13、以下程序段运行的结果是： ______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFori=-1To5j=j+1Ifa(i)=FalseThena(i)=TrueExitForEndIfIfi=5Thenflag=TrueEndIfNextLoopPrintjA：20 B：7 C：8 D：35参考答案：D14、设a=5，b=6，c=7，d=8，则执行下列语句后， x的值为：______。x=IIF((a>b)And(c<d),10,20)A：300 B：20 C：30 D：10参考答案：B15、要将一个组合框设置为简单组合框 （SimpleCombo），则应将其 Style属性设置为______。A：0 B：1 C：3 D：2参考答案：BVB考试三1、设组合框 Combo1中有3个项目，则以下能删除最后一项的语句是 ______。6A：Combo1.RemoveItemCombo1.ListcountB：Combo1.RemoveItem2C：Combo1.RemoveItem3D：Combo1.RemoveItemText参考答案：B 题分：62、在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序：FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xElseFunc=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=4c=Func(a,b)Print"a=";aPrint"b=";bPrint"c=";cEndSub程序运行后，单击命令按钮，其输出结果为： ______。A：a=3b=4c=12B：a=13b=12c=12C：a=3b=4c=3D：a=3b=12c=3参考答案：D 题分：63、单击命令按钮时，下列程序代码的执行结果为 ______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/107EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,y)Printx;yEndSubA： 12 3 B： 2 3 C：12 34 D：2 34参考答案：D 题分：64、以下关于函数过程的叙述中，正确的是 ______。A：在函数过程中，过程的返回值可以有多个B：函数过程形参的类型与函数返回值的类型没有关系C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D：如果不指明函数过程参数的类型，则该参数没有数据类型参考答案：B 题分：65、以下说法错误的是 ______。A：函数过程可以带参数 B：子过程没有返回值C：函数过程没有返回值 D：子过程可以带参数参考答案：C 题分：66、在窗体上画一个命令按钮（名称为 Command1），然后编写如下事件过程：PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序，三次单击命令按钮后，变量 b的值是：______。A：2 B：1 C：0 D：3参考答案：B 题分：67、假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsString8Str1=InputBox("请输入一个字符串 ")Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串 "abcdefg"则单击"确定"按钮后在窗体上的输出结果为 ______。A：GFEDCBAB：ABCEDFGC：gfedcbaD：abcdefg参考答案：A 题分：68、Sub过程与Function过程最根本的区别是 ______。A：两种过程参数的传递方式不同B：Function过程可以有参数， Sub过程不可以C：Sub过程可以使用 Call语句或直接使用过程名调用，而 Function过程不可以D：Sub过程的过程名不能返回值，而 Function过程能通过过程名返回值参考答案：D 题分：69、在代码中定义了一个子过程：SubP(a,b)...EndSub下面______调用该过程的格式是正确的。A：CallPB：CallP10,20C：P(10,20)D：CallP(10,20)参考答案：D 题分：610、在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，三次单击命令按钮 Command1后，窗体上显示的结果为 ______。A： 15 15B： 15 6C：15 169D：5 6参考答案：B 题分：611、设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是 ______。A：循环体中可以使用 ExitDo语句B："条件"可以是关系表达式、逻辑表达式或常数C：若"条件"是一个为 0的常数，则一次也不执行循环体D：如果"条件"总是为True，则不停地执行循环体参考答案：C 题分：612、在窗体上画一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示是 ______。A：7 B：6 C：8 D：9参考答案：A 题分：6VB考试四1、某人编写了如下程序，用来求 10个整数（整数从键盘输入）中的最大值：PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox("输入一个整数")Nextkmax=0Fork=1To1010Ifa(k)>maxThenmax=a(k)EndIfNextkPrintmaxEndSub运行程序时发现， 当输入10个正数时，可以得到正确结果， 但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是 ______。A：把max=a(k)改为a(k)=maxB：把Ifa(k)>maxThen改为Ifa(k)<maxThenC：把第2个循环语句 Fork=1To10改为Fork=2To10D：把max=0改为max=a(10)参考答案：D2、设有语句：Open"d:\Test.txt"ForOutputAs#1，以下叙述中错误的是 ______。A：执行该语句后，就可以通过 Print#语句向文件 Test.txt中写入信息B：用该语句建立的文件的文件号为 1C：该语句打开 d盘根目录下一个已存在的文件 Test.txt，之后就可以从文件中读取信息D：若d盘根目录下无Test.txt文件，则该语句创建此文件参考答案：C3、工程中有 2个窗体，名称分别为 Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示 Form2，则按钮 Click事件过程应该______。A：PrivateSubCommand1_Click()Form2.LoadEndSubB：PrivateSubCommand1_Click()Form2.VisibleEndSubC：PrivateSubCommand1_Click()Load Form2EndSubD：PrivateSubCommand1_Click()Form2.ShowEndSub参考答案：D4、在窗体上画一个名为 Command1的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dima11a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，其输出结果是 ______。A：12B：1234C：34D：4321参考答案：B5、设在窗体中有一个名称为 List1的列表框，其中有若干个项目（如图） 。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 ______。A：PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubB：PrivateSubCommand1_Click()List1.ClearEndSubC：PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSubD：PrivateSubCommand1_Click()List1.RemoveItemEndSub参考答案：C6、窗体上有一个名称为 Frame1的框架（如图），若要把框架上显示的 "Frame1"改为汉字"框架"，下面正确的语句是 ______。A：Frame1.Caption="框架"B：Frame1.Name="框架"C：Frame1.Text="框架"D：Frame1.Value="框架"参考答案：A7、设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件12File1.jpg，能实现此功能的语句是 ______。A：CallLoadPicture("File1.jpg")B：Picture1.Picture=LoadPicture("File1.jpg")C：LoadPicture("File1.jpg")D：Picture1.Picture="File1.jpg"参考答案：B8、在窗体上画一个名称为 Timer1的计时器控件，要求每隔 0.5秒发生一次计时器事件，则以下正确的属性设置语句是 ______。A：Timer1.Interval=50B：Timer1.Interval=5C：Timer1.Interval=0.5D：Timer1.Interval=500参考答案：D9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"CommonDialog1.FilterIndex=3CommonDialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序运行后，单击命令按钮，将显示一个 "打开"对话框，此时在 "文件类型"框中显示的是______。A：TextFiles(*.txt)B：AllFiles(*.*)C：ExecutableFiles(*.exe)D：不确定参考答案：C10、在窗体上画一个名称为 Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print______NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCD13BCDABCD则在______处填入的内容为。A：Left(c,n) B：Right(c,n) C：Mid(c,n,n) D：Mid(c,n,1)参考答案：B11、在窗体上画一个名称为 Label1、标题为 "VisualBasic 考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为 Timer1的计时器控件，并把其 Interval属性设置为 500，如图所示。编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后，单击 "开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是 ______。A：单击"停止"按钮后再单击 "开始"按钮，标签从停止的位置继续移动B：标签的移动方向为自右向左C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动D：标签按指定的时间时隔移动参考答案：B12、执行下列语句strInput=InputBox("请输入字符串 ","字符串对话框 ","字符串")将显示输入对话框。此时如果直接单击 "确定"按钮，则变量 strInput的内容是______。A："请输入字符串" B：空字符串 C："字符串" D："字符串对话框 "参考答案：C13、假定在图片框 Picture1中装入了一个图形，为了清除该图形（不删除图片框） ，应采用的正确方法是______。A：执行语句 Picture1.Picture=""14B：执行语句 Picture1.Picture=LoadPicture("")C：选择图片框，然后按 Del键D：选择图片框，在属性窗口中选择 Picture属性条，然后按回车键参考答案：B14、在窗体上画一个命令按钮和一个文本框，名称分别为 Command1和Text1，然后编写如下程序：PrivateSubCommand1_Click()a=InputBox("请输入日期（1～31）")t="旅游景点："_IIf(a>0Anda<=10,"长城","")_IIf(a>10Anda<=20,"故宫","")_IIf(a>20Anda<=31,"颐和园","")Text1.Text=tEndSub程序运行后，如果从键盘上输入 16，则在文本框显示的内容是 ______。A：旅游景点：长城颐和园 B：旅游景点：长城故宫C：旅游景点：颐和园 D： 旅游景点：故宫参考答案：D15、若变量 a未事先定义而直接使用（例如： a=0），则变量a的类型是______。A：Variant B：String C：Boolean D：Integer参考答案：A16、有如下程序：：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为 ______。A：30 B：12 C：24 D：18参考答案：B17、以下能从字符串 "VisualBasic"中直接取出子字符串 "Basic"的函数是______。A：StringB：MidC：LeftD：Instr15参考答案：B18、设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。A：List1.ListIndexB：List1.ListC：List1.TextD：List1.Index参考答案：C19、设a=5,b=10，则执行 c=Int((b-a)*Rnd+a)+1 后，c值的X围为______。A：6~10B：6~9C：5~10D：5~9参考答案：A20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。A：Cd1.Action=2B：Cd1.ShowSave=TrueC：Cd1.Action=1D：Cd1.ShowSave=0参考答案：A21、下面可以正确定义 2个整型变量和 1个字符串变量的语句是 ______。A：DimaAsInteger,b,cAsStringB：Dima%,b$,cAsStringC：Dimn,mAsInteger,sAsStringD：Dimx%,yAsInteger,zAsString参考答案：D22、在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Text1.Text=b+aEndSub16程序运行后，单击命令按钮，如果在输入对话框中分别输入 8和10，则文本框中显示的内容是______。A：出错B：18C：810D：108参考答案：D23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1EndSub对于这个程序，以下叙述中错误的是 ______。A：在该对话框中指定的默认文件类型为文本文件 (*.Txt)B：在该对话框中指定的默认文件名为空C：该对话框的标题为 VBTestD：该对话框被设置为 "打开"对话框参考答案：A24、设在窗体 Forml上有一个列表框 Listl，其中有若干个项目。 要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是 ______。A：PrivateSubList1_Click()PrintForm1.TextEndSubB：PrivateSubForm1_Click()PrintList1.TextEndSubC：PrivateSubList1_Click()PrintList1.TextEndSubD：PrivateSubForm1_Click()List1.PrintList1.TextEndSub参考答案：C25、在窗体上从左到右有 Text1、Text2两个文本框（见图），要求运行程序时在 Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为 0～100中的1个数，则光标移到17Text2中；否则光标不动，并弹出对话框 "分数错"。下面程序中正确的是 ______。A：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回车符的ASCII码是13a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分数错")EndIfEndIfEndSubB：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回车符的ASCII码是13a=Val(Text1)Ifa>=0Ora<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分数错")EndIfEndIfEndSubC：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回车符的ASCII码是13a=Val(Text1)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分数错")EndIfEndIfEndSubD：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回车符的ASCII码是13a=Val(Text1)Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus:MsgBox("分数错")EndIfEndIfEndSub18参考答案：C26、假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为 "NewTitle"的事件过程是 ______。A：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEndSubB：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowColorEndSubC：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowOpenEndSubD：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEndSub参考答案：C27、在窗体上画一个通用对话框，程序运行后，通过 ShowOpen方法显示"打开"对话框，要求在该对话框的 "文件类型"栏中只显示扩展名为 DOC的文件，则对通用对话框的 Filter属性的正确设置是： ______。A："(*.DOC)*.DOC" B："(*.DOC)|(.DOC)" C："(*.DOC)|*.DOC" D："(*.DOC)||*.DOC"参考答案：C28、以下说法中正确的是 ______。A：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器B：任何时候都可以通过执行 "工具"菜单中的"菜单编辑器"命令打开菜单编辑器C：任何时候都可以通过单击标准工具栏上的 "菜单编辑器"按钮打开菜单编辑器D：只有当代码窗口为当前活动窗口时，才能打开菜单编辑器参考答案：A29、为了暂时关闭计时器，应把计时器的某个属性设置为 False，这个属性是 ______。A：Timer B：Visble C：Enabled D：Interval参考答案：C30、某人在窗体上画了一个名称为 Timer1的计时器和一个名称为 Label1的标签，计时器的属性设置为 Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2秒在标签上显示一次系统当前时间。19PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，他应做的修改是 ______。A：通过属性窗口把计时器的 Enabled属性设置为 FalseB：把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.TimeC：通过属性窗口把计时器的 Interval属性设置为 2000D：把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=Time$参考答案：C31、若设置了文本框的属性 PasswordChar="$"，则运行程序时向文本框中输入 8个任意字符后，文本框中显示的是 ______。A：无任何内容 B：1个"$" C：8个"*" D：8个"$"参考答案：D32、在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1EndSub刚运行程序时，看到的窗体外观是 ______。A：B：C：D：参考答案：D33、要使两个单选按钮属于同一个框架，正确的操作是 ______。A：先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中B：其他选项方法都正确C：先画一个框架，再在框架中画两个单选按钮D：先画两个单选按钮，再画框架将单选按钮框起来参考答案：C34、在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和Command1，然后编写如下事件过程PrivateSubForm_Load()20List1.AddItem"Item1"List1.AddItem"Item2"List1.AddItem"Item3"EndSubPrivateSubCommand1_Click()List1.List(List1.ListCount)="AAAA"EndSub程序运行后，单击命令按钮，其结果为 ______。A：把列表框中原有的最后一项改为 "AAAA"B：把字符串"AAAA"添加到列表框的最后（即 "Item3"的后面）C：把字符串"AAAA"添加到列表框中，但位置不能确定D：把字符串"AAAA"插入到列表框的最前面（即 "Item1"的前面）参考答案：B35、在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后，在文本框中输入 3，然后单击命令按扭，则以下叙述中正确的是 ______。A：先执行 y=x*x，再执行 y=-xB：执行y=-xC：执行y=x*xD：程序出错参考答案：C36、以下不能输出 "Program"的语句是______。A：PrintLeft("VBProgram",7)B：PrintRight("VBProgram",7)C：PrintMid("VBProgram",3)D：PrintMid("VBProgram",3,7)参考答案：A2137、窗体上有 1个名称为 Text1的文本框和 1个名称为 Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是 ______。A：PrivateSubCommand1_Click()Open"out.txt"ForAppendAs#1Print#1,Text1.TextClose#1EndSubB：PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubC：PrivateSubCommand1_Click()Open"out.txt"ForInputAs#1Print#1,Text1.TextClose#1EndSubD：PrivateSubCommand1_Click()Open"out.txt"ForRandomAs#1Print#1,Text1.TextClose#1EndSub参考答案：A38、设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.text<>"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入"Basic"（如图所示），然后单击Command1按钮，则产生的结果是______。A：文本框中为 "Basic"，焦点在文本框中B：文本框中无内容，焦点在文本框中C：文本框中为 "Basic"，焦点在按钮上D：文本框中为 "VisualBasic"，焦点在按钮上22参考答案：B39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为 ______。A：UnloadB：LoadC：ShowD：Hide参考答案：D40、某人创建了 1个工程，其中的窗体名称为 Form1；之后又添加了一个名为 Form2的窗体，并希望程序执行时先显示 Form2窗体，那么，他需要做的工作是 ______。A：把Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2B：在Form1的Load事件过程中加入语句LoadForm2C：在Form2的Load事件过程中加入语句Form2.ShowD：在工程属性对话框中把"启动对象"设置为Form2参考答案：D41、CommonDialog控件可以显示 ______种对话框。A：4种B：5种C：7种D：6种参考答案：