历年笔试1有.docx

历年笔试1有.docx

《历年笔试1有.docx》由会员分享，可在线阅读，更多相关《历年笔试1有.docx（41页珍藏版）》请在冰豆网上搜索。

历年笔试1有

控件

（1）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是__A___。

 A） Private Sub Text1_Change（）

          Command1.Caption = "计算机等级考试"

End Sub 

 B） Private Sub Command1_ Click （）

          Caption = "计算机等级考试"

End Sub 

 C） Private Sub Form1_ Click （）

          Text1.Caption = "计算机等级考试"

End Sub 

 D） Private Sub Command1_ Click （）

          Text1.Text = "计算机等级考试"

End Sub 

（2）设a=5，b=4，c=3，d=2下列表达式的值是__B___。

3 > 2 * b Or a = c And b <> c Or c > d

 A）1 B）True C） False D）2

（3）在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签，列表框中显示若干城市的名称。

当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。

下列能正确实现上述操作的程序是（　C　）。

A．PrivaleSubListl_Click（）

Labell.Caption=Listl.ListIndex

Listl.RemoveltemListl.Text

EndSub

　　B．PrivateSubListl_Click（）

Labell.Name=Listl.ListIndex

Listl.RemoveItemListl.Text

EndSub

　　C．PrivateSubListl_Click（）

Labell.Caption=Listl.Text

Listl.RemoveItemListl.ListIndex

EndSub

　　D．PrivateSubListl_Click（）

Labell.Name=Listl.Text

Listl.RemovItemListl.ListIndex

EndSub

（4）为了使命令按钮（名称为Command1）右移200，应使用的语句是_C___。

 A） Command1.Move -200

 B） Command1.Move 200

 C） Command1.Left = Command1.Left + 200

 D） Command1.Left = Command1.Left - 200

（5）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是____B__。

 A）选择图片框，然后按Del键

 B）执行语句Picture1.Picture = LoadPicture （""） 

 C）执行语句Picture1.Picture =""

 D）选择图片框，在属性窗口中选择Picture属性条，然后按回车键

（6）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是___B__。

 A）数组中每个命令按钮的名称（Name属性）均为Command1

 B）数组中每个命令按钮的标题（Caption属性）都一样

 C）数组中所有命令按钮可以使用同一个事件过程

 D）用名称Command1（下标）可以访问数组中的每个命令按钮

（7）以下说法正确的是（　B　）。

　　A．任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器

　　B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

　　C．任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器

　　D．只有当代码窗品为当前活动窗口时，才能找开菜单编辑器

（8）窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。

程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示。

为了实现上述功能，在程序中的问号（?

）处应填入的内容是。

A）

 Private Sub Option1_Click（Index As Integer）

If Text1.Text<>""Then

Select Case  ?

Case 0

Text2.Text=Val（Text1.Text）

Case 1

Text2.Text=Val（Text1.Text）*10

Case 2

Text2.Text=Val（Text1.Text）*100

End Select

End If

End Sub

A） IndexB） Option1.Index

C） Option1（Index）  D） Option1（Index）.value

（9）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

B

Private Sub Form_Load（）

    List1.AddItem "Item 1"

    List1.AddItem "Item 2"

    List1.AddItem "Item 3"

End Sub

Private Sub Command1_Click（）

    List1.List（List1.ListCount） = "AAAA"

End Sub

程序运行后，单击命令按钮，其结果为

A）把字符串“AAAA”添加到列表框中，但位置不能确定

B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）

C）把列表框中原有的最后一项改为“AAAA”

D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）

（10）假定有下表所列的菜单结构：

 C

    ━━━━━━━━━━━━━━━━━━━━

标题            名称          层次

────────────────────

显示           appear          1（主菜单）

大图标         bigicon         2（子菜单）

小图标         smallicon       2（子菜单）

━━━━━━━━━━━━━━━━━━━━

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“Ö”。

以下正确的事件过程是

A）Private Sub bigicon_Click（）

     bigicon.Checked = False 

   End Sub

B）Private Sub bigicon_Click（）

     Me. appear.bigicon.Checked = True

   End Sub

C）Private Sub bigicon_Click（）

       bigicon.Checked = True

   End Sub

D）Private Sub bigicon_Click（）

       appear.bigicon.Checked = True

   End Sub

（11）以下叙述中，错误的是。

B） 

A） 在Visual Basic中，对象所能响应的事件是由系统定义的

B） 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定

C） Visual Basic中允许不同对象使用相同名称的方法

D） Visual Basic中的对象具有自己的属性和方法

