VB测试实例

VB 测试实例：程序最开始，如图所示，开始按钮为command1;中间有一个标签label1,显示内容为“VB 测试”。

（设计图1）

（运行首界面）

当单击开始按钮后，界面如图所示，command3变为可见，显示为“下一题”，框架frame1标题显示题目，里面有四个选项按钮，由上到下依次为option1,option2,option3,option4,并显示题目的选项。

当单击下一题时，界面如图所示，command2显示出来，并显示上一题。同时，题目和选项都变为另一题。单击上一题，返回到上一题。

共5道题，当做到第5题时，界面如下，command3显示为“完成”

单击完成，弹出窗口，如图所示，显示结果。

程序如下

Dim a% '用于计数 Dim daan(1 To 5) '用于存放答案 Private Sub Command1_Click() '开始 a = a + 1 Call timu(a)

Label1.Visible = False

Command1.Visible = False Command3.Visible = True Frame1.Visible = True End Sub

Private Sub Command2_Click() '上一题 Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False a = a - 1 Call timu(a) End Sub

Private Sub Command3_Click() '下一题 Option1.Value = False

Option2.Value = False Option3.Value = False Option4.Value = False a = a + 1

If a >= 2 Then Command2.Visible = True Call timu(a)

If a = 5 Then Command3.Caption = "完成" If a = 6 Then MsgBox "1.正确答案为 C ，你的答案为" & daan(1) & Chr(13) & "2.正确答案为 B ，你的答案为" & daan(2) & Chr(13) & "3.正确答案为 A ，你的答案为" & daan(3) & Chr(13) & "4.正确答案为B ，你的答案为" & daan(4) & Chr(13) & "5.正确答案为 C ，你的答案为" & daan(5) End Sub

Private Sub Form_Load()

Command2.Caption = "上一题" Command3.Caption = "下一题" Command2.Visible = False Command3.Visible = False Frame1.Visible = False End Sub

Sub timu(a) '自定义过程，用于出题 Select Case a Case 1

Frame1.Caption = "1.复选框的value 属性可以有（）个值" Option1.Caption = "A.1个" Option2.Caption = "B.2个" Option3.Caption = "C.3个"

Option4.Caption = "D.没有限止" Case 2

Frame1.Caption = "2.判断某个单选按钮是否被选中是通过其（）属性" Option1.Caption = "A.caption" Option2.Caption = "B.value" Option3.Caption = "https://www.360docs.net/doc/4614894332.html," Option4.Caption = "D.index" Case 3

Frame1.Caption = "3.单选按钮的click 事件是在下列哪种情况下才会被触发" Option1.Caption = "A.单击选中时" Option2.Caption = "B.单击取消时" Option3.Caption = "C.只要单击时" Option4.Caption = "D.单击命令按钮" Case 4

Frame1.Caption = "4.程序运行后，选定单选按钮，其value 属性值为（）" Option1.Caption = "A. False" Option2.Caption = "B. True" Option3.Caption = "C. 0 " Option4.Caption = "D. 1" Case 5

Frame1.Caption = "5.程序运行后，单击单选按钮，下面描述正确的是（）" Option1.Caption = "A. 只触发了Click 事件" Option2.Caption = "B. 只触发 Gotfocus 事件"

Option3.Caption = "C. 既触发Click 事件，也触发了GotFocus 事件" Option4.Caption = "D.具体触发了哪些事件由属性决定" End Select End Sub

Private Sub Option1_Click()

If Option1.Value = True And a = 1 Then daan(1) = Left(Option1.Caption, 1) If Option1.Value = True And a = 2 Then daan(2) = Left(Option1.Caption, 1) If Option1.Value = True And a = 3 Then daan(3) = Left(Option1.Caption, 1) If Option1.Value = True And a = 4 Then daan(4) = Left(Option1.Caption, 1) If Option1.Value = True And a = 5 Then daan(5) = Left(Option1.Caption, 1) End Sub

Private Sub Option2_Click()

If Option2.Value = True And a = 1 Then daan(1) = Left(Option2.Caption, 1) If Option2.Value = True And a = 2 Then daan(2) = Left(Option2.Caption, 1) If Option2.Value = True And a = 3 Then daan(3) = Left(Option2.Caption, 1) If Option2.Value = True And a = 4 Then daan(4) = Left(Option2.Caption, 1) If Option2.Value = True And a = 5 Then daan(5) = Left(Option2.Caption, 1) End Sub

Private Sub Option3_Click()

If Option3.Value = True And a = 1 Then daan(1) = Left(Option3.Caption, 1) If Option3.Value = True And a = 2 Then daan(2) = Left(Option3.Caption, 1) If Option3.Value = True And a = 3 Then daan(3) = Left(Option3.Caption, 1) If Option3.Value = True And a = 4 Then daan(4) = Left(Option3.Caption, 1) If Option3.Value = True And a = 5 Then daan(5) = Left(Option3.Caption, 1) End Sub

