VB（1）期末考试内容

VB（1）期末考试内容
原题
⾼⼆年级VB期末试卷
⼀、单选题
1、可以在窗体上输出数据的⽅法的是（）
A、Print
B、Cls
C、Show
D、Hide
2、下列说法中错误的是（）
A、对象是具有某些特性的具体事物的抽象
B、在VB程序中，窗体（Form）不是对象
C、属性是对象所具有的特征
D、事件是发⽣在对象上且能被对象识别的动作
3、数据：“abcde”是（）数据
A、整型
B、长整型
C、字符型
D、⽇期型
4、以下各项中，可以作为VB变量名的是（）
A、13
B、 Stu23
C、22ab
D、cj98.3
5、以下各项中，不能作为VB变量名的是（）
A、A52B
B、if
C、Y_5
D、Pi
6、InputBox函数返回值的类型为（）
A、数值
B、字符串
C、变体
D、数值或字符串(视输⼊的数据⽽定)
7、表达式5 <> 2 Or 6<7的值是（）
A、Ture
B、False
C、－1
D、1
8、数学式sin30°写成VB表达式是（）
A、Sin30
B、Sin(30)
C、Sin(30°)
D、Sin(30*3.14/180)
9、决定控件上⽂字的字体、字形、⼤⼩、效果的属性是（）
A、Text
B、Caption
C、Name
D、Font
10、设a、b、c为整型变量，其值分别为1、2、3，以下语句的输出结果是（）
　Print a;b;c
A.1 2 3
B.2 3 1
C.3 2 1
D.2 3 2
11、Visual Basic程序中的注释所使⽤的字符是（）
A、'
B、:
C、\
D、_
12、若要求从⽂本框中输⼊密码时在⽂本框中只显⽰ * 号，则应在此⽂本框的属性窗⼝中设置（）。

A、Text 属性值为 *
B、Caption 属性值为 *
C、Password 属性值为空
D、Passwordchar 属性值为 *
13、表达式“XYZ” + “487”的值是（）
A、“XYZ487”
B、“XYZ”
C、“487”
D、“487XYZ”
14、下⾯语句中，正确的是（）
A、If x<3*y And x>y Then y=x^3
B、If x<3*y And x>y Then y=3x
C、If x<3*y : x>3 Then y=x^3 C、If x<3*y : x>y Then y=x**3
15、下列程序段的执⾏结果为（）
X=2
Y=5
If X*Y<1 Then Y=Y-1 Else Y=-1
Print Y-X>0
A、Ture
B、False
C、－1
D、1
16、下列关于visual basic特点的描述，哪个是正确的（）
A、⾯向对象
B、可视化
C、事件驱动
D、以上都是
17、为了使标签中的内容靠右显⽰，应将alignment属性设置为（）
A、0
B、1
C、2
D、3
⼆、填空题（2分×9，共18分）
1、布尔型数据只有________和________两个值。

2、关系运算符有>、<、=、<>、________、________ 6种。

3、Visual Basic 的print⽅法具有和双重功能。

4、________________函数显⽰⼀个能接收⽤户输⼊数据的对话框，并返回⽤户在对话框中输⼊的消息。

5、_________⽅法可以清除Form或PictureBox中由Print⽅法在运⾏时所⽣成的⽂本或图形。

6、设a=6,b=3,c=5,则表达式Not a>c An c=b OR b<a+c的值为。

7、假定⼀个⽂本框的Name属性为Text1,为了使该⽂本框获得焦点，应执⾏的语句是。

8、执⾏print 9.4\3.7，9.4 MOD3.7 后，输出结果为。

9、表达式Ucase(Mid(“abcdefgh”,3,4))的值是。

三、把下列数学表达式改为VB表达式。

（4分×3，共12分）
1、3(a-b)
2、1≤X≤5
3、
四、写出下列表达式的值（4分×3，共12分）
1、Abs(-100)+Sqr(100)
2、Not 3<=4 And 4 < > 5
3、3 ^ 2 - 8 > Abs (99-100)
五、阅读程序并填空(共24分)
1、阅读以下程序段，写出运⾏结果： (4分)
x = 1 :y=0
x = x + 1
y = y + 1
print “x=” & Str(x); “y=” & Str(y)
运⾏结果：________________
2、阅读以下程序段，写出运⾏结果： (4分)
x=5
y=-6
If x>0 Then x = y-3 Else y = x+3
Print x - y ; y – x
运⾏结果：________________
3、下列程序可以实现在窗体上由⽤户任意输⼊⼀个整数，程序可以判断该数的奇偶。

程序由⼀个⽂本框（Textbox）、两个标签（Label）、⼀个按钮（Command）组成。