（12）在窗体上画两个单选按钮（名称分别为Option1、option2,标题分别为“宋体”和“黑体”）、1个复选框（名称为check1,标题为“粗体”）和1个文本框（名称为text1,text属性为“改变文字字体”），窗体外观如图所示。

程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是D

A） Option1.value = False

Check1.value = True  

B） Option1.value = True

Check1.value = 0

C） Option1.value = True

Check1.value = 2

D） Option1.value = True

Check1.value = 1

（13）下面控件中，没有Caption 属性的是C

A）复选框    B）单选按钮     C）组合框    D）框架

（14）用来设置文字字体是否斜体的属性是：

D

A）FonUnderline    B）FontBold   C）Fontslope  D）FontItalic

（15）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

B

Private Sub Command1_Click（）

c = 1234

c1 = Trim（Str（c））

For i = 1 To 4

  Print    

  Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容：

1

12

123

1234

则在横线上应填入的内容为

A）Right（c1,i）     B）Left（c1,i）   C）Mid（c1,I,1）   D） Mid（c1,i,i）

（16）有名称为Opiton1的单选按钮，且程序中有语句：

C

If Option1.value=True then

下面语句中与该语句不等价的是

A） Option1.Vulue then       B）If Option1=True then

C）If value=True then        D）If Option then

（17）在利用菜单编辑器设计菜单时，为了把组合键”Alt+X”设置为＂退出（X）

菜单项的访问键，可以将该菜单项的标题设置为

A）退出（X&） B）退出（&X）  C）退出（X#）   D）退出（#X） 

（18）在窗体上画一个文本框（名称为text1）和一个标签（名称为label1）,程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数，以下可以实现实现上述操作的事件过程是A

A）Private Sub Text1_Change（）

Label1.Caption = Str（Len（Text1.Text））

End Sub

B）Private Sub Text1_Click（）

Label1.Caption = Str（Len（Text1.Text））

End Sub

C）Private Sub Text1_Change（）

Label1.Caption = text1.text

End Sub

D）Private Sub label1_Change（）

Label1.Caption = Str（Len（Text1.Text））

End Sub

（19）以下不能输出“Program”的语句是（D）。

A）PrintMid（"VBProgram",3,7）B）PrintRight（"VBProgram",7）

C）PrintMid（"VBProgram",3）D）PrintLeft（"VBProgram",7）

  （20）设窗体上有一个列表框控件List1，含有若干列表项。

以下能表示当前被选中的列表

项内容的是（C）。

A）List1.ListB）List1.ListIndexC）List1.TextD）List1.Index

  （21）设在窗体Form1上有一个列表框List1，其中有若干个项目。

要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A

A）Prvate Sub List1_Click（）            B）Private Sub Form1_Click（）

Print List1.Text                       Print List1.Text

End Sub                            End Sub

C）Private Sub List1_Click（）           D）Private Sub Form1_Click（）

Print Form1.Text                    List1.Print List1.Text

End Sub                           End Sub

（22）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指B

A）按钮左端到窗体左端的距离   B）按钮左端到图片框左端的距离

C）按钮中心点到窗体左端的距离 D）按钮中心点到图片框左端的距离

（23）在窗体上有如右图所示的控件，各控件的名称A

与其标题相同，并有如下程序：

Private Sub Form_Load（）

Command2.Enabled=False

Check1.value=1

End Sub

刚运行程序时，看到的窗体外观是：

（24）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。

要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是   C

A）Private Sub Command1_Click（）

List1.Clear

End Sub

B） Private Sub Command1_Click（）

List1.Clear List1.ListIndex

End Sub

C） Private Sub Command1_Click（）

List1.Removeltem List1.ListIndex

End Sub

D） Private Sub Command1_Click（）

List1.Removeltem

End Sub

（25）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。

要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。

下面可实现此功能的事件过程是：

B

A）Private Sub save_Click（）                B）Private Sub save_Click（）

Text1.Text=file.save.Caption           Text1.Text=save.Caption

End Sub                                End Sub

C）Private Sub file_Click（）                 D）Private Sub file_Click（）

Text1.Text=file.save.Caption           Text1.Text=save.Caption

End Sub                                 End Sub

（26）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab

的属性设置为Enabled=True,  Interval=0,并编程如下。

希望在每2秒在标签上显示一次系统当前时间。

A

Private Sub Timer1_Timer（）

Label1.Caption=Time$

End Sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是

A）通过属性窗口把计时器的Interval属性设置为2000

B）通过属性窗口把计时器的Enabled属生设置为False

