高中信息技术算法与程序设计(VB)练习题
高中信息技术算法与程序设计（VB）练习题
一、选择题：
1.下列各组控件都具有Caption属性的是
A.窗体、文本框
B.标签、定时器
C.窗体、标签
D.文本框、定时器
2.下列各组控件具有相同默认事件的是
A.窗体、文本框
B.标签、按钮
C.窗体、标签
D.文本框、按钮
3.下列每个控件都具有的属性是
https://www.wendangku.net/doc/bf13707900.html,
B.Caption
C.Font
D.Interval
4.下列运算结果中，值最大的是
A.3\4
B.3/4
C.4 mod 3
D.3 mod 4 〖/表示除,\表示整除,mod表示求余数〗
5.以下哪个是合法的变量名
A．Len B．Test@qw C．6cost_1 D．count2s
6.在Visual Basic代码中，将多个语句合并在一行上的并行符是
A. 撇号（'）
B. 冒号（：）
C. 感叹号（！）
D. 问号（?）
7.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该是
A．5000 B．500 C．50 D．5
8．下列控件中可设置滚动条是
A.计时器 B．标签 C．文本框 D．按钮
9．下面程序执行的结果是
Private Sub Form_Click()
A = "123":
B = "456"
C = Val(A) + Val(B) 〖val是把字符转化为数值的函数〗
Print C \ 100
End Sub
A.123
B.3
C.5
D.579
10．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置
A. Text属性值为"#" B．Caption属性值为"#"
C．password属性值为空"#" D．Passwordchar属性值为"#"
11．下列逻辑运算结果为"true"的是
A.flase or not true
B.flase and not true
C. true or not true
D.true and not true
12．下列控件中可用于接受用户输入文本，又可用于显示文本的是
A．Label 控件 B. TextBox 控件
C. Timer 控件
D. CommandButton 控件
13.以下程序段执行后，整型变量n 的值为
year=2001
n=year\4+year\400-year\100
A. 495
B. 505
C. 500
D. 485
14.下列关于CommandButton 控件的叙述正确的是
A. CommandButton 控件的Caption 属性决定按钮上显示的内容
B. 单击VB应用程序中的按钮，则系统激活按钮控件对应的Change 事件
C. CommandButton 控件的name 属性决定按钮上显示的内容
D. 以上都不对
15.以下程序段执行后整型变量n 的值为
n=0
for i=1 to 20 step 5
n=n+i
next i
A. 50
B. 34
C. 15
D. 210
16.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是
A.对象，属性，事件，方法
B. 对象，属性，方法，事件
C.属性，对象，方法，事件
D. 属性，对象，事件，方法
〖对象的属性定义其外观、方法定义其行为、事件定义其与用户的交互〗
17.如果要改变窗体的标题,需要设置窗体对象的属性。
https://www.wendangku.net/doc/bf13707900.html,
B.Caption
C.BackColor
D.BorderStyle
18.窗体的BackColor属性用于设置窗体的
A.高度
B.宽度
C.背景色
D.前景色
19. Visual Basic提供的标签控件（LABEL）可具有功能是
A.输入文本
B.显示文本
C.计时
D.显示时间
20. Visual Basic为命令按钮提供的 Cancle属性是
A.用来指定命令按钮是否可用ESC键来选中
B．用来指定命令按钮的功能是停止一个程序的运行
C. 用来指定命令按钮的功能是关闭一个运行程序
D．用来指定命令按钮的功能是中断一个程序的运行
〖 Cancle属性值为真时，按键盘上的ESC键相当于用鼠标单击这个按钮
Default属性值为真时，按键盘上的Enter键相当于用鼠标单击这个按钮〗
21. Visual Basic规定窗体文件的扩展名是
A. .for
B. .frm
C. .vbp
D. .bas
22．下列关于算法的叙述不正确的是
A．算法是解决问题的有序步骤
B．算法具有确定性、可行性、有限性等基本特征
C．一个问题的算法都只有一种
D．常见的算法描述方法有自然语言、图示法、伪代码法等
23．下列关于添加"控件"的方法正确的是
A．单击控件图标，将指针移到窗体上，双击鼠标
B．双击工具箱中的控件，即在窗体上出现该控件
C．单击工具箱中的控件，将指针移到窗体上，再单击
D．用鼠标左键拖动工具箱中的某控件到窗体的适当位置
24．以下选项中，不是 Visual Basic控件的是
A.文本框
B.定时器
C.窗体
D.命令按钮
25．若要使某文本框获得控制焦点，可使用的方法是
A.LostFocus
B.SetFocus
C.Point
D.value
26．双击窗体中的对象后，Visual Basic将显示的窗口是
A.项目（工程）窗口 B．工具箱 C．代码窗口 D．属性窗口27．若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为 if a>5 then
if b<4 then c=a-b else c=b-a
else
if b>3 then c=a*b else c=a mod b
end if
A．2 B.-1 C.1 D.6
28．下列逻辑表达式中能完全正确表示条件 "year是闰年"的是
A. year mod 4=0
B. year mod 400=0
C. (year mod 400=0) or (year mod 4=0) and (year mod 100<>0)
D. (year mod 400=0) and (year mod 4=0) or (year mod 100<>0)
29．执行以下程序段后，整型变量C的值为
a=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
A.537
B.2427
C.24328
D.240328
30. 若要设置定时器控件的定时时间，需设置的属性是
A．Interval B．value C．Enabled D．T ext
31.下列关于For ...next 语句的说法正确的是
A.循环变量、初值、终值和步长都必须为数值型
B.step后的步长只能为正数
C.初值必须小于终值
D.初值必须大于终值
32. 下列程序执行后，整型变量n的值为
n=0
for I=1 to 100
if I mod 4=0 then n=n+1
next I
A.5050
B.25
C.26
D.33
33．若要设置文本框中所显示的文本颜色，使用的属性是
A.BackColor
B.FillColor
C.ForeColor
D.BackStyle
35．命令按钮能响应的事件是
A．DblClick B．Click C．Load D．Scroll
36．若要将某命令按钮设置为默认命令按钮。则应将以下哪个属性的值设置为True
A.value B．Cancel C．Default D．Enabled
37．Visual Basic程序设计的完整的步骤是
A. 可视性程序设计 B．代码程序设计
C．可视性程序设计和代码程序设计 D．界面设计
38．在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是 A.编写代码 B．新建一个工程 C．打开属性窗口 D．进入VB环境
39．窗体能响应的事件是
A．ActiveFrom B．Drive C．Load D．Change
40．Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是
A．属性、事件、方法 B．控件、属性、事件
C．窗体、控件、过程 D．窗体、控件、模块
41．只能用来显示字符信息的控件是
A.文本框
B.标签框
C.图片框
D.图像框
42．能够改变复选框中背景颜色的属性是
A．value B．Fontcolor C．Backcolor D．Font
43.系统日期的函数是
A. data$
B. time$
C. date$
D. gettime$
44.设计一个计算器时，必须要使用的控件是
A. 滚动条 B．图片框 C．文本框 D．单选框
45.以下选项中，不属于单选按钮属性的是
A. Enabled
B. Caption C．Name D．Min
47. Visual Basic规定工程文件的扩展名是
A. .for
B. .frm
C. .vbp
D. .bas
48．下列关于“控体”属性的说法正确的是
A．单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。
B．所有对象都具有同样的属性
C．控件的属性只能在设计时设置，不能在运行时修改
D．控件的每一个属性都具有同样的默认值
49．下列关于事件的叙述中不正确的是
A．事件是系统预先为对象定义的能被对象认别的动作
B．事件可分为用户事件与系统事件两类
C．VB为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写
D．VB中所有对象的默认事件都是Click
50．下列各组变量声明正确的是
A．Dim abc as integer , num as single
B．Dim I%, N$ as integer
C．Dim a%, b%, c%, a$
D．public dim n%
〖变量名的默认类型： %为整型、$为字符型、!为单精型、#为双精型〗
51．下列各赋值语句，语法不正确的是
A． x+y=5
B． BiNumber =15
C． Labell.caption =time
D． sLength =x+y
52．如果x=4，那么以下运算结果为True的表达式是
A．(x<=4)and(x>=6) B．(x>=4)Or(x>=6)
C．(x>=4)Xor(x>=6) D．not(x<>4)
〖Xor是异或运算，A xor B的结果是当A和B都为真、或都为假时才为真，否则为假〗53．如果想在程序中反复使用一个数据“01/01/2000”，为了避免在编写程序时反复输入这
个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用
A．将这个数据声明为字符串型常量，用一个常量标识符代表它。
B．将这个数据声明为字符串型变量，用一个变量标识符表示它。
C．将这个数据声明为日期型常量，用一个常量标识符代表它。
D．将这个数据声明为日期型变量，用一个变量标识符表示它。
54．编译一个工程的目的是
A．将工程的程序翻译成可以看懂的文件 B．将工程的程序重新正确编排
C．按工程的程序生成计算机能够执行的机器代码，使之能够脱离VB继承开发环境独立运行
D．检查工程中有无错误的机器代码，以便工程能够脱离VB继承开发环境独立运行55．要使窗体Form1的标题栏中显示“正在复制文件…”，以下语句正确的是
A．Form1.Caption=“正在复制文件…”
B．Form1.title=“正在复制文件…”
C．Form1.Text=“正在复制文件…”
D．Form1.名称=“正在复制文件…”
56．在VB中，执行“IF A>5 then b=10 else b=20”语句后（A变量），B值为
A．5 B．10 C．20 D．10或20
57．下面关于算法的错误说法是
A)算法必须有输出B)算法必须在计算机上用某种语言实现
C)算法不一定有输入 D)算法必须在有限步执行后能结束
答案：B
分析：算法就是解决某一特定类型问题的有限运算序列。一个算法必须是在执行有限步之后结束；算法中的每一步必须有确切定义；一个算法有0个或多个的输入，也必然有一个或多个的输出。算法不等同于程序，一个程序，譬如一个操作系统，只要不关机，它就不会结束。算法的设计可以避开具体的计算机和程序设计语言，也可以借助程序设计语言中提供的数据类型及运算在具体的层次上实现。Pascal语言的发明人沃斯提出一个精辟论点：算法+数据结构=程序。
二．填空题
1．所谓算法是。
2．“面向对象”的程序设计简称为。
3．VB工程文件的扩展名为。
4．工具箱窗口提供了一些常用的可视化对象类型，称为。
5．VB界面设计一般包括：、。
6．在 Visual Basic中，由系统事先设定的，能被对象识别和响应的动作称为
8．逻辑型又称，其值只有两种。
9．Abs(-3.8)=，Sqr(49)=， Int(-7.8)=，Int(10*Rnd())表示
三．判断题
1．在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。
答案：错误。与题目的叙述正好相反。在程序执行的过程中，常量的值始终保持不变，变量的值随时改变。
2．在VB中，“FOR 计数变量＝初值 TO 终值 [STEP 步长]”语句中的“步长”不能为0，否则造成死循环。
答案：正确。在VB的FOR 循环中，如果步长为0，则计数变量永远也不会超过终值，所
以是死循环
四．编程题：
1．在计算器中编写"相乘"按钮的Click事件过程中，具体代码如下，请填空：
(1)将两个输入文本框中的数据转换成double型数，并分别赋值给num1,num2;
(2)计算乘积，并用变量chenji表示；
(3)将chenji转换成字符串数据，在"TextBox1"中输出。
Private Sub command2_click()
num1=(text2.text)
num2=(text3.text)
chenji=
Text1.text=
End Sub
2．编写计算 1 + 1/2 + 1/3 + 1/4 + ...... + 1/100 的程序，请填空补充完善程序。
说明：使用三个控件，
①LABEL控件用于提示说明累加什么。如："计算1 + 1/2 + 1/3 + 1/4 + ...... + 1/100"
②COMMANDBUTTON控件用于事件单击触发。
③TEXT控件用于显示结果，并放于变量a中。
Private Sub Command1_click()
Dim a As Double
Dim b As Double
Dim i As Integer
a = 0
For i = 1 To [ ]
b = []
a = a + b
Next i
Text1.Text = a
End Sub