资源简介

(
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
) (
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
) (
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
)
登陆二一教育在线组卷平台 助您教考全无忧
内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术第一次月考（计算机班）VB试卷
一、选择题：本题共20小题，每小题2分，共40分。
1.（2021高三上·临河月考）以下叙述中错误的是（ ）
A. 打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B. 保存VB程序时，应分别保存窗体文件、工程文件和模块文件
C. 由于VB属于高级语言，所以其程序不能以解释方式执行
D. 一个工程可以添加多个模块文件
2.（2021高三上·临河月考）将数据和程序（ ）起来的一个逻辑实体称为“对象”
A. 连接 B. 封装 C. 串接 D. 调试
3.（2021高三上·临河月考）如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（ ）
A. Variant B. Single C. Double D. Integer
4.（2021高三上·临河月考）事件的名称必须是（ ）
A. 窗体所能识别的 B. 能够被用户触发的
C. 对象所能识别的 D. 该事件有对应的方法可执行
5.（2021高三上·临河月考）以下不符合VB语法的常量是（ ）
A. 20－10 B. ”电脑” C. true D. 2.6E+01
6.（2021高三上·临河月考）在VB中，数据100&的类型是（ ）
A. 单精度型 B. 双精度型 C. 整型 D. 长整型
7.（2021高三上·临河月考）设有语句：x=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输入数值10，并按回车键，则下列叙述中正确的是（ ）
A. 变量X的值是数值“示例” B. 在InputBox对话框标题栏中显示的是"示例"
C. 0是默认值 D. 变量X的值是字符串"10"
8.（2021高三上·临河月考）下列属性中属于逻辑型的是（ ）
A. Caption B. BorderStyle C. Visible D. Name
9.（2021高三上·临河月考）窗体上有一个名为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.（2021高三上·临河月考）设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）
A. Text1.MaxLength=0 B. Text1.Enabled=False
C. Text1.Visible=False D. Text1.Width=0
11.（2021高三上·临河月考）命令按钮不支持的事件是（ ）
A. Click B. DblClick C. GotFocus D. LostFocus
12.（2021高三上·临河月考）命令按钮command1的事件过程如下：
Private sub command1_click( )
X=inputbox(“输入：”,“输入整数”)
Msgbox “输入的数据是：”,, “输入数据：”+X
End sub
程序运行后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（ ）
A. X的值是数值型数据10 B. 输入对话框的标题是“输入整数”
C. 信息框的标题是“输入数据：10” D. 信息框中的显示是“输入的数据是：”
13.（2021高三上·临河月考）运行以下程序段后，输出结果为（ ）
X%=1/4
Y%=11/4
Print x%;y%
A. 0.25 0.75 B. 1 3 C. 0 2 D. 0 3
14.（2021高三上·临河月考）若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（ ）
A. 0 B. 1 C. 实时错误 D. 编译错误
15.（2021高三上·临河月考）设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.（2021高三上·临河月考）运行下面程序段时，若从键盘输入－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.（2021高三上·临河月考）有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
运行程序后，X的值是（ ）
A. 26 B. 27 C. 38 D. 57
18.（2021高三上·临河月考）已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（ ）
X=“ABCDEFG”
For i =4 to 1 setp -1
y=y+mid(x, i, 1)
Next i
A. ABCD B. DCBA C. DEFG D. GFED
19.（2021高三上·临河月考）以下程序段的输出结果是（ ）
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.（2021高三上·临河月考）执行下面的程序段后，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.（2021高三上·临河月考）可以在中断状态下查询对象值的窗口是 。
22.（2021高三上·临河月考）在VB中，发生在对象上且能被对象识别的动作称为 。
23.（2021高三上·临河月考）当Rem放在某语句后，必须用“ ”分隔，否则会出错。
24.（2021高三上·临河月考）表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是 。
25.（2021高三上·临河月考）同时具有列表框与文本框功能的控件是 。
26.（2021高三上·临河月考）设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为 。
27.（2021高三上·临河月考）循环结构for I = 5.5 to 0 step -2的循环次数是
28.（2021高三上·临河月考）若要设置文本框的滚动条生效，必须先把 属性设置为True。
29.（2021高三上·临河月考）在窗体上画两个文本框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.（2021高三上·临河月考）以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then

