资源简介

临河三中2021～2022学年上学期期中考试
高二计算机（VB）试卷
试卷总分：100分 考试时间：70分钟
姓名 班级 考号
注意事项：1．答卷前，务必将自己的姓名、准考证号等填写在试卷和答题卡上，并正确粘贴条形码。
2．选择题答案用2B铅笔把答题卡对应题目的答案标号涂黑。非选择题用0.5毫米黑色字迹笔将答案写在答题卡指定位置。在试卷上答题无效。
3．考试结束后，只交答题卡，试卷自己保留，以备讲评使用。
第Ⅰ卷（共50分）
一、 选择题：本题共50小题，每小题1分，共50分。在每小题给出的四个选项中，只有一项是符合题目要求的。
1. 以下关于属性设置正确的说法是( )。
A、在属性窗口中可以设置所有属性的属性值
B、在程序代码中可以设置所有属性的属性值
C、属性的名称由VB事先定义，用户不能改变
D、所有对象的属性都是可见的
1. 表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）.
A、 .48 B、 .048 C、 .5 D、 .05
1. 表达式Val(".123E2CD")的值是（）
A、.123 B、12.3 C、0 D、.123E2CD
1. 系统符号常量的定义可以通过（）获得.
A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱
1. 表达式(7\3+1)*(18\5-1)的值是（）.
A、8.67 B、7.8 C、6 D、6.67
1. 表达式5^2 Mod 25\2^2的值是（）.
A、1 B、0 C、6 D、4
1. 表达式25.28 Mod 6.99的值是（）.
A、1 B、5 C、4 D、出错
1. 下面表达式中,（）的运算结果与其他三个不同.
A、Exp(-3.5) B、Int(-3.5)+0.5
C、-Abs(-3.5) D、Sgn(-3.5)-2.5
1. 表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.
A、1 B、0 C、01 D、2
1. 表达式Left("howareyou",3)的值是（）.
A、how B、are C、you D、howareyou
1. 表达式Abs(-5)+Len("ABCDE")的值是（）.
A、5ABCDE B、05ABCDE C、10 D、0
1. 下面change事件过程中，文本框text1用来接收输入，该事件过程的作用是：
Private Sub Text1_Change()
Text2.Text = Str(2 * 3.1416 * Val(Text1.Text))
End Sub
A. 将在文本框text1中输入的数字变为数值
B. 将在文本框text1中输入的数字作为半径，求圆的面积并转换为字符串
C. 只要text1中的内容一改变，text2中显示的圆周长也随之改变
D. 事件过程中存在错误，事件过程不能执行
1. 函数Len(Str(Val("123.4")))的值为（）.
A、11 B、5 C、6 D、8
1. 设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值（）
A、123456 B、123445 C、8 D、6
1. 函数Ucase(Mid("Visualbasic",8,5))的值为（）.
A、Visual B、ASIC C、VISUAL D、BASIC
1. 表达式Str(Len("123"))+Str(77.7)的值为（）.
A、 3 77.7 B、200.7 C、80.7 D、12377.7
1. 表达式(-1)*Sgn(-100+Int(Rnd*100))的值是（）.
A、0 B、1 C、-1 D、随机函数
1. 设有如下声明：
Dim X As Integer??
如果Sgn(X)的值为-1，则X的值是()
A、整数 B、大于0的整数 C、等于0的整数 D、小于0的数
1. 在窗体(名称为Forn1) 上画一个名称为Text的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机考试”。以下能实现上述操作的事件过程是:
A. Private Sub Textl Change( )Command1.Caption=”计算机考试”End Sub B. Private Sub Command1 _Click( )Caption="计算机考试”End Sub
C. Private Sub Foml Click( )Text1.Caption="计算机考试"End Sub D. Private Sub Command1 Click( ) Text1.Text-="计算机考试"End Sub
1. 假定有如下的窗体事件过程:
Private Sub Form Click( )
a$ = "Microsoft Visual Basic
b$ = Right(a$, 5)
c$ = Mid(a$， 1， 9)
MsgBox a$，34， b$
End Sub
程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息：
A. Microsoft Visual B. Microsoft Visual Basic
C. Basic D. 5
1. 在窗体上画一个文本框， 然后编写如下事件过程:
Private Sub Form Click( )
x = InputBox("请输入一 个整数")
Print x + Textl.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定"按钮后，在窗体上显示的内容是
A.123 B.456 C.579 D.123456
1. 数据2013是( )数据。
A.整型 B.长整型 C.字符型 D.日期型
1. 设窗体上有一个文本框，名称为Textl,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是( )。
A.Text1.MaxLength=0 B. Textl .Enabled=Flase
C.Text1.Visible=Flase D. Text1.Width=0
1. 如果希望一个窗体在显示的时候没有边框，应该完成的操作是( )
A.将窗体的Caption设成空字符 B.将窗体的Enabled属性置成False
C.将窗体的Borderstyle置成None D.将窗体的ContalBox置成False
1. 消息框函数MsgBox不但能输出信息，还能通过返回值告诉程序用户( )
A.按下哪一个按钮 B.是否继续 C.哪个图标 D.几个按钮
1. 下列赋值语句正确的是( )
A. A+B+C=0 B. A=B+C C. SIN A、 =B+C D. A=2*π*R
1. 数学式cos45°写成VB表达式是
A. COS45 B.COS (45) C.COS (45°) D.COS (45*3.14/180)
1. \ 、 / 、 Mod、*四个算术运算符中，优先级别最低的是
A. / B. \ C. Mod D. *
1. 以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一一个窗体
B.窗体的Name性的值是显示在窗体标题栏中的文本
C.可以在运行期间改变对象的Name属性的值
D.对象的Name属性值可以为空
1. 下列正确声明各组变量的是( )。
A、Dim abc As Integer , num As Single B、Dim a%, b%, c%, a￥
C、Dim I%, N$ As Integer D、public dim n%
1. 设有如下变量声明
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
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”)
1. 设有语句
X=InputBox("输入数值”，“0",“示例)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A.变量x的值是数值10
B.在InputBox对话框标题栏中显示的是“示例”
C.0是默认值
D.变量X的值是字符串“10”
1. 以下能够触发文本框Change事件的操作是
A.文本框失去焦点 B.文本框获得焦点
C.设置文本框的焦点 D.改变文本框的内容
1. 下列叙述中正确的是 ( )
A.只有窗体才是Visual Basic中的对象
B.只有控件才是Visual Basic中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic中的对象
1. VB的逻辑类型数据占( ) 字节内存
A.2 B. 4 C.8 D.16
1. 在表示长整数时，可作为长整数尾部符号的是
A. # B. ! C. & D. $
1. 为了使标签中的内容居中显示，应把Alignnent属性设置为
A.0 B.1 C. 2 D.3
1. 决定标签内显示内容的属性是
A. Text B. Name C. Alignment D. Caption
1. 下列关于面向对象编程的叙述错误的是
A.属性是描述对象特征的数据 B.方法指示对象的行为
C.事件是能够被对象识别的动作 D. Visual Basic程序的运行机制是面向对象
1. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Text1.Text = "visual"
Me.Text1 = "basic"
Text1 = "program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A. Visual B. Basic C. Program D. 出错
1. 有如下程序段:
Dim str1 As String*5
Str1="Visual Basic”
当该段程序被执行完时，变量str1 的值为
A.“Visual Basic" B.“V“ C.“Visual” D.“Visua”
1. 语句X=X+1的正确含义是（）
A、变量X的值与X+1的值相等
B、将变量X的值存到X+1中去
C、将变量X的值加1后赋给变量X
D、变量X的值为1
1. 下列哪组语句可以将变量A、B的值互换（ ）
A、A=B：B=A B、A=A+B：B=A-B : A=A-B
C、A=C：C=B :B=A D、A=(A+B)/2:B=(A-B)/2
1. 函数String（n,”str”）的功能是（ ）。
A、把数值型数据转换为字符串
B、返回由n个字符组成的字符串
C、从字符串中取出n个字符
D、从字符串中第n个字符的位置开始取子字符串
1. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
MsgBox Str(123 + 321)
End Sub
程序运行后，单击命令按钮，则在信息框中显示的提示信息为
A、字符串“123+321” B、字符串“444” C、数值“444” D、空白
1. 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是
A、Load B、Click C、LostFocus D、KeyPress
1. 为了使标签具有“透明”的显示效果，需要设置的属性是
A、Caption B、Alignment C、Backstyle D、AutoSize
1. 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发
A、Text1的SetFocus事件 B、Text1的GotFocus事件
C、Text1的LostFocus事件 D、窗体的GotFocus事件
1. 设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是
A、Form1_MouseDown B、Win_MouseDown
C、Form_MouseDown D、MouseDown_Form1
1. 窗体上有名称为Command1的命令按钮和名称为Textl的文本框
Private Sub Command1_Click（）
Text1．Text="程序设计"
Text1．SeFocus
End Sub
Private Sub Text1_GotFocus（）
Text1．Text="等级考试"
End Sub
运行以上程序，单击命令按钮后（）。
A.文本框中显示的是"程序设计"，且焦点在文本框中
B.文本框中显示的是"等级考试"，且焦点在文本框中
C.文本框中显示的是"程序设计"，且焦点在命令按钮上
D.文本框中显示的是"等级考试"，且焦点在命令按钮上
第Ⅱ卷（共50分）
二、填空题（20*1分=20分，答案写在答题纸上）
1. 按要求写赋值语句：已知字符串变量x其值为某个小写字母，将其转换为大写字母并存储在字符串变量ch中。
1. 按要求写赋值语句：产生随机数，范围为[5,16]的整数，并存储在Integer类型变量x中__________________
1. 为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的 属性设置为True。
1. 将数学表达式:____________
1. 将数学表达式:____________
1. 计算函数sqr(sqr(81))的值为________
1. 在命令按钮上释放鼠标按钮时，所触发的事件称为：_________
1. 要想在文本框中显示滚动条，首先需要将Multiline属性设为_______，然后修改ScrlooBars属性。
1. “Hello”是_________型常量，False是_________型常量。
1. 为了使一个标签具有边框，必须把它的BorderStyle属性设置为________
1. 阅读一下程序段，程序运行后变量a的结果为_______
a = 1
b = 2
a = a + b
b = a + b
1. 一个按钮其Name属性为Cmd1，当其单击事件过程的名称应为___________
1. 在面向对象的程序设计中，由_______定义其外观特征，由_________定义其行为，由__________定义其与用户的交互。
1. 假定一个文本框的Name属性为Text1，为了使该文本框获得焦点，应执行的语句是_____________________
1. 根据下图写出InputBox函数中的参数。InputBox（ ， ， ）
三、程序填空题（每空2分，共30分）
1. 序的功能是：当单击Command1命令按钮时，Text1和Text2控件中的内容将进行交换；单击命令按钮Command1时可以关闭窗体。
Private Sub Command1_Click()
[1]
Text1.Text = Text2.Text
[2]
End Sub
Private Sub Command2_Click()
[3]
End Sub
1. 根据注释语句将程序段补充完整。
Private Sub Command1_Click()
Label1.Caption = "你是男是女呀？" '改变Label1的标题内容
[4] 'Label2的内容居中显示
[5] '将Label2的边框样式改为无边框
End Sub
1. 下面程序段的功能是：通过按钮Command1把字符串“轻轻松松学VB”按20号字体大小输出到窗体上的（2000，1500）；单击Command2清除窗体中的文字内容。
Private Sub Command1_Click()
Dim x As String
x = "轻轻松松学VB"
[6] = 20
[7]
[8]
Show
Print x
End Sub
Private Sub Command2_Click()
[9]
End Sub
1. 下面程序段将一个三位整数倒序输出。
Private Sub Form_Click()
Dim x%, b%, s%, g%
x = Val(Text1.Text)
b = [10]
s = [11]
g = [12]
x = g * 100 + s * 10 + b
Print [13]
End Sub
1. 下面程序的功能是：单击“启动”按钮后，能在标签Label1中显示当前时间。（该程序中窗体上只有一个标签控件）
Private Sub [14]____________
Label1.Caption = [15]___________
End Sub
高二计算机（VB）答案
一、 选择题：
1-5：CCBAC 6-10:ACABA
11-15:CCCBB 16-20:ABDAC
21-25:DABCA 26-30:BDCAA
31-35:ADDCA 36-40:CCDDC
41-45:DCBBB 46-50:ACBCB
二、填空题
51. ch = UCase(x)
52. x = Int(Rnd * 12 + 5)
53.AutoSize
54.sqr(log(x))/abs(2*x-1)
55.(1+y/x)/(1-y/x)
56.3
57.mouseup
58.true
59.字符 布尔
60.1
61.3
62. Cmd1_Click()
63.属性 方法 事件
64. Text1.SetFocus
65.请输入半径 输入对话框 10
三、程序填空题
66.[1] t = Text1.Text [2] Text2.Text = t [3]unload me
67.[4] Label2.Alignment = 2 [5] Label2.BorderStyle = 0
68.[6]fontsize=20 [7]current=2000 [8]currenty=1500 [9]cls
69.[10]x\100 [11]x\10 mod 10 [12]x mod 10 [13] x
70. [14] Form_Load() [15]time

展开更多......

收起↑