Visual Basic 程序设计考试题.docx

1、Visual Basic 程序设计考试题 Visual Basic 程序设计考试题一、选择题（每题1.5分 共 30分）(1)以下叙述中正确的是(A ) 。 A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体 B)窗体的 Name 属性值是显示在窗体标题栏中文本 C)可以在运行期间改变窗体的 Name 属性的值 D)窗体的 Name 属性值可以为空 (2)以下叙述中错误的是(A )。 A) 打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B) 保存 Visual Basic 程序时，应分别保存窗体文件及工程文件 C) Visual Basic 应用程序只能以解释方式执行 D)

2、 窗体文件包含该窗体及其控件的属性 (3)设 a=2,b=3,c=4, 下列表达式的值是(D ) 。 Not a = c Or 4*c = b2 And b a+c A) -1 B) 1 C) True D) False (4)没有如下的用户定义类型： Type Student number As String name As String age AS Integer End Type 则以下正确引用该类型成员的代码是( B ) 。 A) Student. name= “李明” B) Dim s As Student : s.name= “李明”C) Dim s As Type Studen

3、t D) Dim s As Type : s.name= “李明”(5)设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为( B )。 X=IIf(ab) And (cd),10,20) A) 10 B) 20 C) True D) False(6) 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 ( B ) 。 A) Private Sub Textl_Click() Labell.Caption=Textl.Text End Sub B

4、)Private Sub Text1_Change() Labell.Caption=Textl.Text End Sub C) Private Sub Labell_Ctrange() Labell. Caption=Textl.Text End Sub D) Private Sub Labell_Click() Labell.Caption=Textl.TextEnd Sub(7)在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 For i=1 To

5、4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( C ) A) 11 B) 12 C) 16 D) 20 (8)在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Commandl_Click() Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1 If i10Then Ex

6、it For Next i Textl.Text=Str(n) End Sub 程序运行后，单击命命令按钮，在文本框中显示的值是( C )。 A) 5 B) 4 C) 3 D) 2 (9)在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程： Private Sub Commandl_Chick. a=0 For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Labell. Caption=Str(a) Labe12.Caption=Str(b) E

7、nd Sub 程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为( B )A) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20 (10)在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( B )。 A)Privale Sub Listl_Click() Labell. Caption=Listl. ListIndex Listl. Removeltem Lis

8、tl.Text End Sub B) Private Sub Listl_Click() Labell.Name=Listl. ListIndex Listl.RemoveItem Listl.TextEnd Sub C) Private Sub Listl_Click() Labell. Caption=Listl.Text Listl. RemovItem Listl. ListIndex End Sub D) Private Sub Listl_Click() Labell. Name=Listl. TextListl. RemoveItem Listl. ListIndexEnd Su

9、b(11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 ( B ) A）只保存窗体模块文件 B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件 （12）为了清除窗体上的一个控件，下列正确的操作是 ( D ) A）按回车键 B）按Esc键 C）选择（单击）要清除的控件，然后按Del键 D）选择（单击）要清除的控件，然后按回车键 （13）以下叙述中错误的是( D ) A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）当程序运行时，双击一个窗体，则触发该窗体的DblC

10、lick事件 C）VisualBasic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发 （14）设a=2,b=3,c=4,d=5,下列表达式的值是( D ) Nota=cOr4*c=b2Andba+c A）-1 B） 1 C）True D）False （15）设a=5，b=10，则执行c=Int(b-a)*Rnd+a)+1后，c值的范围为 ( B ) A）510 B）69 C）610 D）59 （16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程: PrivateSubCommand1_Click() a$=softwareandhardware

11、b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,b$,c$,1 EndSub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是(A ) A）softwareandhardwareB）softwareC）hardwareD）1 （17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： PrivateSubCommand1_Click() a=InputBox(Enteraninteger) b=InputBox(Enteraninteger) Text1.Text=b+a

12、 EndSub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 ( B ) A）108 B）18 C）810 D）出错 （18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： PrivateSubForm_Load() Text1.Text= Text2.Text= Text1.SetFocus EndSub PrivateSubText1_Change() Text2.Text=Mid(Text1.Text,8) EndSub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容

13、是 ( A ) A）BeijingChina B）China C）Beijing D）BeijingC （19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： PrivateSubForm_Load() List1.AddItemItem1 List1.AddItemItem2 List1.AddItemItem3 EndSub PrivateSubCommand1_Click() List1.List(List1.ListCount)=AAAA EndSub 程序运行后，单击命令按钮，其结果为( D ) A）把字符串“AAAA”添加到列表

