第二部分 VB练习题与答案
第2章数据类型与表达式
一、选择题
1. 一个语句行内写多条语句时，每个语句之间用( )符号分隔。
A. ，
B. ：
C. 、
D. ；
2. 一句语句要在下一行继续写，用( )符号作为续行符。
A. ＋
B. –
C. _
D. …
3. 下面( )是合法的变量名。
A. X_yz
B. 123ab
C. integer
D. X-Y
4. 下面( )是不合法的整数。
A. 100
B. ＆Ol00
C. ＆H100
D. ％100
5. 下面( )是合法的字符常量。
A. ABC＄
B. "ABC"
C. 'ABC'
D. ABC
6. 下面( )是合法的单精度型变量。
A. num!
B. sum％
C. xinte＄
D. mm＃
7. 下面( )是不合法的单精度常数。
A. 100！
B. 100.0
C. 1E+2
D. 100.0D+2
8. 表达式16/4-2^5*8/4 MOD 5\2的值为( )。
A. 14
B. 4
C. 20
D. 2
9. 数学关系3≤x＜10表示成正确的VB表达式为( )。
A. 3＜=X＜10
B. 3＜＝x AND x＜10
C. x＞＝3 OR x＜10
D. 3＜＝x AND＜10
10. “＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。
A. ＼
B. ／
C. Mod
D. *
11. 与数学表达式ab/3cd对应的不正确Visual Basic 6.0表达式是( )。
A. a*b／(3*c*d)
B. a／3*b／c／d
C. a*b／3／c／d
D. a*b／3*c*d
12. Rnd函数不可能为下列( )值。
A. 0
B. 1
C. 0.1234
D. 0.0005
13. Int(198. 555*100＋0.5)／100的值( )。
A. 198
B. 199. 6
C. 198. 56
D. 200
14. 已知，A＄＝"12345678"，则表达式Val(Left (A$,4)+Mid(A$,4,2))的值为( )。
A. 123456
B. 123445
C. 8
D. 6
15. 表达式Len("123程序设计ABC")的值是( )。
A. 10
B. 14
C. 20
D. 17
16. 下面正确的赋值语句是( )。
A. x＋y＝30
B. v＝π*r*r
C. y=x＋30
D. 3y＝x
17. 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )。
A. x＝1：y＝1：z=l
B. x=1，y=1，z=1
C. x=y＝z=1
D. xyz=1
18. 赋值语句：a＝123＋Mid("123456",3,2)执行后，a变量中的值是( )。
A. "12334"
B. 123
C. 12334
D. 157
19. 赋值语句：a＝123 & Mid("123456",3,2)执行后，a变量中的值是( )。
A. "12334"
B. 123
C. 12334
D. 157
二、填空题
1. 在VB中，1234、123456＆、1.246E+5、1.2346D＋5四个常数分别表示_____________、___________、____________、______________类型。
2. 整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是____________________________________________。
3. 数学表达式3
+
sin+
?的VB算术表达式为________________。
ln(
45
)x2
4. 表示x是5的倍数或是9的倍数的逻辑表达式为______________________。
5. 已知a＝3.5，b=5.0，c=2.5，d＝True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_________________。
6. Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别是________、____________、____________、____________、____________、____________。
7. 表达式Ucase(Mid("hangzhouxihu",3,4))的值是______________。
第二部分练习题与答案
8. 在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式是__________________。
9. 表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为______________。
三、问答题
1. Visual Basic提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么?其类型符又是什么？
2. 哪种数据类型需要的内存容量最少，且可存储诸如
3.2345这样的值？
3. 将数字字符串转换成数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换，用什么函数？
4. Mid("什么是ASCII编码"，3,6)的结果?
第3章 VB语言基础
一、选择题
1. VB提供了结构化程序设计的三种基本结构，三种基本结构是( )。
A. 递归结构、选择结构、循环结构
B. 选择结构、过程结构、顺序结构
C. 过程结构、输入输出结构、转向结构
D. 选择结构、循环结构、顺序结构
2. 下面程序段运行后，显示的结果是( )。
Dim x
If x Then Print x Else Print x+1
A. 1
B. 0
C. –1
D. 显示出错信息
3. 语句If x＝1 Then y=1，下列说法正确的是( )。
A. x=1和y=l均为赋值语句
B. x=1和y=l均为关系表达式
C. x=1为关系表达式，y=1为赋值语句
D. x=1为赋值语句，y=1为关系表达式
4. 下面程序段，显示的结果是( )。
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. 不通过
5. 以下( )是正确的For…Next结构。
A. For x＝1 to Step 10
B. For x=3 To-3 Step -3
…… ......
Next x Next x
C. For x= l To 10
D. For x＝3 To 10 Step 3
re：…... .....
Next x Next y
If i＝10 Then Go To re
6. 下列循环语句中，能正常结束循环的是( )。
A. i＝5
B. i=1
Do Do
i＝i+1 i=i+2
Loop Until i＜0 Loop Until i＝10
C. i＝10
D. i=6
Do Do
j＝i+l i=i-2
Loop Until i＞0 Loop Until i＝1
7. 哪个程序段不能分别正确显示1！、2！、3！、4！的值？( )
A. For i＝1 To 4
B. For i＝1 To 4
n=1 For j＝1 To i
For j＝1 To i n=1
n＝n*j n＝n*j
Next j Next j
Print n Print n
Next i Next i
C. n＝1
D. n＝1
For j＝l To 4 j=1
n＝n*j Do while j＜＝4
Print n n＝n*j
Next j Print n
j=j＋l
第二部分练习题与答案
Loop
二、编程题
1. 输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能则求出三角形的面积。
2. 编一程序：根据上网时间计算上网费用。计算的方法如下：为了鼓励多上网，每月收费最多不超过100元。
30元基数＜10 h
费用＝每小时2元10～60 h
每小时1.5元＞60 h
3. 有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?
4. 一个球从100 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？
5. 有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17 m和27 m，问分隔成a、b各多少段后，剩余的残料r最少？
6. 小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？
7. 某次大奖赛，有7个评委打分，满分为100分。对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。编写程序输入评委的打分，输出参赛者的得分。
8. 输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
9. 由键盘输入一个正整数，找出大于或等于该数的第一个质数。
10. “完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3,因而6就是完备数。编程找出1～1000之间的全部“完备数”。
11. 勾股定理中三个数的关系是：a^2 + b^2 =c^2。编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。
12. 编写程序，打印如下的乘积表：
* 3 6 9 12
15
16
17
18
13. 一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位正整数，请找到另一个两位正整数，使得这两
个两位正整数之和等于它们各自的对调数之和，若找不到，则输出“查找失败”。例如：32+12=21+23。（要求：在程序运行时从键盘输入给定的两位正整数）
14. 有一数列：1、1、2、3、5、8、13、21…，求出这个数列的前20项之和。
15. 把一个16进制数转换成一个10进制数。
16. 编写程序，单击窗体时在窗体上打印出如下所示的图形。
*
***
*****
*******
*********
*******
*****
***
*
17. 编写程序，输出下列三角形：(要求用循环做，非循环不给分)
G
FG
EFG
DEFG
CDEFG
BCDEFG
ABCDEFG
18. 编程输入一批数据，若输入数据为纯数字时，求累加和，非纯数字不累加。输入"Y"结束输入，输出累加和。(用InputBox()输入数据)
19. 求公式：e=1+1/1!+1/2!+1/3!+……+1/n! 直到n=20时的e值。
20. 已知sin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+…，设计一个程序，输入x，通过累加所有绝对值大于等于0.000001的项来计算sin(x)的值。
第8章标准控件的使用
一、选择题
1. 文本框的属性不包括( )。
A. Caption
B. Text
C. Name
D. Top
2. 在属性窗口中设置命令按钮的Caption属性为"&End"，则( )是该命令按钮的快捷访问键。
A. Alt+E
B. Ctrl+E
C. Shift+E
D. Ctrl+Shift+E
第二部分练习题与答案
3. 设置命令按钮的( )属性值为False，可以使命令按钮处于不可用状态。
A. Value
B. Enabled
C. Default
D. Cancel
4. 下列设置中，可以使计时器Timer1停止计时的是( )。
A. Timer1.Locked=True
B. Timer1.Locked=False
C. Timer1.Enabled=True
D. Timer1.Enabled=False
5. 设置标签的的显示内容的属性是( )。
A. Name
B. Text
C. Caption
D. Top
12. 下列不能接收焦点的控件是( )。
A. 命令按钮
B. 标签框
C. 文本框
D. 单选按钮
13. 下列控件中( )不能触发GetFocus和LostFocus事件。
A. 命令按钮
B. 组合框
C. 复选按钮
D. 计时器
16. 在窗体上有一个文本框控件，名称为Text1；一个计时器控件，名称为Timer1。要求每秒钟在文本框中显示一次当前时间。请将程序填完全。
Private Sub Timer1_【】( )
Text1=Time
End Sub
A. Visible
B. Interval
C. Timer
D. Enabled
17. 下列事件过程的功能是：在加载窗体时，启动计时器，并使计时器每隔1秒钟触发一次Timer事件。请填空。
Private Sub Form_Load( )
【】
End Sub
A. Timer1.Interval = 1000
B. Timer1.Interval = 1
C. Timer1.Enabled = 1000
D. Timer1.Enabled = 1
二、填空题
1. 密码验证程序。在窗体上有一个标签，名称为Label1，Caption属性值为"密码"；一个文本框，名称为Text1；一个命令按钮，名称为Command1；并有如下两个事件过程。请将程序填完全。
Private Sub Form_Load() '设置Text1的属性,使输入的字符全部显示为*
Text1. ________________ = "*"
End Sub
Private Sub Command1_Click() ' 验证Text1中输入的密码是否正确,不区分大小写
If Ucase(Text1. ________________) = "ABC" Then MsgBox "密码正确"
Else
MsgBox "密码错误"
End If
End Sub
第2章答案
一、选择题
二、填空题
1. 整型、长整型、单精度型、双精度型
2. (x mod 10)*10+x\10
3. sin(45*3.14/180)+sqr(log(2*x)+3)
4. x mod 5=0 or x mod 9=0
5. False
6. -4、3、-3、3、-4、4
7. NGZH
8. x＞0 And y＞0 Or x＜0 And y＜0
9. UCase(s)＞＝"A" And UCase(s)<="Z"
三、问答题(答案略)
第3章答案
一、选择题
二、编程题
1.
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim s As Single, area As Single
a = InputBox("请输入边长a")
b = InputBox("请输入边长b")
第二部分练习题与答案
c = InputBox("请输入边长c")
If a + b > c And a + c > b And b + c > a Then
Print "能构成三角形"
s = (a + b + c) / 2
area = Sqr(s * (s–a) * (s–b) * (s-c )
Print "面积为："; area
Else
Print "不能构成三角形"
End If
End Sub
2.
Private Sub Command1_Click()
Dim a As Integer, page As Single
a = Val(InputBox("请输入上网的时长"))
If a > 0 Then
Select Case a
Case Is < 10
page = 30
Case Is < 60
page = a * 2
Case Else
page = a * 1.5
End Select
Else
MsgBox "没有上网，无需交费"
End If
If page > 100 Then page = 100
Print "您本月共上网"; a; "小时，需交费："; page; "元"
End Sub
3.
Private Sub Command1_Click()
Dim a As Integer, i As Integer
Do While True
i = i + 1
If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 _And i Mod 7 = 0 Then
Print "该阶梯至少有"; i; "阶"
Exit Do
End If
Loop
End Sub
4.
Private Sub Command1_Click()
Dim i As Integer, s As Single, h As Single
h = 10
For i = 2 To 10
s = s + h
h = h / 2
s = s + h
Next i
Print "共经过"; s; "米。最后一次反弹高度为"; h
End Sub
5.
Private Sub Command1_Click()
Dim i As Integer, r As Integer, a As Integer, b As Integer，min As Integer min = 17
For i = 0 To 11
r = (321 - 27 * i) Mod 17
If r < min Then min = r: a = i: b = (321 - 27 * i) / 17 Next i
Print r, a, b
End Sub
6.
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 1
For i = 6 To 1 Step -1
s = (s + 1) * 2
Next i
Print s
End Sub
7.
Private Sub Command1_Click()
Dim Max As Integer, min As Integer
Dim i As Integer, s As Integer, f As Integer
第二部分练习题与答案
Max = 0
min = 100
For i = 1 To 7
f = InputBox("请输入评委的打分")
If f > Max Then Max = f
If f < min Then min = f
s = s + f
Next i
aver = (s - Max - min) / 5
Print "参赛者最后得分为："; aver, Max, min
End Sub
8.
Private Sub Command1_Click()
Dim str1 As String, str2 As String
Dim i As Integer, k As Integer
str1 = InputBox("")
str2 = ""
k = Len(str1)
For i = k To 1 Step -1
str2 = str2 + Mid(str1, i, 1)
Next i
Print str2
End Sub
9.
Private Sub Command1_Click()
Dim i As Integer, x As Integer, j As Boolean
x = InputBox("请输入一个数")
Do While True
x = x + 1
For i = 2 To Sqr(x)
j = True
If x Mod i = 0 Then j = False: Exit For
Next i
If j Then Exit Do
Loop
Print x
End Sub
10.
Private Sub Command1_Click()
Dim i As Integer, a As Integer
Dim s As Integer
For i = 1 To 1000
a = 2: s = 1
Do While a < i
If i Mod a = 0 Then
s = s + a
End If
a = a + 1
Loop
If s = i Then
Print i
End If
Next i
End Sub
11.
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
For a = 1 To 100
For b = a To 100
For c = b To 100
If a ^ 2 + b ^ 2 = c ^ 2 Then
Print "勾股定理整数组合"; a, b, c
End If
Next c
Next b
Next a
End Sub
12.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Print " * 3 6 9 12"
For i = 15 To 18
Print i; " ";
For j = 3 To 12 Step 3
Print i * j; " ";
第二部分练习题与答案
Next j
Next i
End Sub
13.
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer Dim i As Integer, j As Integer, k As Integer, l As Integer
a = InputBox("")
i = a \ 10
j = a Mod 10
c = j * 10 + i
For b = 10 To 99
k = b \ 10
l = b Mod 10
d = l * 10 + k
If a + b = c + d Then Print a; "的对调数为"; b Next b
End Sub
14.
Private Sub Command1_Click()
Dim f1 As Single, f2 As Single, f3 As Single
Dim i As Integer, j As Integer, n As Integer
Dim sum As Single
f1 = 1
f2 = 1
sum = 2
Do While i <= 20-3
f3 = f1 + f2
f1 = f2
f2 = f3
sum = sum + f3
i = i + 1
Loop
Print sum
End Sub
15.
Private Sub Command1_Click()
Dim a As Integer, k As String, h As Integer, s As Integer
a = InputBox("请输入一个16进制数")
k = Trim(Str(a) )
h = Len(k)
s = a Mod 10
For i = h-1 To 1 Step-1
s = s + Val(Mid(k, i, 1)) * 16 ^ (h-i)
Next i
Print "16进制数："; a; "转换为10进制数是："; s
End Sub
16.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
j = j + 1
For i = -4 To 4
Print Tab(20 + Abs(i));
For j = 1 To 9 -Abs(2 * i)
Print "*";
Next j
Next i
End Sub
17.
Private Sub Command1_Click()
Dim a As String, b As String, i As Integer, j As Integer
Dim s As Integer, t As Integer, k As Integer, m As Integer
a = "ABCDEFG"
k = Len(a)
For i = 1 To k
Print Right(a, i)
Next i
End Sub
18.
Private Sub Command1_Click()
Dim x, s As Single, bz As String
Do While UCase(bz) < > "Y"
x = InputBox("请输入相加的值")
If Val(x) = x Then
第二部分练习题与答案
s = s + x
End If
bz = InputBox("是否结束？(Y/N)")
Loop
Print s
End Sub
19.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As Single, h As Single, l As Single, k!
k = 1
s = 1
For i = 1 To 20
k = k * i
s = s + 1 / k
Next i
Print s
End Sub
20.
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim x As Single, sum As Single
Dim h As Single, k As Single
x = InputBox("请输入x的值")
h = 1
k = 1
Do
i = i + 1
h = h * x
k = k * i
If i Mod 2 = 1 Then
j = j + 1
sum = sum + (-1) ^ (j + 1) * h / k
End If
Loop While Abs(h / k) > 10 ^ (-6)
Print sum
End Sub
第8章答案
一、选择题
二、填空题
1. A. PasswordChar B. Text
2. A. 10 10 B. 58 58
3. A. List1_DblClick() B. ListIndex C. List1.Text
4. A. Change B. Value
第9章答案
1. Visual Basic中的菜单有两种，分别是弹出式菜单、下拉式菜单。菜单以分组的形式组织多个命令或操作，为用户灵活操作应用程序提供了便捷的手段。
2. 可以在系统的“工具”菜单中选择“菜单编辑器”，或在“工具栏”上单击“菜单编辑器”按钮都可以打开菜单编辑器，或在设计窗口中在右键快捷菜单中选择“菜单编辑器”。
3. 先使用菜单编辑器编辑好至少包含一个菜单项的菜单（与设计一般菜单类似），在程序中使用PopupMenu方法来显示弹出菜单。
4. ToolBar控件包含用来创建工具栏的Button 对象的集合。一般情况下，工具栏中的按钮与应用菜单中的菜单项相对应，可以用它们来访问应用程序最常用的功能和命令。Toolbar 控件也可以包含其他控件，例如ComboBox控件或TextBox控件。常见的用途如下：
①用一致的工具栏为不同应用程序提供统一的界面。
②为常用功能，例如文件操作，提供简便的访问方法。
③为应用程序提供图形化的直观界面。
ImageList 控件包含ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。ImageList控件不能独立使用，只是作为一个便于向其他控件提供图像的资料中心。
ImageList 控件包含了一个图像的集合，这些图像可以被其他Windows 公共控件使用，特别是ListView、TreeView、TabStrip和ToolBar控件。例如，在ToolBar控件的按钮上显示的所有图像都可以用ImageList 控件存储。
ImageList可能的用途如下：
存储表示打开文件夹、关闭文件夹和文档的图像。这些图像可以动态地分配给TreeView 控件的Node 对象，以便在节点展开或折叠时表示它的不同状态，或者表示节点是文档还是文件夹。
存储表示一般计算机操作，例如保存、打开以及打印文件的图像。这样就可以将这些图像分配给应用程序中Toolbar控件上的Button对象。
存储表示拖放操作的图像，例如MousePointer图标和DragIcons。将ImageList控件与
第二部分练习题与答案
Toolbar控件相关联。
工具栏通常用图标代表应用程序的功能。例如，软盘的图标一般被理解为“保存文件”功能。要使工具栏能够显示这样的图像，必须首先将ImageList 控件与Toolbar 控件相关联。这项工作在设计时和运行时均可完成。
在设计时将ImageList控件和ToolBar控件相关联
在ImageList控件中装入用于ToolBar的图像。
用鼠标右键单击ToolBar 控件，并单击“属性”打开“属性页”对话框。
在“通用”选项卡中，单击“图像列表”框，选择需要的ImageList控件。
在运行时将ImageList控件与ToolBar控件相关联，只需将ImageList属性设置为ImageList 控件的名称，如下面的示例所示：
Private Sub Form_Load()
'Toolbar 控件名为“tlbTools”，
'ImageList 控件名为“imlTools”
tlbTools.ImageList = imlTools
End Sub
5.
要手工创建工具栏，请按照以下步骤执行：
(1) 在MDI窗体上放置一个图片框。
图片框的宽度会自动伸展，直到填满MDI窗体工作空间。工作空间就是窗体边框以内的区域，不包括标题条、菜单栏或所有的工具栏、状态栏，或者可能在窗体上的滚动条。
注意：只能把那些直接支持Align属性的控件放置在MDI窗体上（图片框是支持这一属性的惟一的标准控件）。
(2) 在图片框中，放置任何想在工具栏上显示的控件。
典型地，用CommandButton或Image 控件来创建工具栏按钮。
要在图片框中添加控件，单击工具栏中的控件按钮，然后在图片框中画出它。
注意当MDI窗体中包含了图片框时，该MDI 窗体的内部区域不包括图片框在内。例如：MDI 窗体的ScaleHeigh 属性返回MDI 窗体的内部高度，这个高度已不包括图片框的高度。
(3) 设置设计时属性。
使用工具栏的一个好处是可以显示一个形象的命令图示。Image 控件是作为工具栏按钮的一个很好的选择，因为可以用它来显示一个位图。在设计时设置其Picture 属性来显示一个位图。这样，当该按钮被单击时，即能提供一个命令执行的可见信息。也可以通过设置按钮的ToolTipText属性来使用工具提示，这样，当用户把鼠标指针保持在一个按钮上时，就可以显示出该工具栏按钮的名称。
(4) 编写代码。
因为工具栏频繁地用于提供对其他命令的快捷访问，因而在大部分时间内都是从每一个按钮的Click事件中调用其他过程，比如对应的菜单命令。
第10章答案
1. 对话框根据工作时是否允许在不同窗体之间切换焦点可分为：模式和非模式对话框。
根据对话框的生成方式可分为：由CommonDialog控件生成的通用对话框，直接使用窗体作为对话框，使用InputBox和MsgBox函数生成对话框。
2. 要自定义现存的对话框，请按照以下步骤执行：
(1) 从“工程”菜单中选取“添加窗体”，在工程中添加一现存的窗体。
(2) 从“文件”菜单中选取“filename 另存为”，并输入新的文件名（这可以防止改变已存在的窗体版本）。
(3) 根据需要自定义窗体的外观。
(4) 在代码窗口中自定义事件过程。
要创建新的对话框，请按照以下步骤执行：
从“工程”菜单中选取“添加窗体”。或者在工具栏上单击“窗体”按钮，创建新的窗体。如有必要，自定义窗体外观。在“代码”窗口中自定义事件过程。
3. 从“工程”菜单中选定“部件”，将控件添加到工具箱中。在标记对话框的“控件”中找到“Microsoft Common 的Dialog Control 6.0”，并选定控件，然后单击“确定”按钮。
4. 不能改变大小。在程序中使用如下方法显示不同的对话框。
5. 设置CommonDialog控件的DialogTitle属性。
6. 可以设置Filter 属性，这样对话框就只显示某种文件类型，如文本文件。
7. 在运行时，当用户选择一个文件，“关闭”对话框时，FileName 属性既为选定的文件名。
第11章答案
1. 可使用对象的ScaleLeft、ScaleTop、ScaleWidth 和ScaleHeight 这些属性，来创建自定义刻度。
一个更有效的改变坐标系统的途径，不是设置个别属性，而是使用Scale 方法。可使用下述的语法，指定自定义刻度：
[object.]Scale (x1, y1) – (x2, y2)
x1和y1的值，决定了ScaleLeft和ScaleTop属性的设置值。两个x坐标之间的差值和两个y坐标之间的差值，分别决定了ScaleWidth和ScaleHeight属性的设置值。
2. ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight 和ScaleMode
第二部分练习题与答案
3. 在对象上画圆、椭圆或弧。
语法：
object.Circle [Step] (x, y), radius, [color, start, end, aspect]
Circle 方法的语法有如下的对象限定符和部分：
说明：
①想要填充圆，使用圆或椭圆所属对象的FillColor和FillStyle属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆或扇形。
②画部分圆或椭圆时，如果start为负，Circle画一半径到start，并将角度处理为正的；如果end为负，Circle画一半径到end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。
③画圆、椭圆或弧时线段的粗细取决于DrawWidth属性值。在背景上画圆的方法取决于DrawMode和DrawStyle属性值。
④画角度为0的扇形时，要画出一条半径（向右画一水平线段），这时给start规定一很小的负值，不要给0。
⑤可以省略语法中间的某个参数，但不能省略分隔参数的逗号。被指定的最后一个参数后面的逗号是可以省略的。
Circle 执行时，CurrentX和CurrentY属性被参数设置为中心点。
4. 通过在多个图片之间进行轮转，可以创建动画。需要应用程序进行选择当前图像所用位图的操作，可以使用控件数组对动画中各个图片进行控制的。
另一种实现动画的方法是改变图形对象或控件的位置。
5. 程序代码
Private Sub PSetDemo()
' 创建随机RGB颜色
R = 255 * Rnd
G = 255 * Rnd
B = 255 * Rnd
' XPos 决定彩色点在窗体中的随机水平位置
XPos = Rnd * ScaleWidth
' YPos 决定彩色点在窗体中的随机垂直位置
YPos = Rnd * ScaleHeight
' 以随机色在XPos, YPos 画一个彩色点
PSet (XPos, YPos), RGB(R, G, B.
End Sub
第12章答案
1. 几乎所有类型数据库。
2. 可以通过DAO、ADO或数据环境方式来访问数据库。操作数据可以通过Command 对象对连接的数据库进行操作或对RecordSet对象进行操作后再更新。
3. 可以通过记录集的一些方法对数据进行操作，如使用AddNew添加记录，用Delete删除记录等。
4. 所连接的数据源可在“连接字符串”中指定，但是对于不同的提供者和数据源而言，连接字符串中指定的参数会有所不同。
ADO打开连接的主要方法是使用Connection.Open方法。另外也可在同一个操作中调用快捷方法Recordset.Open打开连接并在该连接上发出命令。以下是Visual Basic中用于两种方法的语法：
Connection.Open ConnectionString, UserID, Password, OpenOptions
Recordset.Open Source, ActiveConnection, CursorType, LockType, Options 比较这两种方法将有益于加深对ADO 方法操作数的总体了解。
ADO提供了多种指定操作数的简便方式。例如：Recordset.Open可带有ActiveConnection 操作数，即文字字符串，它是代表字符串的变量或代表一个打开连接的Connection对象。
对象中的多数方法具有属性，当操作数缺省时属性可以提供参数。使用Connection.Open，可以省略显式ConnectionString操作数并通过将ConnectionString的属性设置为“DSN=pubs;uid=sa;pwd=pwd;database=pubs”隐式地提供信息。
与此相反，连接字符串中的关键字操作数uid和pwd可为Connection对象设置UserID和Password参数。
2012 VB_NET练习题2(题目)
第1-2章 https://www.wendangku.net/doc/fa6709827.html, 基础 一、题1 1．.NET 的目的就是将( )作为新一代操作系统的基础，对互联网的设计思想进行扩展。 2．对象的特征称( )，对象能够执行的操作称( )，对象能够识别的操作称（ ）。 3．面向对象的程序设计语言的基本编程模式是( )驱动。 4．要退出应用程序的执行，不能执行下列的( )语句。 ①End ②Application.Exit ③Application.Exit() ④Stop ⑤Debug.Break 5.要使文本框中的文字不能被修改，应把（ ）属性设置成False 。 6.当运行程序时，系统自动执行启动窗口的( )事件过程。 7.当文本框的ScrollBars 属性设为Horizontal ，MultLine 属性设为True,却没有效果，原因是( )。 8．图片控件PictureBox 的属性SizeMode 用于调节框内显示图的大小。下面的( )枚举值能使图片自动缩放填满整个图片框。 ①Zoom ②StretchImage ③AutoSiuze ④CenterImage 二、题2 https://www.wendangku.net/doc/fa6709827.html, 框架包括 和NET 类库。 2．项目可以视为编译后的一个可执行单元，可以是应用程序、动态链接库等，而企业级的解决方案往往需要多个可执行程序的合作，为便于管理，在Visual https://www.wendangku.net/doc/fa6709827.html, 集成环境中引入了 。 3．要想Label 控件显示给定的文字“您好”，应在设计状态下设置它的 属性值。 4．要想在控制台程序运行时输入信息，可使用Console 对象的 方法，要输出信息应使用Console 对象的 方法。 5．在https://www.wendangku.net/doc/fa6709827.html, 中， 过程是控制台应用程序的入口点。 6．语句：Me.BackgroundImage= ，可以清除窗体的背景图。 第3章 数据类型与表达式 一、题1 1．将算术式，e d c b a -+-?15写成https://www.wendangku.net/doc/fa6709827.html, 表达式为( )。 2．数学式“2／3 e (x+y)”的VB ．NET 表达式是( )。 3.15除以4余数的-3次方的VB ．NET 表达式为（ ） 4．将变量k 四舍五入保留2位小数的表达式是（ ）。 5．要定义固定长度字符串变量str 要使用（ ）。 6．表达式Chr(Int(Rnd*10+66))所产生的是( )。 7.表达式Len(“123程序设计ABC ”)的值是( )。 二、题2 1．若A=20，B=80，C=70，D=30，则表达式A+B>160 or (B*C>200 And Not D>60)的值是 。 2．表达式7Mod4*4^3／6\2的值为: 。 3.表达式Len(Str(17.35))mod 2的值为 。 https://www.wendangku.net/doc/fa6709827.html, 的一个语句好可以分别写在多行上，行末尾加上 作为续行标志；另
第二部分 VB练习题与答案
VB 练习题与答案
96 第2章数据类型与表达式 一、选择题 1. 一个语句行内写多条语句时，每个语句之间用( )符号分隔。 A. ， B. ： C. 、 D. ； 2. 一句语句要在下一行继续写，用( )符号作为续行符。 A. ＋ B. – C. _ D. … 3. 下面( )是合法的变量名。 A. X_yz B. 123ab C. integer D. X-Y 4. 下面( )是不合法的整数。 A. 100 B. ＆Ol00 C. ＆H100 D. ％100 5. 下面( )是合法的字符常量。 A. ABC＄ B. "ABC" C. 'ABC' D. ABC 6. 下面( )是合法的单精度型变量。 A. num! B. sum％ C. xinte＄ D. mm＃ 7. 下面( )是不合法的单精度常数。 A. 100！ B. 100.0 C. 1E+2 D. 100.0D+2 8. 表达式16/4-2^5*8/4 MOD 5\2的值为( )。 A. 14 B. 4 C. 20 D. 2 9. 数学关系3≤x＜10表示成正确的VB表达式为( )。 A. 3＜=X＜10 B. 3＜＝x AND x＜10 C. x＞＝3 OR x＜10 D. 3＜＝x AND＜10 10. “＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。 A. ＼ B. ／ C. Mod D. * 11. 与数学表达式ab/3cd对应的不正确V isual Basic 6.0表达式是( )。 A. a*b／(3*c*d) B. a／3*b／c／d C. a*b／3／c／d D. a*b／3*c*d 12. Rnd函数不可能为下列( )值。 A. 0 B. 1
2016年计算机二级《VB》基础练习题及答案(2)
2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较
VB练习题含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29
VB复习题及参考答案
Microsoft ” B )print “Microsoft Microsoft ” D ) Debug.print Microsoft 输入inputbox 返回值的类型是( A )字符型B )整型 C )浮点型 D )长整型 (3) 用来设置设置文本框有无滚动条的属性的值为( A ) D)selle ngth (4) i nt(rnd*50)+10 表示的是(D )范围内的整数。 A) [0，50] B)[1 ，60] C)[10 ，60] D)[10 ，59] (5) 下列各控件不包含滚动条的是(D )。 A)listbox B)combobox C)textboa D)labelbox (6) 为了暂时关闭计时器，应把该计时器控件的( C )属性 设置为false. A)visible B)timer C)e nabled D)i nterval (7) 设置列表框选中的文本，用(C )属性。 A ) Selected B ) List C ) Text D ) Caption (8) 未选中复选框控件时，Value 属性的值为(C ) A ) True B ) False C ) 0 D ) 1 (9) 某一 VB 工程含F1. F2两个窗体，执行“F1. Show F2. Hide ” 语句后，F1. F2 复习题及参考答案 、选择题 (1)使“ Microsoft 在当前窗口上输出的语句是( A ) Picture.print C ) printer.print A)Scrollbars B)Multili ne C)Seltext
窗体显示的结果为 C 。 A) 都显示B)都不显示C)仅显示F1窗体D)仅显示F2窗体 (10) 在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2 ; 六个标签，名称分别为Labell、Label2、Labe l3、Label4、Label5、Label6，其中标签Label 4~ Label6 分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值， Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2 中显示的 两个值求积，并将结果显示在Label3中。以下不能实现上 述功能的事件过程是(A )。 A) Private Sub Command1_Click() Label3.Caption = Str(Val(Label1. Caption )*Val( Label2.Captio n)) End Sub B) Private Sub Command1_Click() Label3.Caption = HScroll1.Value * HScroll2.Value End Sub C) Private Sub Command1_Click() Label3.Caption = Val(Label1. Caption )*Val( Label2.Captio n) End Sub D) Private Sub Comma nd1_Click()
vb练习题及答案.doc
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
vb课后练习答案习题解答 (5)
第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double
2016年计算机二级《VB》基础练习题及答案(2)
2016年计算机二级《VB〉基础练习题及答案（2） 1［简答题］在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的 高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适 当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条； ②程序运行时在Textl中显示输入的字符为“ * ”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp ，窗体文件名保 存为sjtl.frm 。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars 属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars 属性设置文本框是否有水平或垂直滚动条，它有0、I、2和3这4个值，0表示没有滚动条（默认值），1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用 某字符（如“ *”）屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1:新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控 件及属性见表3.8和表3.9。
步骤2:调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars 属性的设置值较多，易混乱，请考生牢记4个值分别设 置的文本框滚动条属性。 2［单选题］在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（ ）。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系 统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式， 它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择Bo 3［单选题］以下关系表达式中，其值为True的是（）。 A.If.XYZ ” >” XYz” B.” VisualBasic ” <>” visualbasic ” C.P the-.= ' ' there ? t D.” I nteger ” <” I nt ” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的 A SCIl码从左到右---- 比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较完或不同为止。选项A中两个字符串前2个字符相同，后1个不同，“ z''的ASCII值<
VB练习题2
1.项目文件的扩展名是（） A．.vb B．.sln C..exe D．.vbproj 2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。 A．工具箱B．属性 C.即时D．窗体 3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。 A．Caption B．Tip C．Item D．Text 4.在https://www.wendangku.net/doc/fa6709827.html,中，下面属于方法的是（）。 A.Focus B.SelectedText C.LostFocus D.Keypress 5.一条语句要在下一行继续写，可用（）符号作为续行符。 A.+ B.- C.空格和_ D.... 6.若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.Visible C.BackColor D.Text 7.在https://www.wendangku.net/doc/fa6709827.html,集成环境中创建https://www.wendangku.net/doc/fa6709827.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口 外，必不可少的窗口是（） A．窗体布局窗口B．立即窗口 C．代码窗口D．监视窗口 8.当运行程序时，系统自动执行启动窗体的（）事件过程 A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（） A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置 A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。 A．%B．&C．!D．# 12.下面（）是日期型常量。 A．“5/17/12”B．5/17/12 C．#5/17/12#D．(5/17/12) 13.下面的（）是合法的单精度型变量。 A.num! B.sum% C.char! D.mm# 14.下面的（）是合法变量名。 A.X_yz B.123abc C.Integer D.X-Y 15.Rnd函数不可能为下列的（）值。 A.0 B.1 C.0.1234 D.0.0005 16.图片框控件（PictureBox）是专门用于显示图片的控件，主要属性image用于设置显示 在控件上的图片，使用（）语句可以在程序中消除已装入的图片。 A.PictureBox控件名.image=”” B．PictureBox控件名.image=Nothing C．PictureBox控件名.image=Image.FromFile(“”) D．PictureBox控件名.image=Image.FromFile(Nothing) 17.表达式16/4-2^5*8/4Mod5\2的值为（） A.14 B.4 C.20 D.2 18.表达式Len（“123程序设计ABC”）的值是（） A.10 B.14 C.20 D.17 19.为了给x,y,z三个整型变量赋初值1，正确的赋值语句是（）。 A.x=1:y=1:z=1 B.x=1，y=1，z=1
VB练习题(上机)含标准答案
第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)
Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
vb模拟练习二(参考答案)范文
A100 B Label1.Left = Label1.Left C D Label1.Move Label1.Left A B C D A B C D A Private Sub Command1_Click(): B Private Sub Command1_Click(): C Private Sub Text1_Change(): D Private Sub Text1_Click(): A If a ≥ b Then t=a B If a ≥ b Then t=a;a=b; C If a >= b Then t=a D If a >= b Then t=a:
A B C D A B C D A函数的“提示信息参数”不能缺省 B 函数，只能输入一个值 C 回值是数值型的 D 的返回值必须赋予一个变量 A 如Case x ,y ,z B 如Case "a ","b","c" C 如Case 1 to 10 D 如Case Is <8 A B C D A B C D A B C D
A B C D A B C D A B C D A 窗口中选择Picture属性条，然后按回车键 B Del键 C 句Picture1.Picture = D 句Picture1.Picture = A B C D A B C D A age>=20 And age<=30 B age>=20 0r age<=30
C age<=20 And age>=30 D age<=20 0r age>=30 A (.vbp) B （.frm） C （.bas） D 工程文件 A B C D A B C D A B C D A B C Text1_KeyPress(KeyAscii D A B C D
【精选资料】VB综合练习题二及参考答案
VB综合练习题二 一、选择题[ (1)—(15)，每小题2分，共30分] (1)以下变量名中合法的是 A）x2-1 B）print C）str_n D）2x (2)在Viusal Basic中，表达式3 * 2 \ 5 Mod 3的值是 A）1B）0C）3D）出现错误提示 (3)设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub 其中变量a和s的数据类型分别是 A) 整型，整型B) 变体型，变体型 C) 整型，变体型D) 变体型，整型 (4)把数学表达式表示为正确的VB表达式应该是 A) (5x+3) / (2y-6) B) X*5+3 / 2*y-6 C) (5*x+3)÷(2*y-6) D) (x*5+3)/(y*2-6) (5)“x 是小于105的非负数”，用Visual Basic表达式表示正确的是 A) 0<=x<105 B) 0<=x<=105 C) 0<=x And x<105 D) 0<=x Or x<105 (6)代码“Print “Sqr(16) = “；Sqr(16) ”的输出结果是 A) Sqr(16) = Sqr(16) B) Sqr(16) = 4 C) ”4” = 4 D) 4 = Sqr(16) (7)设a = "MicrosoftVisualBasic" ，则以下使变量b的值为“VisualBasic”的语句是 A) b = Left(a, 10) B) b = Mid(a, 10) C) b = Right(a, 10) D) b = Mid(a, 10, 11) (8)在Visual Basic代码中，将多个语句合并写在一行上的并行符是 A) 撇号(') B) 冒号(:) C) 感叹号(!) D) 星号(*) (9)当我们输入代码时，Visual Basic可以自动检测______错误。 A) 语法错误B) 编译错误C) 运行错误D) 逻辑错误 (10)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是 A) 命令按钮的Click事件过程名是C1_Click B) 窗体的Click事件过程的过程名是Myform_Click C) 命令按钮的Click事件过程的过程名是Command1_Click D) 上述三个过程名都是错误的 (11)以下叙述中正确的是 A）窗体的Name属性指定窗体的名称，用来标识一个窗体 B）窗体的Name属性值是显示在窗体标题栏中的文体
【大学Visual Basic考试】vb考试必考题选择题2
大学vb考试题库大全 单项选择题 81、设a=3,b=5，则以下表达式值为真的是(B)。 A、a>=b And b>10 B、(a>b)Or(b>0) C、(a<0)or(b<0) D、(-3+5>a)And(b>0) 82、执行语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5), 将显示一个输入对话框，在对话框的输入区中显示的信息是(A)。 A、Today B、Tomorrow C、Yesterday D、Day before Yesterday 83、VB提供了结构化程序设计的3种基本结构，这3种基本结构是（B）。 A、递归结构，分支结构，循环结构 B、选择结构，过程结构，顺序结构 C、过程结构，输入、输出结构，转向结构 D、分支结构，循环结构，顺序结构 84、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）。 A、If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 B、If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 C、If sex=“男”And age＜40 And Right(duty,2)= “教授”Then n=n+1 D、If sex=“男”And age＜40 And duty=“教授”And duty=“副教授”Then n=n+1 85、当语句w=IIf(4>10,”Red”,“Green”)执行后，变量w中的值是（C）。 A、Null B、“Red” C、“Green” D、-1 86、赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是（D）。 A、“12334” B、123 C、12334 D、157 87、设有语句x=InputBox(“AAAA”，“BBBB”，“”),程序运行后，所产生的对话框的标题应为(C)。 A、AAAA B、空 C、BBBB D、出错，不能产生对话框 88、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r
【期末复习】计算机VB期末考试试题及答案
20**-20**学年VB期末考试试题A 一、填空题 1、VB程序设计的主要特点 是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。
13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font
VB练习题
1.项目文件的扩展名是（） A． .vb B．.sln C..exe D．.vbproj 2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。 A．工具箱 B．属性 C.即时 D．窗体 3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。 A．Caption B．Tip C．Item D．Text 4.在https://www.wendangku.net/doc/fa6709827.html,中，下面属于方法的是（）。 A.Focus B.SelectedText C.LostFocus D.Keypress 5.一条语句要在下一行继续写，可用（）符号作为续行符。 A.+ B.- C.空格和 _ D. ... 6.若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.Visible C.BackColor D.Text 7.在https://www.wendangku.net/doc/fa6709827.html,集成环境中创建https://www.wendangku.net/doc/fa6709827.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口 外，必不可少的窗口是（） A．窗体布局窗口 B．立即窗口 C．代码窗口 D．监视窗口 8.当运行程序时，系统自动执行启动窗体的（）事件过程 A．Load B．Click C．Unload D． GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（） A．文本框没有内容 B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置 A．BackColor B． BorderStyle C．ForeColor D． BackStyle 11.数据类型为Long的类型标识符为（）。 A．% B． & C．! D． # 12.下面（）是日期型常量。 A．“5/17/12” B．5/17/12 C．#5/17/12# D．(5/17/12) 13.下面的（）是合法的单精度型变量。 A.num! B.sum% C.char! D.mm# 14.下面的（）是合法变量名。 A.X_yz B.123abc C.Integer D.X-Y 15.Rnd函数不可能为下列的（）值。 A.0 B.1 C.0.1234 D.0.0005 16.图片框控件（PictureBox）是专门用于显示图片的控件，主要属性image用于设置显示 在控件上的图片，使用（）语句可以在程序中消除已装入的图片。 A.PictureBox控件名.image=”” B．PictureBox控件名.image=Nothing C．PictureBox控件名.image=Image.FromFile(“”) D．PictureBox控件名.image=Image.FromFile(Nothing) 17.表达式16/4-2^5*8/4 Mod 5\2的值为（） A.14 B.4 C.20 D.2 18.表达式Len（“123程序设计ABC”）的值是（） A.10 B.14 C.20 D.17 19.为了给x,y,z三个整型变量赋初值1，正确的赋值语句是（）。 A.x=1: y=1: z=1 B.x=1，y=1，z=1
vb练习题及答案
vb练习题1 VB练习题一 一、选择题 1．Visual Basic程序设计的主要的步骤是C A、可视性程序设计 B、代码程序设计 C、可视性程序设计和代码程序设计 D、界面设计 2．窗体能响应的事件是C A、ActiveFrom B、Drive C、Load D、Change 3．获得系统时间的函数是B A、data$ B. time$ C. date$ D. gettime$ 4．在设计一个计算器时，必须要使用的控件是C A、滚动条 B、图片框 C、文本框 D、单选框 5．下列运算符号中属于关系运算符的是_____。B A、— B、= C、AND D、+ 6.Visual Basic规定工程文件的扩展名是C A、.for B、.frm C、.vbp D、.bas 7. OOP是面向_______的程序设计的简称。C A、用户 B、问题 C、对象 D、操作者 8. 设置对象中的字体应用___属性.C A、Caption B、Name C、Font D、Text 9.设置文本框中显示的内容应用___属性。D A、Caption B、Name C、Font D、Text 10.逻辑型又称_____。C A、数值型 B、字符串型 C、布尔型 D、整型 11.三种逻辑运算符号优先次序为：____。C A、AND、NOT、OR B、NOT、OR、AND C、NOT、AN D、OR D、OR、NOT、AND 12.关于高级语言，下列那一项叙述是正确的。(A) A、以类似英文的句子来表示 B、写成的程序执行速度最快 C、不必编译即可直接执行 D、受电脑机种限制大 13.可将高级语言翻译成机器语言的程序为。B A、汇编程序 B、编译程序 C、解释程序 4、以上皆可。
(完整版)VB练习题(上机)含答案
第一部分 1在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值”)。程序运行后，单击命令 按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Ran domize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为”转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转 换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1 For i = 1 To Len( ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else chi = chi + UCase(Mid(ch, i, 1))
End If Next i Textl = Textl + vbCrLf Textl = Text1 + ch1 End Sub 3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0?1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Ran domize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max The n max = a(i) Next i Print max End Sub 4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时， 单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。