Private Sub Option4_Click()

If Option4.Value = True And a = 1 Then daan(1) = Left(Option4.Caption, 1) If Option4.Value = True And a = 2 Then daan(2) = Left(Option4.Caption, 1) If Option4.Value = True And a = 3 Then daan(3) = Left(Option4.Caption, 1) If Option4.Value = True And a = 4 Then daan(4) = Left(Option4.Caption, 1) If Option4.Value = True And a = 5 Then daan(5) = Left(Option4.Caption, 1) End Sub

VB控件属性大全

1.01、窗体(FORM)的常用属性属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance 外观效果,取值为： 0 平面 1 3D(立体) AutoRedraw 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为： True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle 设置边界类型,取值为： 0 None(无边界框架) 1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox 是或有控制框, 取值为：True 有 False 无 DrawMode 设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合

VB测试题(必做部分)

V B必做测验及答案目录实验4选择结构程序设计...................................... 错误!未定义书签。实验6循环结构程序设计...................................... 错误!未定义书签。实验7数组.................................................. 错误!未定义书签。实验9常用控件.............................................. 错误!未定义书签。

实验4选择结构程序设计 1.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 If a>5 then If b<4 then c=a-b Else c=b-a End if ElseIf b>3 then c=a*b Else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A 2.下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else b=b+a End if Print a a) 50

b) 100 c) 200 d) 10 答案：A 3.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If ____ Then x=x+I End If Next I Print x End Sub a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 <> 0 d) x Mod 2 <> 0 答案：A 4.下列程序段的执行结果为。 x=Int(Rnd+4) Select Case x Case 3 Print "优秀" Case 4 Print "良好"

记忆力测试题及答案分析

记忆力测试题及答案分析记忆能力是反映一个人智商高低的因素之一，而且有些工作，如秘书、助理、员等，对记忆能力都有着特殊的要求，那你的记忆能力如何呢？下面的测试可以帮助你了解你的记忆能力，请在10分钟之内完成测试，请根据实际情况选择！ 1　从以下四个选项中选择一个与你相符的： A　你很轻易地就能把以前看到的东西清晰地回忆起来 B　你需要一些提示，但是还能比较清晰地辨别出以前看过的东西 C　你有一些零碎的记忆片段，但大部分东西都忘记了 D　你经常把以前的记忆与其他记忆混淆，把东西记错 2　平常用什么方式记东西？ A　用整体来记忆，也就是把要记的东西综合归纳 B　以部分来记忆，也就是把对象分开，然后逐一记忆 3　在记忆一件东西后，你是否会很快再重温一遍，以便记得更牢？(是否) 4　你能在记忆时仔细观察对象，并考察与其相关联的事物，以便使记忆更加清楚吗？ (是否) 5　你能不能在面对大量信息时，把最重要的部分找出来并单独记忆？(是否) 6　你会借助一些其他的方式，如听、说、写或亲身的经历，来加深你对记忆对象的认可，使你记得更牢吗？ (是否) 7　当你所碰到的只是日常琐事或无关紧要的事时，你是否很快会忘记？ (是否) 8　当你面对一些比较枯燥的东西，比如字母和数字，你是否能用理解或关联的方法记下来？ (是否) 9　你平时习惯用阅读，尤其是精读的方式来搜寻并储存信息到大脑中吗？ (是否) 10　当碰到难题时，你是否能够不求助他人，单独解决？ (是否) 11　你在面对一件比较重要的事时，是否能集中自己的注意力，告诉自己一定要记住？ (是否) 12　你对所要记住的东西有兴趣，很想一探究竟吗? (是否) 13　你是否在面对众多信息时，也能把对自己有用的东西很快找到？(是否) 14　当你面对一个较为复杂的事物时，你能够找出其中的联系以及各个部分的相同点和不同点吗？ (是否) 15　在记忆比较疲劳的时候，你会不会把要记忆的东西拆换成另一种东

VB单元测试一

单元测试卷一一选择题（2*20=40）选择题答题处 1 Private sub Cmd_Click() Label1.caption=”开心每一天” Text1.SetFocus End Sub 在上述代码中，Click( ),Text1，SetFocus，Caption分别是代表 A 事件名、属性名、对象名、方法名 B 对象名、属性名、事件名、方法名 C方法名、对象名、事件名、属性名 D事件名、对象名、方法名、属性名 2 下列关于事件的叙述中不正确的是___________ A 事件是系统预先为对象定义的能被对象识别的动作 B 事件可分为为用户事件与系统事件两类 C VB为每个用户设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写

