vb练习题及答案

vb练习题1

VB练习题一

一、选择题

1．Visual Basic程序设计的主要的步骤是C

A、可视性程序设计

B、代码程序设计

C、可视性程序设计和代码程序设计

D、界面设计

2．窗体能响应的事件是C

A、ActiveFrom

B、Drive

C、Load

D、Change

3．获得系统时间的函数是B

A、data$ B. time$ C. date$ D. gettime$

4．在设计一个计算器时，必须要使用的控件是C

A、滚动条

B、图片框

C、文本框

D、单选框

5．下列运算符号中属于关系运算符的是_____。B

A、—

B、=

C、AND

D、+

6.Visual Basic规定工程文件的扩展名是C

A、.for

B、.frm

C、.vbp

D、.bas

7. OOP是面向_______的程序设计的简称。C

A、用户

B、问题

C、对象

D、操作者

8. 设置对象中的字体应用___属性.C

A、Caption

B、Name

C、Font

D、Text

9.设置文本框中显示的内容应用___属性。D

A、Caption

B、Name

C、Font

D、Text

10.逻辑型又称_____。C

A、数值型

B、字符串型

C、布尔型

D、整型

11.三种逻辑运算符号优先次序为：____。C

A、AND、NOT、OR

B、NOT、OR、AND

C、NOT、AN

D、OR D、OR、NOT、AND

12.关于高级语言，下列那一项叙述是正确的。(A)

A、以类似英文的句子来表示

B、写成的程序执行速度最快

C、不必编译即可直接执行

D、受电脑机种限制大

13.可将高级语言翻译成机器语言的程序为。B

A、汇编程序

B、编译程序

C、解释程序 4、以上皆可。

14.下列（）属性是每个控件都有的。A

A、名称

B、Caption

C、Font

D、Interval

15.下列运算符号中属于逻辑运算符的是_____。A

A、NOT

B、<>

C、=

D、<=

16.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于：B

A、5000

B、500

C、50

D、5

17.下列逻辑运算结果为―true‖的是（）C

A、flase or not true

B、flase and not true

C、true or not true

D、true and not true

18.已知变量x 、y为整数型，且x=4 , y=12 ,s为字符串型，且s=―a‖，Label1为标签控件，下列赋值语句合法的是（）A

A、s = Label1.Caption

B、Label1.Caption=s=x

C、x*3=y

D、Y=x*s

19.下列关于CommandButton 控件的叙述正确的是（）A

A、CommandButton 控件的Caption 属性决定按钮上显示的内容

B、单击VB应用程序中的按钮,则系统激活按钮控件对应的Change 事件

C、CommandButton 控件的name 属性决定按钮上显示的内容

D、以上都不对

20.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是( )。D

A、对象，属性，事件，方法

B、对象，属性，方法，事件

C、属性，对象，方法，事件

D、属性，对象，事件，方法

21.获得系统时间的函数是B

A、data$

B、time$

C、date$

D、gettime$

22.下列关于添加―控件‖的方法正确的是（）B

A、单击控件图标，将指针移到窗体上，双击鼠标

B、双击工具箱中的控件，即在窗体上出现该控件

C、单击工具箱中的控件，将指针移到窗体上，再单击

D、用鼠标左键拖动工具箱中的某控件到窗体的适当位置

23.双击窗体中的对象后，Visual Basic将显示的窗口是C

A、项目（工程）窗口

B、工具箱

C、代码窗口

D、属性窗口

24.下列关于For …ne xt 语句的说法正确的是（）A

A、循环变量、初值、终值和步长都必须为数值型

B、step后的步长只为正数

C、初值必须小于终值

D、初值必须大于终值

25.存文件时，整个工程以_____（工程文件）储存。C

A、*．Prg

B、*．Frm

C、*．Vbp

D、*．Exe

26.清除图片框(Picture1)中内容的方法是_____。B

