一，选择题
1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。（1分）
A、编辑
B、文件
C、视图
D、调试
2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。（1分）
A、Form
B、Form1
C、窗体1
D、窗体
3、不属于一个工程文件（*.vbp）里的文件是____A__。（1分）
A、*.txt文件
B、*.bas文件
C、*.cls文件
D、*.frm文件
4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。（1分）
A、结构化的程序设计
B、数据处理
C、面向对象的可视化编程
D、中文支持
5、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。（1分）
A、文本框中没有内容
B、文本框的MultiLine属性为False
C、文本框的MaxLength属性为0
D、文本框的Locked属性是True
6、能够盛放其他控件，而且是最基本的对象是___A___。（1分）
A、窗体
B、图像
C、标签
D、文本
7、任何控件都具有的属性是____C__。（1分）
A、Picture
B、Caption
C、Name
D、AutoSize
8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为___D___。（1分）
A、Label1.Left = 100
B、Label1.Left = Label1.Left - 100
C、Label1.Move 100
D、Label1.Move Label1.Left + 100
9、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。（1分）
A、Visible
B、Enabled
C、Default
D、Cancel
10、以下___B___是正确的For … Next结构。（1分）
A、For x=1 To Step 10 … Next x
B、For x=3 To -3 Step -3 … Next x
C、For x=1 To x=10 … Next x
D、For x=3 To 10 Step 3 … Next y
11、能产生[10，32]之间随机整数的函数表达式为___B___。（1分）
A、Int(Rnd*22)+10
B、Int(Rnd*23)+10
C、Int(Rnd*22)+11
D、Int(Rnd*23)+11
12、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是___C___。（1分）
A、9
B、10
C、11
D、无数次
13、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是___C___。（1分）
A、Forecolor
B、BackColor
C、BackStyle
D、BorderStyle
14、Print Format(1234.234, "###.#####"); Format(1234.234, "########.##")的显示结果是___A___。（1分）
A、1234.234 1234.23
B、123.23400 1234.234
C、123.23400 1234.23
D、1234.2341234.234
15、运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是___B___。（1分）不会
A、26
B、27
C、38
D、57
16、Cls方法可以清除窗体或图片框中的__C____。（1分）
A、在设计阶段使用Picture设置的背景位图
B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字
D、以上全部内容
17、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是___C___。（1分）
A、Enabled
B、Apperance
C、AutoRedraw
D、Moveable
18、窗体文件的扩展名__D____。（1分）
A、.bas
B、.vbp
C、.exe
D、.frm
19、以下关于MsgBox的叙述中，错误的是___D___。（1分）
A、MsgBox函数返回一个整数
B、通过MsgBox函数可以设置信息框中图标和按钮的类型
D、MsgBox函数的第一个参数是一个整数，该参数只能确
C、MsgBox过程语句没有返回值
定对话框中显示的按钮数
20、能够通过标准工具栏打开的窗口是___C___。（1分）
A、代码窗口
B、设计器窗口
C、属性窗口
D、立即窗口
21、在下列逻辑表达式中，逻辑值为"真"的是__A____。（1分）
A、Not (1 > 2)
B、Not (3 + 4 < 4 + 6)
C、1 > 2 Or 2 > 3
D、2 > 1 And 3 < 2
22、下面关系运算中，输出结果为“True”的是___C___。（1分）
A、"1" + 2 = "12"
B、"1" + "2" = "3"
C、"1" & 2 = "12"
D、"1" & "2" = "3"
23、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是__B____。（1分）
A、232 232032
B、232 232
C、232.32 232.32
D、显示出错信息
24、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是__D__。（1分）
A、2
B、3
C、5
D、23
25、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + 3之后，变量iVar 的值是___C___。（1分）
A、2
B、3
C、5
D、23
26、用户自定义数据类型时，其成员不能是___B___。（1分）
A、定长字符串和数组
B、变长字符串和数组
C、货币型和日期型
D、变长字符串和货币型
27、执行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，变量c$的值为___D___。（1分）
A、Visual BASIC Programing
B、Quick Basic programing
C、QUICK Basic Programing
D、Quick BASIC Programing
28、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是___C___。（1分）
A、T >= 1.7 And W <= 52.5
B、T <= 1.7 Or W >= 52.5
C、T > 1.7 And W < 52.5
D、T > 1.7 Or W < 625
29、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是___B___。（1分）<此题目有错误，理论上B正确>
A、x = Int(Rnd * n) + m
B、x = Int(Rnd * (n–m + 1)) + m
C、x = Int(Rnd * m) + n
D、x = Int(Rnd * (n-m)) + m
30、执行语句Print Format(32548.5, "###,##0.00")，输出结果是____D__。（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
31、下列选项中，__D____不是字符串常量。（1分）
A、"你好"
B、""
C、"True"
D、#False#
32、下列不合法的常量形式是__C___。（1分）
A、"1O0"
B、100.0
C、1OE+0.5
D、Const G = 23 + 12
33、表达式Val(".123E2CD")的值是____B__。（1分）
A、.123
B、12.3
C、O
D、.123E2CD
34、下列符号中，属于Visual Basic合法变量名的是___A___。（1分）
A、x23
B、8xy
C、END
D、X8[B]
35、下列符号常量的声明中，__C____是不合法的。（1分）
A、Const a As Single = 2.6
B、Const a As String = "ab"
C、Const a As Double = Sin(1)
D、Const a = "OK"
36、表达式"Turbo" + "C" > "True" + "Basic"的值是___A___。（1分）
A、True
B、False
C、Null
D、出错信息
37、执行MsgBox 123 + 123，信息框中可以出现__C___。（1分）
A、123 + 123
B、123123
C、246
D、显示出错信息
38、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是___D___。（1分）
A、abcabc
B、ABCABC
C、65
D、97
39、Single（单精度）型数据占___B___个字节。（1分）
A、2
B、4
C、8
D、10
40、变量未赋值时，数值型变量的值为___A___。（1分）
A、O
B、空串""
C、Null
D、没任何值
41、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是___C___。（1分）
A、选择图片框，在属性窗口中选择Picture属性条，然后
B、选择图片框，然后按Del键
按回车键
C、执行语句 Picture1.Picture = LoadPicture("")
D、执行语句 Picture1.Picture = ""
42、Visual Basic的编程机制是___C___。（1分）
A、面向过程
B、面向对象
C、事件驱动
D、可视化
43、设n=10，执行n=IIF(n=3,n,-n)后，n 的值为___B__。（1分）
A、10
B、-10
C、3
D、-3
44、除了系统默认的工具箱之外，还可以通过___B___方法来增加控件。（1分）
A、执行“文件”菜单中的“添加工程”命令
B、执行“工程”菜单中的“部件”命令
C、在工具箱处执行其快捷菜单中的“添加选项卡”命令
D、执行“工程”菜单中的“添加窗体”命令
45、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是___D___。（1分）
A、窗体布局窗口
B、窗体设计窗口
C、属性窗口
D、代码窗口
46、有一个命令：Text1= "欢迎您！"，表达方式中省略了对象的___B___。（1分）
A、方法
B、属性名
C、对象名
D、标题
47、窗体设计器是用于设计___D___。（1分）
A、窗体的代码
B、对象的属性
C、应用程序的代码
D、应用程序的界面
48、以下关于MsgBox的叙述中，错误的是___D___。（1分）
A、MsgBox函数返回一个整数
B、通过MsgBox函数可以设置信息框中图标和按钮的类型
D、MsgBox函数的第一个参数是一个整数，该参数只能确
C、MsgBox过程语句没有返回值
定对话框中显示的按钮数
49、在程序运行模式能够__A___。（1分）
A、中断程序
B、添加程序
C、输入程序
D、编辑程序
50、下面四个语句中，正确的赋值语句是___A___。（1分）
A、a = a + c
B、a + c = a
C、c + a = a
D、a － c = a
51、Select Case 语句中的“表达式列表”不能是____A__。（1分）
A、变量名的列表，例如 Case x ,y ,z
B、值的列表，例如 Case "a ","b","c"
C、To 表达式，例如 Case 1 to 10
D、Is关系表达式，例如 Case Is <8
52、比较两个数中较大的数的程序段，错误的是__C____。（1分）
A、IF x >y Then max=x Else max=y
B、max=IIF(x>y , x, y)
C、IF x >y Then max=x : max=y
D、max=x: If x< y Then max=y
53、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。（1分）
A、Visible
B、Enabled
C、Default
D、Cancel
54、保存一个Visual Basic应用程序，正确的是___D___。（1分）
A、只保存工程文件(.vbp)
B、只保存窗体文件（.frm）
C、只保存标准模块文件（.bas）
D、分别保存窗体文件和工程文件
55、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是___B___。（1分）
A、4
B、5
C、6
D、7
56、语句Print "int(-23.4)= "; ; Int(-23.4)的输出结果为（1分）D
A、Int(-23.4)=-23.4
B、(-23.4)=23.4
C、Int(-23.4)=-23
D、Int(-23.4)=-24
57、下列叙述中，正确的是__B____。（1分）
B、打开一个工程文件，系统自动装入与该工程有关的窗
A、工程文件（.vbp）应用程序可以在任何计算机上运行
体文件
D、退出VB系统前要保存新创建的应用程序，只需保存
C、VB工程文件中可以没有窗体文件
工程文件（.vbp）即可
58、下列各组中，两个函数功能完全相反的是__B____。（1分）
A、Str(x)和Val(x)
B、Asc(x)和Chr(x)
C、LTrim(x)和RTrim(x)
D、Timer(x)和Time(x)
59、设a=3，b=5，则以下表达式值为假的是___A___。（1分）
A、a>=b And b> l0
B、(a>b) Or (b>2)
C、(a<0) or (b>0)
D、(5>a) And (b>2)
60、执行MsgBox 123 + 123，信息框中可以出现___A___。（1分）
A、123 + 123
B、123123
C、246
D、显示出错信息
61、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是__D____。（1分）
A、X Mod 2 = 1 And Y Mod 2 = 1
B、X Mod 2 = 1 Or Y Mod 2 = 1
C、
(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mo d 2 = 1)
D、
(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mo d 2 = 1)
62、下列符号常量的声明中，___C___是不合法的。（1分）
A、Const a As Single = 1.1
B、Const a As Integer = "12"
C、Const a As Double = Sin(1)
D、Const a = "OK"
63、以下声明语句中，错误的是___C___。（1分）
A、Const varl=123
B、Const var2="ABC"
C、Public const="计算机等级考试"
D、Static var3 as Integer
64、下面表达式中，___D___的运算结果与其他3个不同。（1分）
A、Log(Exp(-3.5))
B、Int(-3.5) + 0.5
C、-Abs(-3.5)
D、Sin(30 * 3.14 / 180)
65、Print Format(32556, "#######"); Format(32556, "###")的输出结果是___A___。（1分）
A、3255632556
B、32556—32556
C、32556-325
D、--32556325
66、下列数据中，___C___是日期型数据。（1分）
A、"01/30/2004"
B、Date("01/30/2004")
C、#01/30/2004#
D、01/30/2004
67、执行语句Print Format(32548.5, "###,##0.00")，输出结果是___D___。（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
68、InputBox函数返回值的类型为___B___。（1分）
A、数值
B、字符串
C、变体
D、数值或字符串
69、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是__B____。（1分）
A、x = Int(Rnd * n) + m
B、x = Int(Rnd * (n–m + 1)) + m
C、x = Int(Rnd * m) + n
D、x = Int(Rnd * (n-m)) + m
70、在下列逻辑表达式中，逻辑值为"真"的是_____A_。（1分）
A、Not (1 > 2)
B、Not (3 + 4 < 4 + 6)
C、1 > 2 Or 2 > 3
D、2 > 1 And 3 < 2
71、表达式Str(Len("123")) + Str(77.7) 的值是__B____。（1分）
A、377.7
B、3 77.7
C、80.7
D、12377.7
72、表达式"Turbo" + "C" > "True" + "Basic"的值是___A___。（1分）
A、True
B、False
C、Null
D、出错信息
73、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是___B___。（1分）
A、232 232032
B、232 232
C、232.32 232.32
D、显示出错信息
74、执行x = -6 ^ 2: Print Sgn(x) + Abs(x) + Int(x)的结果是___C___。（1分）
A、-36
B、1
C、-1
D、-32
75、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是__D____。（1分）
A、2
B、3
C、5
D、23
76、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是___B___。（1分）
A、0
B、1
C、随机数
D、显示出错信息
77、语句Print "int(-23.4)= "; ; Int(-23.4)的输出结果为（1分） D
A、Int(-23.4)=-23.4
B、(-23.4)=23.4
C、Int(-23.4)=-23
D、Int(-23.4)=-24
78、设a=3，b=5，则以下表达式值为假的是____A__。（1分）
A、a>=b And b> l0
B、(a>b) Or (b>2)
C、(a<0) or (b>0)
D、(5>a) And (b>2)
79、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是___A___。（1分）
A、Load
B、Click
C、DblClick
D、MouseDown
80、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是___A___。（1分）
A、2
B、26
C、27
D、38
81、启动Visual Basic后，VB为用户新建立的第一个工程的名字是____D__。（1分）
A、窗体1
B、工程
C、窗体
D、工程1
82、决定窗体标题栏显示内容的属性是__C____。（1分）
A、Text
B、Name
C、Caption
D、BackStyle
83、Select Case 语句中的“表达式列表”不能是___A___。（1分）
A、变量名的列表，例如 Case x ,y ,z
B、值的列表，例如 Case "a ","b","c"
C、To 表达式，例如 Case 1 to 10
D、Is关系表达式，例如 Case Is <8
84、若要选择Text对象的Text1_KeyPress事件，可以___C___。（1分）
A、在属性窗口中选择
B、在工程资源管理器窗口中选择
C、在代码设计窗口中利用对象列表框、过程列表框选择
D、在窗体设计窗口中双击Text1对象
85、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是___B___。（1分）
A、1个“$”
B、4个“$”
C、不显示内容
D、“*”
86、以下关于InputBox函数的叙述中，错误的是___C___。（1分）
A、InputBox函数的“提示信息参数”不能缺省
B、每执行一次InputBox函数，只能输入一个值
C、InputBox 函数的返回值是数值型的
D、要保存InputBox函数的返回值必须赋予一个变量
87、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + 3之后，变量iVar 的值是____C__。（1分）
A、2
B、3
C、5
D、23
88、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是
___D___。（1分）
A、abcabc
B、ABCABC
C、65
D、97
89、下列不合法的常量形式是__C____。（1分）
A、"1O0"
B、100.0
C、1OE+0.5
D、Const G = 23 + 12
90、执行语句age = InputBox("请输入数值", "年龄输入框", "38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是__A____。（1分）
A、变量Age的值是数值20
B、对话框标题栏中显示的是"年龄输入框"
C、对话框的默认值是38
D、对话框的提示文字为"请输入数值"
91、执行语句Print Format(32548.5, "###,##0.00")，输出结果是____D__。（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
92、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是___B___。（1分）
A、x = Int(Rnd * n) + m
B、x = Int(Rnd * (n–m + 1)) + m
C、x = Int(Rnd * m) + n
D、x = Int(Rnd * (n-m)) + m
93、下列声明语句中，错误的是___B___。（1分）
A、Const varl=123
B、Dim var2='ABC'
C、Const y="计算机等级考试"
D、Static var3 as Integer
94、下面关系运算中，输出结果为“True”的是___C___。（1分）
A、"1" + 2 = "12"
B、"1" + "2" = "3"
C、"1" & 2 = "12"
D、"1" & "2" = "3"
95、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。（1分）
A、输出平均值
B、将一个实数四舍五入取整并输出
C、输出绝对值
D、舍去一个实数的小数部分并输出
96、执行程序 For n = 1 To 3: Cls: Print "n="; n;: Next n 后, 输出结果是____C__。（1分）
A、123
B、3
C、n= 3
D、n= 1 n= 2 n= 3
97、方法Print "等级";"考试"，输出的结果是____A__。（1分）
A、等级考试
B、等级;考试
C、"等级考试"
D、"等级";"考试"
98、Single（单精度）型数据占____B__个字节。（1分）
A、2
B、4
C、8
D、10
99、表达式Val(".123E2CD")的值是____B__。（1分）
A、.123
B、12.3
C、O
D、.123E2CD
100、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是__B____。（1分）
A、4
B、5
C、6
D、7
101、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为___C___。（1分）
A、
Private Sub Command1_Click(): Command1.Caption = "计算机考试": End Sub
B、Private Sub Command1_Click(): Text1 = "计算机考试": End Sub
C、Private Sub Text1_Change(): Command1.Caption = "计算机考试": End Sub
D、Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub
102、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是__B____。（1分）
A、文本框中没有内容
B、文本框的MultiLine属性为False
C、文本框的MaxLength属性为0
D、文本框的Locked属性是True
103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后s的值是____C__（1分）
A、10
B、11
C、12
D、15
104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是___B___。（1分）
A、0
B、1
C、随机数
D、显示出错信息
105、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。（1分）
A、编辑
B、文件
C、视图
D、调试
106、以下关于InputBox函数的叙述中，错误的是___C___。（1分）
A、InputBox函数的“提示信息参数”不能缺省
B、每执行一次InputBox函数，只能输入一个值
C、InputBox 函数的返回值是数值型的
D、要保存InputBox函数的返回值必须赋予一个变量107、能产生[10，32]之间随机整数的函数表达式为___B___。（1分）
A、Int(Rnd*22)+10
B、Int(Rnd*23)+10
C、Int(Rnd*22)+11
D、Int(Rnd*23)+11
108、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是__A____。（1分）
A、TestDate = #1/1/2002#
B、TestDate = #"1/1/2002"#
C、TestDate = Date("1/1/2002")
D、TestDate = Format("m/d/yy", "1/l/2002")
109、已知下列程序段：a = 3: b = 4: Print b > a ，输出的结果是____A__。（1分）
A、True
B、False
C、4>3
D、显示出错信息
110、表达式"Turbo" + "C" > "True" + "Basic"的值是__A___。（1分）
A、True
B、False
C、Null
D、出错信息
111、语句T = MsgBox("程序执行了非法操作", vbAbortRetryIgnore, "提示信息")的执行后，可以在对话框中显示__C____个按钮。（1分）
A、1
B、2
C、3
D、4
112、如果将布尔常量值True赋给一个整型变量，则整型变量的值为____B__。（1分）
A、O
B、-1
C、True
D、False
113、执行语句age = InputBox("请输入数值", "年龄输入框", "38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是___A___。（1分）
A、变量Age的值是数值20
B、对话框标题栏中显示的是"年龄输入框"
C、对话框的默认值是38
D、对话框的提示文字为"请输入数值"
114、执行程序段：Const c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$，输出的结果是___D___。（1分）
A、Henan
B、Zhengzhou
C、Daxue
D、显示出错信息
115、执行程序段：
a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，变量c$的值为__D____。（1分）
A、Visual BASIC Programing
B、Quick Basic programing
C、QUICK Basic Programing
D、Quick BASIC Programing
116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。（1分）
A、输出平均值
B、将一个实数四舍五入取整并输出
C、输出绝对值
D、舍去一个实数的小数部分并输出
117、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是___D___。（1分）
A、abcabc
B、ABCABC
C、65
D、97
118、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是___D___。（1分）
A、X Mod 2 = 1 And Y Mod 2 = 1
B、X Mod 2 = 1 Or Y Mod 2 = 1
C、
(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mo d 2 = 1)
D、
(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mo d 2 = 1)
119、下列符号中，属于Visual Basic合法变量名的是__A____。（1分）
A、x23
B、8xy
C、END
二，填空题
1、* 求正整数M和N（M>N）的最大公约数。
* 程序段如下：
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
Print "最大公约数为: "; N
2、* 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As String, b As Integer
a = InputBox ("请输入一个数字")
b = InputBox("请输入一个数字")
Print "s"; a; b; "ok"
D、X8[B] End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：s321 456 ok。
3、* 计算s = (1-1/2)*(1-1/3)*...(1-1/10)
s = 1
For x = 2 To 10
s = s * (1 - 1 / x)
Next x
Print s
4、* 求菲波那契数列（1、1、2、3、
5、8...）的第3到10项的值。
* 程序段如下：
A(1) = 1
A(2) = 1
I = 3
Do While I <= 10
A(I) = A(I - 1) + A(I - 2)
Print "第" & I & "项为: "; A(I)
I = I + 1
Loop
5、* 求S=1！+2！+…10!
* 程序段如下：
s = 0
t = 1
For i = 1 To 10
t= t * i
s = s + t
Next i
Print s
6、* 下面的程序在运行结束时一共执行循环体5 次，最后打印结果为16 。
For i = 1 To 10 Step 1
i = i + 1
j = j + 1
Next
Print i + j
7、* 求SUM=1×2×3+4×5×6+7×8×9+…28×29×30
* 程序段如下：
sum=0
I = 2
Do While I <= 30
Sum = Sum + (I - 1) * I * (I + 1)
I =I + 3
Loop
Print "总和为："; Sum
8、* 设在窗体上面有两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程，则程序运行结果为：123321。
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text = "123"
Text2.Text = "321"
Print a
End Sub
9、* 判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。
* 程序段如下：
I = 1
N=InputBox("请输入N的值：")
Do While I <= N - 1
If N Mod I = 0 Then S = S + I
I = I + 1
Loop
If N = S Then
Print "是完全数"
else
Print "不是完全数"
End If
10、* 计算 E=1+1/1!+1/2!+...1/N!，精确到1E-6。
n = 0: t = 1
Term = 1
Do
n = n + 1
t = t / n
Term = Term + t
Loop While t >= 0.000001
Print Term
11、* 下面程序用于求小于和等于50的自然数的平方和，请填空。
* 程序段如下：
private sub form_click()
dim sum as long
sum=0
for i=1 to 50
sum=sum +i^2
next i
print sum
end sum
12、* 下面程序的功能是随机产生一个三位数正整数，将该数和该数的逆序同时输出。Private Sub Form_Click()
Dim a%, s As String, c As String
Randomize
a = Int(Rnd * (999 - 100 + 1) + 100)
s = Format(a)
c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1)
Print "三位数是" & a
Print a & "的逆序是" & c
End Sub
13、* 使用Select Case结构将一年中的12个月份，分成四个季节输出。
Private Sub Form_Click()
Dim m%
m = InputBox("请输入月份")
Select case m
Case 1, 2, 3
Print m & "月是第一季度"
Case 4, 5, 6
Print m & "月是第二季度"
Case 7, 8, 9
Print m & "月是第三季度"
Case 10, 11, 12
Print m & "月是第四季度"
End Select
End Sub
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/c86097036.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
1、一串字符求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, q, w, r s = TextBox1、Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1、Text = "字母有" & q & "个数字有" & w & "个其她有" & r & "个" End Sub 2、一串字符以？结尾,求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, a, z, x, c, i s = TextBox1、Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1、Text = z & x & c End Sub 3、给定一个数字求它就是几位数字,如(1)、12345 (2)、-12345 (3)、123、45 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, j s = TextBox1、Text c = Trim(Str(s)) If Int(c) = c Then
最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() Text1.Caption = "计算机等级考试" End Sub D、Private Sub Command1_Click() Text1.Text = "计算机等级考试" End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。
A、, B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y 4、下面（）是合法的字符常量。 A、ABC$ B、“ABC” C、‘ABC’ D、ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为 A、"a" B、"b" C、"B" D、"A" 8、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数")
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。（√） 2、Print_Text 是一个不合法的变量名。（×） 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√） 4、设置字体大小应使用Font属性（×） 5、Sub过程可以实现嵌套调用（√） 6、IIF函数中的三个参数都不能省略。（√） 7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√） 8、当终值小于初值时，步长为负数。（√） 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（√） 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1．Print Format（123，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
判断题： 1、VB中，每一种对象有着不同的属性设置，每一种对象能识别的事件也不同。（对） 2、Val(“123hello”) 和Val(“hello123”)返回值一样。（错） 3、赋值语句X=123+”123”和X=”123”+123中，X的值一样。（对） 4、赋值语句X=”123”+”123”和X=”123”+123中，X的值一样。（错） 5、执行Print 5*8 和Print “5*8 ”语句运行结果一样。（错） 6、标签框和文本框内容的最大区别就是在程序运行过程中标签框的内容不可编辑，而文本框的内容可编辑。（对） 7、用vb编写程序时，标签控件能代替文本框控件使用. （错） 8、VB程序代码中，Label1.Caption=””的作用是该标签框中得内容清除。（对） 9、变量名的长度最长可达1024个字符。（错）225个 10、sum和int.sum都可以作为VB的变量名。（错） 11、下列程序的运行结果是15 （对） Dim s as Double Dim i as Integer S=0 I=1 Do While i<=5 I=i+2 S=s+i Loop Label1.Caption=s 12、对于熟练的程序员，可以省略程序的调试过程。（错） 13、在VB中，使用if语句就可以根据条件改变程序的执行路径。（对） 14、VB编程的一般步骤应该是：分析问题——设计界面——编写代码——调试与运行程序。（对） 单项选择题 1、小明想用VB设计一个加法器程序，做了如下规划，下列说法错误的是。（D） A、程序运行时标题栏显示加法器 B、前两个标签框显示的内容分别为“+”和“=” C、Command1用来计算出结果 D、使用了三个命令按钮、两个标签框和三个文本框 2、从下面的对象属性可以看出，该对象的标题为（A）
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。 Dim x As Integer, y As Integer, z As Integer Dim c As Single, s As Single x = Int(Rnd * 201 + 100) y = Int(Rnd * 201 + 100) z = Int(Rnd * 201 + 100) If x + y > z And x + z > y And y + z > x Then c = (x + y + z) / 2 s = Sqr(c * (c - x) * (c - y) * (c - z)) Print "三角形面积是：" & s Else Print "构不成三角形" End If 2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[] 100 90、之间的学生人数。 , Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j% Dim x As Single For m = 1 To 60 '产生60名学生的分数 x = Rnd * 101 '产生0－100的分数 Print x; If x >= 90 Then a = a + 1 ElseIf x >= 80 Then b = b + 1 ElseIf x >= 70 Then c = c + 1 ElseIf x >= 60 Then d = d + 1 ElseIf x >= 50 Then e = e + 1 ElseIf x >= 40 Then f = f + 1 ElseIf x >= 30 Then g = g + 1 ElseIf x >= 20 Then h = h + 1 ElseIf x >= 10 Then i = i + 1 Else
大学V B考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/c86097036.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏
9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 B、将控件的TabStop属性设置为True
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
1.一串字符求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, q, w, r s = TextBox1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub 2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, z, x, c, i s = TextBox1.Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1.Text = z & x & c End Sub 3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, j s = TextBox1.Text c = Trim(Str(s)) If Int(c) = c Then
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0