单项选择
==== 1.当文本框的_____属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。
A、Locked B、SelStart C、Shape D、SelText 答案： A
2.Picture控件AutoSize属性设置为_____，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件
到恰好显示整个图片为止。
A、False B、3 C、无 D、True 答案： D
3.要使一个标签透明且具有边框，则应_____。
A、将其BackStyle属性设置为1，BorderStyle属性设置为1 B、将其BackStyle属性设置为0，BorderStyle属性设置为1 C、将其BackStyle属性设置为0，BorderStyle属性设置为0 D、将其BackStyle属性设置为1，BorderStyle属性设置为0 答案： B
4.当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。
A、文本框的MultiLine属性为False B、文本框中没有内容
C、文本框的MultiLine属性为True D、文本框的Locked属性为True 答案： A
5.如果文本框的Enabled属性被设置为False,则运行时_____。
A、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 B、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上 D、文本框中的文本将变成灰色，用户仍能改变文本框中的内容 答案： C
.6要使Form1窗体的标题栏显示\"欢迎使用VB\"，以下_____语句是正确的。
A、Form1.Caption=/欢迎使用VB/ B、Form1.Caption=欢迎使用VB C、Form1.Caption=\"欢迎使用VB\" D、Form1.Caption=\'欢迎使用VB\' 答案： C
7.当对象失去焦点时，将会发生_____事件。
A、LostFocus B、Focus C、SetFocus D、GetFocus 答案： A
8.在设计列表框时，若实现输入多行文字的目的，应使用_____键实现文本的换行。
A、Alt+Enter B、Enter C、Ctrl+Enter D、Ctrl+Shift+Enter 答案： C
9.下列控件中，没有Caption属性的是_____。
A、单选按钮 B、框架 C、列表框 D、复选框 答案： C
10.以下不属于标签属性的是_____。
A、Index B、Value C、Caption D、Font 答案： B
11.有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。
A、String,\"\" B、Integer,0 C、Long,0,0 D、Variant,空值 答案： D
12.下列可以将变量A、B互换的语句是____________。
A、A=B: B=C: C=A B、A=A+B: B=A-B: A=A-B C、A=(A+B)/2: B=(A-B)/2 D、A=C: C=A 答案： B
13.在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，
下列赋值语句中，正确的是______。
A、Bl=#True# B、D=#10/05/01# C、Inta= \"333\" + \"22\" D、St=5+ \"abc\" 答案： B
14.下列____________是日期型常量
A、“江苏南京” B、123# C、#02/25/1999# D、“I am a student” 答案： C
15.表达式X+1>X是_____________.A、字符串表达式 B、非法表达式 C、算术表达式 D、关系表达式 答案： D 16.下面程序段的功能是 A=10.5 B=INT(A+0.5) Debug.Print B A、求平均值
B、舍去一实数的小数部分 C、将一实数四舍五入取整数 D、求绝对值 答案： C
17.下列叙述不正确的是___________ .A、代码中加入注释语句的目的的提高程序的可读性
B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 C、注释语句可以放在代码中的任何位置 D、注释语句不能放在续行符的后面 答案： C
18.下列不正确的变量名是________。
A、Arry@ B、Text C、Command D、Form 答案： A
19.假定变量Logic类型是Boolean，下面赋值语句________是正确的。
A、Logic = ‘True’ B、Logic = # True # C、Logic = .True.D、Logic = 3
20.以下各项中，____________不是一个合法的字符串。
A、\"等级考试\" B、#Basic# C、\"\" D、\"Visual\" 答案： B
21.结构化程序设计方法的核心是规定了三种基本结构：_____结构、分支结构、循环结构。
A、顺序 B、条件 C、逻辑 D、当型 答案： A
22.执行下面的程序，单击窗体后在窗体上显示的结果是_____。 Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1= \"e\" For i = 1 To 2
str2 = UCase(Str1)
Str1 = Str2 & Str1
Str3 = Str3 &Str1
Str1 = Chr(Asc(Str1)+1) Next I Print str3 End Sub A、EEEE B、eeFF C、EeFF D、eEfF 答案： C
23.执行以下程序段，在窗体上显示的结果是_____。 Private Sub Form_Click() Dim S As String, i As Integer S = \"ab\" For i = Len(S) To 1 Step -1 Print Chr( Asc ( Mid ( S , i , 1 ) ) + i ) Next I End Sub A、db B、cb C、cc D、fd 答案： A
24.VB也提供了结构化程序设计的三种基本结构，这三种基本结构是_____。
A、递归结构、选择结构、循环结构 B、选择结构、循环结构、顺序结构 C、过程结构、输入\\输出结构、转向结构 D、选择结构、过程结构、顺序结构 答案： B
25.存在如下程序：
Private Sub Command1_Click( ) a=Val(InputBox(\"请输入\")) b=Val(InputBox(\"请输入\")) x=a+b If a>b Then
x=a-b endif Print x End Sub 运行后，从InputBox对话框中连续输入3和4，输出结果为_____。
A、3 B、34 C、0 D、7 答案： D
26.设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示
的结果与执行语句a=s:Text1=a的结果相同的有_____个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,\"#####\"):Text1=a A、4 B、1 C、2 D、3 答案： C
27.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_____。
A、If sex=\"男\" And age=40 And duty=\"教授\"And duty=\"副教授\" Then n=n+1 B、If sex=\"男\" And age0 Then n=n+1 D、If sex=\"男\" And age
28.下面程序段，显示的结果是_____。 Dim x x=Int(Rnd)+5 select Case x Case 5 print \"优秀\" Case 4 print \"良好\" Case 3 print \"通过\" Case Else print \"不通过\" End Select A、通过 B、不通过 C、良好 D、优秀 答案： D
29.有如下程序：
Private Sub Command1_Click( ) score=65 select Case score
Case Is
a$=\"F\"
Case 60 To 69
a$=\"D\"
Case 70 To 79
a$=\"C\"
Case 80 To 89
a$=\"B\"
Case else
a$=\"A\" End Select MsgBox a$ End Sub 程序运行后，消息对话框中显示的内容为_____。
A、D B、B C、A D、C 答案： A
30.下面程序段运行后，显示的结果是_____。 Dim x If x Then Print x Else Print x +1 A、-1 B、0 C、1 D、显示出错信息 答案： C
31._____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件 B、工程 C、属性 D、方法 答案： A
32.以下四个说法中不正确的是_____。
A、可以通过双击工具箱中的控件，将控件加入窗体上 B、在窗体上选中控件，按【Del】键可删除该控件 C、VB中所有基本控件都可以改变大小 D、控件工具箱中可以添加新的控件 答案： C
33.以下说法错误的是_____。
A、通常情况下，集成环境中只显示标准工具栏，其他工具栏可通过视图菜单中的“工具栏”命令打开
B、SDI是指多文档界面，MDI是指单文档界面。在默认情况下，Visual Basic集成开发环境是单文档界面方式，可在“工具”菜单下的选项命令中的“高级”选项卡下进行MDI与SDI的互换 C、单击标准工具栏中的属性按钮可以打开属性窗口，相当于执行“视图”菜单下的“属性窗口”命令
D、当一个程序包括两个以上的工程时，这些工程构成一个工程组，其扩展名为.vbg 答案： B
34.VisualBasic中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、图表、工具、外接程序、窗口和帮助。
A、浏览 B、运行 C、属性 D、查看 答案： B
35.VisualBasic程序设计时常用的Print、Cls属于_____。
A、方法 B、事件 C、打印字库 D、属性 答案： A
36.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是____________。
A、立即窗口 B、代码窗口 C、窗体布局窗口 D、监视窗口 答案： B
37.以下关于事件的说法，正确的是_____。
A、用户可以根据需要建立新的事件
B、事件是由系统预先定义好的，能够被对象识别的动作 C、不同类型的对象所能识别的事件一定不相同 D、事件的名称是可以改变的，由用户预先定义 答案： B
38.对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_____过程。
A、调动 B、事件 C、方法 D、编译 答案： B
39.保存新建的工程时，默认的路径是_____。
A、\\ B、Windows C、VB98 D、MyDocuments 答案： C
40.5执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。
A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体 B、启动窗体和其他窗体一样可以隐藏和关闭 C、启动窗体一般作为用户工作的界面，不可更改
D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性” 答案： C
填空
==== 有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处红色一种属性，飞是一种_____。针刺是一种_____，爆破是一种_____。
答案： 空 1: 方法 空 2: 事件 空 3: 方法
Visual Basic有三种运行模式，分别是_____、运行模式和中断模式，其中_____模式可以监视表达式和变量的值。
答案： 空 1: 设计模式 【或】 设计 空 2: 中断模式 【或】 中断
要运行VB的程序可以按_____键。
答案： 空 1: F5 Visual Basic程序在运行时中，用户可通过按_____键进入中断状态。
答案： 空 1: Ctrl+Break
要把Label控件中显示的文字设置成左对齐，应设置Label控件的_____属性。
答案： 空 1: Alignment
要使文本框txt1中显示的字符为黑体，使用的语句是_____。
答案： 空 1: txt1.FontName=\"黑体\"
要把在Label控件中显示的文字颜色设置为红色，应设置Label控件的_____属性。
答案： 空 1: ForeColor
Visual Basic中的控件分为两类，一类是_____控件，另一类是ActiveX控件。
答案： 空 1: 标准
语句Print 12;Tab;24的执行结果是_____.答案： 空 1: 12 24
表示\"x和y都是正整数或都是负整数\"的VB表达式为_____。
答案： 空 1: X*Y>0 and int(x)=x and int(y)=y 【或】 (x>0 And x=Int(x) And y>0 And y=Int(y)) Or (x0 and x=Int(x) and y=0 and y=Int(y))or(x0 And x=int(x) and y=int(y) 表达式Fix(-48.65)+Int(-52.15)的值是_____。
答案： 空 1: -101
表达式7^2Mod 5^2\\3的值为_____ 答案： 空 1: 1
执行下面的程序后，b的值为_____ a=300:b=20:a=a+b:b=a-b:a=a-b 答案： 空 1: 300
下列函数调用时弹出的对话框中按钮的个数为_____。 MsgBox (\"程序非法！\",vbAbortRetryIgnore,\"消息提示\") 答案： 空 1: 3
有如下程序：
Private Sub Command1_Click( ) a=Val(InputBox(\"请输入\")) b=Val(InputBox(\"请输入\")) x=a+b If a>b Then x = a-b Text1.Text=x End Sub 运行后，从InputBox对话框中连续输入3和4，文本框中显示的是_____；若连续输入4和3，文本框中又显示的是_____。
答案： 空 1: 7 空 2: 1 程序填空
==== \'------------------------ \'【程序填空】
\'------------------------
\'题目：窗体上建立了一个文本框Text1(\"输入口令\")和一个命令按钮Command1(\"检查\")。 \' 判断密码是否正确，并显示相应提示
\' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”
\'请在_____处填入正确的内容
\'------------------------ Dim x As String
Private Sub Command1_Click()
x = Text1.Text \'**********FILL********** If x _____ \"12345678\" Then MsgBox (\"欢迎你用机!\") Else MsgBox (\"对不起，口令错\") End If Text1.Text = \"\" Text1.SetFocus End Sub Private Sub Form_Load()
Text1.Text = \"\" \'**********FILL********** Text1._____ = 8 \'**********FILL********** Text1._____ = \"*\" End Sub
答案： 位置 1: = 位置 2: MaxLength 位置 3: PawordChar
窗体设计
==== ----------------- 【窗体设计】
----------------- 题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
-----------------
1：在窗体内添加2个框架(Frame1，Frame2)，1个标
签(Label1)，2个按钮(Command1，Command2)。
并在第1个框架(Frame1)内添加1个文本框(Text1)，
在第2个框架(Frame1)中添加3个单选框(Option1， Option2，Option3)。
2：窗体设置：
设置窗体名称(Name)为\"Form7\"。
设置窗体标题(Caption)为\"VB上机试卷\"。
3：框架设置：
设置第1个框架(Frame1)的标题(Caption)为\"请输入圆的半径\"。
设置第1个框架(Frame1)中的文本框(Text1)的文本内容(Text)为空。
设置第2个框架(Frame2)的标题(Caption)为\"计算类型\"。
设置第2个框架(Frame2)中的单选框(Option1)的标题(Caption)为\"直径\"。
设置第2个框架(Frame2)中的单选框(Option2)的标题(Caption)为\"周长\"。
设置第2个框架(Frame2)中的单选框(Option3)的标题(Caption)为\"面积\"。
4：标签设置：
设置标签(Label1)d的标题(Caption)为\"圆的面积为113.09724\"。
5：按钮设置：
设置第1个按钮(Command1)的标题(Caption)为\"计算\"。 设置第2个按钮(Command2)的标题(Caption)为\"退出\"。
----------------- 【窗体设计】
----------------- 题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面：请按所给窗体的样子设计
窗体（不要求控件的尺寸一样，运行时得到所给
窗体即可，有时需要简单的事件过程）。 -----------------
1、在窗体内添加2个框架(Frame1，Frame2)。
然后在框架(Frame1)中添加1个文本框(Text1)， 1个标签(Label1)，3个按钮(Command1，Command2， Command3)。
在框架(Frame2)中添加2个列表框(List1，List2)， 2个标签(Label2，Label3)，2个按钮(Command4， Command5)。
2、窗体设置：
设置窗体名称(Name)为\"Form29\"。
设置窗体标题(Caption)为\"用户与组账号\"。
3、框架设置：
设置第1个框架(Frame1)的标题(Caption)为\"用户\"。
设置第1个框架(Frame1)中的按钮(Command1)的标题(Caption)为\"新建(&W)...\"。
设置第1个框架(Frame1)中的按钮(Command2)的标题(Caption)为\"删除(&E)\"。
设置第1个框架(Frame1)中的按钮(Command3)的标题(Caption)为\"清除密码(&L)\"。
设置第1个框架(Frame1)中的文本框(Text1)的文本(Text)为\"管理员\"。
设置第1个框架(Frame1)中的标签(Label3)的标题(Caption)为\"名称(&N):\" 设置第2个框架(Frame2)的标题(Caption)为\"组成员\"。 在第2个框架(Frame2)中的列表框(List1)中输入文本\"管理员组\"，\"用户组\"。
在第2个框架(Frame2)中的列表框(List2)中输入文本\"管理员组\"，\"用户组\"。
设置第2个框架(Frame2)中的标签(Label2)的标题(Caption)为\"可用的组(&V):\"。
设置第2个框架(Frame2)中的标签(Label3)的标题(Caption)为\"隶属于(&M):\"。
设置第2个框架(Frame2)中的按钮(Command4)的标题(Caption)为\"添加(&D)>>\"。
设置第2个框架(Frame2)中的标签(Command5)的标题(Caption)为\"