A、Picture1．Clear

B、Picture1．Cls

C、Picture1．Delete

D、Picture1．UnLoad

27.以下变量Test定义语句正确的是：B

A、Dim Test，as Integer

B、Dim Test as Integer

C、Dim Test =Integer

D、Dim Test as Integer，

28.在Visual Basic中，字符型变量用来_____。B

A、存放日期、时间或同时存储以上两种数据。

B、存放人名、地址等文字信息。或电话号码、邮政编码等不需要计算的数字信息。

C、存储长文本信息，最多可包含1.2GB字符。

D、精确表示货币钱款数值

29.通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowColor , 显示____对话框。D

A、保存文件

B、字体

C、打开文件

D、颜色

30.设置通用对话框的文件类型框中所要显示的文件类型选项，可由____属性来设置。C

A、Name

B、File

C、Filter

D、Caption

31.VB 的全名是：C

A、Violin BASIC

B、Very BASIC

C、Visual BASIC

D、View BASIC

32.下列哪一种运算的优先级最低：C

A、Mod

B、整数除法

C、减法

D、除法

33.设置窗体的高度用属性_______。D

A、Caption

B、Font

C、BackColor

D、Hight

34.设置窗体左上角到屏幕上方距离的属性是______。B

A、Left

B、Top

C、Width

D、Name

35.设置窗体宽度的属性是______。C

A、Left

B、Top

C、Width

D、名称(Name)

36.计算数x的正弦函数值的函数是______。A

A、SIN(x)

B、ABS(x)

C、STR(x)

D、SQR(x)

37.数学式3abc(d+e)改写为VB表达式为______。D

A、3a*b*c(d+e)

B、3abc(d+e)

C、3abcd +3abce

D、3*a*b*c*(d+e)

38.不属于程序的三种基本结构的是。C

A、顺序结构

B、循环结构

C、直线型结构

D、分支结构

39.在IF语句的条件中，M≠6应写成：C

A、M<6 AND M>6

B、M≠6

C、M<>6

D、NOT M<>6

40.在VB中数据类型为长整型的―数据类型保留字‖是。B

A、integer

B、long

C、single

D、string

41.在VB中数据类型为字符串型的―数据类型保留字‖是。D

A、integer

B、double

C、single

D、string

42.下列变量名正确的是。B

A、X-1

B、XX1

C、123

D、A*

43.函数ABS(X)称为。B

A、算术平方根函数

B、绝对值函数

C、正弦三角函数

D、字符串转换为数值函数

44.下列说法不正确的是。A

A、1

B、关系表达式的判断结果只能是"True"或"False"

C、关系运算符共有6个,分别是：<、>、<=、>=、=、<>

D、逻辑运算符有NOT、AND、OR

45.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是C

A、Visible

B、Timer

C、Enabled

D、Interval

46.利用对象的方法Setfocus可获得焦点，对于一个对象,只有其visible属性和_____属性为true，才能接受焦点。C

A、name

B、Timer

C、Enabled

D、visible

47.使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画圆。C

A、pset

B、line

C、circle

D、move

48.设a=2,b=3,c=4,d=5,下列表达式的值是。C

3>2*b OR a=c AND b <>c OR c>d

A、1

B、True

C、False

D、–1

49．设置标签中显示内容的属性是。C

A、Text

B、Name

C、Caption

D、BackStyle

50．通过执行通用对话框的方法，可以将其表示为不同的对话框。显示打开文件对话框方法是。A

A．ShowOpen B．ShowSave C．ShowPrinter D．ShowColor

vb练习题2

二、程序设计题

51．设计一个程序，输入一个正整数N，求1＋2＋3＋…+N的和。界面如下：

当用户输入N后，单击―计算‖按钮，则输出1＋2＋3＋…+N的和。

参考答案：

Private Sub Command1_Click()

Dim i, a, b As Integer

a = Val(Text1.Text)

