资源简介

临河三中2021～2022学年上学期高三年级月考
高三（VB）试卷
试卷总分：100分 考试时间：70分钟
姓名 班级 考号
注意事项：1．答卷前，务必将自己的姓名、准考证号等填写在试卷和答题卡上，并正确粘贴条形码。
2．选择题答案用2B铅笔把答题卡对应题目的答案标号涂黑。非选择题有0.5毫米黑色字迹笔将答案写在答题卡指定位置。在试卷上答题无效。
3．考试结束后，只交答题卡，试卷自己保留，以备讲评使用。
一、选择题：本题共20小题，每小题2分，共40分。在每小题给出的四个选项中，只有一项是符合题目要求的。
1、以下叙述中错误的是（ ）
A、打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B、保存VB程序时，应分别保存窗体文件、工程文件和模块文件
C、由于VB属于高级语言，所以其程序不能以解释方式执行
D、一个工程可以添加多个模块文件
2、将数据和程序（ ）起来的一个逻辑实体称为“对象”
A、连接 B、封装 C、串接 D、调试
3、如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（ ）
A、 Variant B、 Single C、 Double D、Integer
4、事件的名称必须是（ ）
A、窗体所能识别的 B、能够被用户触发的
C、对象所能识别的 D、该事件有对应的方法可执行
5、以下不符合VB语法的常量是（ ）
A、20－10 B、”电脑” C、true D、2.6E+01
6、在VB中，数据100&的类型是（ ）
A、单精度型 B、双精度型 C、整型 D、长整型
7、设有语句：x=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输入数值10，并按回车键，则下列叙述中正确的是（ ）
A、变量X的值是数值“示例”B、在InputBox对话框标题栏中显示的是"示例"
C、0是默认值 D、变量X的值是字符串"10"
8、下列属性中属于逻辑型的是（ ）
A、Caption B、BorderStyle C、Visible D、Name
9、窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性设置为（ ）
A、Label1.BackStyle=0： Label1.BorderStyle=0
B、Label1.BackStyle=1： Label1.BorderStyle=1
C、Label1.BackStyle=true： Label1.BorderStyle=true
D、Label1.BackStyle=False： Label1.BorderStyle=False
10、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）
A、Text1.MaxLength=0 B、Text1.Enabled=False
C、Text1.Visible=False D、Text1.Width=0
11、命令按钮不支持的事件是（ ）
A、Click B、DblClick C、GotFocus D、LostFocus
12、命令按钮command1的事件过程如下：
Private sub command1_click( )
X=inputbox(“输入：”,”输入整数”)
Msgbox “输入的数据是：”,,”输入数据：”+X
End sub
程序运行 后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（ ）
A、X的值是数值型数据10 B、输入对话框的标题是“输入整数”
C、信息框的标题是“输入数据：10”D、信息框中的显示是“输入的数据是：”
13、运行以下程序段后，输出结果为（ ）
X%=1/4
Y%=11/4
Print x%;y%
A、0.25 0.75 B、1 3 C、0 2 D、0 3
14、若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（ ）
A、0 B、1 C、实时错误 D、编译错误
15、设a=2,b=3,c=4,d=5,下列表达式的值是 3>2*b OR a=c AND b<>c OR c>d （ ）
A、1 B、 True C、False D、-1
16、运行下面程序段时，若从键盘输入－5，则变量Y的值是（ ）
X=-5
A=val(inputbox(“请输入A的值：”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
A、－5 B、－2 C、－4 D、－3
17、有如下程序段
X=2
For I = 1 to 10 step 2
X=x+i
Next 运行程序后，X的值是（ ）
A、26 B、27 C、38 D、57
18、已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（ ）
X=”ABCDEFG”
For I =4 to 1 setp -1
Y=y+mid(x,I,1)
Next
A、ABCD B、DCBA C、DEFG D、GFED
19、以下程序段的输出结果是（ ）
x=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
A、1 B、4 C、8 D、20
20、执行下面的程序段后，i的值为( )
X=5
For I = 1 TO 20 STEP 2
X=X+i^2
Next i
A. 21 B. 22 C. 1335 D. 50
二、填空题(每空1分,共10分)
21、可以在中断状态下查询对象值的窗口是___________________。
22、在VB中，发生在对象上且能被对象识别的动作称为_________________。
23、当Rem放在某语句后，必须用“______”分隔，否则会出错。
24、表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是_________________。
25、同时具有列表框与文本框功能的控件是_________________。
26、设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$,”g”)+6)执行上面的程序段后，变量b$的值为______________。
27、循环结构for I = 5.5 to 0 step -2的循环次数是_________________
28、若要设置文本框的滚动条生效，必须先把___________属性设置为True。
29、在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1 _ Click( )
Text1.Text=”Vb Programming”
Text2.Text=Text1.Text
Text1.Text=”ABCD”
End Sub
程序运行后，单击命令按钮，文本框Text1中显示的内容为
文本框Text2中显示的内容为
三、程序填空题（每空2分，共50分）
30、以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k= ________【1】_____________
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
_______【2】______________
End If
__________【3】___________
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
31、下面这段程序是从3个数中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“请输入X的值”))
Y=val(inputbox(“请输入Y的值”))
Z=val(inputbox(“请输入Z的值”))
If _______【4】________then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
32、下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =_________【6】_____________
n = 1
Do
If ___________【7】__________ Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until _______【8】________=5
End Sub
33、完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S = __________【9】___________
For i = 1 To _________【10】____________
S = s+((-1)^(___________【11】__________)) *i
Next i
Print s
End Sub
34、以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
Private Sub Command1_Click()‘ 添加按钮
If Len(Text1.Text) <> 0 Then
___________【12】__________
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() ‘删除按钮
If __________【13】___________ Then
MsgBox "先选择，再删除！"
Else
_________【14】____________
End If
End Sub
35、下面的程序是求100以内奇数和s的值，请将程序补充完整。
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s = ______【15】______
For i = 1 To 100 Step ____【16】____
______【17】________
Next ______【18】________
Print ______【19】________
End Sub
36、在窗体上添加1个列表框、1个命令按钮和1个标签，其名称分别为List1,Command1和Label1,通过属性窗口把列表框中的项目设置为“第一个项目”，“第二个项目”，“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮 ，将所选择的项目删除，并在标签中显示列表框当前的项目数。将程序补充完整。
Private Sub Command1_Click()
If List1.ListIndex >= _______【20】_________ Then
List1.RemoveItem _______【21】_______
Label1.Caption = _______【22】_______
Else
MsgBox "请选择要删除的项目"
______【23】________
End Sub
37、在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：。程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=_______【24】_______
End sub
Private sub form_click( )
Timer1.enabled=_______【25】_______
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
高三计算机班VB答案
一、选择题（每题2分，共40分）
1－5CBACA 6-10DDCAB
11-15BADAC 16－20BBBBB
二、填空题（每空1分，共10分）
21、立即窗口 22、事件 23、冒号 或 :
24、7 25、组合框
26、“hai” 27、3 28、multiline
29、“ABCD” “Vb Programming”
三、程序填空题（每空2分，共50分）
30、[1]2 [2]b = False [3]k = k + 1
31、[4]x >y或y 32、[6]0 [7]n Mod 5 = 1 And n Mod 7 = 1 [8]Ncount
33、[9]0 [10]100 [11]i+1
34、[12]List1.AddItem Text1.Text
[13]List1.ListIndex = -1
[14]List1.RemoveItem List1.ListIndex
35、[15]0 [16]2 [17]s=s+i
[18]i [19]s
36、[20]0 [21]List1.ListIndex
[22]List1.ListCount [23]end if
37、[24]1000 [25]True
高三计算机班VB——明细表
一、选择题
1. vb各文件的使用
2. VB特点
3. 数据类型
4. 数据类型
5. 不通过类型常量特点
6. 类型说明符
7. Inputbox函数的使用
8. 逻辑性常量
9. 标签控件的属性
10. 文本框控件的属性
11. 事件名
12. 消息框
13. 数值型数据不同类型的转换
14. 单行条件语句
15. 关系表达式
16. Select case条件语句的使用
17. For循环中循环变量
18. For循环中字符串的连接
19. Do循环中计数、累乘
20. For循环中循环变量
二、填空题
21. VB各窗口功能
22. 对象三要素概念
23. 注释语句语法规则
24. 计算算术表达式
25. 控件功能
26. 计算字符串表达式
27. 计算循环次数
28. 文本框属性
29. 赋值语句
三、程序填空题
30. 循环求素数
31. 三个数求最小数
32. 找特定条件的5个最小正整数
33. 利用循环计算带符号的累加
34. 列表框的添加、删除问题
35. For循环求奇数和
36. 列表框选中项删除、项目总数
37. 计时器显示时间

展开更多......

收起↑