C）把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$

D）把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

（27）窗体上有一个组合框，其中已输入了若干个项目。

程序运行时，单击其中一

项，即可把该项与最上面的一项交换。

例如：

单击图1中的“重庆”，则与“北

京”交换，得到图2的结果。

下面是可实现此功能的程序，请填空。

Private Sub Combo1_Click（）

Dim temp

temp = Combo1.Text

    [Combol1.List（Combol1.ListIndex）]       = Combo1.List（0）

Combo1.List（0） = temp

End Sub

（28）为了在运行时把d:

\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【8Picture1.picture=”d:

\pic\a.jpg”或Picture1.picture=LoadPicture（“d:

\pic\a.jpg”）

（29）在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click（）

 Text1.Text = "VB程序设计"

End Sub

 Private Sub Text1_Change（）

 Picture1.Print "VB Programming"

End Sub

 程序运行后，单击窗体，则在文本框中显示的内容是   【7VB程序设计】   ，而在图片框中显示的内容是   【8VB Programming】   。

（30）在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。

程序运行后，Command1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮Command1变为可用。

请填空。

PrivateSubForm_Load（）

Command1.Enabled=False

EndSub

PrivateSubText1_【Change】

Command1.Enabled=True

EndSub

函数

（31）设a = 5，b = 10，则执行 c = Int（（b - a） * Rnd + a） + 1 后，c值的范围为C

 A）5～10 B）6～9 C）6～10 D）5～9

（32）假定有如下的窗体事件过程：

C

Private Sub Form_Click（）

    a$ = "Microsoft Visual Basic"

    b$ = Right（a$, 5）

    c$ = Mid（a$, 1, 9）

    MsgBox a$, 34, b$, c$, 5

End Sub

 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_____。

 A） Microsoft Visual B） Microsoft C） Basic  D）5

（33）设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。

A）

A） Print A=x+yB） Print"A=";x+y

C） Print  "A="+Str（x+y）  D） Print"A="&x+y

（34）设a=2, b=3, c=4, d=5, 下列表达式的值是D

       Not a<=c Or 4*c=b^2 And b<>a+c

 A）-1 B）1 C）True  D）False

（35）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click（）

    a$ = "software and hardware"

    b$ = Right（a$, 8）

    c$ = Mid（a$, 1, 8）

    MsgBox a$, , b$, c$, 1

End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是C

A）software and hardware  B）software C）hardware D）1

（36）假定有如下的命令按钮（名称为Command1）事件过程：

A）

  Private Sub Command1_Click（）

x=InputBox（"输入：

"，"输入整数"）

MsgBox"输入的数据是：

”，，”输入数据：

"+x

End Sub

程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。

A） x的值是数值10B） 输入对话框的标题是“输入整数”

C） 信息框的标题是“输入数据：

10”D） 信息框中显示的是“输入的数据是：

”

（37）以下可以作为Visual Basic变量名的是。

B） 

A） A#AB） counstA

C） 3AD） ?

AA

（38）执行以下程序段后，变量c$的值为（　D　）。

　　$=“VisualBassicProgramming”

　$=“Quick”e$=b$&UCase（Mid$（a$,7,6））&Right$（a$,12）

　　A．VisualBasicProgramming　　B．QuickBasicprogramming

　　C．QuickBasicProgramming　　D．QuickBasicProgramming

（39）设有如下语句：

A）

Dim a，b As Integer

c="VisualBasic"

d=#7／20／2005#

以下关于这段代码的叙述中，错误的是。

A） a被定义为Integer类型变量B） b被定义为Integer类型变量

C） c中的数据是字符串D） d中的数据是日期类型

（40）设a=4，b=3，c=2，d=1，下列表达式的值是。

D） 

a>b+1 Or c

A） TrueB） 1C） -1D） 0

（41）以下关系表达式中，其值为True的是B

A）”XYZ”>”XYz”B）”VisualBasic”<>”visualbasic”

C）”the”=”there”D）”Integer”<”Int”

（42）下列叙述中正确的是C

A）MsgBox语句的返回值是一个整数

B）执行Msgbox语句并出现信息框后,不用关闭信息框即可执行其他操作

C）MsgBox语句的第一个参数不能省略

D）如果省加略MsgBox语句的第三个参数（Title）,则信息框的标题为空

（43）以下变量名中合法的是：

C

A）x2-1       B）Print      C）Str_n           D）2x

（44）在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签，列表框中显示若干城市的名称。

当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。

下列能正确实现上述操作的程序是（　C　）。

　　A．Privale