For i = 1 To a

b = b + i

Next i

Label3.Caption = b

End Sub

Private Sub Command2_Click()

End

End Sub

52．编一个求圆柱的侧面积的程序：

当用户输入半径与高后，单击―侧面积为‖按钮，输出正确结果。

参考答案：

Private Sub Command1_Click()

Dim r, h, c, s As Single

r = Val(Text1.Text)

h = Val(Text2.Text)

c = 2 * 3.14159 * r

s = c * h

Label3.Caption = s

End Sub

53．设计一个计时程序。该程序用户界面如图所示，由一个文本框（text1），和两个按钮：命令按钮1（command l）、命令按钮2（command 2）组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，接停止按钮，则计时停止。单击窗口则退出。（请阅读下面程序，编写出时钟控件的计时事件中的程序代码。）

Dim i, t As Integer

Private Sub Command1_Click()

Timer1.Interval = 1000

Timer1.Enabled = True

t = 0

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Click()

End

End Sub

Private Sub Timer1_Timer()

End Sub

参考答案：

t = t + 1

Text1.Text = t & "秒"

54．编制一个能在窗体中画出由用户指定圆心位置和半径大小的圆的程序,要求单击―绘圆‖按钮时绘圆，单击―清除‖按钮时清除绘图区中的图形及文本框中的内容。运行界面如下：

参考答案：

Private Sub Command1_Click()

Dim x, y, r As Single

x = Val(Text1.Text)

y = Val(Text2.Text)

r = Val(Text3.Text)

Picture1.Circle (x, y), r

End Sub

Private Sub Command2_Click()

Picture1.Cls

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

信息技术教师培训自学部分VB练习题二

一、选择题

1．在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是B

A、编写代码

B、新建一个工程

C、打开属性窗口

D、进入VB环境

2．若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置D

A、Text属性值为*

B、Caption属性值为*

C、password属性值为空

D、Passwordchar属性值为*

3．能够将文本框控件隐藏起来的属性是B

A、Clear

B、Visible

C、Hide

D、New

4．获得系统日期的函数是C

A、data$

B、time$

C、date$

D、gettime$

5．下列运算符号中属于算术运算符的是_____。B

A、NOT

B、^

C、=

D、<=

6．Visual Basic属于:A

A、高级语言

B、汇编语言

C、机器语言

D、低级语言。

7．一个程序可以有_____窗体。C

A、1个

B、2个

C、多个

D、无穷多个

8．事件是指_____。B

A、对象的外部特征。

B、预先设置好的能被对象识别的特定动作。

C、对象的属性。

D、对象原来就包含的内部函数或程序。

9．VB在运行中使用_______来临时存储数据。B

A、常量

B、变量

C、函数

D、方法

10．布尔型又称_____。B

A、数值型

B、逻辑型

C、字符串型

D、整型

11．下列运算符号中属于关系运算符的是_____。D

A、—

B、+

C、AND

D、<=

12．关于高级语言，下列叙述正确的是。B

A、不必编译即可执行

B、可读性最高

C、难学难记

D、执行速度最快。

13．下列各组控件都具有Caption属性的是（）C

A、窗体、文本框

B、标签、定时器

C、窗体、标签

D、文本框、定时器

14．下列运算结果中，值最大的是（）D

A、3\4

B、3/4

C、4 mod 3

D、3 mod 4

15．Visual Basic语言中，下列那一项数值运算符号是正确的。(C)

A、＠表示加

B、～表示减

C、*表示乘

D、÷表示除。

16．下面程序执行的结果是________。C

Private Sub Form_Click()

A$ = "123": B$ = "456"

C = Val(A$) + Val(B$)

Print C \ 100

End Sub

A、123

B、3

C、5

D、579

17．函数Sqr(9) 的值是（）B

A、9

B、3

C、―3‖

D、―9‖

18．下列控件中可用于接受用户输入文本，又可用于显示文本的是（）B

