vb题
1.在Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是（）。
A. 工程资源管理器窗口
B. 窗体设计窗口
C. 属性窗口
D. 代码
窗口
2.在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（）。
A. 工程资源管理器窗口
B. 属性窗口
C. 工具箱窗口
D. 代码窗口
3.在设计窗体时双击窗体的任何地方，可以打开的窗口是（）。
A. 代码窗口
B. 属性窗口
C.工程资源管理器窗口
D. 工具箱窗口
4.下列关于Visual Basic特点的叙述中，错误的是（）。
A. Visual Basic是采用事件驱动编程机制的语言
B. Visual Basic程序既可以编译运行，也可以解释运行
C. 构成Visual Basic程序的多个过程没有固定的执行顺序
D. Visual Basic程序不是结构化程序，不具备结构化程序的3种基本结构
5.Visual Basic的特点不包括下面的（）。
A. 不需要编程
B. 面向对象的程序设计
C. 可视化程序设计
D. 事件驱动的程序设计
6.与传统的程序设计语言相比，Visual Basic 最突出的特点是（）。
A. 程序开发环境
B. 事件驱动编程机制
C. 程序调试技术
D. 结构化程序设计
7.Visual Basic集成环境中窗体设计器的主要功能是（）。
A.建立用户界面
B.编写源程序代码
C.添加图像
D.显示文字
8.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）。
A. 属性、控件和方法
B. 属性、事件和方法
C. 窗体、控件和过程
D. 控件、过程和模块
9.假定编写了如下4 个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的
事件过程是（）。
A．Load B．Click C．LostFocus D．KeyPress
10.以下叙述正确的是（）。
A. 窗体的Name属性指定窗体的名称，用来标记一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
11.下面对窗体属性设置描述错误的是（）。
A. Caption属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置
B. BorderStyle属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置
C. Enabled属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置
D.字形属性既可以通过属性窗口设置，又可以在事件过程中通过程序代码设置
12.在界面设计时，要求改变窗体的标题时，应当在属性窗口中改变的属性是（）。
A．Caption B．Name C．Text D．Label
13.若想要清除文本框Text1中的文本内容，其正确方法是（）。
A．Text1.Text = "" B．Text1.Cls C．Text1.Text=Null D．Text1.Clear 14.在Visual Basic 工程运行状态，单击窗体上的关闭按钮，将触发（）事件。
A．Form_Unload( ) B．Form_Load( ) C．Form_Initialize( ) D．Form_Click( ) 15.Visual Basic工程文件的扩展名是（）。
A．.exe B．.frm C．.vbp D．.bas
16.用来设置文字字体是否斜体的属性是（）。
A．FonUnderline B．FontBold C．Fontslope D．FontItalic 17.在程序运行时，下面的叙述中正确的是（）。
A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_load事件过程。
B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程。
C．只装入而不显示窗体，也会执行窗体的Form_Load事件过程。
D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程。
18.窗体Form1上有一个名称为Command1 的命令按钮，以下对应窗体单击事件的事件过
程是（）。
A. Private Sub Form1_Click() …
End Sub B. Private Sub Form_Click() …
End Sub
C. Private Sub Command1_Click() …
End Sub D. Private Sub Command_Click() …
End Sub
19.名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text = "程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text = "等级考试"
End Sub
运行以上程序，单击命令按钮后（）。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
20.设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发（）。
A．Text1的SetFocus事件B．Text1的GotFocus事件
C．Text1的LostFocus事件D．窗体的GotFocus事件
21.设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（）。
A．Form1_MouseDown B．Win_MouseDown
C．Form_MouseDown D．MouseDown_Form1
22.在窗体上画一个文本框（名称为Text 1）和一个标签（名称为Label 1），程序运行后，
如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（）。
A. Private Sub Text1_Change（）Label1.Caption=Text1.Text
End Sub B. Private Sub Label1_Change（）Label1.Caption=Text1.Text
End Sub
C. Private Sub Text1_Click（）Label1.Caption=Text1.Text End Sub
D. Private Sub Label1_Click（）Label1.Caption=Text1.Text End Sub
23.若看到程序中有以下事件过程，则可以肯定的是，当程序运行时（）。
Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)
Print "VB program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
24.以下变量名中合法的是（）。
A．x2-1 B．Print C．Str_n D．2x
25.执行语句Dim X,Y As Integer 后（）。
A．X和Y均被定义为整型变量
B．X和Y均被定义为变体类型变量
C．X被定义为整型变量,Y被定义为变体变量
D．X被定义为变体类型变量,Y被定义为整型变量
26.以下关系表达式中，其值为True的是（）。
A．"XYZ">"XYz" B．"VisualBasic"<>"visualbasic"
C．"the"="there" D．"Integer"<"Int"
27.若变量a未事先定义而直接使用（例如：a=0），则变量a 的类型是（）。
A．Integer B．String C．Boolean D．Variant 28.为把圆周率的近似值3.14159 存放在变量pi 中，应该把变量pi 定义为（）。
A．Dim pi As Integer B．Dim pi(7) As Integer
C．Dim pi As Single D．Dim pi As Long
29.以下选项中，不合法的Visual Basic变量名是（）。
A．a5b B．_xyz C．a_b D．andif 30.在Visual Basic中，表达式3*2\5 Mod 3 的值是（）。
A．1 B．0 C．3 D．出现错误31.表达式2*3^2+4*2/2+3^2 的值是（）。
A．30 B．31 C．49 D．48
32.设a=4，b=5，c=6，执行语句Print a
A．True B．False C．出错信息D．0
33.下面可以产生20～30（含20 和30）的随机整数的表达式是（）。
A．Int（Rnd*10+20）B．Int（Rnd*11+20）
C．Int（Rnd*20+30）D．Int（Rnd*30+20）
34.设x是整型变量，与函数IIf(x>0,-x,x)有相同结果的代数式是（）。
A．|x| B．-|x| C．x D．-x
35.把数学表达式(5x+3)/(2y-6)表示为正确的VB表达式应该是（）。
A．(5x+3)/(2y-6) B．x*5+3/2*y-6 C．(5*X+3)
D．(X*5+3)/(y*2-6)
36.可以产生30～50 （含30和50）之间的随机整数的表达式是（）。
A．Int (Rnd*21+30) B．Int(Rnd*20+30)
C．Int(Rnd*50-Rnd*30) D．Int(Rnd*20+50)
VB模拟试题1
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。
VB经典例题13道附答案
1、一串字符求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, q, w, r s = TextBox1、Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1、Text = "字母有" & q & "个数字有" & w & "个其她有" & r & "个" End Sub 2、一串字符以？结尾,求有多少字母,有多少数字,有多少其她 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, a, z, x, c, i s = TextBox1、Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1、Text = z & x & c End Sub 3、给定一个数字求它就是几位数字,如(1)、12345 (2)、-12345 (3)、123、45 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim s, c, j s = TextBox1、Text c = Trim(Str(s)) If Int(c) = c Then
最新VB考试题库
VB考试题库 VB编程题 1、求100以内的素数。 2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 3、计算0~200之间所有能被11或5整除的数之和 4、输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是:年份能被4整除但不能被100整除，或者能被400整除) 5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x 13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。 14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。 16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。 17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。 18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。 19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和 20、输入一系列字符串，将字符串按递减次序排列。请编程实现。 21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 22、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1,20，数组B的范围是100,200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 23、随机产生15个小写字母，放在字符数组中。提示:c=chr(int(rnd*26+97)) 24、随机产生10个[30,100]内的整数，求最大值及所对应的下标。 25、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1,20，数组B的范围是100,200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 26、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条对角线上元素之和。 27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值 2011-1-VB程序设计课程试卷一、单选题(每题1分,共30分) 1．一只白色的足球被踢进球门,则白色、足球、踢、进球门是______。 A．属性、对象、方法、事件B．属性、对象、事件、方法 C．对象、属性、方法、事件D．对象、属性、事件、方法 2．要对选定的多个控件调整格式,如对齐、调整间距、统一尺寸等,应使用______菜单。 A．格式B．编辑C．视图D．工具 3．要在窗体上显示图片,需设置窗体的______属性。 A．Caption B．Icon C．Picture D．Name 4．将命令按钮的______属性设置为False后,运行时该命令按钮呈灰色不可用。 A．ControlBox B．WindowState C．Visible D．Enabled 5．下列表达式中,值为True的是______。 A．Mid(“ABCD”,2,2)>Left(“ABCD”,2) B．Not(Sqr(4)-3>=-2) C．14/2\3<10 MOD 4 D．Ucase(“abcd”)>=“abcd”6．以下日期型常量合法的是______。 A．”03/25/89”B．#”03/25/89”# C．#03/25/89# D．#25/03/89# 7．表达式12000+”129”&200的值是______。 A．12129200 B．12000129200 C．12329 D．12000329 8．将文本框的______属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行。 A．MultiLine B．Enabled C．ScrollBars D．Max 9．任何控件都具有______属性。 A.T ext B．Caption C．Name D．ForeColor 10．若要将滚动条的最小值设为0,最大值设为255,应对其______属性进行设置。 A．Left和Top B．Width和Height C．SmallChange和LargeChange D．Min和Max 11．窗体上有一个文本框控件Textl,若已存在三个整型变量a、b、C,且三个变量的值分别为5、7、12。以下的______可以使文本框中显示的内容为：5+7=12。 A．Texll.T ext=a+b=C B．Textl.Text=“a+b=C” C．Textl.Text=a&”+”&b&”=“＆c D．Textl.Text=“a”&”+”&”b”&”=“&”c” 12．下列控件中, ______控件没有Caption属性。 A．命令按钮B．标签C．选项按钮D．文本框 13．程序运行时,若要使某一控件不可见,应将其______属性设为False。 A．Enabled B．Caption C．Visible D．Default 14．在设计阶段,双击窗体Forml的空白处,打开代码窗口,显示______事件过程模板。 A．Forml_ Click B．Forml_Load C．Form_Load D．Form_Click vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/7c1683570.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 二级VB模拟试题(1-1) 一、填空题（每空１分，共20分） １、ＶＢ是一种面向_____的可视化程序设计语言，采取了_____的编程机制。 ２、ＶＢ的对象主要分为_____和_____两大类。 ３、若要将窗体Form1隐藏起来，可使用方法_____；若要将窗体Form1显示出来，可使用方法_____来实现。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_____；二是_____；三是_____。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过_____方法来实现。 ６、ＶＢ提供的_____属性，用来控制对象是否可用，当属性值为_____时，表示对象可用，当属性值为_____时，表示对象不可用。 ７、ＶＢ提供的_____属性，用来控制对象是否可见，当属性值为_____时，表示对象可见，当属性值为_____时，表示对象不可见。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_____。 ９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_____，并且设置其_____属性值为_____。 二、选择题（每题２分，共40分） １、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) ２、可获得当前系统日期的函数是（） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) ３、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do ４、窗体的标题栏显示内容由窗体对象的（）属性决定。 Ａ、BackColorＢ、BackStyleＣ、TextＤ、Caption ５、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。 Ａ、valueＢ、EnabledＣ、DefaultＤ、Cancel ６、标签框所显示的内容，由（）属性值决定。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Alignment ７、文本框的（）属性用于设置或返回文本框中的文本内容。 Ａ、TextＢ、(名称)Ｃ、CaptionＤ、Name ８、计时器控件的（）属性用于设置Timer事件发生的时间间隔。 Ａ、StretchＢ、IntervalＣ、valueＤ、Length ９、滚动条的（）属性用于返回或设置滚动条的当前值。 Ａ、ＶalueＢ、MaxＣ、MinＤ、Data 10、若要向列表框添加列表项，可使用的方法是（） Ａ、AddＢ、RemoveＣ、ClearＤ、AddItem 11、图像框或图片框中显示的图形文件，由它们的（）性性值决定。 Ａ、DownPictureＢ、PictureＣ、ImageＤ、Icon 12、以下不属于键盘事件的是（） Ａ、KeyDownＢ、KeyUpＣ、UnloadＤ、KeyPress VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。 判断题： 1、VB中，每一种对象有着不同的属性设置，每一种对象能识别的事件也不同。（对） 2、Val(“123hello”) 和Val(“hello123”)返回值一样。（错） 3、赋值语句X=123+”123”和X=”123”+123中，X的值一样。（对） 4、赋值语句X=”123”+”123”和X=”123”+123中，X的值一样。（错） 5、执行Print 5*8 和Print “5*8 ”语句运行结果一样。（错） 6、标签框和文本框内容的最大区别就是在程序运行过程中标签框的内容不可编辑，而文本框的内容可编辑。（对） 7、用vb编写程序时，标签控件能代替文本框控件使用. （错） 8、VB程序代码中，Label1.Caption=””的作用是该标签框中得内容清除。（对） 9、变量名的长度最长可达1024个字符。（错）225个 10、sum和int.sum都可以作为VB的变量名。（错） 11、下列程序的运行结果是15 （对） Dim s as Double Dim i as Integer S=0 I=1 Do While i<=5 I=i+2 S=s+i Loop Label1.Caption=s 12、对于熟练的程序员，可以省略程序的调试过程。（错） 13、在VB中，使用if语句就可以根据条件改变程序的执行路径。（对） 14、VB编程的一般步骤应该是：分析问题——设计界面——编写代码——调试与运行程序。（对） 单项选择题 1、小明想用VB设计一个加法器程序，做了如下规划，下列说法错误的是。（D） A、程序运行时标题栏显示加法器 B、前两个标签框显示的内容分别为“+”和“=” C、Command1用来计算出结果 D、使用了三个命令按钮、两个标签框和三个文本框 2、从下面的对象属性可以看出，该对象的标题为（A） vb综合考试试题 1303班9月16日第一次综合考试试题 一、单选（本大题共25小题，每小题2分， 共 50分） 1. 设a=2,b=3,c=4,d=5,表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是( )。 A、-1 B、 1 C、True D、False 2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。 A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 3、下列叙中不正确的是（） A、变量名中的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明 字符 D、变量名不能使用关键字 2 4、下列关于变体类型的描述，其中正确的是 _______。 A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值，该变量即为变体 类型 D. 变体是赋给变量某一种类型数据后，就不能 再赋给它另一类型的数值 5、执行 PRINT 18/2*3,-3^2 命令后，输出结 果为_____。 A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 6、下面的_______语句可以实现：先在窗体上 输出大写字母A，然后在同一行的第10列输出 小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 3 一、单选题（每题1分，共76题） 1.以下关于窗体的描述中错误的是（） A. 在VB中每次运行时可以指定不同的启动窗体 B. 要让窗体以最大化方式打开，应设置MaxButton属性值为True C. 窗体第一次显示时也会发生Resize事件 D. 第一次显示时窗体的位置可以不是设计时所指定的位置 2.执行多窗体应用程序时，（） A. 打开一个窗体后，其他窗体都会被关闭 B. 允许同时打开多个窗体 C. 打开一个窗体后，其他窗体都会被隐藏起来 D. 在某一时刻只能打开一个窗体 3.程序中要在文本框文本中插入一段文字，应当使用的属性是（） A. SelText B. Name C. Text D. Caption 4. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（） A. 方法 B. 属性 C. 事件 D. 工程 5.当一个工程中含有多个窗体时，其中的启动窗体是（） A. 启动VB时建立的窗体 B. 第一个添加的窗体 C. 最后一个添加的窗体 D. 在工程属性窗口中指定的窗体 6.当新建一个工程并启动Visual Basic后，工具箱中的控件是（） A. 内部控件 B. Active X控件 C. 内部控件和Active X控件 D. 内部控件或Active X控件 7.启动Visual Basic后，就意味着要建立一个新的（） A. 窗体 B. 程序 C. 工程 D. 文件 8.下面是字符串数据的类型声明字符（） A. % B. $ C. & D. ! 9.对象是将数据和操作起来的逻辑实体（） A. 封装 B. 串接 C. 连接 D. 伪装 10.下面属性用于显示对象的标题（） A. Text B. Caption C. Name(名称) D. ForeColor | 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", 1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。 Dim x As Integer, y As Integer, z As Integer Dim c As Single, s As Single x = Int(Rnd * 201 + 100) y = Int(Rnd * 201 + 100) z = Int(Rnd * 201 + 100) If x + y > z And x + z > y And y + z > x Then c = (x + y + z) / 2 s = Sqr(c * (c - x) * (c - y) * (c - z)) Print "三角形面积是：" & s Else Print "构不成三角形" End If 2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[] 100 90、之间的学生人数。 , Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j% Dim x As Single For m = 1 To 60 '产生60名学生的分数 x = Rnd * 101 '产生0－100的分数 Print x; If x >= 90 Then a = a + 1 ElseIf x >= 80 Then b = b + 1 ElseIf x >= 70 Then c = c + 1 ElseIf x >= 60 Then d = d + 1 ElseIf x >= 50 Then e = e + 1 ElseIf x >= 40 Then f = f + 1 ElseIf x >= 30 Then g = g + 1 ElseIf x >= 20 Then h = h + 1 ElseIf x >= 10 Then i = i + 1 Else 2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。 1.一串字符求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, q, w, r s = TextBox1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) >= "A" And UCase(c) <= "Z" Then q = q + 1 ElseIf c >= "0" And c <= "9" Then w = w + 1 Else r = r + 1 End If Next Label1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub 2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, z, x, c, i s = TextBox1.Text a = Mid(s, 1, 1) i = 1 Do While a <> "?" If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1 ElseIf a >= "0" And a <= "9" Then x = x + 1 Else c = c + 1 End If i = i + 1 a = Mid(s, i, 1) Loop Label1.Text = z & x & c End Sub 3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, j s = TextBox1.Text c = Trim(Str(s)) If Int(c) = c Then2018-1VB程序设计课程试卷
vb练习题及答案.doc
大学VB考试题库
二级VB模拟试题1-1
vb试题及答案
VB练习题
vb综合考试试题
VB考试题目1
vb题库及答案
个vb经典例题
vb期末考试试题
VB程序设计 试题与答案-1
vb经典题目及答案
VB经典例题13道(附答案)