要求：奇或偶的结果在Label2内显⽰，请在空格处填⼊相应的语句，使之完成上述功能。

(6分)
Private Sub Form_Load ( )
Text1.Text = “”
Label1.Caption = “请输⼊⼀个整数”
Label2.Caption = “”
Command1.Caption = “判定”
End Sub
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.text)
If Then
label2.caption=＂该数是偶数＂
Else
_________ _______
End If
End Sub
4、阅读下⾯程序，并写出执⾏结果。

（3分）
x=int(rnd+1) +2
if x^2>8 then y=x^2+1
if x^2=9 then y=x^2-2
if x^2<8 then y=x^3
print y
5、读程序，写结果。

（4分）
private sub form_click( )
x=2
y=3
x=y
print”X=”;X,
print”y=”;y
x=x+1
print”X=”;X,
print”y=”;y
end sub
6、读程序，写结果。

（3分）
private sub form_click( )
const pi as single=3.14
a%=7
if a mod 4 > pi then
print”努⼒”
else
print”学习”
end if
end sub
⽼师给的答案（加上我的菜鸡解析）
⼀、单选题
1、可以在窗体上输出数据的⽅法的是（A）（这个没有什么要讲的，就是print{打印}）
A、Print
B、Cls
C、Show
D、Hide
2、下列说法中错误的是（B）
A、对象是具有某些特性的具体事物的抽象
B、在VB程序中，窗体（Form）不是对象（窗体是对象，只不过是属于容器类的对象）
C、属性是对象所具有的特征
D、事件是发⽣在对象上且能被对象识别的动作
3、数据：“abcde”是（ C ）数据。

（我们规定，⼀切字符带双引号的，统称为"字符型数据"）
A、整型
B、长整型
C、字符型
D、⽇期型
4、以下各项中，可以作为VB变量名的是（B ）（这⾥需要⽤到变量名的规则：1.必须以字母开头，变量名中不能有空格。

2.不可以包含嵌⼊的句号或者类型声明字符。

3.不能和受到限制的关键字同名（例如End、Len、Sub等）
A、13
B、 Stu23
C、22ab
D、cj98.3
5、以下各项中，不能作为VB变量名的是（B）(这⾥也需要⽤到变量名的规则：1.必须以字母开头，变量名中不能有空格。

2.不可以包含嵌⼊的句号或者类型声明字符。

3.不能和受到限制的关键字同名（例如End、Len、Sub，if等)
A、A52B
B、if （这个if⽤通俗的话讲，VB已经⽤做了判断，所以不可以作为变量名，也就是“变量名不可与关键字同名！”）
C、Y_5
D、Pi
6、InputBox函数返回值的类型为（B）（inputbox函数返回值类型为：字符串类型，没有什么要讲的，就死记就⾏！书上的内容）
A、数值
B、字符串
C、变体
D、数值或字符串(视输⼊的数据⽽定)
7、表达式5 <> 2 Or 6<7的值是（A）（这⾥我们来讲⼀下整体的意思《5不等于2或者6⼩于7》，这⾥考的知识点为：or（或者）的⽤法，or的意思为，如果有⼀个为真，那么也就代表这个表达式是真的！也就是说，5就算⼩于3（假）,但6⼩于7（真），它的结果也是真的）
A、Ture
B、False
C、－1
D、1
8、数学式sin30°写成VB表达式是（D）（这⾥需要⽤到数学中的三⾓函数：Sin(30 * 3.14 / 180)先把⾓度转成弧度，弧度=⾓度*π/180，然后直接⽤sin函数就⾏了）
A、Sin30
B、Sin(30)
C、Sin(30°)
D、Sin(30*3.14/180)
9、决定控件上⽂字的字体、字形、⼤⼩、效果的属性是（D）（⾸先我们⽤排除法，text属性是⽂本，caption属性是标题，name属性为名字（这⾥要注意，name属性是⽤来定义⼀个窗体或者控件的名字，例如{=我是名字},下⾯再次利⽤from的时候，就为{我是名字.属性值}），font属性为字体属性，例如size(⼤⼩)等）
A、Text
B、Caption
C、Name
D、Font
10、设a、b、c为整型变量，其值分别为1、2、3，以下语句的输出结果是（ A）（这⾥没什么要讲的，分号为紧接着输出，逗号为分区输⼊，也就是隔了⼀个TAB键的距离）
　Print a;b;c
A.1 2 3
B.2 3 1
C.3 2 1
D.2 3 2
11、Visual Basic程序中的注释所使⽤的字符是（A）（这⾥也没有什么要讲的，就给⼤家讲⼀下另⼀种注释吧《rem后⾯跟注释内容。

以Rem关键字开头并且Rem关键字与注释内容之间要加⼀个空格。