A、Label 控件

B、TextBox 控件

C、Timer 控件

D、CommandButton 控件

19．以下程序段执行后整型变量度n 的值为（）B

n=0

for L=1 to 20 step 5

n=n+L

next L

A、50

B、34

C、15

D、210

20．如果要改变窗体的标题,需要设置窗体对象的_____属性。B

A、Name

B、Caption

C、BackColor

D、BorderStyle

21．Visual Basic提供的标签控件（LABEL）可具有功能是B

A、输入文本

B、显示文本

C、计时

D、取得时间

22．以下选项中，不是Visual Basic控件的是C

A、文本框

B、定时器

C、窗体

D、命令按钮

23．若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为（）D if a>5 then

c=b-a

else

c=a + b

endif

A、2

B、-1

C、1

D、5

24. 下列程序执行后，整型变量n的值为（）B

n=0

for I=1 to 20

if I mod 4=0 then n=n+1

next I

A、5050

B、5

C、6

D、33

25.下面哪些控件是输入控件______。A

A、文本框

B、标签

C、列表框

D、滚动条

26．窗体初始化程序应写在_______事件中。A

A、Load

B、UnLoad

C、Active

D、GotFocus

27．在Visual Basic中，布尔型变量用来_____。D

A、存放需要计算的数字。

B、存放日期、时间或同时存储以上两种数据。

C、存储长文本信息，最多可包含1.2GB字符。

D、存放性别、婚否等逻辑信息。

28．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowOpen , 显示____对话框。C

A、保存文件

B、字体

C、打开文件

D、颜色

29．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowFont , 显示____对话框。B

A、保存文件

B、字体

C、打开文件

D、颜色

30．计时器的Interval属性是用来设置一时间间隔，单位是_____。D

A、1秒

B、1毫秒

C、1/100秒

D、1/1000秒

31. VB 在计算三角函数时，所使用的度量单位是：B

A、角度制

B、弧度制

C、角度制

D、弧度制都可以

32. 设置窗体的背景色用属性_______。C

A、Caption

B、Font

C、BackColor

D、Hight

33. 设置窗体中显示的文字前景色用属性_______。A

A、ForColor

B、Font

C、BackColor

D、Hight

34．设置窗体左上角到屏幕左边距离的属性是______。A

A、Left

B、Top

C、Width

D、Name

35．计算数x的算术平方根的函数是___。D

A、SIN(x)

B、ABS(x)

C、STR(x)

D、SQR(x)

36．计算数x的余弦函数值的函数是______。D

A、SIN(x)

B、ABS(x)

C、STR(x)

D、COS(x)

37．数学式|xy|+2(d+e)改写为VB表达式为______。C

A、|xy|+2(d+e)

B、-x*y+2*(d+e)

C、ABS(x*y)+2*(d+e)

D、|x*y|+2*(d+e)

38．在IF语句的条件中，60≤F≤100应写成：D

A、60<=F<=100

B、60=

C、60≤F≤100

D、F>=60 AND F<=100

39．写成QBasic算术表达式为：B

A、 B、SQR（X）+ABS（Y+3）

C、 D、

40．在VB中数据类型为单精度浮点型的―数据类型保留字‖是。C

A、integer

B、long

C、single

D、string

41．在VB中数据类型为布尔型的―数据类型保留字‖是。A

A、boolean

B、double

C、single

D、string

42．下列变量名正确的是。C

A、xx-4

B、4XX

C、xx_y1

D、y/t

43．函数SIN(X)称为。C

A、算术平方根函数

B、绝对值函数

C、正弦三角函数

D、字符串转换为数值函数

44．下列说法不正确的是。B

A、FOR语句中可省略STEP及步长值,默认步长值为1

B、循环变量只能用数值简单变量

C、步长值可正可负

D、初值、终值、步长值可以是数值表达式

45．为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为。A

