第二部分 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
第二部分 练习题与答案
97
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"，则表达式V al(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)x 2ln(45sin ++?的VB 算术表达式为________________。
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 字符变量是字母字符(大小写字母不区分)的逻辑表达式为______________。
98
三、问答题
1. V isual 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
第二部分练习题与答案99
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的值，根据其数值，判断能否构成三角形。若能则求出
100
三角形的面积。
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进制数。
第二部分练习题与答案101
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)的值。
第4章数组与记录
1. 某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对调。即第一个元素与第20个元素互换，第2个元素与第19个元素互换……第10个元素与第11个元素互换。输出数组原来各元素的值和对换后各元素的值。
第7章窗体设计
1. VB窗体设计器的主要功能是( )。
A. 显示文字
B. 建立用户界面
C. 编写源程序代码
D. 画图
2. 以下叙述中正确的是( )。
A. 对象的Name属性值可以为空
B. 可以在程序运行期间改变对象的Name属性值
102
C. 窗体的Name属性值是显示在窗体标题栏中的字符串
D. 窗体的Name属性用来标识和引用窗体
3. 改变显示在窗体标题栏中的标题使用的属性是( )。
A. (名称)
B. FontName
C. Caption
D. Text
4. 设有如下窗体事件
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体内显示的结果是( )。
A. 5 4 3 2
B. 6 5 4 3
C. 4 3 2 1
D. 7 6 5 4
5. 对窗体编写如下事件过程。程序运行后,在窗体上单击鼠标右键,则输出结果为( )。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "AA";
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Print "BB";
End Sub
A. BBAA
B. AABB
C. AA
D. BB
6. 以下叙述中错误的是( )。
A. 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
B. 窗体的Hide方法和Unload方法的作用完全相同
C. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
D. 使Print方法在窗体上失效的窗体事件是Load
7. 下列语句中，能够暂时隐藏窗体Form1，但不释放它所占用的内存空间的是( )。
A. Unload Form1
B. Form1.Unload
C. Hide Form1
D. Form1.Hide
8. 下列语句中，能够加载并显示窗体Form1的是( )。
A. load Form1
B. Form1.load
C. show Form1
D. Form1.show
第二部分练习题与答案103
9. 下面的程序运行后，若从键盘输入-1，则输出结果为( )。
Private Sub Form_Click()
xcase = 1
t = InputBox("请输入一个数：")
Select Case t
Case Is > 0
y = xcase + 1
Case Is = 0
y = xcase + 2
Case Else
y = xcase + 3
End Select
Print xcase; y
End Sub
A. 1 4
B. 1 3
C. 1 2
D. 1 1
10. 以下叙述中错误的是( )。
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视为相同的KeyCode码
B. 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视为
不同的KeyCode码
C. KeyPress事件不能识别某个键的按下与释放
D. KeyPress事件可以识别某个键的按下与释放
第8章标准控件的使用
一、选择题
1. 文本框的属性不包括( )。
A. Caption
B. Text
C. Name
D. Top
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
104
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. 在下列程序代码中，第一次单击命令按钮，在文本框Text1和Text2中显示的内容是________________；第二次单击命令按钮，在文本框Text1和Text2中显示的内容是________________。
Dim y as Integer ' y为窗体级变量
第二部分练习题与答案105
Private Sub Command1_Click()
Dim x As Integer
x = 2
Text1 = Func_2(Func_1(x), y)
Text2 = Func_1(x)
End Sub
Private Function Func_1(x As Integer) As Integer
x = x + y: y = x + y
Func_1 = x + y
End Function
Private Function Func_2(x As Integer, y As Integer) As Integer
Func_2 = 2 * x + y
End Function
练习题答案
第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章答案
一、选择题
106
二、编程题
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 = V al(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; "元"
第二部分练习题与答案107
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
108
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
第二部分练习题与答案109
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()
110
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
第二部分练习题与答案111
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 + V al(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()
112
Dim x, s As Single, bz As String
Do While UCase(bz) < > "Y"
x = InputBox("请输入相加的值")
If V al(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)
第二部分练习题与答案113
Print sum
End Sub
第4章答案
1.
Private Sub Command1_Click()
Dim a(1 To 20) As Integer
Dim i As Integer, t As Integer
'输入20个元素的值，并输出互换前各元素的值
For i = 1 To 20
a(i) = InputBox("输入a(" & Format(i, "#") & "):")
Print "a("; i; ")="; a(i); " ";
If i Mod 10 = 0 Then Print
Next i
'互换操作
For i = 1 To 10
'互换元素
t = a(i): a(i) = a(20 - i + 1): a(20 -i + 1) = t
Next i
For i = 1 To 20
'输出互换后各元素的值
Print "a("; i; ")="; a(i); " ";
If i Mod 10 = 0 Then Print
Next i
End Sub
第7章答案
第8章答案
一、选择题
二、填空题
114
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
2012 VB_NET练习题2(题目)
第1-2章 https://www.360docs.net/doc/008130295.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.360docs.net/doc/008130295.html, 框架包括 和NET 类库。 2．项目可以视为编译后的一个可执行单元，可以是应用程序、动态链接库等，而企业级的解决方案往往需要多个可执行程序的合作，为便于管理，在Visual https://www.360docs.net/doc/008130295.html, 集成环境中引入了 。 3．要想Label 控件显示给定的文字“您好”，应在设计状态下设置它的 属性值。 4．要想在控制台程序运行时输入信息，可使用Console 对象的 方法，要输出信息应使用Console 对象的 方法。 5．在https://www.360docs.net/doc/008130295.html, 中， 过程是控制台应用程序的入口点。 6．语句：Me.BackgroundImage= ，可以清除窗体的背景图。 第3章 数据类型与表达式 一、题1 1．将算术式，e d c b a -+-?15写成https://www.360docs.net/doc/008130295.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.360docs.net/doc/008130295.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.360docs.net/doc/008130295.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.360docs.net/doc/008130295.html,集成环境中创建https://www.360docs.net/doc/008130295.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.360docs.net/doc/008130295.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.360docs.net/doc/008130295.html,集成环境中创建https://www.360docs.net/doc/008130295.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请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时， 单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。