注释可以是单独的⼀⾏也可以写在其他语句⾏的后⾯。

如果在其他语句⾏后使⽤Rem关键字则必须使⽤冒号(:)与语句隔开》）
A、'
B、:
C、\
D、_
12、若要求从⽂本框中输⼊密码时在⽂本框中只显⽰ * 号，则应在此⽂本框的属性窗⼝中设置（D）。

（这⾥的话，看上⾯的解析，text和caption就可以排除了，Password是密码，passwordchar是设置⽤于掩盖的字符，例如*等）
A、Text 属性值为 *
B、Caption 属性值为 *
C、Password 属性值为空
D、Passwordchar 属性值为 *
13、表达式“XYZ” + "487" 的值是（ A）（这⾥的话，XYZ是⼀个字符串，⽽487也是字符（我们说过的，有双引号的我们统称为字符型数据），所以相加后为XYZ487，但是，不是数字的字符型数据是不可以和数值型运算的！例如"ABC"+123，但是如果双引号⾥为123或是另⼀些数字，那么会将它们两个的结果相加！）
A、“XYZ487”
B、“XYZ”
C、“487”
D、“487XYZ”
14、下⾯语句中，正确的是（A）（这⾥我们可以看到，很明显的语法错误，BCD，B的错误为：3x应该是3*x ⽽CD为：条件语句中不可以加冒号！）
A、If x<3*y And x>y Then y=x^3
B、If x<3*y And x>y Then y=3x
C、If x<3*y : x>3 Then y=x^3 C、If x<3*y : x>y Then y=x**3
15、下列程序段的执⾏结果为（B）（看下⾯吧~）
X=2 将2赋值给Y
Y=5 将5赋值给Y
If X*Y<1 Then Y=Y-1 Else Y=-1 如果X乘Y⼩于1，则将Y-1赋值给Y（但我们算出来后，2x5=10 它不⼩于1，所以就是else了）那么将-1赋值给Y
Print Y-X>0 那么由上⾯可以得到X=2 Y=-1 那么Y-X=-3，它不⼤于0，所以最后结果为false（假的）
A、Ture
B、False
C、－1
D、1
16、下列关于visual basic特点的描述，哪个是正确的（D）（书上的内容）
A、⾯向对象
B、可视化
C、事件驱动
D、以上都是
17、为了使标签中的内容靠右显⽰，应将alignment属性设置为（B）（alignment默认为0（靠左）其次靠右为1 然后为2（居中）这⾥主要，alignment属性没有3）
A、0
B、1
C、2
D、3
⼆、填空题（2分×9，共18分）
1、布尔型数据只有（true）和（false）两个值。

2、关系运算符有>、<、=、<>、（>=）、（<=）6种。

3、Visual Basic 的print⽅法具有（输出）和（计算）双重功能。

4、（inputbox()）函数显⽰⼀个能接收⽤户输⼊数据的对话框，并返回⽤户在对话框中输⼊的消息。

5、（cls）⽅法可以清除Form或PictureBox中由Print⽅法在运⾏时所⽣成的⽂本或图形。

6、设a=6,b=3,c=5,则表达式Not a>c And c=b OR b<a+c的值为（true）。

这⾥有个⼩技巧，我们看到or时就要想到（如果⼀⽅为真，那么结果也就为真）算or左右好算的，很明显，b是⼩于a+c的，所以答案为true（真）
7、假定⼀个⽂本框的Name属性为Text1,为了使该⽂本框获得焦点，应执⾏的语句是（ text1.setfocus）。

8、执⾏print 9.4\3.7，9.4 MOD 3.7 后，输出结果为（2 1）。

9、表达式Ucase(Mid(“abcdefgh”,3,4))的值是（CDEF）。

三、把下列数学表达式改为VB表达式。