A、Picture1.Picture = LoadPicture("picfile.jpg")

B、Picture1.Picture ="picfile.jpg"

C、Picture1.image = LoadPicture("picfile.jpg")

D、Picture1.image ="picfile.jpg"

46．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画点。A

A、pset

B、line

C、circle

D、move

47．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可使图片框移动位置。D

A、pset

B、line

C、circle

D、move

48．双击工具箱中某个控件，该控件将____。C

A、被选中

B、出现在窗体左上角

C、出现在窗体中部

D、没变化

49.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是。D

A、ControlBox

B、MinButton

C、Enabled

D、MaxButton

50. 执行下面的程序段后，x 的值为。C

x=0

For i=1 To 10

x=x+i\5

Next i

A、5

B、6

C、7

D、8

二、程序设计题

51．编写一个程序，输入任意两个整数，输出其中较大的数。

界面如下：

当用户输入两个整数后，单击―输出‖按钮，则输出正确结果。

参考答案：

Private Sub Command1_Click()

Dim a, b As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

If a >= b Then

Label3.Caption = a

Else

Label3.Caption = b

End If

End Sub

52. 设计一程序，计算1*2+2*3+3*4+4*5+…+N*（N+1）的和。

程序界面如下：

当用户输入N后，单击―求1*2+2*3+3*4+4*5+…+N*（N+1）‖按钮后，输出正确结果。参考答案：

Private Sub Command1_Click()

Dim i, n, s As double

n = Val(Text1.Text)

s = 0

For i = 1 To n

s = s + i * (i + 1)

Next i

Label1.Caption = s

End Sub

53．设计一个从键盘接收三条边的值，测试能否组成三角形，若能，则计算所组成三角形面积，否则，给出相应信息的程序，运行之后界面如下。

参考答案：

Private Sub Command1_Click()

Dim a, b, c, d As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If (a + b) > c And (a + c) > b And (b + c) > a Then

d = (a + b + c) / 2

Label3.Caption = Sqr(d * (d - a) * (d - b) * (d - c))

Else

Label3.Caption = "此三边构不成三角形！"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

54．设计一个简易播放器，要求可播放*.wav文件、*.avi文件、*.mpg文件，运行界面如下：

参考答案：

Private Sub Command1_Click()

CommonDialog1.Filter = ".wav文件|*.wav|.avi文件|*.avi|.mpg文件|*.mpg"

CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

https://www.360docs.net/doc/3e15463383.html,mand = "open"

https://www.360docs.net/doc/3e15463383.html,mand = "play"

End Sub

Private Sub Form_Load()

MMControl1.Visible = False

End Sub

信息技术教师培训自学部分VB练习题三

一、选择题

1．要求改变窗体的标题时，应当在属性窗口中改变的属性是。A

A、Caption

B、Name

C、Text

D、Label

2.如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该为：A

A、1000

B、100

C、10

D、1

3．能够改变复选框中背景颜色的属性是C

A、Value

B、Fontcolor

C、Backcolor

D、Font

4．下列运算符号中属于字符串连按运算符的是_____。D

A、—

B、*

C、AND

D、&

5. Visual Basic规定窗体文件的扩展名是B

A、.for

B、.frm

C、.vbp

D、.bas

6．程序、相关的数据及说明文档构成了软件，其中_____是主体。B

A、相关的数据

B、程序

C、说明文档

D、前三项都是。

7．工具箱窗口提供了一些常用的可视化对象类型，称为____。A

A、控件

B、窗体

C、对象

D、属性

8．要使定时器的Timer事件每秒钟触发10次，需设置定时器的Interval属性值为。C A、1 B、10 C、100 D、1000

9．下列运算符号中属于字符串连接运算符的是____。B

A、—

B、+

C、AND

D、<

10．布尔型数据的值____。C

A、有无数多个

B、只有1和-1两种

C、只有True和False两种

D、以上都不对

