vb练习题及答案_vb练习题含答案

vb练习题及答案由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“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、AND、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、

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 …next 语句的说法正确的是（）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、M6 B、M≠6 C、M6 D、NOT M6 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、paword属性值为空

D、Pawordchar属性值为* 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、

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

D、对象原来就包含的内部函数或程序。9．VB在运行中使用_______来临时存储数据。B A、常量 B、变量 C、函数 D、方法 10．布尔型又称_____。B A、数值型 B、逻辑型 C、字符串型 D、整型 11．下列运算符号中属于关系运算符的是_____。D A、— B、+ C、AND D、

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=60 AND F

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+i5 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 *(db)*(dc 37．在IF语句的条件中，X≤-10或X>0应写成：B A、X0 B、X0 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、()→函数→乘方→* /→+ C、函数→乘方→()→* /→+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 cc 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

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 ^ 2Sqr(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