D VB中所有对象的默认事件都是Click 3 VB逻辑型数据占______字节内存 A 8 B 4 C 2 D 1 4 下列数据中，日期型数据是______ A 2010年6月8日 B ！06-08-2010！ C #06/08/2010# D #06,08,2010# 5 VB是一种面向对象的程序设计语言，所采用的编程机制是____________ A Form_Initialize B Form_Load C Form_Unload D Form_Click 6 下列哪个不是合法的常量名？ A X3_5 B B INTNL C Sin D a5n 7 下列选项中，不属于Visual Basic 特点的是 A 具有面向对象的可视化设计工具 B 事件驱动的程序运行机制 C 过程化的程序设计语言 D 支持多种数据库系统的访问 8 要修改一个控件的属性，需要在________中进行操作 A 属性窗口 B 工具箱 C 工程资源管理器 D 窗体布局窗口 9 29 一个应用程序可以包含多个窗体，默认情况下，程序运行时从_________开始的 A 主控窗体 B 名为Form的窗体

VB常用控件属性,事件

vb内部控件使用方法总结内部控件控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直接影响应用程序界面的美观性和操作的方便性。本章详细介绍VB的内部控件的使用方法。 4.1 标签标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性标签的属性很多，下面介绍几个常用的属性。（1）Alignment属性设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。（2）AutoSize属性设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下：Object.AutoSize[=True或False] （3）BackStyle属性设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。（4）BorderStyle属性设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。（5）Caption属性设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下：Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。

vb测试1

vb测试1 满分：64分姓名：________ 1、单项选择题(本题共计30分) 1、下列叙述中不正确的是___________. ( ) A、变量名的第一个字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 2、有应用代码：Text1.Text="VisualBasic"，其中的Text1、Text和"VisualBasic"分别代表____。( ) A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 3、使用文本框显示文字时，只能显示8个字符，则需设定它的____________属性为8。( ) A、Caption B、PasswordChar C、MaxLength D、V alue 4、_______控件可帮助控制动画的效果。( ) A、命令按钮 B、标签 C、时钟 D、文本框 5、设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s:Text1=a的结果相同的有________个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,”#####”):Text1=a ( ) A、1 B、2 C、3 D、4 6、以下使用方法的语句中，正确的是____________。( ) A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 7、VisualBasic标题栏上显示了应用程序的____________。( )

VB程序设计测试

VB 程序设计测试一、填空题（共12分，每题2分） 1、要获得一个选中控件或属性或帮助，可用功能键（）。 2、要使用VB程序运行，可按（）键。 3、若在一个VB工程中有两个窗体窗口，每个窗体窗口有5个控件，则第一次保存该工程时必须保存（）文件。 4、控件保存在（）类型文件中。 5、要使VB程序运行，可按（）键。 6、建立数据库的第一步是（）。二、选择题（共15分，每题3分） 1、在VB程序开发环境总，基本的元素是（） A、窗体窗口 B、工程窗口 C、属性窗口 D、代码窗口 2、在VB中，工程是指（）

A、一个或多个窗体窗口 B、代码模块 C、控件D 、以上三项 3、给窗体窗口制定标题胡属性是（） A、Name B、Text C、Caption D、Tag 4 、要删除窗体窗口中不需要的控件，可（） A、双击该控件，按下并松开 Del键 B、双击该控件，并从“文件”菜单中选择“删除工程” C、单击该控件，按下并松开Del键 D、单击该控件，并从“文件”菜单中选择“删除工程” 5、VB程序结构是由（）构成 A、变量、常量 B、表达式 C、判断语句以及循环语句 D、以上三项三、判断题（共10分，每题2分） 1、所有的程序都必须以Sub开始，以End Sub结束。（） 2、大多数的事件过程也是通用过程。（） 3、函数也是一种过程。（） 4、直接操作DOS文件系统的VB语句与DOS命令的功能是一样的。（）

5、ActiveX组件实际上是一段可重用的代码和数据。( ) 四、名词解释（共25分，每题5分） 1、对象 2、类 3、继承性 4、表

5、索引五、简答题（共18分，每题9分） 1、在VB中创建一个应用程序的基本步骤是什么？

VB测试题(一)及答案

测试题（一）一：选择题 1）VB是一种面向对象的可视化程序设计语言，采取了（）的编程机制。 A：事件驱动B：按过程顺序执行 C：从主程序开始执行D：按模块顺序执行 2）在VB中最基本的对象是（），它是应用程序的基石，是其他控件的容器。 A：文本框B：命令按钮 C：窗体D：标签 3）多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。 A：不包含任何控件的窗体B：设计时的第一个窗体 C：包含控件最多的窗体D：命名为FRM1的窗体 4）有程序代码如下：Text1.text=”Visual Basic” 则：Text1,text和“Visual Basic”分别代表（）Ａ：对象，属性，属性Ｂ：对象，方法，属性Ｃ：对象，属性，值Ｄ：属性，对象，值 5）ＶＢ是一种面向对象的程序设计语言，（）不是面向对象系统所包含的三要素。