（4分×3，共12分）（这⾥没什么要讲的）
1、3(a-b)
3*(a-b)
2、1≤X≤5
x>=1 and x<=5 这个很简单啊，你看上⾯那个式⼦，它x需要同时满⾜两种条件，我们应该⽴刻想到and（只有两个全为真，结果才是真的！
3、
(x^3+y^3+z^3)/sqr(x+y+z)
四、写出下列表达式的值（4分×3，共12分）*（这⾥也没有什么要讲的）
1、Abs(-100)+Sqr(100) （就是考了⼀个abs取绝对值和sqr开根号的函数）
110
2、Not 3<=4 And 4 < > 5
False
3、3 ^ 2 - 8 > Abs (99-100)
False
五、阅读程序并填空(共24分)（这⾥的话，如果不会，那就是你函数那块没学好）
1、阅读以下程序段，写出运⾏结果： (4分)
x = 1 :y=0 这⾥我们简单讲⼀下吧，这个式⼦的含义是将1赋值给x，0赋值给y，也就是x=1，y=0
x = x + 1 然后将x+1赋值给x，也就是说，x=x+1=1+1=2，那么x=2，y=0
y = y + 1 将y+1赋值给y，也就是说，y=y+1=0+1=1，那么x=2，y=1
print “x=” & Str(x); “y=” & Str(y) 这⾥str将数值转为字符，所以，最后答案为x=2,y=1
运⾏结果：x= 2 y= 1
2、阅读以下程序段，写出运⾏结果： (4分)
x=5 同理的我就不讲了，直接看if那⾥
y=-6
If x>0 Then x = y-3 Else y = x+3 如果x>0则将y-3赋值给x（我们先看这个条件成⽴不成⽴，上⾯已经明确指出x=5，那么5>0这是真的）所以将y-3赋值给x，也就是x=y-3，接下来套公式得出x=y-3=-6-3=-9）那么我们整理⼀下(x=-9,y=-6)
Print x - y ; y – x 那么这个就简单了吧？x-y=-9-(-6)=-9+6=-3-------------------y-x=-6-(-9)=-6+9=3
运⾏结果：-3 3
3、下列程序可以实现在窗体上由⽤户任意输⼊⼀个整数，程序可以判断该数的奇偶。

程序由⼀个⽂本框（Textbox）、两个标签（Label）、⼀个按钮（Command）组成。

要求：奇或偶的结果在Label2内显⽰，请在空格处填⼊相应的语句，使之完成上述功能。

(6分)
这⾥可能很多⼈不明⽩为什么《x/2=int(x/2)》，⾸先我们假设x为3，那么x/2=3/2=1.5，int取整x/2为1，那么1.5能等于1吗？肯定不能吧，所以这个结果也就为假的
Private Sub Form_Load ( )
Text1.Text = “”
Label1.Caption = “请输⼊⼀个整数”
Label2.Caption = “”
Command1.Caption = “判定”
End Sub
Private Sub Command1_Click( )
Dim x As Integer'定义⼀个整型
x = Val(Text1.text)'val函数代表将字符转为数值，因为从⽂本框⾥过来的数据全为字符，这⾥要注意⼀下！！
If x mod 2=0 '或x/2=int(x/2) Then 'mod是取余函数，int是取整函数，这⾥在将⼀种取整，fix函数，直接取整数部分，把⼩数部分删掉
label2.caption=＂该数是偶数＂
Else
label2.caption=＂该数是奇数＂
End If
End Sub
4、阅读下⾯程序，并写出执⾏结果。

（3分）
x=int(rnd+1) +2 '我是这么想的，因为这块毕竟我也有点懵，所实话,⾸先看函数，rnd（随机取⼀个0-1之间的数，但是它是区间，也就是不可以取0和1，那么我们可以想到0.1等等
'接下来我们假设rnd取0.1那么0.1+1=1.1，int取整后为1,1+2=3,也就是x=3
if x^2>8 then y=x^2+1 '如果x的平⽅⼤于8那么将x的平⽅+1赋值给y，我们先看条件成⽴不成⽴吧，⾸先我们知道x=3，那么x的平⽅=9,9肯定⼤于8呀，所以y就为x的平⽅+1也就是y=3x3+1 if x^2=9 then y=x^2-2 '但是这⾥，如果按y=9的话，这个也就满⾜了，y=x*x-2=3x3-2=7，实在不懂，有会的的话，评论区告诉我，谢谢
if x^2<8 then y=x^3
print y
7
5、读程序，写结果。

（4分）
private sub form_click( )
x=2
y=3
x=y '就是⼀个简单的交换原理,将y赋值给x，也就是y=2,x=3了呗。

print”X=”;X x=3
print”y=”;y y=3
x=x+1 '上⾯的x=3，这⾥将x+1赋值给x，也就是x=3+1=4
print”X=”;X, x=4
print”y=”; y y=3
end sub
6、读程序，写结果。

（3分）
private sub form_click( )
const pi as single=3.14 这⾥就是将pi定义为整型，然后为3.14
a%=7 '%就是个（integer % 短整型、long & 长整型，single ! 单精度浮点型，double # 双精度浮点型，currency @ 货币型，string $ 字符型）
if a mod 4 > pi then '如果a除以4的余数⼤于pi也就是3.14，那么输出努⼒,我们先看a=7那么a除以4余数是不是为3呀？那么3⼤于3.14吗？很明显，不成⽴，所以就为else也就是“学习”
print”努⼒”
else
print”学习”
end if
end sub
学习
另外，解析不易，如果可以的话，留下你的⼩关注，我会在以后的时间⾥，更新更多好玩的东西，以及⼩技巧，谢谢啦
~。