在窗体上建立一个文本框、一个图片框和三个命令按钮,把三个命令.
vb第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
VB模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
大学VB期末考试题库终极版绝对全
一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（C）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个Visual Basic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、Visual Basic 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)属性进行设置。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。
vb考题 (1)
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案： C(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) C(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print 方法在图片框中输出文本B) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… NextB) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C) 除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
2013上VB教学第2章
7.2 VB对象及基本操作7.2.2 VB程序设计基本过程例题，按图要求，设计一个程序，在窗口中添加三个命令按钮，一个文本框。
该程序实现的功能如下：（见例题2.1）单击按钮1，在文本框中显示“欢迎使用Visual Basic 6.0”单击按钮2，清除文本框中显示的内容单击按钮3，退出程序1. 界面设计⑴．启动VB程序工作界面，建立一个EXE工程⑵．在窗体上添加如下图所示的3个按钮和1个文本框对象⑶．按下表设置各个对象的属性值。
属性Width Height Font Caption Text 控件对象窗体6000 4000 楷体、小三“例题2.1”文本框Text1 5000 1000 楷体、小三空按钮Command1 2000 800 楷体、小三“请单击此按钮”按钮Command2 1500 800 楷体、小三“清屏”按钮Command3 1500 800 楷体、小三“程序结束”界面设计完成后的界面外观2．编写程序代码⑴．按钮Command1代码双击按钮Command1，打开代码窗口，输入如下代码。
Private Sub Command1_Click()Text1.Text = "欢迎使用Visual Basic6.0"End Sub⑵．按钮Command2代码设置在代码窗口选择按钮Command2的单击事件Click，并输入如下代码Private Sub Command2_Click()Text1.Text = " "End Sub⑶．按钮Command3代码设置Private Sub Command3_Click()EndEnd Sub说明：Private Sub……End Sub是系统自动生成，中间蓝色的代码是用户按设计要求编写的程序代码。
⑷. 程序代码完成后窗口的内容如下图所示：⑸. 在编写程序中，要随时修改设计语句错误。
（见例题代码错误）一般出现红色文字，表示有语句、语法的错误，要更正。
使用控件数组（VB6）
使用控件数组（VB6高级编程）（福哥录入）控件数组是一组具有共同名称和类型，且事件过程也相同的控件。
一个控件数组至少应有一个元素，元素数目可在系统资源和内存允许的范围内增加；数组的大小也取决于每个控件所需的内存和windows 资源。
在控件数组中可用的最大索引值为32767。
同一控件数组中的元素有自己的属性设置值。
常见的控件数组包括实现菜单控件和选项按钮分组。
在设计时，使用控件数组添加控件所消耗的资源比直接向窗体添加多个相同类型的控件所消耗的资源要少。
当希望若干控件共享代码时，控件数组也很有用。
例如，如果创建了一个包含三个选项按钮的控件数组，则无论单击那个按钮时都将执行相同的代码。
若要在运行时创建新控件，则新控件必须是控件数组的成员。
使用控件数组时，每个新成员继承数组的共享事件过程。
没有控件数组机制是不可能在运行时创建新控件的，因为全新控件不具有任何事件过程。
控件数组解决了这个问题，因为每个新控件都继承为数组编写好的事件过程。
例如，如果窗体上有若干文本框，而且每个文本框都接受一个日期数值，则可创建一个控件数组，使所有文本框共享一个合法性检查代码。
1、设计时创建控件数组设计时有三种方法创建控件数组：（1）将相同名字赋予多个控件。
（2）复制现有的控件并将其粘贴到窗体上。
（3）将控件的Index 属性设置为非Null数值。
可以通过改变控件名称添加控件数组元素，步骤如下所示：（1）绘制控件数组中要添加的控件（必须为同一类型的控件）。
决定哪一个控件作为数组中的第一个元素。
（2）选定控件并将其Name 设置值变成数组第一个元素的Name 设置值。
（3）在数组中为控件输入现有的名称时，VisualBasic 将显示一个对话框，要求确认是否要创建控件数组。
此时选择“确定”按钮确认操作。
例如，若控件数组第一个元素名称为cmdCtlArr，则选择一个CommandButton将其添加到数组中，并将其名称设置为cmdCtlArr，此时，将显示这样一段信息：“已经存在名为‘cmdCtlArr’的控件。
2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(1)
2013年3月全国计算机等级考试二级VB上机题库—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分别为Op1、Op2，标题分别为"男生"、"女生"；再画两个复选框，名称分别为Ch1、Ch2，标题分别为"体育"、"音乐"。
VB习题
VB习题库1.1简单的动画演示。
一行文字“欢迎使用VB”在具有背景图案的窗体中上下移动。
移动方法有两种：单击“手动”按钮一次，移动50twip单位；单击“自动”按钮，连续移动；当内容超出窗体范围，进行反弹。
2.1编写一个对输入字符进行转换的程序。
转换规则为，将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。
要求每输入一个字符，马上就进行判断和转换。
2.4窗体无最大化按钮和最小化按钮，在窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体装入Windows墙纸作为背景；当用户单击窗体，在标题栏显示“单击”，在窗体显示“欢迎使用VB”；当用户双击窗体，在标题栏显示“鼠标双击”，去除窗体的背景图案，并显示“结束使用VB”。
程序运行界面依次如下。
2.5利用两个标签控件，显示具有浮雕效果的文字。
如下图。
2.7要求输入数字数据。
当输入结束时，对于输入正确的数据，显示正确信息；对输入的非数字数据显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。
2.8建立一个允许剪切、复制和粘贴的简单便笺板程序。
要求：文本框初始为空白，程序运行中由用户输入正文，其中“剪切”、“复制”、“粘贴”按钮以图形形式显示，并且按钮的有效性应根据运行过程随状态而作相应调整，“结束”按钮以标准形式显示。
2.9用Print方法输出如图所示图形。
2.10移动图形示例，程序运行时在图形框装入图形，单击图形框使图形框起始点（左上角）移到窗体的中心，同时图形缩小50%。
4.1编一帐号和密码输入的检验程序。
对输入的帐号和密码规定如下：（1）帐号不超过6位数字，密码4位字符，在本题中，密码假定为“ssmu”。
（2）密码输入时在屏幕上不显示输入的字符，而以“*”代替。
（3）当输入不正确，如帐号为非数字字符，密码不正确等，显示有关信息，见下图。
若单击“重试”按钮，则清除原输入的内容，焦点定位在原输入的文本框，再输入，若单击“取消”按钮，则停止程序的运行。
vb考题 (1)
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案： C(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) CB) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… Next(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print方法在图片框中输出文本B) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C) 除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
2013年全国计算机等级《二级VB》考前冲刺试卷(4)-中大网校
2013年全国计算机等级《二级VB》考前冲刺试卷(4)总分：100分及格：60分考试时间：120分一、选择题(1)在程序运行时，下面的叙述中正确的是（）。
A. 用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B. 用鼠标左键单击窗体的标题栏，会执行窗体的Form Click事件过程C. 只装入而不显示窗体，也会执行窗体的Form Load事件过程D. 装入窗体后，每次显示该窗体时，都会执行窗体的Form Click事件过程(2)下面关于多重窗体的叙述中，正确的是（）。
A. 作为启动对象的Main子过程只能放在窗体模块内B. 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C. 没有启动窗体，程序不能执行D. 以上都不对(3)A. 10B. 8C. 9D. 7(4)A. 1000 True Time$()B. 100 True Time$()C. 1000 False rime$()D. 100 False Time$()(5)在表达式2+3*4^5．Sin(x+1)／2中，首先进行的运算是（）。
A. 4 ^ 5B. 3*4C. x+1D. Sin()(6)</p><p>A. TrueB. FalseC. 0D. Null(7)下面程序运行时，若输入“Visual Basic Programming”，则在面体上输出的是（）。
</p>A. 3B. 2C. 1D. 0(8)在3种不同类型的组合框中，只能选择而不能输入数据的组合框是（）。
A. 下拉式组合框B. 简单组合框C. 下拉式列表框D. 三个类型都是(9)数据管理技术发展的三个阶段中，（）没有专门的软件对数据进行管理。
人工管理阶段II．文件系统阶段III．数据库阶段A. 仅IB. 仅IIIC. I和IID. II和III(10)A. 把2个Form2．input．Visible中的“Form2”删去B. 把Form1中Text1文本框及相关程序放到Form2窗体中C. 把IfKeyAsii=13 Then改为IfKeyAscii=”XSLNCER”ThenD. 把Forml．Hide、Form2．Show两行移动到2个End If之间(11)以下能判断是否到达文件尾的函数是（）。
2013计算机二级VB真考 选择题 题库(1)
2013计算机二级VB真考选择题题库（1）1.程序流程图中带有箭头的线段表示的是( C )。
A) 图元关系B) 数据流C) 控制流D) 调用关系2.结构化程序设计的基本原则不包括( A )。
A) 多态性B) 自顶向下C) 模块化D) 逐步求精3.软件设计中模块划分应遵循的准则是( B )。
A) 低内聚低耦合B) 高内聚低耦合C) 低内聚高耦合D) 高内聚高耦合4.在软件开发中，需求分析阶段产生的主要文档是( B )。
A) 可行性分析报告B) 软件需求规格说明书C) 概要设计说明书D) 集成测试计划5.算法的有穷性是指( A )。
A) 算法程序的运行时间是有限的B) 算法程序所处理的数据量是有限的C) 算法程序的长度是有限的D) 算法只能被有限的用户使用6.对长度为n的线性表排序，在最坏情况下，比较次数不是n(n－1)/2的排序方法是( D )。
A) 快速排序B) 冒泡排序C) 直接插入排序D) 堆排序7.下列关于栈的叙述正确的是( B )。
A) 栈按"先进先出"组织数据B) 栈按"先进后出"组织数据C) 只能在栈底插入数据D) 不能删除数据8.在数据库设计中，将E－R图转换成关系数据模型的过程属于( C )。
A) 需求分析阶段B) 概念设计阶段C) 逻辑设计阶段D) 物理设计阶段9.有三个关系R、S和T如下：由关系R和S通过运算得到关系T，则所使用的运算为(D)。
A) 并B) 自然连接C) 笛卡尔积D) 交10.设有表示学生选课的三张表，学生S(学号，姓名，性别，年龄，身份证号)，课程C(课号，课名)，选课SC(学号，课号，成绩)，则表SC的关键字(键或码)为( C )。
A) 课号，成绩B) 学号，成绩C) 学号，课号D) 学号，姓名，成绩11.以下叙述中错误的是( D )。
A) 标准模块文件的扩展名是.basB) 标准模块文件是纯代码文件C) 在标准模块中声明的全局变量可以在整个工程中使用D) 在标准模块中不能定义过程12.AA) 1B) 0C) 3D) 出现错误提示13.以下选项中，不合法的Visual Basic的变量名是( B )。
北京林业大学监控系统程序设计期末试题库-填空题
Part 1=====基本概念填空题=====1. VB中若要产生一消息框，可用MsgBox函数来实现。
2. 常量是指在程序运行过程中，其值不能改变的量。
3. 运行下面的程序，就会出现无限循环，按_Ctrl+Break____键可以终止程序运行。
Private Sub Form_Click ( )Dim i As IntegerDo While i<10i =i * 20LoopEnd Sub4．整数类型数据分别包括整型和长整型数据。
5. 在VB集成开发环境中，运行应用程序的方法有三种：一是(单击“运行”菜单下的启动；二是单击工具栏上的启动按钮_；三是按F5键6. 在VB中若要让某对对象获取焦点，则可通过Setfocus 方法来实现。
7．列表框（ListBox控件）显示项目列表，用户可从中选择一个或多个项目。
8.有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。
此处红色一种属性，飞是一种_方法__。
针刺是一种事件，爆破是一种方法。
9.可使用列表框的_AddItem_方法向列表框中增加一个项目。
10．框架（Frame控件）可以用来对其它控件进行分组，以便于用户识别，主要用于为单选按钮分组。
11. 在VB中，用来描述对象外部特征的量称之为对象的属性。
12. 为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC” 键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为取消(&C)，并且设置其Cancel属性值为True 。
13. 关系式-5<=X<=5所对应的表达式是X>=-5 and X<=514. 在过程内用Static 声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。
15. 在模块文件中的声明部分用Global或public关键字声明的变量为全局变量。
2012年3月计算机二级VisualBasic练习题及答案：基本概念
⼀、单选题 1. Visual Basic是⼀种⾯向对象的可视化程序设计语⾔，采取了_______的编程机制。
A）从窗体开始执⾏ B）按书写顺序执⾏ C）从主程序开始执⾏ D）事件驱动 2. 在Visual Basic中最基本的对象是_________，它是应⽤程序的基⽯，是其他控件的容器。
A）⽂本框 B）窗体 C）标签 D）命令按钮 3. 有下⾯的程序代码：Command1.Caption ="确定"，则Command1，Caption和"确定"分别代表 _________。
A）对象，属性，值 B）对象，⽅法，值 C）对象，值，属性 D）属性，对象，值 4．多窗体程序是由多个窗体组成的，在缺省的情况下，VB应⽤程序执⾏时，总是把_________指定为启动窗体。
A）不包含任何控件的窗体 B）设计时的第⼀个窗体 C）包含控件最多的窗体 D）命名为Form1的窗体 5．VB是⼀种⾯向对象的程序设计语⾔，下⾯_________不是⾯向对象包含的三要素。
A）变量 B）事件 C）属性 D）⽅法 6．VB 6.0集成开发环境中不能完成的功能是_______。
A）输⼊编辑源程序 B）编译⽣成可招待程序 C）调试运⾏程序 D）⾃动⽣成查找并改正程序中的错误 7．下列关于VB编程的说法中不正确的是_______。
A）属性是描述对象特征的数据 B）事件是能被对象识别的动作 C）⽅法指⽰对象的⾏为 D）VB程序采⽤的运⾏机制是⾯向对象 8．关于⾯向对象的描述中，不正确的是_______。
A）对象就是⾃定义结构变量 B）对象代表正在创建的系统中的⼀个实体 C）对象是⼀个特征和操作的封装体 D）对象之间的信息传递是通过消息进⾏的 9．以下叙述错误的是________。
A）打开⼀个⼯程⽂件时，系统⾃动装⼊与该⼯程有关的窗体⽂件 B）打开⼀个窗体⽂件时，系统⾃动装⼊与该窗体有关的⼯程⽂件 C）保存VB应⽤程序时，应分别保存窗体⽂件和⼯程⽂件 D）事件可以由⽤户激发,也可以由系统激发 10．VB6.0集成开发环境不包括________窗⼝。
Vb考试复习题
Vb考试复习题一、填空题1.设 a=2,b=3，表达式 a>b 的值是_______。
FALSE（大小于表示判断）2.在VB中声明符号常量的关键字是_______。
Const（变量是用dim a as …）3. 表达式10 MOD 16\4的值是_______。
2(优先级1 ^ ,2 取负，3 乘、除，4 整除，5 mod，6 加减)4. 设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_______。
False|0|5. 设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_______。
True（优先级：1.not 2.and 3.or）6. 设a=1,b=2,c=3,则VB6.0表达式：a<b or b<c and c<a 的值是_______。
True7. 在VB中，用 Dim X As Integer 语句定义的变量X，系统默认其值为_______。
0（integer 整形 % 前缀 int 范围 -32768~32767）8. 表示x是5的倍数逻辑表达式为_______。
X MOD 5=09. 已知 a=3.5,b=5.0,c=2.5,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。
False|0|零|假|假值|零值10. 用 dim abc as integer 定义的变量abc,其类型是______。
整型11. 表达式"12345"<>"12345" & "ABC"的值是_______。
True12. 在VB中，字符型常量应使_______将其括起来，日期/时间型常量应使用______将其括起来。
在窗体上建立一个文本框、一个图片框和三个命令按钮,把三个命令按
1、编写程序，用文本框检查口令输入。
在窗体上建立一个文本框、一个图片框和三个命令按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。
程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。
如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click事件过程，重新在文本框中输入口令，直到输入口令正确为止。
如果单击“结束”按钮，则结束程序。
画出界面设计，属性列表，写出相关事件过程代码。
答：Text1PasswordChar = "*"Command3Caption = "结束"Command2Caption = "检查口令"Command1Caption = "开始"Image1Stretch = TrueVisible = FalseLabel1Caption = "口令"Option ExplicitDim msg As StringConst password = "1234"Private Sub Command1_Click()Text1.Text = ""Image1.Visible = FalseText1.SetFocusEnd SubPrivate Sub Command2_Click()If Text1.Text = password ThenImage1.Visible = TrueElsemsg = "口令不对，请重新输入！"MsgBox msgCall Command1_ClickEnd IfEnd SubPrivate Sub Command3_Click()EndEnd Sub除此之外还要画上书上的界面。
VB review
5 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属 为了在按下回车键时执行某个命令按钮的事件过程， 性设置为True，这个属性是 性设置为 ， A．Value B．Default C．Cancel D．Enabled ． ． ． ． 6要使一个命令按钮成为图形命令按钮，则应设置其哪些属性值 要使一个命令按钮成为图形命令按钮，则应设置其哪 属性值 要使一个命令按钮成为图形命令按钮 A．Picture B．Style C．DownPicture D．DisabledPicture ． ． ． ． 7为了使标签覆盖背景，应把 为了使标签覆盖背景， 为了使标签覆盖背景 应把BackStyle属性设置为 属性设置为 A．0 B．1 C．True D．False ． ． ． ． 8为了使标签能自动调整大小以显示全部文本内容，应把标签的 为了使标签能自动调整大小以显示全部文本内容， 为了使标签能自动调整大小以显示全部文本内容 应把标签的_____属性设置为 属性设置为 True。 。 9使文本框获得焦点的方法是 使文本框获得焦点的方法是 A．Change B．GotFocus C．SetFocus D．LostFocus ． ． ． ． 10要判断在文本框内是否按下了回车键，可以在文本框的下列哪个事件中进行判断。 要判断在文本框内是否按下了回车键， 要判断在文本框内是否按下了回车键 可以在文本框的下列哪个事件中进行判断。 A．Change B．Click C．KeyPress D．GotFocus ． ． ． ． 11运行时，当用户向文本输入新的内容时，或在程序代码中对文本框的Text属性进 运行时，当用户向文本输入新的内容时，或在程序代码中对文本框的 属性进 运行时 行赋值从而改变了文本框的Text属性时，将触发文本框的下列哪一个事件。 属性时， 行赋值从而改变了文本框的 属性时 将触发文本框的下列哪一个事件。 A．Click B．Db1Click C．GotFocus D．Change ． ． ． ． 12在运行时，按Tab键跳过一个可以获得焦点的控件（如文本框），则可能是因为 在运行时， 键跳过一个可以获得焦点的控件（ ），则可能是因为 在运行时 键跳过一个可以获得焦点的控件 如文本框）， A．该控件的 属性值为True ．该控件的TabStop属性值为 属性值为 B．该控件的TabStop属性值为 ．该控件的 属性值为False 属性值为 C．该控件的 属性值为True ．该控件的Enabled属性值为 属性值为 D．该控件的 属性值为False ．该控件的Enabled属性值为 属性值为
VB试题
期末复习题
一、在窗体上建立一个文本框和三个命令按钮。
在文本框中显示“请改变我的颜色”的内容并将三个命令按钮分别标上“红色”、“绿色”、“蓝色”字样。
运行程序后，当用鼠标分别单击标有“红色”、“绿色”、“蓝色”的三个命令按钮时，在文本框中显示的文字颜色会随之改变为相应的红、绿、蓝颜色。
提示：表示红色、绿色和蓝色的系统常数为vbRed、vbGreen和vbBlue。
二、编写一个利用计时器控件自动右移图像框和标签的程序。
要求在启动程序后，随着计时器事件的发生不停地右移图像框和标签，要求位移量都为200(Twips)。
Private Sub Timer1_Timer()
___(1)______= Image1.Left ___(2)______
Label1.Left =___(3)______ + 200
End Sub
填入答案：
（1）Image1.Left
（2）+ 200
（3）Label1.Left
三、利用Rnd函数设计一个随机产生中奖号码的程序，用户界面如图所示。
运行程序后，当单击“开始”按钮，分别随机产生2个取值范围在10～99之间的随机数，并分别显示在2个文本框中，当单击“停止”按钮，则停止取数，并在两个文本框内联合显示中奖号。
用户界面如图所示。
Private Sub Command1_Click()
___(1)______= 1
End Sub
Private Sub Command2_Click()
___(2)______= 0
End Sub
Private Sub Timer1_Timer()。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、编写程序，用文本框检查口令输入。
在窗体上建立一个文本框、一个图片框和三个命令
按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。
程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。
如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。
如果单击“结束”按钮，则结束程序。
画出界面设计，属性列表，写出相关事件过程代码。
答：Text1
PasswordChar = "*"
Command3
Caption = " 结束"
Command2
Caption = " 检查口令"
Command1
Caption = " 开始"
Image1
Stretch = True
Visible = False
Label1
Caption = " 口令"
Option Explicit
Dim msg As String
Const password = "1234"
Private Sub Command1_Click( Text1.Text = ""
Image1.Visible = False
Text1.SetFocus
End Sub
Private Sub Command2_Click(
If Text1.Text = password Then Image1.Visible = True
Else
msg = "口令不对，请重新输入！" MsgBox msg
Call Command1_Click
End If
End Sub
Private Sub Command3_Click( End
End Sub
除此之外还要画上书上的界面。
2、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素
对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换。
第5个元素与第6个元素互换。
分别输出数组原来各元素和对换后各元素的值。
答：Dim arra(1 To 10 As Integer, arrb(1 To 10 As Integer
Dim i As Integer, x As Variant
For i = 1 To 10
arra(i = Val(InputBox$("请输入要互换的10个数"
Next i
For i = 1 To 10
arrb(11 - i = arra(i
Next i
Print "原数："
For Each x In arra
Print x; " ";
Next x
Print
Print "互换后的数："
For Each x In arrb
Print x; " ";
Next x
End Sub
3、编写程序，根据输入整数n ，计算并输出S=1!+2!+3!+…+n!的结果，请将求阶层的功编
写为一个函数。
答：'**** 9.2 函数过程****
Function fac(n As Integer As Double
Dim i As Integer, z As Double
z = 1
For i = 1 To n
z = z * i
Next i
factorial = z
End Function
'****9.2 主程序（调用函数过程的事件过程****
Private Sub Command2_Click(
Dim s As Double, a As Integer, b As Integer, c As Integer
a = Val(InputBox$("请输入A"
b = Val(InputBox$("请输入B"
c = Val(InputBox$("请输入C"
s = fac(a + fac(b + fac(c
Print "s="; s
End Sub
4、税务部门征收所得税，规定如下：
1 收入在200元以内的，免征；
2 收入在200~400元内的，超过200元的部分纳税3%；
3 收入超过400元的部分，纳税4%；
4 当收入达到或超过5000元时，将4%税金改为5%。
编写程序接收用户输入的收入值计算并输出此用户应付的税金。
答：
Private Sub Command6_Click(
Dim m As Double, tax As Double
m = Val(InputBox$("请输入收入"
If m <= 200 Then
tax = 0
ElseIf m > 200 And m <= 400 Then
tax = (m - 200 * 0.03
ElseIf m > 400 And m < 5000 Then tax = (m - 400 * 0.04
Else
tax = (m - 400 * 0.05
End If
Print "收入所得税："; tax
End Sub。