A：变量C：事件 C：属性D：方法 6）VB的一个应用程序至少包含一个（）文件，该文件存储在窗体上使用的所有控件对象和有关的（），对象相应的（）过程和（）代码。 A：模块，方法，属性，程序B：窗体，属性，事件，程序 C：窗体，程序，属性，事件D：窗体，属性，事件，模块7）以下不属于VB的工作模式是（）模式。 A：编译B：设计 C：运行D：中断 8）在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是（） A：窗体布局窗口B：立即窗口 C：代码窗口D：监视窗口 9）保存新建的工程时，默认的路径是（） A：my documents B:VB98 C: \ D:windows 10）将调试通过的工程经“文件”菜单生成“.exe文件“编译成.exe后，将该可执行文件拿到其他机器上却不能运行的主要原因是（） A：运行的机器上无VB系统B：缺少.frm窗体文件 C：该可执行文件有病毒D：以上原因都不对 11）对于窗体，下面（）属性在程序运行时其属性设置不起作用。 A：maxbutton B:borderstyle C: name D:left

记忆能力评估测试

1 ---真理惟一可靠的标准就是永远自相符合记忆能力评估测试也许，短时记忆成绩差的朋友会争辩说，“在日常生活中，我的记忆力并不很差，看过的精彩小说，我可以从头至尾重复一遍”。也许，短时记忆成绩好的朋友则怀疑：“既然我的短时记忆成绩很好，但为什么背诵材料时，总是过目就忘呢？”要回答这些疑问，请先做下面

一个对你的记忆能力进行全面评估的心理测验（如果你是真心的想了解自己的记忆能力，请根据自己的实际情况如实回答）。（查看答案请将“答案与解释：”后的空白处选取） 1．选择一个适合你的答案（1）不需要任何帮助即可使曾经识记的东西在大脑里重现。（2）不经暗示就想不起来，但能从许多东西中辨别出曾识记过的东西。（3）脑子里即使有某一信息的痕迹，但也忘得一干二净。（4）提起曾经记忆过的事情时，很容易与其他记忆相混同，出现错记。答案与解释：四种不同的记忆状况（1）是记忆对象在大脑中的重现，说明你的记忆力很好，因为在回忆时没有任何帮手，而你却回忆得准确无误。

2 ---真理惟一可靠的标准就是永远自相符合（2）是对记忆对象的再认识，说明你的记忆力一般，在回忆时需要借助一事实上的线索，当然记忆力只能算是一般了。生活的经验告诉你，这种记忆现象平时是占有相当重的分量的，所以，记笔记、写日记等自然会对你记忆事物大有帮助。（3）是对记忆对象的遗忘，说明你的记忆力不好。也许遗忘曾给你带来很多苦恼，继续往下看，你将会利用遗忘的优点克服其缺点的方

法。（4）错记。说明你的记忆力很差，记忆对象在大脑里只留下一个模糊的印象，不清晰。造成错记的原因，也许是在你记忆时受干扰的因素太多（例如记忆时嘴里嚼着口香糖，旁边放着音乐），或是对记忆的东西没理解透，当时记得很清楚，转眼就张冠李戴。 2．你喜欢用哪种记忆方法记忆？（1）把记忆对象归纳起来记忆的“整体记忆法”？（2）把记忆对象分成几个部分记忆的“部分记忆法”？答案与解释：我们对很多人进行了实验，结果表明，前一种方法较后一种方法更佳。因为整体比部分具有更明确的意义，理解起来相对容易些。不过，当你记住了事物的整体，理解起来相对容易些。不过，当你记住了事物的整体，而对某些细节却较模糊时，重点突破部分的“部分记忆法”自然就显出强大的优势。 3．你是否常常怀着一种好奇心，或非常感兴趣地去记所要记的东西？

VB测试题(必做部分)

V B必做测验及答案目录实验4选择结构程序设计 (3) 实验6循环结构程序设计 (10) 实验7数组 (16) 实验9常用控件 (20)

a=a-b Else b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A 3.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If ____ Then x=x+I End If Next I Print x End Sub

a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 <> 0 d) x Mod 2 <> 0 答案：A 4.下列程序段的执行结果为。 x=Int(Rnd+4) Select Case x Case 3 Print "优秀" Case 4 Print "良好" Case 5 Print "合格" Case Else Print "不合格" End Select A）优秀 B）良好 C）合格 D）不合格

小学生记忆力测试

小学生记忆力测试Prepared on 21 November 2021

