河南省vb考试题
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
河南省二级VB考试程序大题题型1
河南省二级VB考试程序大题题型一1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件(1)单击命令按钮1，产生100个[300,3000]之间的随机整数并显示在列表框1中（2)单击命令按钮2，计算上述数据中能被13和15同时整除的数及其平均值，并分别用列表框2和一个标签显示结果D i m a(1 To 100) A s I nt eg erP r iv at e Su b Co mma n d1_C li ck()R a nd om iz eF o r i = 1 To 100a(i) =I nt(2701 * R nd() + 300)Li st1.Ad dI te m a(i)N e xt iE n d Su bP r iv at e Su b Co mma n d2_C li ck()S u m& = 0: n% = 0F o r i = 1 To 100I f a(i) Mo d 13 = 0 A nd a(i) Mo d 15 = 0 T he nn = n +1L is t2.A d dI te m a(i)S um = S u m + a(i)E n d IfN e xt iI f n <> 0Th en La b el1.Ca pt io n = S t r(Su m / n)E n d Su b2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件。
(1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表框中。
(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中第10-19个和第50-59个数据的平均值。
D i m a(1 To 100) A s I nt eg erP r iv at e Su b Co mma n d1_C li ck()R a nd om iz eF o r i = 1 To 100a(i) = I nt(101 * Rn d() +100)Li st1.Ad dI te m a(i)N e xt iE n d Su bP r iv at e Su b Co mma n d2_C li ck()s u m1& = 0: s um2& = 0F o r i = 10 T o 19su m1 = s u m1 + a(i)N e xt iF o r i = 50 T o 59su m2 = s u m2 + a(i)N e xt iT e xt1.Te xt = S tr(s um1 / 10)T e xt2.Te xt = S tr(s um2 / 10)E n d Su b3、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
郑州大学vb上机考试试题真题
一、单项选择题（50道小题，共50分）1、在Visual Basic中，系统为每个对象预先定义好了一系列的事件。
下列事件中，不属于VB系统提供的事件是( )。
（1分）A、Click()B、Change()C、MyFirst()D、DblClick()2、以下有关Visual Basic语言描述中，错误的是( )。
（1分）A、语句是一行一句，以回车键结束B、用“,”分隔一行中的多个语句D、一条语句放在多行中，则在前一行结束处C、变量名不区分大小写使用续行符“_”连接下一行3、下列叙述中，正确的是( )。
（1分）B、Visual Basic应用程序只能以解释方式A、事件可以由用户触发，也可以由系统触发执行C、保存Visual Basic程序时，只需保存窗D、所有控件都有DblClick事件体文件即可4、下列不属于VB三种模式的是( )模式。
（1分）A、设计B、运行C、代码D、中断5、( )是对象的一个基本要素，它描述了对象在程序中的外观特点。
（1分）A、事件B、属性C、方法D、事件程序6、对象能够识别的操作称为( )。
（1分）A、属性B、方法C、事件D、过程7、VB系统中供用户直接调用，使对象完成一定的操作或实现一定功能的特殊过程称为( )。
（1分）A、事件B、方法C、属性D、文件8、可以用来进行一些简单计算的窗口是( )。
（1分）A、属性窗口B、立即窗口C、工程窗口D、窗体布局窗口9、打开Visual Basic集成环境后，默认显示的工具栏是( )。
（1分）A、编辑工具栏B、标准工具栏C、调试工具栏D、窗体工具栏10、在Visual Basic的中断模式下，按下功能键F8，则( )。
（1分）A、执行中断时的下一个语句B、执行中断时的下一个模块C、退出Visual BasicD、结束当前的运行11、当程序中断修改后再运行时，VB进入( )模式。
（1分）A、设计B、运行C、中断D、编程12、在工具箱窗口关闭的情况下，如果要打开只需选择( )菜单的“工具箱命令”即可。
河南省vb考试真题
1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存文件(7分)。
编写事件过程，使程序在运行时能满足以下要求：(1)运行时分别在文本框1、文本框2、文本框3中各输入一个数值，单击按钮“判断”，检查给出的三条边能否构成三角形，若不满足条件，标签1中提示“请重新输入”，并且按钮“计算”不可用(变成灰色)(9分)。
(2)若满足要求，单击按钮“计算”，求出该三角形的面积并将结果显示在标签2中(9分)。
Option ExplicitDim a As Double, b As Double, c As DoublePrivate Sub Command1_Click()a = V al(Text1.Text)b = V al(Text2.Text)c = V al(Text3.Text)If a + b > c And a + c > b And b + c > a ThenCommand2.Enabled = TrueElseLabel1.Caption = "请重新输入"Command2.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Dim l As Double, s As Doublel = (a + b + c) / 2s = Sqr(l * (l - a) * (l - b) * (l - c))Label2.Caption = sEnd Sub2、编写程序，计算并输出下面数列中前n(设n=15)项的和。
将结果四舍五入保留4位小数。
1/1!,1/2!,1/3!,1/4!,……,1/n!,……(其中，! 表示求阶乘)要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。
Private Sub Form_Click()Dim i As Integer, n As IntegerDim s As Double, h As Doubleh = 1n = InputBox("n=?")For i = 1 To nh = h * is = s + 1 / hNext iText1.Text = Round(s, 4)End Sub3、编写程序，用梯形法求一元函数f(x)=ln(x+1)+x/3，在区间[1，4]上的积分近似值S，要求结果保留3位小数（小区间数n=20，此参数不能改动）。
vb考试试卷
vb考试试卷VB考试试卷一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a = 5C. Dim a As IntegerD. Dim a As String = "Hello"2. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function3. VB中的数组声明方式是：A. Dim numbers(1 To 10)B. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers As Array = New Integer(10)4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If5. VB中，以下哪个是正确的函数定义方式？A. Function Add(x, y) As IntegerB. Function Add(x, y) = x + yC. Function Add(x, y) = Return x + yD. Function Add(x, y) = x + y End Function...（此处省略其他选择题）二、填空题（每空2分，共20分）1. 在VB中，使用________关键字来声明常量。
2. VB中的________结构用于执行一系列动作，直到满足某个条件。
3. 要声明一个包含10个整数的数组，可以使用________。
4. 当需要在VB中调用另一个窗体时，可以使用________方法。
5. VB中的________属性用于设置控件的可见性。
...（此处省略其他填空题）三、简答题（每题10分，共20分）1. 简述VB中的事件驱动编程的概念及其重要性。
2. 解释VB中类和对象的区别，并给出一个使用类和对象的简单示例。
河南省统考--Vb编写程序题型及答案1
Vb编写程序题型一、基本操作题1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。
窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色（5分）。
(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。
答案：Private Sub Command1_Click()Form1.BackColor = vbGreenEnd SubPrivate Sub Form_Click()Label1.Caption = "你单击了窗体"End Sub2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。
窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。
(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。
答案：Private Sub Command1_Click()Form1.Height = Form1.Height + 200End SubPrivate Sub Label1_Click()Form1.BackColor = vbGreenEnd Sub3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。
窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。
(2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。
河南省全国计算机等级考试二级VB笔试试卷及参考答案最新考试试题库(完整版).docx
1、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型2、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型3、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库4、对建立良好的程序设计风格，下面描述正确的是(A)A. 程序应简单、清晰、可读性好B. 符号名的命名要符合语法C. 充分考虑程序的执行效率D. 程序的注释可有可无5、算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数6、用树形结构来表示实体之间联系的模型称为(B)A. 关系模型B. 层次模型C. 网状模型D. 数据模型7、将E-R图转换到关系模式时，实体与联系都可以表示成(B)A. 属性B. 关系C. 键D. 域8、下列工具中属于需求分析常用工具的是(D)A. PADB. PFDC. N-SD. DFD9、算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数10、在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)A. 概要设计B. 详细设计C. 可行性分析D. 需求分析11、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库12、设有下列二叉树：图见书P46对此二叉树中序遍历的结果为(B)A. ABCDEFB. DBEAFCC. ABDECFD. DEBFCA13、算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间14、在下列选项中，哪个不是一个算法一般应该具有的基本特征(C)A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报15、下列关于队列的叙述中正确的是(C)A. 在队列中只能插入数据B. 在队列中只能删除数据C.队列是先进先出的线性表D. 队列是先进后出的线性表16、下面概念中，不属于面向对象方法的是 (D)A. 对象B. 继承C. 类D. 过程调用17、检查软件产品是否符合需求定义的过程称为(A)A. 确认测试B. 集成测试C. 验证测试D. 验收测试18、以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈19、软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B)A.阶段性报告B. 需求评审C. 总结D. 都不正确20、希尔排序法属于哪一种类型的排序法(B)A.交换类排序法B.插入类排序法C.选择类排序法D.建堆排序法21、下面概念中，不属于面向对象方法的是 (D)A. 对象B. 继承C. 类D. 过程调用22、下面不属于软件工程的3个要素的是(D)A. 工具B. 过程C. 方法D. 环境23、在一棵二叉树上第5层的结点数最多是(B) 注：由公式2（k-1）得A. 8B. 16C. 32D. 1524、下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句25、关系表中的每一横行称为一个(A)A. 元组B. 字段C. 属性D. 码26、数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库27、按条件f对关系R进行选择，其关系代数表达式为(C)A. R|X|RB. R|X|RfC. бf(R)D. ∏f(R)28、下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句29、在下列选项中，哪个不是一个算法一般应该具有的基本特征(C)A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报30、下面对对象概念描述错误的是(A)A. 任何对象都必须有继承性B. 对象是属性和方法的封装体C. 对象间的通讯靠消息传递D. 操作是对象的动态性属性31、在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。
VB期末考试题及配套答案
第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。
（√）2、Print_Text是一个不合法的变量名。
（×）3、窗体的AutoRedraw属性实现了屏幕图像的重建。
（√）4、设置字体大小应使用Font属性（×）5、Sub过程可以实现嵌套调用（√）6、IIF函数中的三个参数都不能省略。
（√）7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。
（√）8、当终值小于初值时，步长为负数。
（√）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。
（√）10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用(√)二、单项选择题1．Print Format（123，”####”）执行之后的结果为【答案】BA）＃123 B）123 C）123＃D）＃＃＃＃2．下面可以表示注释语句开头的为【答案】CA）Re B）R C）Rem D）dim3．下列选项中窗体载入事件为【答案】AA）Load事件B）Click事件C）DblClick事件D）Unload事件4．Timer控件可以使用下列哪种事件【答案】BA）Click事件B）Timer事件C）Dblclick事件D）Change事件5．在InputBox函数中哪一个参数是必须的【答案】AA）Prompt B）Buttons C）Title D）Context6．以下叙述中错误的是：【答案】CA）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程C）Sub过程可以嵌套调用Sub过程D）事件过程可以像通用过程一样由用户定义过程名7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。
【答案】CA）文件B）视图C）工程D）工具8．在块结构条件语句If-Then / Endif中【答案】B(A) 必须至少有一个Elseif语句(B ) 可以有任意多个ElseIf-Then语句(C) 如果没有Else语句，运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式9．以下Case语句中错误的是【答案】A(A) Case 10 To 1 (B) Case Is>10(C)Case Is>10 , Is<50 (D) Case 3,5,Is>1010．对Do Until…Loop循环，正确的是(【答案】B)。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
河南省计算机等级考试—VB题库
一.选择题1、在Windows中，关于对话框叙述不正确的是__D____。
（D）A、对话框没有最大化按钮B、对话框没有最小化按钮C、对话框不能改变形状大小D、对话框不能移动2、Windows中，可以打开“开始”菜单的组合键是__B____。
（B）A、Alt键+Esc键B、Ctrl键+Esc键C、Tab键+Esc键D、Shift键+Esc键3、在Windows中，不可对任务栏进行的操作是___A___。
（A）A、设置任务栏的颜色B、移动任务栏的位置C、设置任务栏为“总在最前”D、设置任务栏为“自动隐藏”4、下列关于Windows窗口的描述中，__A____是错误的。
（A）A、窗口是Windows应用程序的用户界面B、Windows的桌面也是Windows的窗口C、用户可以改变窗口的大小，也可以移动其位置D、窗口主要由边框、标题栏、菜单栏、工作区、状态栏、滚动条等组成，并且部分菜单项中的命令在大部分窗口下具有相同或类似的功能5、关于word中的多文档窗口操作，以下叙述中错误的是_B_____。
（B）A、 Word的文档窗口可以拆分为两个文档窗口B、多个文档编辑工作结束后，只能一个一个地存盘或关闭文档窗口C、 Word允许同时打开多个文档进行编辑，每个文档有一个文档窗口D、多文档窗口内的内容可以进行剪切、粘贴和复制等操作6、在Word“字体”对话框中，不能设定文字的______。
（A）A、行距B、字符间距C、字形D、字符颜色7、在Excel工作表中，当前单元格只能是______。
（D）A、单元格指针选定的一个B、选中的一行C、选中的一列D、选中的区域8、在Excel工作表中，选定某单元格，选择“编辑”菜单下的“删除”选项，不能实现_____。
（D）A、删除该行B、右侧单元格左移C、删除该列D、左侧单元格右移9、欲新建PowerPoint演示文稿，以下方法中不能使用的是______。
（C）A、内容提示向导B、模板C、幻灯片版式D、空演示文稿10、在PowerPoint中打开文件，以下叙述中正确的是______。
VB期末考试试题及答案
第一部分：客观题一、单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）A、 DimB、 PublicC、PrivateD、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）A、工程资源管理器窗口B、工具箱窗口C、属性窗口D、代码窗口3、若要使某可见控件获得焦点，可使用（）方法来实现。
Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value4、下列不可作为VB变量名的是（）A、ABT1B、AlphaC、ABCD、4*Delta5、表达式 5 Mod 3+3\5*2的值是（）A、 0B、 6C、4D、 26、下列语句中，正确的赋值语句是（）A、 i + j = 10B、 2i = jC、 j = i + jD、 i * j = 07、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nA、 2B、 6C、 10D、 148、当用户在窗体上单击鼠标时，不会触发的事件是（）Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick9、下列为整型变量的是（）A、 x!B、 x#C、x$D、 x%10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit DoB、Exit LoopC、Exit ForD、Stop11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）A、x Mod 2 =1 Or y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0D、x Mod 2 =1 And y Mod 2 =112、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。
Dim a(3, -2 To 1, 5) As IntegerA、60B、75C、120D、1313、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（）A、=0B、=0C、=FalseD、=False14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（）A、Picture属性中的图形B、DownPicture属性中的图形C、DisablePicture 属性中的图形D、不显示图形15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是（）A、 10 5B、 12 5C、 10 7D、 12 716、执行以下程序段，输出结果为（）Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、 ABAB、ABBABAC、 BBABBAD、AABAAB17、以下（）语句可表示[50,100]之间的随机数。
郑州大学 vb考试题加答案
一、单项选择题（50道小题，共50分）1、Visual Basic程序中的注释所使用的字符是( A )。
（1分）A、'B、:C、\D、_2、下列选项中，不属于VB特点的选项是( C )。
（1分）A、可视化程序设计B、面向对象C、窗口中包含有菜单栏和工具栏D、事件驱动下的编程机制3、下列关于Visual Basic的叙述不正确的是( A )。
（1分）A、变量名区分字母大、小写B、不能用系统保留字声明为变量名C、允许在一行中书写多条语句，但要用冒号隔开D、允许一条语句分成若干行书写，但要在上一行末加上空格及下划线作为续行标志4、有程序代码如下：Text1.Text = "郑州大学"，则Text1、Text 、"郑州大学"分别代表( C )。
（1分）A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值5、下列叙述中，正确的是( D )。
（1分）A、VB的事件由用户定义B、VB程序以顺序方式执行C、每一个VB程序都是从Main()函数开始执行D、VB运行时，系统等待事件的发生，事件的执行顺序与书写顺序无关6、下列叙述错误的是( A )。
（1分）A、不允许使用行号与标号B、单条语句可分行书写C、同一行上可以书写多条语句D、VB代码不区分字母的大小写7、VB程序中，通常不会产生错误提示的是( D )。
（1分）A、编译错误B、实时错误C、运行时错误D、逻辑错误8、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。
（1分）A、工程1B、窗体1C、工程D、窗体9、在工具栏中有一个“启动”按钮，这个按钮的作用是( A )。
（1分）A、运行一个应用程序B、运行一个窗体C、打开被选中对象的属性窗口D、打开被选中对象的代码窗口10、当程序中断修改后再运行时，VB进入( B )模式。
（1分）A、设计B、运行C、中断D、编程11、在VB程序中，逐语句调试的操作键是( A )。
郑州大学 vb考试题加答案
一、单项选择题（50道小题，共50分）1、Visual Basic程序中的注释所使用的字符是( A )。
（1分）A、'B、:C、\D、_2、下列选项中，不属于VB特点的选项是( C )。
（1分）A、可视化程序设计B、面向对象C、窗口中包含有菜单栏和工具栏D、事件驱动下的编程机制3、下列关于Visual Basic的叙述不正确的是( A )。
（1分）A、变量名区分字母大、小写B、不能用系统保留字声明为变量名C、允许在一行中书写多条语句，但要用冒号隔开D、允许一条语句分成若干行书写，但要在上一行末加上空格及下划线作为续行标志4、有程序代码如下：Text1.Text = "郑州大学"，则Text1、Text 、"郑州大学"分别代表( C )。
（1分）A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值5、下列叙述中，正确的是( D )。
（1分）A、VB的事件由用户定义B、VB程序以顺序方式执行C、每一个VB程序都是从Main()函数开始执行D、VB运行时，系统等待事件的发生，事件的执行顺序与书写顺序无关6、下列叙述错误的是( A )。
（1分）A、不允许使用行号与标号B、单条语句可分行书写C、同一行上可以书写多条语句D、VB代码不区分字母的大小写7、VB程序中，通常不会产生错误提示的是( D )。
（1分）A、编译错误B、实时错误C、运行时错误D、逻辑错误8、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。
（1分）A、工程1B、窗体1C、工程D、窗体9、在工具栏中有一个“启动”按钮，这个按钮的作用是( A )。
（1分）A、运行一个应用程序B、运行一个窗体C、打开被选中对象的属性窗口D、打开被选中对象的代码窗口10、当程序中断修改后再运行时，VB进入( B )模式。
（1分）A、设计B、运行C、中断D、编程11、在VB程序中，逐语句调试的操作键是( A )。
vb二级计算机考试试题及答案
vb二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。
答案：Public2. VB中，用于定义一个过程的关键字是________。
答案：Sub3. 在VB中，用于定义一个函数的关键字是________。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
九年级vb信息技术考试试题及答案
九年级vb信息技术考试试题及答案一、选择题（每题2分，共20分）1. VB中，用于表示“与”逻辑运算的符号是：A. &&B. ||C. =D. ==答案：A2. 在VB中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B3. 下列哪个选项不是VB中的控制结构？A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案：D4. 在VB中，如何声明一个整型变量？A. Dim i As IntegerB. Integer iC. i = IntegerD. Var i As Integer5. VB中，下列哪个函数用于将字符串转换为数字？A. Str()B. Val()C. CInt()D. CStr()答案：C6. VB中，下列哪个属性用于获取或设置窗体的标题？A. TextB. CaptionC. TitleD. Name答案：B7. 在VB中，下列哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. VB中，下列哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. ListBox答案：B9. VB中，下列哪个关键字用于退出当前过程？B. EndC. ReturnD. Stop答案：A10. VB中，下列哪个函数用于获取当前系统时间？A. Now()B. Date()C. Time()D. Timer()答案：A二、填空题（每题3分，共30分）1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________函数可以获取当前日期。
答案：Date()3. VB中，使用________事件可以响应键盘按下。
vb初级理论考试试题及答案
vb初级理论考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，用于声明一个变量的关键字是：A. DimB. SetC. ConstD. Function答案：A2. 下列哪个选项不是VB中的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在VB中，用于定义一个类模块的关键字是：A. ClassB. ModuleC. InterfaceD. Structure答案：A4. VB中，用于创建一个数组的语法是：A. Dim array() As IntegerB. Dim array As Integer()C. Dim array As New Integer()D. Dim array(10) As Integer答案：A5. 下列哪个选项不是VB中的事件？A. ClickB. LoadC. OpenD. Close答案：C6. VB中，用于打开一个文件的函数是：A. OpenB. CloseC. WriteD. Read答案：A7. 在VB中，用于获取当前日期的函数是：A. NowB. DateC. TimeD. Today答案：D8. VB中，用于将一个字符串转换为小写的函数是：A. UCaseB. LCaseC. StrCompD. Trim答案：B9. VB中，用于将一个字符串分割成数组的函数是：A. SplitB. JoinC. ReplaceD. Format答案：A10. 在VB中，用于创建一个窗体的关键字是：A. FormB. UserFormC. DialogD. Frame答案：B二、填空题（每题2分，共20分）1. VB中，用于声明一个全局变量的关键字是________。
答案：Public2. VB中，用于声明一个私有变量的关键字是________。
答案：Private3. VB中，用于声明一个静态变量的关键字是________。
2021河南省中等职业学校对口升学VB试卷
2021河南省中等职业学校对口升学VB试卷一、名词解释1、定点超越（也称管理基准化）2、卢因的变革观点3、企业使命4、动机5、变革型领导6、企业的社会责任7、全面质量管理8、管理权变观点9、计划10、流程再造二、简答题11、简述社会人假设及其基本内容。
12、企业的一般环境因素有哪些？试举例予以说明。
13、对冲突的看法有哪三种，其主要思想是什么？14、简述一般控制与管理控制有哪些共同点？15、如何实施标杆控制？16、简述科学管理理论的主要内容。
17、对管理人员的培训可以采用哪些方法？18、比较规则与程序、规则与政策的区别。
三、案例分析题19、案例比利时和法国可口可乐中毒事件1999年6月9日，比利时120人（其中有40人是学生）在饮用可口可乐之后发生中毒，呕吐、头昏眼花及头痛，法国也有80人出现同样症状。
己经拥有113年历史的可口可乐公司遭遇了历史上罕见的重大危机。
在现代传媒十分发达的今天，企业发生的危机可以在很短的时间内迅速而广泛地传播，其负面作用可想而知。
可口可乐公司立即着手调查中毒原因、中毒人数，同时部分回收某些品牌的可口可乐产品，包括可口可乐、芬达和雪碧。
一周后中毒原因基本查清，比利时的中毒事件是在安特卫普的工厂发现包装瓶内有二氧化碳，法国的中毒事件是因为敦刻尔克工厂的杀真菌剂洒在了储藏室的木托盘上造成的污染。
但问题是，从一开始，这一事件就由美国亚特兰大的公司总部来负责对外沟通。
近一个星期，亚特兰大公司急部得到的消息都是因为气味不好而引起的呕吐及其他不良反应，公司认为这对公众健康没有任何危险，因而并没有启动危机管理方案，只是在公司网站上粘贴了一份相关报道，报道中充斥着没人看得懂的专业词汇，也没有任何一个公司高层管理人员出面表示对此事及中毒者的关切。
此举触怒了公众，结果，消费者认为可口可乐公司没有人情味。
很快消费者不再购买可口可乐软饮料，而且比利时和法国政府还坚持要求可口可乐公司收回所有产品。
河南农业大学计算机vb考试必出
河南农业大学计算机vb考试必出一、单项选择题（25道小题，共25分）1、VB中工程软件的扩展名为( c)A、dsB、frmC、vbpD、bas2、把字符串"abcdef "右边的空格去掉应使用( b)函数A、trimB、rtrimC、rightD、mid3、文本框text1的text属性的数据类型是(b )A、整数型B、字符串C、单精度D、双精度4、下列( b)属性决定窗体标题栏显示内容A、NameB、CaptionC、TextD、BackStyle5、命令按钮command1不具有下列哪个事件(d )A、ClickB、KeyPressC、GotFocusD、DblClick6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine 属性设置为True,然后再把ScrollBars 属性设置为( d)A、0B、1C、2D、37、Dim D(3,1 To 10,1 To 15)语句中，数组的元素个数为( c)A、3*10*16B、3*11*16C、4*10*15D、4*11*158、如果整型变量c、d、x的值分别为8、6、0，则下列语句For I=c to d : x=x+i : NextI 执行结束时，I的值为(a )A、8B、7C、6D、59、假定有以下循环结构 Do Until 条件循环体 Loop 则正确的描述是(b )A、如果"条件"是一个为0的常数，则一次循环体也不执行B、如果"条件"是一个为0的常数，则至少执行一次循环体C、如果"条件"是一个不为0的常数，则至少执行一次循环体D、不论"条件"是否为"真"，至少要执行一次循环体10、"x是小于100的非负数"，用VB表达式表示正确的是(c )A、0 <= x 0r x < 100B、0 <= x < 100C、0 <= x And x < 100D、0 <=x , x < 10011、下列语句错误的是(d )A、exit forB、exit doC、end subD、exit select12、Inputbox函数返回的数据类型为( d)（1分）A、整型B、逻辑型C、单精度D、字符串13、假定有以下程序段: For I= 1 To 3: For j = 1 To 5 Step -1: Print I*j: Next j: Next I 则语句Print I*j 的执行次数是(d )A、15B、18C、10D、014、如果要清除在窗体中打印输出的文字，可以利用( c)语句A、InputB、LoadC、ClsD、Paint15、case <表达式表列>,其中的表达式表列不正确的为(a )A、Case 100*aB、Case 1000 To 2000C、Case Is<3000D、Case 2000<is<3000< p="">16、下列说法错误的是( d)（1分）A、VB声明数组时既可指定上界也可指定下界B、数组元素类型可以是任意的VB数据类型C、数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式D、VB声明数组时必须指定下界17、下面的四个数组说明语句语法正确的是( c)A、DIM X[10]B、DIM EN fn(10)C、DIM X(20)D、DIM ENSION a[10]18、以下程序段: x = 1: y = 4: Do Until y>4: x = x * y: y = y +1: Loop 执行后x 的结果为(b )A、1B、4C、8D、2019、以下声明和命名标识符错误的是(c )A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符 (25)D、不能与关键字同名20、下列说明错误的是(d )A、Const MyVar#=123B、Dim myname as stringC、dim a as integer,dim b as singleD、dim MyString="Hello,"+"My friend!"21、VB中允许出现的数据形式为(b )）A、1.89E1.1B、.368C、D32D、2.5E22、设a=2,b=3,c=4,d=5,下列表达式a>b AND c<=d OR 2*a>c的值是(b )A、TrueB、FalseC、-1D、123、语句6 * 6\6/6的输出结果是( c)A、6B、12C、36D、21624、给窗体form1加载背景图片，应使用(c)函数A、pictureB、ucaseC、loadpictureD、image25、字符串"河南农业大学现教部"的长度是(c ) (字节)A、18B、10C、9D、16二、填空题（12道小题，共35分）1、设定系统当前日期是2004年5月12日，Month(date)=____________12_______2、设A$="Visual Basic",len(a$)函数返回值是。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、新建一个工程，按下载图片【图1：vb06.jpg(单击查看)】创建界面，完成后上传窗体文件(.frm文件)，要求：(1)按照左图添加控件，要求大小适当、布局合理。
(5分)(2)按照右图，利用属性窗口完成控件的属性设置(将XXX改写为自己的姓名)。
(5分)(3)编写事件过程。
运行程序，单击按钮“时间”，通过函数(否则不得分)取得当前时间并显示在标签上(5分)。
(4)编写事件过程。
运行程序，单击按钮“字体”，使标签文字字体改为隶书(5分)。
Option ExplicitPrivate Sub Command1_Click()Label1.Caption = TimeEnd SubPrivate Sub Command2_Click()Label1.FontName = "隶书"End Sub3、编写程序，计算并输出下面数列中前n(设n=15)项的和。
将结果四舍五入保留4位小数。
1/1!,1/2!,1/3!,1/4!,……,1/n!,……(其中，! 表示求阶乘)要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。
Option ExplicitPrivate Sub Form_Click()Dim i As Integer, n As IntegerDim s As Double, h As Doubleh = 1n = InputBox("n=?")For i = 1 To nh = h * is = s + 1 / hNext iText1.Text = Round(s, 4)End Sub1、新建一个工程，按下载图片【图1：vb08.jpg(单击查看)】创建界面，完成后上传窗体文件(.frm文件)，要求：(1)按照左图添加控件，要求大小适当、布局合理。
(5分)(2)按照右图，利用属性窗口完成控件的属性设置。
(5分)(3)编写事件过程。
运行程序，单击标签，要求在其中显示你的准考证号(5分)。
(4)编写事件过程，运行程序，单击单选钮，可以改变标签文字的对齐方式(5分)。
Option ExplicitPrivate Sub Label1_Click()Label1.Caption = "003222223"End SubPrivate Sub Option1_Click() '左对齐Label1.Alignment = 0End SubPrivate Sub Option2_Click() '居中Label1.Alignment = 2End SubPrivate Sub Option3_Click() '右对齐Label1.Alignment = 1End Sub2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存文件(7分)。
编写事件过程，使程序在运行时能满足以下要求：(1)在文本框1中输入一个字符串，单击按钮“搜索”，检查其中是否含有小写字母“x”，若不满足条件，按钮“个数”不可用（变成灰色）(9分)。
(2)若满足要求，单击按钮“个数”，统计该字符串中所含小写字母“x”的个数并显示在文本框2中(9分)Option ExplicitPrivate Sub Command1_Click()If InStr(Text1.Text, "x") = 0 Then 'InStr函数返回0，表示不含“x”Command2.Enabled = FalseElseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Dim i As Integer, c As IntegerFor i = 1 To Len(Text1.Text)If Mid(Text1.Text, i, 1) = "x" Then c = c + 1Next iText2.Text = cEnd Sub3、编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，将结果四舍五入保留4位小数。
sin(x)/2,sin(2x)/4,sin(3x)/6,……,sin(nx)/2n,……（其中，sin为正弦函数）要求：在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。
Option ExplicitPrivate Sub Form_Click()Dim n As Integer, i As IntegerDim x As Double, s As Doublen = InputBox("n=?")x = InputBox("x=?")For i = 1 To ns = s + Sin(i * x) / (2 * i)Next iText1.Text = Round(s, 4)End Sub1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存文件(7分)。
编写事件过程，使程序在运行时能满足以下要求：(1)单击按钮“生成”，产生100个不大于1000的随机整数并显示在列表框中(9分)。
(2)单击按钮“显示”，在两个文本框中分别显示上述数据中的最小偶数和最小奇数(9分)。
(提示：使用数组存储数据)Option ExplicitDim a(1 To 100) As Integer, i As IntegerPrivate Sub Command1_Click()RandomizeList1.ClearFor i = 1 To 100a(i) = Int(Rnd * 1001)List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()Dim mino As Integer, minj As Integermino = 1000minj = 999For i = 1 To 100If a(i) Mod 2 = 0 And a(i) < mino Then mino = a(i)If a(i) Mod 2 <> 0 And a(i) < minj Then minj = a(i)Next iText1.Text = minoText2.Text = minjEnd Sub2、编写程序，计算下面数列的和S，当和数第一次大于5000时求和终止并输出结果。
1×2,-2×3,3×4,-4×5,…,(-1)^(n-1)×n×(n+1),……（其中，^ 表示幂运算）要求：在运行程序时，采用适当的方式输出计算结果。
Option ExplicitPrivate Sub Form_Click()Dim n As Integer, s As Integern = 1s = 0Do Until s > 5000s = s + (-1) ^ (n - 1) * n * (n + 1)n = n + 1LoopText1.Text = sEnd Sub1、新建一个工程，按下载图片【图1：vb07.jpg(单击查看)】创建界面，完成后上传窗体文件(.frm文件)，要求：(1)按照左图添加控件，其中的选定控件为图片框(PictureBox)。
要求大小适当、布局合理。
(5分)(2)按照右图，利用属性窗口完成控件的属性设置。
(5分)(3)编写事件过程。
运行程序，在文本框中输入一个英文字母，单击按钮“计算”，通过函数求取该字母对应的ASCII码并显示在图片框中(5分)。
(4)编写事件过程。
运行程序，单击按钮“清除”，清除图片框中的计算结果(5分)。
Option ExplicitPrivate Sub Command1_Click()Picture1.Print Asc(Text1.Text)End SubPrivate Sub Command2_Click()Picture1.ClsEnd Sub2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存文件(7分)。
编写事件过程，使程序在运行时能满足以下要求：(1)在文本框1中输入一个字符串，单击按钮“检查”，测试字符串长度是否超过10个，若不满足条件，按钮“计算”不可用（变成灰色）(9分)。
(2)若满足要求，单击按钮“计算”，在另外2个文本框中分别显示该字符串长度和其右边的10个字符(9分Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text) > 10 ThenCommand2.Enabled = TrueElseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Text2.Text = Len(Text1.Text)Text3.Text = Right(Text1.Text, 10)End Sub3、编写程序，求下面数列的前10项的和，结果保留2位小数。
cos(1!)×x,cos(2!)×x,cos(3!)×x,...,cos(n!)×x (其中!表示阶乘。
)要求：在运行程序时，使用文本框或InputBox函数输入x(值为0.5)和n的值，并用适当的方法输出运算结果。
Option ExplicitPrivate Sub Form_Click()Dim i As Integer, n As IntegerDim s As Double, x As Double, h As Longn = InputBox("n=?")x = InputBox("x=?")h = 1For i = 1 To nh = h * is = s + Cos(h) * xNext iText1.Text = Round(s, 2)End Sub1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存文件(7分)。
编写事件过程，使程序在运行时能满足以下要求：(1)运行时在文本框1中输入一个字符串，单击按钮“判断”，检查输入数据是否为纯数字，若不满足条件，按钮“显示”不可用(变成灰色)(9分)。
(2)若满足要求，单击按钮“显示”，求出字符串中奇数数字个数与偶数数字个数之差，并显示在文本框2中(9分)。