历年笔试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 cA） 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
升级会员 