小学生记忆力测试测试题一：逻辑上无联系的材料的记忆用40秒钟记住下列20个单词，注意：只有同时回忆起单词和它的顺序号码，答案才能被认为完全正确。 1、脂肪 2、江西人 3、纸张 4、经济 5、魅力 6、快乐 7、缺乏 8、网络 9、袜子10、忧伤11、蜡烛12、剪刀13、汽艇14、黏土15、社会主义16、爱情17、化妆舞会18、受伤19、奇怪20、词典评分规则：孩子做完后，家长现在算出记忆效果：将正确回忆的单词数列到下面的公式中去：记忆效果=正确回忆的单词数/20*100%如果你孩子能正确地回忆10个单词的话，则说明他的记忆效果为10/20*100%=50% 测试题二：数字的记忆让孩子用10秒钟记住下列有顺序号码的20个数字。而后，把回忆的那些数字记下来。 1.186.5611.4416.57 2.77.9612.1217.6 3.478.3313.7819.72 4.739.6114.1818.3 7 5.9310.8615.1520.43 评分规则:按下列公式算出孩子的记忆效果:记忆效果=正确回忆出的数字 /20*100%,最后,家长再按下式算得上述测验的总分:记忆测验总分=第一个测验+第二个测验.测试题三：集中注意的记忆下面编排了100个数字,家和苄孩子在这些数字中按顺序找出15个连续数字,例如2~16或61~75等.根据孩子找到这些数字所花的时间,可以了解他在仪器注意时的记忆程度如何.12334097945722194960 279879870136168099 5419514768159489328 2096346250368167839 8674211828538872447 633277517121524969 35581843267530674688 1764531721554103723 83738490448966977492 253655653104529562 测验报告:测验一、二（机械记忆测验）一般来说，总数百分比心90~100为极佳；70~90为很好；50~70为好；30~50为及格；10~30为不好；0~10为很不好。测验三（集中注意的记忆测试）测试评分：30~40秒钟完成，优等；40~90秒钟完成一般；2~3分钟完成，较差

VB循环结构测试题及答案