11．下列运算符号中属于逻辑运算符的是_____。C

A、—

B、+

C、AND

D、<=

12．在Visual Basic语言中，表达式2+3*3-2*3/2的值是。(C)

A、６

B、７

C、８

D、９

13．下列各组控件具有相同默认事件的是（）B

A、窗体、文本框

B、标签、按钮

C、窗体、标签

D、文本框、按钮

14．下列关系运算结果为―true‖的是（）C

A、―1‖+2=―12‖

B、―1‖+―2‖=―3‖

C、―1‖ &2=―12‖

D、―1‖ & ―2‖=―3‖

15．在Visual Basic代码中，将多个语句合并在一行上的并行符是( ) 。B

A、撇号（’）

B、冒号（：）

C、感叹号（！）

D、问号（?）

16．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置D

A、Text属性值为―#‖

B、Caption属性值为―#‖

C、password属性值为空

D、Passwordchar属性值为―#‖

17．下列表达式不合法的是（）D

A、―123‖+―abc"

B、123& "abc"

C、1+2\3

D、[3*(4+5)-6]/7

57、以下程序段执行后，整型变量n 的值为（）A

year=2001

n=year\4+year\400-year\100

A、495

B、505

C、500

D、485

18．当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的?C

A、MouseDown

B、MouseUp

C、Load

D、Click

19．窗体的BackColor属性用于设置窗体的____。C

A、高度

B、宽度

C、背景色

D、前景色

20．下列关于算法的叙述不正确的是（）C

A、算法是解决问题的有序步骤

B、算法具有确定性、可行性、有限性等基本特征

C、一个问题的算法都只有一种

D、常见的算法描述方法有自然语言、图示法等

21．某文本框获得控制焦点时产生的事件是B

A、LostFocus

B、GotFocus

C、Point

D、Value

22. 若要设置定时器控件的定时时间，需设置的属性是A

A、Interval

B、Value

C、Enabled

D、Text

23. 存文件时，窗体以_____（窗体文件）储存。B

A、*．Prg

B、*．Frm

C、*．Vbp

D、*．Exe

24．文本框和标签的区别是______。B

A、文本框中的数据在运行时可以随意改动，而标签中的内容在运行时不可以改动。

B、文本框可以获得输入焦点，而标签无法获得输入焦点。

C、文本框和标签即可以作为输入控件又可以作为输出控件。

D、在文本框和标签中都可以以多行方式显示。

25．结束当前程序的语句是_________。D

A、Quit

B、Exit

C、Exit Sub

D、End

26．在Visual Basic中，数值型变量用来_____。A

A、存放需要计算的数字。

B、存放日期、时间或同时存储以上两种数据。

C、存放人名、地址等文字信息。或电话号码、邮政编码等不需要计算的数字信息。

D、存放性别、婚否等信息。

27．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowSave , 显示____对话框。A

A、另存文件

B、字体

C、打开文件

D、颜色

28．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowPrinter , 显示____对话框。C

A、保存文件

B、字体

C、打印

D、颜色

29．要在图像框中显示图象文件信息，需要设置的属性是____。A

A、Picture

B、Name

C、Caption

D、Backcolor

30. 下列哪一个不是VB所提供的算术动算符：A

A、#

B、*

C、/

D、\

31. 设置窗体上字体的样式用属性_______。B

A、Caption

B、Font

C、BackColor

D、Hight

32. 设置窗体的标题栏文字用属性_______。C

A、ForColor

B、Font

C、Caption

D、Hight

33．设置窗体名称的属性是______。D

A、Left

B、Top

C、Width

D、Name

34．计算数x的绝对值的函数是______。B

A、SIN(x)

B、ABS(x)

C、STR(x)

D、SQR(x)

35．将数字字符串x转换为数值的函数是______。B

A、SIN(x)

B、VAL(x)

C、STR(x)

D、COS(x)