End If

Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
31.（2021高三上·临河月考）下面这段程序是从3个数中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“请输入X的值”))
Y=val(inputbox(“请输入Y的值”))
Z=val(inputbox(“请输入Z的值”))
If then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
32.（2021高三上·临河月考）下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
33.（2021高三上·临河月考）完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^( )) *i
Next i
Print s
End Sub
34.（2021高三上·临河月考）以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
Private Sub Command1_Click() '添加按钮
If Len(Text1.Text) <> 0 Then

Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '删除按钮
If Then
MsgBox "先选择，再删除！"
Else

End If
End Sub
35.（2021高三上·临河月考）下面的程序是求100以内奇数和s的值，请将程序补充完整。
Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step

Next
Print
End Sub
36.（2021高三上·临河月考）在窗体上添加1个列表框、1个命令按钮和1个标签，其名称分别为List1，Command1和Label1,通过属性窗口把列表框中的项目设置为“第一个项目”，“第二个项目”，“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮 ，将所选择的项目删除，并在标签中显示列表框当前的项目数。将程序补充完整。
Private Sub Command1_Click()
If List1.ListIndex >= Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "请选择要删除的项目"

End Sub
37.（2021高三上·临河月考）在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：。程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=
End sub
Private sub form_click( )
Timer1.enabled=
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
答案解析部分
一、选择题：本题共20小题，每小题2分，共40分。
1.【答案】 C
【考点】程序的保存与发布，程序的创建
【解析】
2.【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
3.【答案】 A
【考点】常量、变量及变量的赋值
【解析】
4.【答案】 C
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
5.【答案】 A
【考点】常量、变量及变量的赋值
【解析】
6.【答案】 D
【考点】常见数据类型、数组
【解析】
7.【答案】 D
【考点】基本语句
【解析】
8.【答案】 C
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
9.【答案】 A
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
10.【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
11.【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
12.【答案】 A
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，基本语句
【解析】
13.【答案】 D
【考点】运算符、基本运算与表达式
【解析】
14.【答案】 A
【考点】分支结构语句及程序实现
【解析】
15.【答案】 C
【考点】运算符、基本运算与表达式
【解析】
16.【答案】 B
【考点】分支结构语句及程序实现
【解析】
17.【答案】 B
【考点】循环结构语句及程序实现
【解析】
18.【答案】 B
【考点】循环结构语句及程序实现
【解析】
19.【答案】 B
【考点】循环结构语句及程序实现
【解析】
20.【答案】 B
【考点】循环结构语句及程序实现
【解析】
二、填空题(每空1分，共10分)
21.【答案】 立即窗口
【考点】程序设计工具及编程环境
【解析】
22.【答案】 事件
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
23.【答案】 冒号 或 :
【考点】语句注释及缩进
【解析】
24.【答案】 7
【考点】运算符、基本运算与表达式
【解析】
25.【答案】 组合框
【考点】程序设计工具及编程环境
【解析】
26.【答案】 “hai”
【考点】常量、变量及变量的赋值
【解析】
27.【答案】 3
【考点】循环结构语句及程序实现
【解析】
28.【答案】 multiline
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
29.【答案】 “ABCD”；“Vb Programming”
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，顺序结构及程序实现
【解析】
三、程序填空题（每空2分，共50分）
30.【答案】 2；b = False；k = k + 1
【考点】分支结构语句及程序实现，循环结构语句及程序实现，常用标准函数
【解析】
31.【答案】 0；n Mod 5 = 1 And n Mod 7 = 1
【考点】分支结构语句及程序实现
【解析】
32.【答案】 0；n Mod 5 = 1 And n Mod 7 = 1；Ncount
【考点】分支结构语句及程序实现，循环结构语句及程序实现
【解析】
33.【答案】 0；100；]i+1
【考点】循环结构语句及程序实现
【解析】
34.【答案】 List1.AddItem Text1.Text；List1.ListIndex = -1；List1.RemoveItem List1.ListIndex
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，分支结构语句及程序实现
【解析】
35.【答案】 0；2；s=s+i；i；s
【考点】循环结构语句及程序实现
【解析】
36.【答案】 0；List1.ListIndex；List1.ListCount；end if
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，分支结构语句及程序实现
【解析】
37.【答案】 1000；True
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，顺序结构及程序实现
【解析】
1 / 1(
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
) (
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
) (
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
)
登陆二一教育在线组卷平台 助您教考全无忧
内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术第一次月考（计算机班）VB试卷
一、选择题：本题共20小题，每小题2分，共40分。
1.（2021高三上·临河月考）以下叙述中错误的是（ ）
A. 打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B. 保存VB程序时，应分别保存窗体文件、工程文件和模块文件
C. 由于VB属于高级语言，所以其程序不能以解释方式执行
D. 一个工程可以添加多个模块文件
【答案】 C
【考点】程序的保存与发布，程序的创建
【解析】
2.（2021高三上·临河月考）将数据和程序（ ）起来的一个逻辑实体称为“对象”
A. 连接 B. 封装 C. 串接 D. 调试
【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
3.（2021高三上·临河月考）如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（ ）
A. Variant B. Single C. Double D. Integer
【答案】 A
【考点】常量、变量及变量的赋值
【解析】
4.（2021高三上·临河月考）事件的名称必须是（ ）
A. 窗体所能识别的 B. 能够被用户触发的
C. 对象所能识别的 D. 该事件有对应的方法可执行
【答案】 C
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
5.（2021高三上·临河月考）以下不符合VB语法的常量是（ ）
A. 20－10 B. ”电脑” C. true D. 2.6E+01
【答案】 A
【考点】常量、变量及变量的赋值
【解析】
6.（2021高三上·临河月考）在VB中，数据100&的类型是（ ）
A. 单精度型 B. 双精度型 C. 整型 D. 长整型
【答案】 D
【考点】常见数据类型、数组
【解析】
7.（2021高三上·临河月考）设有语句：x=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输入数值10，并按回车键，则下列叙述中正确的是（ ）
A. 变量X的值是数值“示例” B. 在InputBox对话框标题栏中显示的是"示例"
C. 0是默认值 D. 变量X的值是字符串"10"
【答案】 D
【考点】基本语句
【解析】
8.（2021高三上·临河月考）下列属性中属于逻辑型的是（ ）
A. Caption B. BorderStyle C. Visible D. Name
【答案】 C
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
9.（2021高三上·临河月考）窗体上有一个名为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
【答案】 A
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
10.（2021高三上·临河月考）设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（ ）
A. Text1.MaxLength=0 B. Text1.Enabled=False
C. Text1.Visible=False D. Text1.Width=0
【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
11.（2021高三上·临河月考）命令按钮不支持的事件是（ ）
A. Click B. DblClick C. GotFocus D. LostFocus
【答案】 B
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
12.（2021高三上·临河月考）命令按钮command1的事件过程如下：
Private sub command1_click( )
X=inputbox(“输入：”,“输入整数”)
Msgbox “输入的数据是：”,, “输入数据：”+X
End sub
程序运行后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（ ）
A. X的值是数值型数据10 B. 输入对话框的标题是“输入整数”
C. 信息框的标题是“输入数据：10” D. 信息框中的显示是“输入的数据是：”
【答案】 A
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，基本语句
【解析】
13.（2021高三上·临河月考）运行以下程序段后，输出结果为（ ）
X%=1/4
Y%=11/4
Print x%;y%
A. 0.25 0.75 B. 1 3 C. 0 2 D. 0 3
【答案】 D
【考点】运算符、基本运算与表达式
【解析】
14.（2021高三上·临河月考）若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（ ）
A. 0 B. 1 C. 实时错误 D. 编译错误
【答案】 A
【考点】分支结构语句及程序实现
【解析】
15.（2021高三上·临河月考）设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
【答案】 C
【考点】运算符、基本运算与表达式
【解析】
16.（2021高三上·临河月考）运行下面程序段时，若从键盘输入－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
【答案】 B
【考点】分支结构语句及程序实现
【解析】
17.（2021高三上·临河月考）有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
运行程序后，X的值是（ ）
A. 26 B. 27 C. 38 D. 57
【答案】 B
【考点】循环结构语句及程序实现
【解析】
18.（2021高三上·临河月考）已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（ ）
X=“ABCDEFG”
For i =4 to 1 setp -1
y=y+mid(x, i, 1)
Next i
A. ABCD B. DCBA C. DEFG D. GFED
【答案】 B
【考点】循环结构语句及程序实现
【解析】
19.（2021高三上·临河月考）以下程序段的输出结果是（ ）
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
【答案】 B
【考点】循环结构语句及程序实现
【解析】
20.（2021高三上·临河月考）执行下面的程序段后，i的值为( )
X=5
For i = 1 TO 20 STEP 2
x=x+i^2
Next i
A. 21 B. 22 C. 1335 D. 50
【答案】 B
【考点】循环结构语句及程序实现
【解析】
二、填空题(每空1分，共10分)
21.（2021高三上·临河月考）可以在中断状态下查询对象值的窗口是 。
【答案】 立即窗口
【考点】程序设计工具及编程环境
【解析】
22.（2021高三上·临河月考）在VB中，发生在对象上且能被对象识别的动作称为 。
【答案】 事件
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
23.（2021高三上·临河月考）当Rem放在某语句后，必须用“ ”分隔，否则会出错。
【答案】 冒号 或 :
【考点】语句注释及缩进
【解析】
24.（2021高三上·临河月考）表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是 。
【答案】 7
【考点】运算符、基本运算与表达式
【解析】
25.（2021高三上·临河月考）同时具有列表框与文本框功能的控件是 。
【答案】 组合框
【考点】程序设计工具及编程环境
【解析】
26.（2021高三上·临河月考）设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为 。
【答案】 “hai”
【考点】常量、变量及变量的赋值
【解析】
27.（2021高三上·临河月考）循环结构for I = 5.5 to 0 step -2的循环次数是
【答案】 3
【考点】循环结构语句及程序实现
【解析】
28.（2021高三上·临河月考）若要设置文本框的滚动条生效，必须先把 属性设置为True。
【答案】 multiline
【考点】类、对象、属性、方法、事件和事件处理的概念及应用
【解析】
29.（2021高三上·临河月考）在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text1中显示的内容为 ；文本框Text2中显示的内容为
【答案】 “ABCD”；“Vb Programming”
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，顺序结构及程序实现
【解析】
三、程序填空题（每空2分，共50分）
30.（2021高三上·临河月考）以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then