循环结构测试题（四）：选择题 1 ：以下（）是正确的for….nex结构。 (A) for x=1 to step 10 (B) for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … Next x If I=10 then goto re 2 :下列循环语句能正常结束循环的是( (A)I=5 do I=I+1 Loop until I<0 (C) I=10 do I=I-1 Loop until I<0 3 :下面程序段的运行结果为( ) for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until I=1

for j=1 to 2*1-1 print “ * n ext j print next I 4下列程序在文本框输入B ）“* * ABCD ”四个字符时*窗体上显示D 是* （* * ） * * * ***** private sub text1_cha nge() print textl.text; end sub 2:下面程序段显示=i(② for j=1 to 4 For I=1 to n=n*j print n For j=2 j to I Print Next j Next I (A) ABCD (B) (D) A (C ) AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的( ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j F(5

VB常用控件属性

VB常用控件属性 4.1 标签标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性标签的属性很多，下面介绍几个常用的属性。（1）Alignment属性设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。（2）AutoSize属性设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。（4）BorderStyle属性设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。（5）Caption属性设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子目的：设计一个窗体说明标签的基本应用方法。首先创建本章工程，在其中添加一个窗体，在该窗体中放置一个标签Label1。该标签的基本属性如下： Name Label1 Caption "中华人民共和国" BorderStyle 1

vb选择与判断

VB 编程基础判断题（0错误 1正确） 1. Excel 可以处理电子表格数据，所以它是程序设计语言。答案： 0 2. 每种程序设计语言都有自己的语法和规则。答案：1 3. 使用VB 设计程序时，可以不用创建工程。答案：0 4. 通常状况下，我们会通过两种方法修改对象属性，一种是利用属性窗口，另一种是利用代码。答案：1 5. 在 VB 开发环境中，如果对象窗口工具箱工程资源管理器属性窗口和窗体布局窗口等被关闭，可以通过“视图”菜单再次打开。答案：1 6. 在VB 窗体中添加第一个标签控件后，该标签控件的Caption 标题属性设置的默认值是“command1”。答案：答案：0 7. 在VB 中，可以借助键同时选中多个对象。答案：1 8. 在VB 中，调整选中的多个控件的大小和位置时，要最后选中作为调整依据的控件。答案：1 9. 在VB 中，一个程序可能包含若干个不同的文件，但一定不包括工程文件和窗体文件。答案：0 10. 在VB 中，一个程序中的工程文件扩展名为vbp ，窗体文件扩展名为frm。答案：1 11. 在VB 中，要想让同一窗体上的3 个按钮控件的大小相同，可以使用“格式”菜单中的“统一尺寸”子菜单的“两者都相同”命令。答案：1 12. 在VB 中，标签一般用来显示信息，文本框用来接受用户输入的信息。答案：1 13. 在VB 程序中，被使用的窗体和控件统称为对象。答案：1 14. 在VB 中，属性窗口通常显示的是当前被选中的对象的具体属性。答案：1 15. 在VB 中，对象的“名称”和“Caption”是两种相同的属性。答案：0 16. 在VB 中，标签和命令按钮显示的文字由其“Text”属性确定，文本框中显示的文字由其“Caption”属性确定。答案：0 17. 在VB 中我们可以接触两种程序界面，一种是窗体中不带网格点的设计界面，另一种是带网格点的运行界面。答案：0 18. 属性窗口有两个选项卡，一个是按字母排序别一个是按类进行排，但都是用来显示某一对象的各种属性的。答案：1 19. 在VB 中，语句命令中的符号，都必须是英文字符。答案：1 20. 在VB 中，一个对象只能响应一种事件。答案：0 21. VB 的代码窗口包括对象名框事件过程名框和代码编辑区3 部分。答案：1 22. 在VB 中，125 是数值型数据，"125"也是数据型数据。答案：0 23. 在VB 中，可以使用“User & name”作为变量名。答案：0 24. 在VB 程序中，使用Option Explicit 后，如果再使用未加声明的变量，运行程序时会出现错误提示。答案：1 25. 在VB 中CStr 函数可以将数值型表达式的值转换成对应的字符串。答案：1

记忆力测试

记忆力测试测试1:试试你的记忆力你想知道自己的记忆力如何吗？下面几种简易可行的记忆力测验方法，你如果有兴趣，不妨试一试。 ―、机械记忆力的测试下面列出3行数字，每行12个。你可任选一行，在1分钟内读完（平均每5秒钟读一个数），然后把记住的数字写出来（可以颠倒位置）。根据记住的多少，测试你的记忆力。 73 49 64 83 41 27 62 29 38 93 71 97 57 29 32 47 94 86 14 67 75 28 79 24 36 45 73 29 87 28 43 62 75 59 93 67 二、集中注意力的记忆程度的测试下面编排了100个数字，请你在这些数字中按顺序找出15个数字来，例如2-16 或 61-75等。根据你找到这15个连续数字所需要的时间，可以测试你在集中泞意力时的记忆程度究竟如何。 12 33 40 97 94 57 22 19 49 60 27 98 79 8 70 13 61 6 80 99 5 41 95 14 7 6 81 59 48 93 28 20 96 34 62 50 3 68 16 78 39

86 7 42 11 82 85 38 87 24 47 63 32 77 51 71 21 52 4 9 69 35 58 18 43 26 75 30 67 46 88 17 64 53 1 72 15 54 10 37 23 83 73 84 90 44 89 66 91 74 92 21 36 55 65 31 0 45 29 56 2 三、方位记忆力的测试下面有10个不同的几何图形，请你用5秒钟的时间观察各团的相互位置（即谁挨着谁），再交给你分别画有这10个图形的硬纸片（硬纸片的前后顺序必须订乱），请你按观察时所记住的图形的位置来排列，根据你排列的正误记分统汁。 f 0口0△田— QAO D ? ［结果分析与评价］一、机械记亿力的测试评价如果你把所选的一行中的12个数字都正确地记下来f,那你的记忆力就可说是惊人的、少有的了；如果你能写下8—9个数字，可以得“优”；如果只记住4—7 个数字，那只其“一般”；若你连4个都没有记下来，你的记忆力就很不理想，需要寻找一下原因，并需好好段炼锻炼。二、集中注意力的记亿程度的测试评价

VB6.0基本控件的属性

VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件所有控件都具有的属性： 1、Name: 表示在代码中用来标识一个控件的名字。 2、Enabled: 表示一个控件是否可以响应一个事件，即该控件可不可用。值为true: 可以响应；值为false: 不可以看见。 3、Visible: 表示一个控件是否可见。值为true:可以看见；值为false: 不可以看见。所有控件都有具有的事件： 1、KeyDown : 当用户按下键盘上一个键时发生的。 2、KeyUp : 在用户松开键盘上按下的键时发生的。 3、KeyPress : 在Key Down和Key Up事件之间发生。 4、MouseDown : 在鼠标被按下时触发的。 5、MouseUp ：在用户松开鼠标键时发生的。 6、Click ：在用户单击鼠标左键时发生的。 7、DblClick ：在用户双击鼠标时发生的。一、窗体（Form）属性： 1、Caption: 表示窗体标题栏的文字。 2、BorderStyle: 一般情况下为默认值，若更改为下列值： 1）值为0：没有窗体标题栏 2）值为1：窗体运行之后不能改变大小 3、WindowState: 设置窗体的大小。 3）值为0：窗体正常大小 4）值为1：窗体最小化值为2：窗体最大化 4、BackColor: 表示窗体的背景颜色事件： 1、Initialize（初始化事件）: 在窗体加载和显示之前触发，这个事件只触一次。 2、Load（加载事件）: 用来完成窗体显示之前需要完成的动作。 3、Activate/Deactivate (激活/非激活事件)：是用户在同一个应用程序的两个或多个窗体之间移动时触发的。 4、QueryUnload（条件卸载事件）: 决定窗体是如何关闭的。触发QueryUnload事件时Unload 的参数和因素有： 1）VbFormControlMenu值为0 ：选中窗体控件菜单中的Close命令。 2）VbFormCode值为1 ：从代码中调用Unload 语句。 3）VbAppWindows值为2 ：终止当前的Windows操作系统。 4）VbFormMDIForm值为4 ：因为终止MDI父窗体而导致MDI子窗体的终止。 5、Terminate(终止事件):在窗体的所有实例从内存中清除时发生，只触发一次。方法： 1、Load:加载窗体，但不在屏幕上显示 2、Unload:卸载窗体，既从屏幕上也从内存中清除窗体。 3、Show:加载窗体并在屏幕上显示窗体。Show分为：

VB循环结构测试题及答案

V B循环结构测试题及答案 This model paper was revised by the Standardization Office on December 10, 2020

循环结构测试题(四) 一：选择题 1：以下（）是正确的for….next结构。（A）for x=1 to step 10 (B) for x=3 to –3 step -3….. ….. next x next x (C ) for x=1 to 10 (D) for x=3 to step 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（） for I=3 to 1 step –1 print spc(5-I);

for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（） private sub text1_change( ) print text1.text; end sub (A) ABCD (B) ( C ) AABABCABCD 5哪个程序段不能分别正确显示1!,2!,3!,4!的（）二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 * * * * * * * * * (B) * * * * * * * * * (C) * * * * * * * * * (D) * * * * * * * * * A B C D (D) A AB ABC ABCD （A ） for I=1 to 4 n=1 for j=1 to I n=n*j next j print n （B ） for I=1 to 4 for j=1 to I n=1 n=n*j next j print n (C) N=1 for j=1 to 4 n=n*j print n (D) N=1 J=1 Do while j<=4 n=n*j print n j=j+1 loop

VB循环结构测试题及答案

循环结构测试题（四）一：选择题 1以下（）是正确的for….nex结构 (A)for x=1 to step 10 (B)for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … . Next x If I=10 then goto re 2:下列循环语句能正常结束循环的是( ( A)I=5 do I=I+1 Loop until I<0 (C)I=10 do I=I-1 Loop until I<0 3:下面程序段的运行结果为() for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until

for j=1 to 2*1-1 print “ *' next j print n ext I ___________________ l l _________________________________________________ 4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* * ) * * * * *_* * * * * * * * * private sub text1_cha nge() * * print text1.text; end sub 2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n 5n* pri nt n For n =2j to I Print Next j Next I 3:下列第40句共执行了（ ③）次，第41句共执行（④ ）次 (A) ABCD (B) (D) A (C )AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的C ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j FO F X 语句循环执行 pri nt n 20次，循环变量 for k=( next i ① )to -5 step — for I=1 to 4 for j=1 to I n=1 n=n*j 的初值应当是: print n n ext i (B) ABCD (D) N=1 J=1 Do while j<=4 n=n*j pri nt n j=j+1 loop

VB常用控件

Label控件 Label 控件主要用于在窗体中显示提示信息，常与Text控件一起使用。属性： Caption 表示标签的内容。例：Label1.Caption="N&ame:" 控件在窗体中显示Name:,&号跟的字母是快捷键字母，即当我们按下Alt+A时，Label1的Click事件将会发生。这种快捷键定义方法对于菜单和许多其它控件同样适用。 Font 表示控件的字体。 ForeColor 表示控件的当前颜色。 Enabled 表示控件是否使能。 =True 使能。 =False 禁止(控件显示为灰色)。 Visible 表示控件是否可见 =True 可见。 =False 不可见。 Top,Left,Width,Height 表示控件在窗体中的位置和尺寸。事件： Click 当点击或按下快捷键时发生，常用于使和它一起使用的Text控件获得输入焦点。例： Private Sub Label1_Click() Text1.SetFocus End Sub Text控件 Text控件接受用户的输入的字符串数据。属性： Text 表示用户输入的内容。

例：Label1.Caption=Text1.Text 将Text1控件接收用户输入的数据通过Label1控件显示出来。 SelStart 表示用户选中一段文字的起始位置。第一个字符位置为0。SelLength 表示用户选中文字的长度。 SelText 表示用户选中文字的内容。例：0123456789 这时：SelStart=5,SelLength=4,SelText="5678" MultiLine 表示是否是多行输入。 =True 是多行输入。 =False 不是多行输入(缺省) 。 ScrollBars 多行情况下是否需要滚动条。 =0 没有。 =1 有水平。 =2 有垂直。 =3 水平、垂直都有。 Password 表示口令字符。Text属性返回用户输入数据，屏幕上显示该字符。方法： SetFocus 使当前控件获得输入交点。事件： KeyPress 当在控件上按下按键时发生。 Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub KeyAscii 表示用户按键的ASCII码，如果在事件中将它改为0，则认为没有按键。例：编写只允许输入数字的Text控件。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAsciiAsc("9") Then KeyAscii=0 End If

VB测试实例

VB 测试实例：程序最开始，如图所示，开始按钮为command1;中间有一个标签label1,显示内容为“VB 测试”。（设计图1）（运行首界面）当单击开始按钮后，界面如图所示，command3变为可见，显示为“下一题”，框架frame1标题显示题目，里面有四个选项按钮，由上到下依次为option1,option2,option3,option4,并显示题目的选项。当单击下一题时，界面如图所示，command2显示出来，并显示上一题。同时，题目和选项都变为另一题。单击上一题，返回到上一题。共5道题，当做到第5题时，界面如下，command3显示为“完成” 单击完成，弹出窗口，如图所示，显示结果。程序如下 Dim a% '用于计数 Dim daan(1 To 5) '用于存放答案 Private Sub Command1_Click() '开始 a = a + 1 Call timu(a) Label1.Visible = False Command1.Visible = False Command3.Visible = True Frame1.Visible = True End Sub Private Sub Command2_Click() '上一题 Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False a = a - 1 Call timu(a) End Sub Private Sub Command3_Click() '下一题 Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False a = a + 1 If a >= 2 Then Command2.Visible = True Call timu(a) If a = 5 Then Command3.Caption = "完成" If a = 6 Then MsgBox "1.正确答案为 C ，你的答案为" & daan(1) & Chr(13) & "2.正确答案为 B ，你的答案为" & daan(2) & Chr(13) & "3.正确答案为 A ，你的答案为" & daan(3) & Chr(13) & "4.正确答案为B ，你的答案为" & daan(4) & Chr(13) & "5.正确答案为 C ，你的答案为" & daan(5) End Sub Private Sub Form_Load() Command2.Caption = "上一题" Command3.Caption = "下一题" Command2.Visible = False Command3.Visible = False Frame1.Visible = False End Sub Sub timu(a) '自定义过程，用于出题 Select Case a Case 1 Frame1.Caption = "1.复选框的value 属性可以有（）个值" Option1.Caption = "A.1个" Option2.Caption = "B.2个" Option3.Caption = "C.3个" Option4.Caption = "D.没有限止" Case 2 Frame1.Caption = "2.判断某个单选按钮是否被选中是通过其（）属性" Option1.Caption = "A.caption" Option2.Caption = "B.value" Option3.Caption = "https://www.360docs.net/doc/4614894332.html," Option4.Caption = "D.index" Case 3 Frame1.Caption = "3.单选按钮的click 事件是在下列哪种情况下才会被触发" Option1.Caption = "A.单击选中时" Option2.Caption = "B.单击取消时" Option3.Caption = "C.只要单击时" Option4.Caption = "D.单击命令按钮" Case 4 Frame1.Caption = "4.程序运行后，选定单选按钮，其value 属性值为（）" Option1.Caption = "A. False" Option2.Caption = "B. True" Option3.Caption = "C. 0 " Option4.Caption = "D. 1" Case 5 Frame1.Caption = "5.程序运行后，单击单选按钮，下面描述正确的是（）" Option1.Caption = "A. 只触发了Click 事件" Option2.Caption = "B. 只触发 Gotfocus 事件" Option3.Caption = "C. 既触发Click 事件，也触发了GotFocus 事件" Option4.Caption = "D.具体触发了哪些事件由属性决定" End Select End Sub Private Sub Option1_Click() If Option1.Value = True And a = 1 Then daan(1) = Left(Option1.Caption, 1) If Option1.Value = True And a = 2 Then daan(2) = Left(Option1.Caption, 1) If Option1.Value = True And a = 3 Then daan(3) = Left(Option1.Caption, 1) If Option1.Value = True And a = 4 Then daan(4) = Left(Option1.Caption, 1) If Option1.Value = True And a = 5 Then daan(5) = Left(Option1.Caption, 1) End Sub Private Sub Option2_Click() If Option2.Value = True And a = 1 Then daan(1) = Left(Option2.Caption, 1) If Option2.Value = True And a = 2 Then daan(2) = Left(Option2.Caption, 1) If Option2.Value = True And a = 3 Then daan(3) = Left(Option2.Caption, 1) If Option2.Value = True And a = 4 Then daan(4) = Left(Option2.Caption, 1) If Option2.Value = True And a = 5 Then daan(5) = Left(Option2.Caption, 1) End Sub Private Sub Option3_Click() If Option3.Value = True And a = 1 Then daan(1) = Left(Option3.Caption, 1) If Option3.Value = True And a = 2 Then daan(2) = Left(Option3.Caption, 1) If Option3.Value = True And a = 3 Then daan(3) = Left(Option3.Caption, 1) If Option3.Value = True And a = 4 Then daan(4) = Left(Option3.Caption, 1) If Option3.Value = True And a = 5 Then daan(5) = Left(Option3.Caption, 1) End Sub Private Sub Option4_Click() If Option4.Value = True And a = 1 Then daan(1) = Left(Option4.Caption, 1) If Option4.Value = True And a = 2 Then daan(2) = Left(Option4.Caption, 1) If Option4.Value = True And a = 3 Then daan(3) = Left(Option4.Caption, 1) If Option4.Value = True And a = 4 Then daan(4) = Left(Option4.Caption, 1) If Option4.Value = True And a = 5 Then daan(5) = Left(Option4.Caption, 1) End Sub