14、框中，但位置不能确定 B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面） C）把列表框中原有的最后一项改为“AAAA” D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面） （20）假定有如下事件过程： PrivateSubForm_Click() DimxAsInteger,nAsInteger x=1 n=0 DoWhilex28 x=x*3 n=n+1 Loop Printx,n EndSub 程序运行后，单击窗体，输出结果是 (B ) A）814 B）563 C）281 D）2435 （21）有如下程序： PrivateSubForm_Click()

15、 DimCheck,Counter Check=True Counter=0 Do DoWhileCounter20 Counter=Counter+1 IfCounter=10Then Check=False ExitDo EndIf Loop LoopUntilCheck=False PrintCounter,Check EndSub 程序运行后，单击窗体，输出结果为( C ) A）150 B）20-1 C）10True D）10False （22）有如下程序： PrivateSubForm_Click() DimiAsInteger,sumAsInteger sum=0 Fori=2To

16、10 IfiMod20AndiMod3=0Then sum=sum+i EndIf Nexti Printsum EndSub 程序运行后，单击窗体，输出结果为(C ) A）12 B）30 C）24 D）18 （23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() Dimarray1(10,10)AsInteger DimiAsInteger,jAsInteger Fori=1To3 Forj=2To4 array1(i,j)=i+j Nextj Nexti Text1.Text=arr

17、ay1(2,3)+array1(3,4) EndSub 程序运行后，单击命令按钮，在文本框中显示的值是( A ) A）12 B）13 C）14 D）15 （24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： PrivateSubCommand1_Click() Dima1(4,4),a2(4,4) Fori=1To4 Forj=1To4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Nextj Nexti Printa1(3,3);a2(3,3) EndSub 程序运行后，单击命令按钮，在窗体上输出的是( B ) A）66 B）105 C）721

18、D）612 （25）有如下程序： OptionBase1 PrivateSubForm_Click() Dimarr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) Fori=1To10 Ifarr(i)/3=arr(i)3Then Sum=Sum+arr(i) EndIf Nexti PrintSum EndSub 程序运行后，单击窗体，输出结果为 ( C ) A）25 B）26 C）27 D）28 （26）在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() Dima(5)AsString Fori

19、=1To5 a(i)=Chr(Asc(A)+(i-1) Nexti ForEachbIna Printb; Next EndSub 程序运行后，单击命令按钮，输出结果是( C ) A）ABCDE B）12345 C）abcde D）出错信息（27）以下关于函数过程的叙述中，正确的是( C ) A）如果不指明函数过程参数的类型，则该参数没有数据类型 B）函数过程的返回值可以有多个 C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用 方式传递 D）函数过程形参的类型与函数返回值的类型没有关系 （28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上

20、述功能的代码是( D ) A）FunctionF1(bAsInteger) IfbMod2=0Then Return0 Else Return1 EndIf EndFunction B）FunctionF1(bAsInteger) IfbMod2=0Then F1=0 Else F1=1 EndIf EndFunction C）FunctionF1(bAsInteger) IfbMod2=0Then F1=1 Else F1=0 EndIf EndFunction D）FunctionF1(bAsInteger) IfbMod20Then Return0 Else Return1 EndIf

21、EndFunction（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是( A ) A）KeyAscii参数是所按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略 D）KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Text1的文本框，并编写如下程序： PrivateSubForm_Load() Text1.Text= Text1.SetFocus EndSub PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing

22、le) Print程序设计 EndSub PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintVisualBasic; EndSub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是( A ) A）VisualBasic B）程序设计 C）VisualBasic程序设计 D）a程序设计 二、填空题（每空2分，共30分） (1)Visual Basic 是一种面向对象的可视化程序设计语言，采取了( 事件驱动 )的编程机制。 （2）可以同时删除字符串前导和尾部空格的函数是( Trin )。 (3)

23、 在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后,Command1 为禁用（灰色），此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。 Private Sub Form_Load() command1.Enabled=False End Sub Private Sub Text1_change() Command1.Enabled=( True.Text ) End Sub（4）表达式16/4 23 * 7/4 Mod 52的值是( 24 )。 （5）数学关系式表示成正确的VB表达式为(if x=3andx=A IfInS

24、tr(str,c)=0Then s=( ) EndIf c=Chr$(Asc(c)-1) Wend IfsThen Text1=s EndIf EndSub （13）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。 PrivateSubCommand1_Click() DimkAsInteger DimsumAsSingle,maxAsSingle,minAsSingle sum=Text1(0) max=Text1(0) min=（ ） Fork=1To6 IfmaxText1(k)Then min=Text1(k) En