End If

Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
【答案】 2；b = False；k = k + 1
【考点】分支结构语句及程序实现，循环结构语句及程序实现，常用标准函数
【解析】
31.（2021高三上·临河月考）下面这段程序是从3个数中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“请输入X的值”))
Y=val(inputbox(“请输入Y的值”))
Z=val(inputbox(“请输入Z的值”))
If then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
【答案】 0；n Mod 5 = 1 And n Mod 7 = 1
【考点】分支结构语句及程序实现
【解析】
32.（2021高三上·临河月考）下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
【答案】 0；n Mod 5 = 1 And n Mod 7 = 1；Ncount
【考点】分支结构语句及程序实现，循环结构语句及程序实现
【解析】
33.（2021高三上·临河月考）完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^( )) *i
Next i
Print s
End Sub
【答案】 0；100；]i+1
【考点】循环结构语句及程序实现
【解析】
34.（2021高三上·临河月考）以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
Private Sub Command1_Click() '添加按钮
If Len(Text1.Text) <> 0 Then

Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '删除按钮
If Then
MsgBox "先选择，再删除！"
Else

End If
End Sub
【答案】 List1.AddItem Text1.Text；List1.ListIndex = -1；List1.RemoveItem List1.ListIndex
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，分支结构语句及程序实现
【解析】
35.（2021高三上·临河月考）下面的程序是求100以内奇数和s的值，请将程序补充完整。
Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step

Next
Print
End Sub
【答案】 0；2；s=s+i；i；s
【考点】循环结构语句及程序实现
【解析】
36.（2021高三上·临河月考）在窗体上添加1个列表框、1个命令按钮和1个标签，其名称分别为List1，Command1和Label1,通过属性窗口把列表框中的项目设置为“第一个项目”，“第二个项目”，“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮 ，将所选择的项目删除，并在标签中显示列表框当前的项目数。将程序补充完整。
Private Sub Command1_Click()
If List1.ListIndex >= Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "请选择要删除的项目"

End Sub
【答案】 0；List1.ListIndex；List1.ListCount；end if
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，分支结构语句及程序实现
【解析】
37.（2021高三上·临河月考）在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：。程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=
End sub
Private sub form_click( )
Timer1.enabled=
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
【答案】 1000；True
【考点】类、对象、属性、方法、事件和事件处理的概念及应用，顺序结构及程序实现
【解析】
1 / 1

展开更多......

收起↑