VB题库—程序设计[1]
VB程序设计1
1．第1题单选题应用程序设计完成后，应将程序保存，保存的过程是（）A、只保存窗体文件即可B、只保存工程文件即可C、先保存工程文件，之后保存窗体文件D、先保存窗体文件（或标准模块文件），之后还要保存工程文标准答案：D您的答案：题目分数：5此题得分：0.0批注：2．第2题单选题下列不能打开属性窗口的操作是（）A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl TD、单击工具栏上的“属性窗口”按钮标准答案：C您的答案：题目分数：5此题得分：0.0批注：3．第3题单选题 Visual Basic的编程机制是（）A、可视化B、面向对象C、面向图形D、事件驱动标准答案：D您的答案：题目分数：5此题得分：0.0批注：4．第4题单选题运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE标准答案：D您的答案：题目分数：5此题得分：0.0批注：5．第5题单选题下面不是VB工作模式的是（）A、设计模式B、运行模式C、汇编模式D、中断模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：6．第6题单选题为了防止用户随意将光标置于控件上，应（）A、将控件的TABINDEX属性设置为0B、将控件的TABSTOP属性设置为TRUEC、将控件的TABSTOP属性设置为FALSED、将控件的ENABLED属性设置为FALSE标准答案：D您的答案：题目分数：5此题得分：0.0批注：7．第7题单选题在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A、INDEXB、TABINDEXC、TABSTOPD、ENABLED标准答案：B您的答案：题目分数：5此题得分：0.0批注：8．第8题单选题可视化编程的最大优点是（）A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得标准答案：C您的答案：题目分数：5此题得分：0.0批注：9．第9题单选题 VB应用程序的运行模式是（）A、解释运行模式B、编译运行模式C、两者都有D、汇编模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：10．第10题单选题在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A、Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB、Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC、Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD、Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub标准答案：A您的答案：题目分数：5此题得分：0.0批注：11．第11题单选题以下能够触发文本框Change事件的操作是（）A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容标准答案：D您的答案：题目分数：5此题得分：0.0批注：12．第12题单选题如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A、文本框的MULTILINE属性值为TRUEB、文本框的LOCKED属性值为TRUEC、文本框的MULTILINE属性值为FALSED、文本框的LOCKED属性为FALSE标准答案：B您的答案：题目分数：5此题得分：0.0批注：13．第13题单选题决定标签（Label）显示的属性是（）A、TextB、NameC、CaptionD、Alignment标准答案：C您的答案：题目分数：5此题得分：0.0批注：14．第14题单选题 Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A、属性、事件、事件过程B、控件、窗体、事件C、属性、过程、方法D、属性、事件、方法标准答案：D您的答案：题目分数：5此题得分：0.0批注：15．第15题单选题任何控件都具有的属性是（）A、TEXTB、CAPTIONC、NAMED、FORECOLOR标准答案：C您的答案：题目分数：5此题得分：0.0批注：16．第16题单选题命令按钮的标题文字由（）属性来设置。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
VB程序设计考试题库——考试专用
程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数〞或"零"。
2、题目：(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目：单击窗体。
(响应)S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
4、题目：(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。
5、题目：(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕，求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目：单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目：(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为：' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Ma*,Min,Aver中8、题目：(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目：(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目：(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为：" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：ma* = a(0)：min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目： (事件)单击窗体。
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在VB6.0集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误3.VB6.0集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言6.Visual Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试7.Visual Basic的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是_________。
（A）My Documents （B）VB98（C）\ （D）Windows10.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle11.文本框没有______属性。
VB程序设计-1
代码设计窗口
（3）运行程序 标准工具栏中启动程序按钮 ，或按[F5]键。
（4）保存工程(P14) 保存VB程序需要保存窗体文件和工程文件。 至少包括：工程文件(.vbp )和窗体文件(.frm)
例二 计算1～10的和值。
(1)界面设计 在界面设计窗口添加1个标签控件、1个文本框控 件、1个命令按钮控件。
‘赋值号左侧不是变量
(2) 设置控件属性
Form1.Width=400 √ Command1.Left=Command1. Left -100 √ Form1.Left=Form1.Left+300 √
小结
空格的书写
（1）单个常量或变量。 Dim x As Integer Print 123 ; “ABC”; x
（2）计算表达式后输出。 x=10 : y=20 Print 2*(x+y)
（3）一种有提示的输出方式。 Print x*x+2*x+1 Print “y=”; x*x+2*x+1 ‘比较两式
2 Print语句使用符号进行输出格式控制 （1）分号，紧凑的输出方式，如Print “x=” ; x （2）逗号，分散的输出方式，如Print “y=” , x^2 （3）无符号，如Print 。则实现光标换行显示
Dim N1 As Long ‘给变量取名为N1，变量 N1中存储的数据类型为长整数类型
Dim Str1 As String , Str2 As String*10 ‘定义Str1为变长字符串 , Str2为定长字 符串 , Str2字符长度为10
一般来说，变量应遵从先定义后使用的原则。 注意，变量定义后默认初始值为0或空字符串。 错误的写法：Dim i , j as Integer
VB程序设计试题及答案（一）-vb程序设计答案
VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D 。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
VB程序设计考试(1)
VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。
正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。
正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是（）。
正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。
正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。
正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。
VB程序设计试题 及 参考答案
VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
VB程序设计题
一．[题目] 编一程序，显示所有的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。
例如，153是水仙花数，因为153=13+53+33【编程要求】1、单击"计算"按钮，则将计算结果显示在多行文本框中Text1中；单击"结束"按钮，程序停止运行。
2、界面应与给出的参考界面相似，不得增加或减少控件。
3、求出范围100-999之间的水仙花数【参考代码】Text1.Text = ""For i = 100 To 999a = i \ 100c = i Mod 10b = i \ 10 Mod 10If i = a ^ 3 + b ^ 3 + c ^ 3 ThenText1.Text = Text1.Text & i & vbCrLfEnd IfNext i二．[题目] 输入两个数，求最大公约数和最小公倍数。
[编程要求]1、输入数值后，按"计算"按钮，计算出最大公约数和最小公倍数按"清除"按钮，则将所有文本框中的内容清空，并将光标焦点指向text1。
按"结束"按钮，结束程序的执行。
2、程序中有一个过程，该过程的功能是求两个数的最大公约数。
【参考代码】Dim k As IntegerDok = m Mod nm = nn = kLoop While (k <> 0)gcd = mNext i三．输入一个正整数k，将k的各位数字分离后，累加求和。
程序界面如下图所示。
【编程要求】1、单击"计算"按钮，将结果在文本框中显示出来。
2、单击"清除"按钮，将二个文本框中的内容清空；单击"结束"按钮，程序停止运行。
3、界面应与给出的参考界面相似，不得增加或减少控件；4、运行程序，并输入123456检验。
VB题库(附答案)
2009级第二学期《Visual Basic程序设计》模拟考试一: 单项选择题A1: 当事件发生时，对象识别并响应事件，执行事件对应的程序代码，这样的编程机制称为________。
A事件驱动编程机制B面向对象方法C过程化编程方法D可视化程序设计方法C2: 下列不能打开属性窗口的操作是________。
（A）执行菜单中“视图→属性窗口”命令（B）按F4键（C）双击窗体（D）单击工具栏中的“属性窗口”按钮D3:当文本框获得焦点时，将触发文本框控件的_______事件。
（A）SetFocus（B）LostFocus（C）KeyPress（D）GotFocusB4: 以下不属于Visual Basic应用程序文件类型的是________。
（A）.frm（B）.bat（C）.vbg（D）.vbpD5: 使程序运行时窗体无法响应用户事件的属性是_______。
（A）Top（B）Cancel（C）Left（D）EnabledB6: 返回当前日期的函数是________。
（A）Time()（B）Date()（C）Year()（D）Timer()D7:用变量x存放数据123456789.987456321，变量x的最佳数据类型是________。
a整型b长整型c单精度型d双精度型A8: 设变量X="123"，Y=3,则X＆Y的值为________。
（A）"1233"（B）126（C）123（D）假C9: 下列程序段中可以实现X、Y变量值的互换的是________。
(A)Y=X:X=Y (B)Y=X:Y=Z:X=Y (C)Z=X:X=Y:Y=Z(D)Z=X:W=Y:Y=Z:X=YD10: InputBox函数返回值的类型是________。
（A）字符串（B）变体（C）数值（D）数值或字符串(视输入而定)A11:关于多分支选择结构If…ElseIf…EndIf ，下列错误的叙述是________。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”(B) Forml.Caption='欢迎使用VB'(C) Forml.Caption=欢迎使用VB(D) Forml.Caption="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
《VB程序设计》期末考试
《VB程序设计》期末考试注意事项：（1）题型：选择题40道，判断题10道，每题2分，满分100分。
（2）答题时间：60分钟。
（3）请在规定时间内作答并提交。
1、VB程序设计语言是一种（）。
[单选题] *A．汇编语言B．机器语言C．高级语言(正确答案)D．数据库语言2、VisualBasic最突出的特点是（）。
[单选题] *A．结构化程序设计B．程序开发环境C．程序调试技术D．事件驱动编程机制(正确答案)3、VB中，.frm是（）文件的扩展名。
[单选题] *A．工程文件B．可执行文件C．窗体文件(正确答案)D．标准模块文件4、VB中，.vbp是（）文件的扩展名。
[单选题] *A. 工程文件(正确答案)B. 可执行文件C. 窗体文件D. 标准模块文件5、在设计窗体时，双击窗体的任何地方，可以打开的窗口是（）。
[单选题] *A. 代码窗口(正确答案)B. 属性窗口C. 工程管理窗口D. 以上3个选项都不对6、VB是一种面向对象的程序设计语言，下面（）不是面向对象包含的三要素。
[单选题] *A. 变量(正确答案)B. 事件C. 属性D. 方法7、不论任何控件，共同具有的是（）属性。
[单选题] *A. TextB. CaptionC. BackColorD. Name(正确答案)8、要使Form1窗体的标题栏显示“欢迎使用Visual Basic 6.0! ”,以下（）语句是正确的。
[单选题] *A. Form1.Caption =" 欢迎使用Visual Basic 6.0! "(正确答案)B. Form1.Caption =’欢迎使用Visual Basic 6.0! ’C. Form.Caption = " 欢迎使用Visual Basic 6.0! "D. Form.Caption = ’欢迎使用Visual Basic 6.0! ’9、有下面的程序代码：Command1.Caption ="确定"，则Command1，Caption和"确定"分别代表（）。
(完整word版)VB程序设计试题题库及答案.doc
VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。
A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。
A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
VB习题集(1)(1)
一、单项选择题1、以下说法错误的是_____C____。
A. Visual Basic是一种可视化编程工具B. Visual Basic是结构化程序设计语言C. Visual Basic是面向过程的编程语言D. Visual Basic采用事件驱动编程机制2、窗体和控件的描述及其属性的设置保存在_____B____文件中。
A. 工程B. 窗体C. 窗体二进制数据D. 标准模块3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是____B_____。
A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件4、以下叙述中错误的是____C_____。
A．在Visual Basic的窗体中，一个命令按钮是一个对象B．事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法5、以下叙述中，错误的是____C_____。
A. 一个Visual Basic应用程序可以含有多个标准模块文件B. 一个Visual Basic工程可以含有多个窗体文件C. 标准模块文件可以属于某个指定的窗体文件D. 标准模块文件的扩展名为.bas6、Visual Basic的窗体设计器主要是用来____A_____。
A. 建立用户界面B. 添加图形、图像、数据等控件C. 编写程序源代码D. 设计窗体的布局7、Visual Basic是一种结构化高级程序设计语言，它采用的是_____C____驱动方式。
A.键盘B.鼠标C.事件D.函数8、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是____A_____。
A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块9、Visual Basic主要用于_____D____。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞，以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构，这 3 种根本结构是 ( D )〔 A〕递归结构，选择结构，循环结构〔B〕选择结构，过程结构，顺序结构（C〕过程结构，输入、输出结构，转向结构〔D〕选择结构，循环结构，顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ，a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 If sex= “男〞 And age＜40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age＜40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age＜ 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。
VB程序设计练习试题-期末练习试题.docx
【程序设计：选择3】当程序开始运行时，在Textl文本框中，输入成绩高于60分，使程序运行显示【合格】，否则显示【不合格】，运行结果如下图所示。
（注：编写双分支行语句命令）【参考代码】If X > = 60 Then S ="合格"Else S ="不合格"【程序设计：选择2】当程序开始运行时，在三个文本框Textl、Text2、Text3中，任意输入三个整数，单击［最大值］【参考代码】max = xIf y > max Thenmax = yEnd IfIf z > max Then max = zEnd If【程序设计：选择4】当程序开始运行时，在Textl 文本框中，输入成绩高于60分，使程序运行显示【合格】，否则 显示【不合格】，运行结果如下图所示。
（注：编写双分支块语句命令）【参考代码］If X > = 60 ThenS = “合格“ElseS = “不合格“End If【程序设计：选择1】当程序开始运行时，在三个文本框Textl 、Text2、Text3中，任意输入三个整数，单击［最大值］ W 单分支融 IsklMfiM请分别输入3个整数：如下图所示。
按钮，在Label2上显示三个数中的最大值, （注：使用单分支行语句来编写代码）【参考代码］max = xIf y > max Then max = yIf z > max Then max = z【程序设计：循环9】己经创建如图5所示的窗体界面。
要求：编写程序代码，程序运行时，在文本框Textl 中输入一个正整数n ,单击命令按钮Commandl后，在标签控件Label2上，显示Sum=l+2+3+ +n之和，完成程序后请运行程序，并保存程序。
（注：变量Sum表示累加单元，变量x表示循环控制变量，变量n表示Textl的值，必须使用Do Until .................... Loop语句。
VB题库 (1)
'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100以内偶数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------【参考代码】Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum===============【考生代码】'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
' 结果存入变量L中。
'-------------------------------------------------【参考代码】Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)===============【考生代码】'------------------------------------------------'【程序改错】'------------------------------------------------'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程' fact实现'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Long'**********ERROR**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********ERROR**********Public Function fact()Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i'**********ERROR**********fact = iEnd Function【改错1】错误【学生答案】For i = 2 To 8【参考答案】For i=2 To 8 Step 2============================================================【改错2】错误【学生答案】Public Function fact()【参考答案】Public Function fact(ByVal n As Integer)Public Function fact(n As Integer)Public Function fact(n%)Public Function fact(n)Public Function fact(ByVal n%)Public Function fact(ByVal n)============================================================【改错3】错误【学生答案】fact = i【参考答案】fact = t============================================================'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面程序将10个整数从大到小排序'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10a(m) = Int(10 + Rnd() * 90)Print a(m); " ";Next mPrintFor m = 1 To 9t = m'**********ERROR**********For n = 2 To 10'**********ERROR**********If a(t) > a(n) Then n = tNext n'**********ERROR**********If t = m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfNext mFor m = 1 To 10Print a(m)Next mEnd Sub【改错1】错误【学生答案】For n = 2 To 10【参考答案】For n=m+1 To 10============================================================【改错2】错误【学生答案】If a(t) > a(n) Then n = t【参考答案】If a(t) < a(n) Then t=nIf a(n)>a(t) Then t=n============================================================【改错3】错误【学生答案】If t = m Then【参考答案】If t<>m ThenIf not t=m ThenIf not m=t then============================================================编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序设计〖第1题〗『程序设计』(5分)(题号:148)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求10~20之间所有素数的乘积并输出在窗体上。
' 将结果存入变量L中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)----------------------〖第2题〗『程序设计』(5分)(题号:150)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。
' 将结果存入变量J中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j----------------------〖第3题〗『程序设计』(5分)(题号:131)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，' 结果输出在窗体上。
'-------------------------------------------------'将结果存入变量S中'-------------------------------------------------答案：----------------------Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)NextPrint (s)----------------------〖第4题〗『程序设计』(5分)(题号:152)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。
' (响应)求1+2+3+5+8+13+……前20项的和，并将结' 果在窗体上输出。
将结果存入变量SUM中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum----------------------〖第5题〗『程序设计』(5分)(题号:157)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
' 将结果存入变量SUM中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum----------------------〖第6题〗『程序设计』(5分)(题号:489)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!,' 请将sum结果值输出到窗体上。
' 使用do while...loop语句完成程序'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim n As Integeri = 1p = 1Do While i <= 10p = p * iIf i Mod 2 = 1 Thenn = n + 1sum = sum + (-1) ^ (n - 1) / pEnd Ifi = i + 1LoopPrint sum----------------------〖第7题〗『程序设计』(5分)(题号:154)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100以内偶数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum----------------------〖第8题〗『程序设计』(5分)(题号:134)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果' 存储到变量S中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))----------------------〖第9题〗『程序设计』(5分)(题号:142) '------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，' 并将结果输出到窗体上。
' 将结果存入变量M中'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i, j As IntegerDim s As LongFor i = 10 To 15s = 1For j = i To i + 2s = s * jNextm = m + sNextPrint (CStr(m))〖第1题〗『程序设计』(5分)(题号:149)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。