36．c与x和y的平方和的差改写为VB表达式为______。B

A、c-x*x+y*y

B、c-(x^2+y^2)

C、c-x2+y2

D、(x^2+y^2) - c

37．在IF语句的条件中，X≤-10或X>0应写成：B

A、X<=-10 AND X>0

B、X<=-10 OR X>0

C、X≤-10 OR X>0

D、X≤-10或X>0

38．在VB中数据类型为整型的―数据类型保留字‖是。A

A、integer

B、long

C、single

D、string

39．在VB中数据类型为双精度浮点型的―数据类型保留字‖是。B

A、integer

B、double

C、single

D、string

40．在VB中数据类型保留字―boolean‖表示的数据类型是。C

A、整型

B、长整型

C、布尔型

D、字符串型

41．函数SQR(X)称为。A

A、算术平方根函数

B、绝对值函数

C、正弦三角函数

D、字符串转换为数值函数

42．数值表达式运算的先后顺序为。A

A、( )→函数→乘方→* /→+ -

B、函数→()→乘方→* /→+ -

C、函数→乘方→()→* /→+ -

D、( )→乘方→函数→* /→+ -

43．表达式4+5 \ 6 * 7 / 8 Mod 9 的值是。A

A、4

B、5

C、6

D、7

44．由语句txtname.text="AB",可知txtname一定是_____控件。A

A、文本框控件

B、标签控件

C、图象框控件

D、命令按钮

45．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画线。B

A、pset

B、line

C、circle

D、move

46．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可清除图片框中的内容。C

A、pset

B、line

C、cls

D、move

47．VB中工程文件的扩展名为。A

A、.vbp

B、.frm

C、.ds

D、.bas

48.设a=2,b=3,c=4,d=5,下列表达式的值是。B

a>b AND c<=d OR 2*a>c

A、True

B、False

C、-1

D、1

49.表达式4+5-6*7/8 Mod 9的值是。A

A、4

B、5

C、6

D、7

50.下列控件中，哪一个是外部控件。D

A、PictureBox

B、CommandButton

C、Timer

D、CommonDialog

二、程序设计题

51．设计一个程序，输入一个长方体的长宽高，计算并输出其体积V，界面如下：

当用户输入长宽高，后单击―计算‖按钮，则输出结果。

参考答案：

Private Sub Command1_Click()

Dim a, b, c As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Label5.Caption = a * b * c

End Sub

Private Sub Command2_Click()

End

End Sub

52．编写一个程序，输入任意三个整数，输出其中最小的自然数。界面如下：

当用户输入三个自然数后，单击―最小自然数为‖按钮，则输出正确结果，请阅读下面程序，把所缺的代码写出来。

Private Sub Command1_Click()

Dim a, b, c, d As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a <= b Then

d = a

Else

d = b

End If

Label3.Caption = d

End Sub

参考答案：

If d > c Then

d = c

End If

53．设计一个求ax2 +bx+c=0解的程序，用户界面如下：

参考答案：

Private Sub Command1_Click()

Dim a, b, c, d, x1, x2 As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = b ^ 2 - 4 * a * c

If a <> 0 And d >= 0 Then

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

Label3.Caption = "x1=" & x1 & Chr(13) & "x2=" & x2

Else

Label3.Caption = "此方程无实根！"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

54．编一程序，将阿拉伯数字0、1、2、……、8、9转换为汉语大写数字零、壹、贰、……、捌、玖，程序界面如下：

参考答案：

Dim a As Integer

Dim b As String

a = Val(Text1.Text)

Select Case a

Case 0

b = "零"

Case 1

b = "壹"

Case 2

b = "贰"

Case 3

b = "叁"

Case 4

b = "肆"

Case 5

b = "伍"

Case 6

b = "陆"

Case 7

b = "柒"

Case 8

b = "捌"

Case 9

b = "玖"

End Select

Label1.Caption = b End Sub