资源描述
.VB考试一1、能够获得一个文本框中被选取文本的内容的属性是_。 A:SelStart B:SelLength C:SelText D:Text参考答案:C 2、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为:_。 A:Text1.Enabled = False B:Text1.Hide C:Text1.Clear D:Text1.Visible = False 参考答案:D 3、对于语句 If x=1 Then y=1, 下列说法正确的是_。 A: x=1和y=1 均为赋值语句 B: x=1和y=1 均为关系表达式 C: x=1为赋值语句,y=1为关系表达式 D: x=1为关系表达式,y=1 为赋值语句 参考答案:D 4、以下变量名中,_是不符合Visual Basic的命名规范的。 A:_mnu_Open_234 B:Abc901 C:price_ D:K参考答案:A 5、MsgBox 函数返回值的类型是_。 A:数值或字符串 B:字符串 C:变体 D:整型数值参考答案:D 6、VB一共有设计、运行和中断三种模式,要使用调试工具应该_。 A:进入中断模式 B:进入运行模式 C:进入设计模式 D:不用进入任何模式参考答案:A 7、设a=6,则执行 x=IIF(a>5,-1,0) 后,x的值为_。 A:-1 B:6 C:0 D:5参考答案:A 8、可以同时删除字符前导和尾部空白的函数是_。 A:Mid B:Rtrim C:Trim D:Ltrim参考答案:C 9、以下语句的输出结果是_。 Print Format$("32548.5","000,000.00")精品. A:32,548.5 B:32548.5 C:032,548.50 D:32,548.50参考答案:C 10、设有如下声明:Dim X As Integer如果Sgn(X)的值为-1,则X的值是_。 A:等于0的整数 B:大于0的整数 C:整数 D:小于0的整数参考答案:D 11、在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print xEnd Sub程序运行后,单击命令按钮,输出结果是_。 参考答案: 15# 15 #15 #15 12、执行下面的程序段后,S的值为_。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i参考答案:9 13、下列表达式有错误,正确的写法应该是_。 (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的倍数的逻辑表达式为_ 参考答案:x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0 15、以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。精品.Private Sub Form_click() Dim x, y As Single Dim z As Integer x = InputBox("Enter a score") Do while x>=0 y = y + x z = z + 1 x = InputBox("Enter a score") Loop If z = 0 Then z = 1 End If y = _ Print yEnd Sub 参考答案:y/z VB考试二1、列表框中的列表项的数目可以通过以下哪个属性的值获得_。 A:ListIndex B:ListCount C:Count D:Index参考答案:B 2、在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是_。 A:Private Sub List1_Click() Label1.Caption=List1.Text End Sub B:Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub C:Private Sub List1_Click() Label1.Name=List1.Text End Sub D:Private Sub List1_Click() Label1.Caption=List1.ListIndex End Sub 参考答案:A 3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示_。 A:Listindex B:Index C:List D:Tabindex参考答案:A 精品.4、为了清除列表框中的所有内容,应使用的方法是:_。 A:Clear B:Remove C:RemoveItem D:Cls参考答案:A 5、在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为_。 A:For i=1 To List1.ListCount NEXT B:For i=0 To List1.Count-1 NEXT C:For i=0 To List1.ListCount-1 NEXT D:For i=1 To List1.Count NEXT 参考答案:C 6、设有如下程序:Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是_。 A: 6 5 4 3 B: 5 4 3 2 C: 4 3 2 1 D: 7 6 5 4参考答案:A 7、设执行以下程序段时依次输入1、3、5,执行结果为_。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox("请输入数据") b(3 - K) = a(K + 1) Next K Print b(K) A: 0 B: 3 C: 5 D: 1参考答案:D精品. 8、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub程序运行后,单击命令按钮,窗体上显示的是_。 A: 1 2 3 4 5 6 7 8 9 B: 2 3 4 3 4 5 4 5 6 C: 1 4 7 2 5 8 3 6 9 D: 1 2 3 2 4 6 3 6 9 参考答案:A 9、用下面的语句所定义的数组的元素个数是:_。Dim arr(3 To 5,-2 to 2) A:24 B:12 C:15 D:20 参考答案:C 10、下列_语句可以为动态数组分配实际元素个数。 A:static语句 B:Dim语句 C:public语句 D:ReDim语句参考答案:D 11、假定程序中有以下语句: answer = MsgBox("String1","String2","String3",2)执行该语句后,将显示一个信息框,此时如果单击"确定"按钮,则answer的值为:_。 A:String3 B:String2 C:String1 D:1 精品.参考答案:D 12、设有语句x=InputBox("输入数值","0","示例")程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是_。 A:0是默认值 B:变量X的值是字符串"10" C:在InputBox对话框标题栏中显示的是"示例" D:变量X的值是数值10 参考答案:B 13、以下程序段运行的结果是:_。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A:20 B:7 C:8 D:35 参考答案:D 14、设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 参考答案:B 15、要将一个组合框设置为简单组合框(Simple Combo),则应将其Style属性设置为_。 A:0 B:1 C:3 D:2 参考答案:B 精品. VB考试三1、设组合框Combo1中有3个项目,则以下能删除最后一项的语句是_。 A:Combo1.RemoveItem Combo1.Listcount B:Combo1.RemoveItem 2 C:Combo1.RemoveItem 3 D:Combo1.RemoveItem Text 参考答案:B 题分:6 2、在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Function Func(ByVal x As Integer, y As Integer) y = x * y If y > 0 Then Func = x Else Func = y End IfEnd Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b) Print "a=" a Print "b=" bPrint "c=" c End Sub程序运行后,单击命令按钮,其输出结果为:_。 A:a= 3 b= 4 c= 12 B:a= 13 b= 12 c= 12 C:a= 3 b= 4 c= 3 D:a= 3 b= 12 c= 3 参考答案:D 题分:6 3、单击命令按钮时,下列程序代码的执行结果为_。Public Sub Procl(n As Integer, ByVal m As Integer)精品. n = n Mod 10 m = m / 10End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 34 Call Procl(x, y) Print x; yEnd Sub A: 12 3 B: 2 3 C: 12 34 D: 2 34 参考答案:D 题分:6 4、以下关于函数过程的叙述中,正确的是_。 A:在函数过程中,过程的返回值可以有多个 B:函数过程形参的类型与函数返回值的类型没有关系 C:当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 D:如果不指明函数过程参数的类型,则该参数没有数据类型 参考答案:B 题分:6 5、以下说法错误的是_。 A:函数过程可以带参数 B:子过程没有返回值 C:函数过程没有返回值 D:子过程可以带参数 参考答案:C 题分:6 6、在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:Private Sub Command1_Click() Dim b As Integer b = b + 1End Sub运行程序,三次单击命令按钮后,变量b的值是:_。 A:2 B:1 C:0 D:3 参考答案:B 题分:6 7、假定有以下函数过程:Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1=UCase(Mid(S,i,1)+s1 Next i Fun = s1End Function在窗体上画一个命令按钮,然后编写如下事件过程:精品.Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1 = InputBox("请输入一个字符串") Str2= Fun(Str1) Print Str2End Sub程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为_。 A:GFEDCBA B:ABCEDFG C:gfedcba D:abcdefg 参考答案:A 题分:6 8、Sub过程与Function过程最根本的区别是_。 A:两种过程参数的传递方式不同 B:Function过程可以有参数,Sub过程不可以 C:Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以 D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值 参考答案:D 题分:6 9、在代码中定义了一个子过程: Sub P(a,b) . End Sub下面_调用该过程的格式是正确的。 A:Call P B:Call P 10,20 C:P(10,20) D:Call P(10,20) 参考答案:D 题分:6 10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X, YEnd Sub程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为_。 A: 15 15精品. B: 15 6 C: 15 16 D: 5 6参考答案:B 题分:6 11、设有以下循环结构Do 循环体Loop While<条件>则以下叙述中错误的是_。 A:循环体中可以使用Exit Do语句 B:"条件"可以是关系表达式、逻辑表达式或常数 C:若"条件"是一个为0的常数,则一次也不执行循环体 D:如果"条件"总是为True,则不停地执行循环体参考答案:C 题分:6 12、在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print sEnd Sub程序运行后,单击命令按钮,在窗体上显示是_。 A:7 B:6 C:8 D:9 参考答案:A 题分:6 VB考试四1、某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:Private Sub Command1_Click() Dim a(10) As Integer,max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k精品. max=0 For k=1 To 10 If a(k)>max Then max=a(k) End If Next k Print maxEnd Sub运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是_。 A:把max=a(k)改为a(k)=max B:把If a(k)>max Then改为If a(k)<max Then C:把第2个循环语句For k=1 To 10改为For k=2 To 10 D:把max=0改为max=a(10) 参考答案:D 2、设有语句:Open "d:Test.txt" For Output As #1,以下叙述中错误的是_。 A:执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息 B:用该语句建立的文件的文件号为1 C:该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息 D:若d盘根目录下无Test.txt文件,则该语句创建此文件参考答案:C 3、工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是_。 A:Private Sub Command1_Click() Form2.Load End Sub B:Private Sub Command1_Click() Form2.Visible End Sub C:Private Sub Command1_Click() Load Form2 End Sub D:Private Sub Command1_Click() Form2.Show End Sub 参考答案:D 4、在窗体上画一个名为Command1的命令按钮,然后编写如下代码:Option Base 1精品.Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print sEnd Sub运行上面的程序,其输出结果是_。 A:12 B:1234 C:34 D:4321 参考答案:B 5、设在窗体中有一个名称为List1的列表框,其中有若干个项目(如图)。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是_。 A:Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub B:Private Sub Command1_Click() List1.Clear End Sub C:Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub D:Private Sub Command1_Click() List1.RemoveItem End Sub参考答案:C 6、窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的"Frame1"改为汉字"框架",下面正确的语句是_。 A:Frame1.Caption="框架" B:Frame1.Name="框架" C:Frame1.Text="框架" D:Frame1.Value="框架" 参考答案:A精品. 7、设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件File1.jpg,能实现此功能的语句是_。 A:Call LoadPicture("File1.jpg") B:Picture1.Picture=LoadPicture("File1.jpg") C:LoadPicture("File1.jpg") D:Picture1.Picture="File1.jpg" 参考答案:B 8、在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是_。 A:Timer1.Interval=50 B:Timer1.Interval=5 C:Timer1.Interval=0.5 D:Timer1.Interval=500 参考答案:D 9、在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是_。 A:Text Files(*.txt) B:AllFiles(*.*) C:Executable Files(*.exe) D:不确定参考答案:C 10、在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程:Private Sub Command1_Click() c = "ABCD" For n = 1 To 4 Print _ NextEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容精品.DCDBCDABCD则在_处填入的内容为。 A:Left(c,n) B:Right(c,n) C:Mid(c,n,n) D:Mid(c,n,1) 参考答案:B 11、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签,两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。编写如下程序:Private Sub Form_Load() Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click() Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.Left<Width Then Label1.Left = Label1.Left + 20 Else Label1.Left=0 End IfEnd Sub程序运行后,单击"开始"按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是_。 A:单击"停止"按钮后再单击"开始"按钮,标签从停止的位置继续移动 B:标签的移动方向为自右向左 C:当标签全部移出窗体后,将从窗体的另一端出现并重新移动 D:标签按指定的时间时隔移动 参考答案:B 12、执行下列语句strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是_。 A:"请输入字符串" B:空字符串 C:"字符串" D:"字符串对话框" 参考答案:C 13、假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是_。精品. A:执行语句Picture1.Picture ="" B:执行语句Picture1.Picture = LoadPicture ("") C:选择图片框,然后按Del键 D:选择图片框,在属性窗口中选择Picture属性条,然后按回车键 参考答案:B 14、在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:Private Sub Command1_Click()a=InputBox("请输入日期(131)") t="旅游景点:" _ & IIf ( a > 0 And a <= 10,"长城","") _ & IIf ( a >10 And a <= 20,"故宫","") _ & IIf ( a > 20 And a <= 31,"颐和园","") Text1.Text = tEnd Sub 程序运行后,如果从键盘上输入16,则在文本框显示的内容是_。 A:旅游景点:长城颐和园 B:旅游景点:长城故宫 C:旅游景点:颐和园 D: 旅游景点:故宫参考答案:D 15、若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是_。 A:Variant B:String C:Boolean D:Integer 参考答案:A 16、有如下程序:Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + iEnd If Next i Print sumEnd Sub程序运行后,单击窗体,输出结果为_。 A:30 B:12 C:24 D:18 参考答案:B 17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是_。 A:String B:Mid精品. C:Left D:Instr 参考答案:B 18、设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是_。 A:List1.ListIndex B:List1.List C:List1.Text D:List1.Index 参考答案:C 19、设a=5,b=10,则执行c = Int(b - a) * Rnd + a) + 1后,c值的范围为_。 A:610 B:69 C:510 D:59 参考答案:A 20、在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是_。 A:Cd1.Action=2 B:Cd1.ShowSave=True C:Cd1.Action=1 D:Cd1.ShowSave=0 参考答案:A 21、下面可以正确定义2个整型变量和1个字符串变量的语句是_。 A:Dim a As Integer,b,c As String B:Dim a%,b$,c As String C:Dim n,m As Integer,s As String D:Dim x%,y As Integer,z As String 参考答案:D 22、在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:Private Sub Command1_Click() a = InputBox("Enter an integer") b = InputBox("Enter an integer")精品. Text1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是_。 A:出错 B:18 C:810 D:108 参考答案:D 23、在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:Private Sub Command1_Click() CommonDialog1.FileName ="" CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1End Sub对于这个程序,以下叙述中错误的是_。 A:在该对话框中指定的默认文件类型为文本文件(*.Txt) B:在该对话框中指定的默认文件名为空 C:该对话框的标题为VBTest D:该对话框被设置为"打开"对话框参考答案:A 24、设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是_。 A:Private Sub List1_Click() Print Form1.Text End Sub B:Private Sub Form1_Click() Print List1.Text End Sub C:Private Sub List1_Click() Print List1.Text End Sub D:Private Sub Form1_Click() List1.Print List1.Text End Sub 参考答案:C 精品.25、在窗体上从左到右有Text1、Text2两个文本框(见图),要求运行程序时在Text1中输入1个分数后按回车键,则判断分数的合法性,若分数为0100中的1个数,则光标移到Text2中;否则光标不动,并弹出对话框"分数错"。下面程序中正确的是_。 A:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1) If a<0 And a>100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错") End If End If End Sub B:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1) If a>=0 Or a<=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错") End If End If End Sub C:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错") End If End If End Sub D:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text1.SetFocus Else Text2.SetFocus:MsgBox("分数错") End If End If精品. End Sub 参考答案:C 26 、假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为"New Title"的事件过程是_。 A:Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowPrinter End Sub B:Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowColor End Sub C:Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowOpen End Sub D:Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowFont End Sub 参考答案:C 27、在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示"打开"对话框,要求在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则对通用对话框的Filter属性的正确设置是:_。 A:"(*.DOC)*.DOC" B:"(*.DOC)|(.DOC)" C:"(*.DOC)|*.DOC" D:"(*.DOC)|*.DOC"参考答案:C 28、以下说法中正确的是_。 A:只有当某个窗体为当前活动窗体时,才能打开菜单编辑器 B:任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器 C:任何时候都可以通过单击标准工具栏上的"菜单编辑器"按钮打开菜单编辑器 D:只有当代码窗口为当前活动窗口时,才能打开菜单编辑器参考答案:A 29、为了暂时关闭计时器,应把计时器的某个属性设置为False,这个属性是_。 A:Timer B:Visble C:Enabled D:Interval 参考答案:C 精品.30、某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer() Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的,那么,他应做的修改是_。 A:通过属性窗口把计时器的Enabled属性设置为False B:把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time C:通过属性窗口把计时器的Interval属性设置为2000 D:把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$ 参考答案:C 31、若设置了文本框的属性PasswordChar="$",则运行程序时向文本框中输入8个任意字符后,文本框中显示的是_。 A:无任何内容 B:1个"$" C:8个"*" D:8个"$" 参考答案:D 32、在窗体上有如下图所示的控件,各控件的名称与其标题相同,并有如下程序:Private Sub Form_Load() Command2.Enabled = False Check1.Value = 1End Sub 刚运行程序时,看到的窗体外观是_。 A: B: C: D:参考答案:D 33、要使两个单选按钮属于同一个框架,正确的操作是_。 A:先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 B:其他选项方法都正确 C:先画一个框架,再在框架中画两个单选按钮 D:先画两个单选按钮,再画框架将单选按钮框起来参考答案:C 精品.34、在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程Private Sub Form_Load() List1.AddItem "Item1" List1.AddItem "Item2" List1.AddItem "Item3"End SubPrivate Sub Command1_Click() List1.List(List1.ListCount) = "AAAA"End Sub程序运行后,单击命令按钮,其结果为_。 A:把列表框中原有的最后一项改为"AAAA" B:把字符串"AAAA"添加到列表框的最后(即"Item3"的后面) C:把字符串"AAAA"添加到列表框中,但位置不能确定 D:把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面) 参考答案:B 35、在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case -10 To 10 y=-x End Select End Sub程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是_。 A:先执行y=x*x,再执行y=-x B:执行y=-x C:执行y=x*x D:程序出错 参考答案:C 36、以下不能输出"Program"的语句是_。 A:Print Left("VBProgram",7) B:Print Right("VBProgram",7) C:Print Mid("VBProgram",3)精品. D:Print Mid("VBProgram",3,7) 参考答案:A 37、窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文
展开阅读全文