《VB程序设计基础》模拟精彩试题

合集下载

程序设计基础模拟复习题(笔试)

一、是非判断题（每小题1分，共15分）（判断下列各小题的叙述正确与否，如正确则在答题纸对应编号上填T，否则填F）1．DIM I，J As INTEGER 表明I和J都是整型变量。

（F）2．在VB中保存工程文件时，系统默认的路径是VB的安装目录。

（T）3．菜单中的每一菜单项都是控中，可以通过点击菜单项或通过光标选择并按回车键，以触发Click事件。

（T）4．某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。

（F）5．控件的属性值不可以在程序运行时动态地修改。

（F）6．一个变量没有定义就赋值，该变量即为变体类型。

（T）7．在VB的表达式中，运算符两端的数据类型要求一致。

（F）8．VISUAL BASIC程序的运行，仅能从某一窗体启动，如Form1窗体。

（F）9．CIRCLE方法绘制扇形或圆弧图形时，图形的形状不仅与起始角、终止角的大小相关，而且与起始角、终止角的正或负相关。

（T10．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。

（F）11．VISUAL BASIC允许设计和使用用户自己设计的控什。

（T）12．在VB中，窗体事件和其中所有控件事件的代码都放在窗体文件中。

（T）13．标签控件与文本框一样也能接收焦点。

（F）14．MSGBOX函数的返回值为整型。

（T）15．在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。

（T）二、单项选择题（每小题1分，共15分）1．VISUAL BASIC 6.0的三个工作模式是（16）。

A．启动模式、运行模式、调试模式B．设计模式、运行模式、中断模式C．执行模式、编译模式、解释模式D．编辑模式、运行模式、调试模式2．关于VISUAL BASIC事件的说法中，不正确的是（17）。

A．事件是由VISUAL BASIC预先定义好的，能够被对象识别的动作B．DBLCLICK（双击）是VISUAL BASIC中的一个事件C．一个对象可以识别一个或多个事件D．一个对象可以识别哪些事件，需要由程序员自己决定3．以下控件中可以作为容器控件的是（18）。

VB程序设计模拟试卷3套

6.1 笔试模拟卷6.1.1 笔试模拟试卷一一、选择题（每小题2分，共70分）1.在下列选项中，哪个不是一个算法一般应该具有的基本特征______。

A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报2.在单链表中，增加头结点的目的是______。

A.方便运算的实现B.使单链表至少有一个结点C.标识表结点中首结点的位置D.说明单链表是线性表的链式存储实现3. 下列关于队列的叙述中正确的是______。

A. 在队列中只能插入数据B. 在队列中只能删除数据C. 队列是先进先出的线性表D. 队列是先进后出的线性表4. 对长度为N的线性表进行顺序查找，在最坏情况下所需要的比较次数为______。

A. N+1B. NC. (N+1)/2D. N/25. 信息隐蔽的概念与下述哪一种概念直接相关______。

A. 软件结构定义B. 模块独立性C. 模块类型划分D. 模拟耦合度6.面向对象的设计方法与传统的的面向过程的方法有本质不同，它的基本原理是______。

A. 模拟现实世界中不同事物之间的联系B. 强调模拟现实世界中的算法而不强调概念C. 使用现实世界的概念抽象地思考问题从而自然地解决问题D. 鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考7. 在结构化方法中，软件功能分解属于下列软件开发中的阶段是______。

A. 详细设计B. 需求分析C. 总体设计D. 编程调试8. 软件调试的目的是______。

A. 发现错误B. 改正错误C. 改善软件的性能D. 挖掘软件的潜能9. 按条件f对关系R进行选择，其关系代数表达式为______。

A. R|X|RB. R|X|RC. бf(R)D. ∏f(R)10. 数据库概念设计的过程中，视图设计一般有三种设计次序，以下各项中不对的是______。

A. 自顶向下B. 由底向上C. 由内向外D. 由整体到局部11.在VB中可以作为容器的是：______。

A.Form、TextBox、PictureBoxB.Form、PictureBox、FrameC.Form、TextBoX、LabelD.PictureBox、TextBox、ListBox12.VB中除窗体能显示图片外，下面列控件中可以显示图片的控件有:__ __。

vb程序设计试题及答案

vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。

答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。

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）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）以上均不可以3. 要使时钟控件Timer1 的Timer 事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A）Timer1.Interval=1000 （D）Timer1.Index=04. 引用列表框(List1) 最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)5. 如下数组声明语句，正确的是( 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 Integer6. 下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)7. 假定有如下的命令按钮( 名称为Command1事) 件过程：Private Sub Command1_Click()x=InputBox(" 输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub8. 程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x 的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题 2 分，共20 分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。

VB程序设计试卷与答案-2

《VB程序设计基础》试题一、选择题：（每空 2 分，共 20 分）1. VB不具备以下的________________特点。

A. VB是结构化程序设计语言B. VB是面向过程的程序设计语言C. VB采用面向对象的程序设计方法D. VB提供了可视化的工具2. 在Visual Basic中，语句Dim x As Single所说明的变量x属于____________。

A. 整数型B. 逻辑型C. 字符串型D. 单精度实数型3. 在Visual Basic中，表达式Fix(-13.8)的值是_____________。

A. -13B. -14C. 13D. 144. 下列属于正确的Visual Basic表达式是（）A. a2+b*|c|B. 2n-1C. b3+2D. 2·h/g5. 设x是正数，下列能用于描述"x是否为偶数"的Visual Basic条件表达式是_____________。

A. x % 2 = 0B. x / 2 = 0 C．x \2 = 0 D. x Mod 2 = 06. 图片框有一个属性，可以自动调整图片框的大小，以适应图片的尺寸，这个属性是__________。

A. AutosizeB. StretchC. AutoRedrawD. Appearance7.语句Print Format(136.459862,“0.000”)的输出结果是___________。

A. 1.365B. 6.459C. 136.460D. 136.4598. 设S=“380”，表达式Mid（S,2,1）+ Right（S,1）+ Left（S,1）的值为__________。

A.“083”B.“803”C.“038”D.“308”9．一个数组说明为Dim a(3，4) As Integer，则该数组共有_________个元素。

A. 12B. 3C. 4D. 2010. 在过程定义中用__________表示形参的传值。

VB程序设计期末模拟试题及答案

VB程序设计期末模拟试题及答案第一篇：VB程序设计期末模拟试题及答案《VB》期末复习题及答案综合复习题一、填空题1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的__text__属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。

4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。

8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c达式c>a And Not b10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print“30+60”, Print 30 + 60 ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z五、编程题1．设计一个计算程序。

vb练习题(有答案)(打印)

《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。

13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。

4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。

15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。

2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。

15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。

9A.对B.错√3. 每一个控件实质上都是一个微型程序。

2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。

A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。

21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。

9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。

3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。

6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。

《VB程序设计》会考模拟试卷(一)

《VB 程序设计》会考模拟试卷（一） (考试时间：90分钟，满分：100分)2分，共60分） 1、VB 中的变量如果没有显式声明其数据类型，则默认为（） A 、日期型 B 、数值型 C 、字符型 D 、变体型 2、设置标签显示内容的属性是（）A 、captionB 、textC 、nameD 、top3、在窗体上画一个文本框，其名称为text1,为了在程序运行后隐藏该文本框，应使用（）A 、text1.clearB 、text1.visible=falseC 、text1.hideD 、text1.enabled=false4、为了把窗体上的某个控件变为活动的，应执行的操作是（） A 、单击窗体的边框 B 、单击控件的内部 C 、双击该控件 D 、双击窗体5、确定一个控件在窗体上的位置的属性是（） A 、width 或 height B 、width 和 height B 、top 或 left D 、top 和 left6、为了同时改变一个活动控件的高度和宽度，正确的操作是（） A 、拖动控制4个角上的某个小方块 B 、只能拖动位于控件右下角上的小方块 C 、只能拖动位于控件左下角上的小方块 D 、不能同时改变控件的高度和宽度7、可获得当前系统日期的函数是（）A 、date( )B 、time( )C 、isdate( )D 、year( ) 8、下列不能打开代码窗口的操作是（） A 、双击窗体的某个控件 B 、双击窗体C 、在“视图”菜单单击“代码窗口”D 、单击窗体或控件 9、按任一键的事件名为（）A 、changeB 、keydownC 、clickD 、keypress 10、下面变量不合法的（）A 、a2_1B 、abcdC 、a$xD 、CDE11、下面合法的变量是( )A 、1/2B 、’abcd ’C 、1.2*5D 、false12、在VB 中，用于获得字符串S 最左边4个字符的函数是（） A 、left(S,4) B 、left(1,4) C 、right(S,4) D 、right(S) 13、在VB 中，基本数据类型包括（） A 、数值型数据、日期型、字节型、货币型、逻辑型、字符型、对象型、变体型 B 、整型、实型、字符型、记录型 C 、整型、实型、逻辑型、集合型D 、实型、逻辑型、字符型、自定义型 14、VB 中可以用类型说明符来标识变量的类型，其中表示货币型是的（） A 、% B 、# C 、@ D 、$ 15、表达式a+b=c 是（）A 、赋值表达式B 、字符表达式C 、算术表达式D 、关系表达式 16、设a=2,b=3,c=4,d=5,下列表达式的值是（）a>b and c<=d or 2*a>cA 、trueB 、falseC 、-1D 、017、语句print 5*5\5/5的输出结果是（）A 、5B 、25C 、0D 、1 18、以下语句的输出结果是（）Print format$(32548.5,”000,000.00”)A 、32548.5B 、32,548.5C 、0.32,548.50D 、32,548.50 19、如果在立即窗口中依次执行下列命令：a=8 b=9print a>b则输出的结果是（）A 、1B 、0C 、falseD 、true 20、在立即窗口中执行下列语句：a=”beijing ” b=”shanghai ” print a;b则输出结果是（）(△表示空格)A 、beijing △ shanghaiB 、△beijing △shanghaiC 、beijingshanghaiD 、△beijing △shanghai △ 21、执行print sqr(9)命令后，输出结果为（）A 、3B 、9C 、81D 、2722、inputbox 函数返回值的类型为（）A 、数值B 、字符串C 、变体D 、数值或字符串（视输入的数据而定）班级：姓名：学号○ ○ 密 ○ 封 ○ 装 ○ 订 ○ 线 ○ ○密封线内不要答题23、通过代码在运行时设置属性的语法格式为（）A、对象名=属性.新值B、对象名.属性=新值C、对象名.新值=属性.新值D、对象名.属性=属性.新值24、使文本框获得焦点的方法是（）A、changeB、gotfocusC、setfocusD、lostfocus25、若要求在文本框中输入密码时，文本框中只显示#号，则应在此文本框的属性窗口中设置（）A、caption属性值为#B、text属性值为#C、passwordchar属性值为#D、passwordchar属性值为真26、设a=10，则执行X=iif(a>5,-1,0)后，x的值为（）A、5B、6C、0D、-127、a的初值为1，当VB执行下面语句后，a的值为（）If a>0 then a=a+1If a>=1 then a=0A、0B、1C、2D、328、在窗体中添加一个文本框（其中name属性为text1），然后编写如下代码：Private sub form_click( )Text1.text=””Text1.setfocusFor i=1 to 10Sum=sum+iNext iText1.text=sumEnd sub上述程序运行后，单击窗体，则运行的结果（）A、在文本框text1中输出35B、在文本框text1中输出0C、出错D、在文本框text1中输出不定值29、使用语句dim a(-3 to 5) as integer 定义的数组的元数个数是（）A、7B、8C、9D、1030、sub和function的最大差别在于（）A、function可以通过函数名返回值，而sub不能B、function需要输入参数，而sub不用C、sub可以用call语句调用，而function不行D、两者并无不同2分，共40分）（）和（）。

程序设计基础VB期中考试卷

《程序设计基础VB》期中考试卷一、选择题〖每小题1分, 共计40分〗；1.以下变量名中合法的是【1】。

A.x2-.......B.prin.......C.str_....D.2x分析：书P105, 标识符命名规则答案：C在Visual Basic中, 所有的窗体和控件都必定具有的一个属性是【2】。

A. NameB. Font C)Caption D)FillColor分析：名称属性是每个对象必须具备的, VB为每一个对象设置了一个默认的名称, 用户可以不更改, 对象的默认名称是由对象的类名+序号构成的。

答案：A以下所列的7个控件中, 具有Caption属性的有【3】个。

CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）A. 5B. 4C. 3D. 2分析：常用控件中, TextBox、PictureBox、Image、ListBox、ComboBox、Timer、Line、Shape、HScrollBar、VScrollBar没有Caption属性；Label、CommandButton、OptionButton、CheckBox、Frame具有Caption属性；另外, 窗体也有Caption属性。

答案：C2.用来设置文字字体是否斜体的属性是【4】。

A. FontUnderlineB. FontBoldC. FontSlopeD. FontItalic分析: 也可以写成Font.Italic答案：D若需要在同一窗口内安排两组相互独立的单选按钮（ OptionButton ）, 可使用【5】控件将它们分隔开。

① TextBox ② Picture ③ Image ④ FrameＡ. ①②Ｂ. ②③Ｃ. ②④Ｄ. ③④分析：将单选按钮分组的方法是放置在不同的容器中, VB中可以做容器的控件有：PictureBox、Frame答案：CTimer控件的【6】属性决定该控件是否对时间的推移做出响应。

《Visual Basic程序设计基础》习题

《Visual Basic程序设计基础》教材习题第1章Visual Basic 6.0程序设计概述习题一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。

2．属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。

3．同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。

4．在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。

5．控件的属性值不可以在程序运行时动态地修改。

6．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。

7．所谓保存工程，是指保存正在编辑的工程的窗体。

8．在面向对象的程序设计中，对象是指可以访问的实体。

9．决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。

10．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。

11．xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。

12．事件是由Visual Basic预先定义的对象能够识别的动作。

13．事件过程可以由某个用户事件触发执行，它不能被其他过程调用。

14．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。

15．同一个窗体文件只能用于一个工程中。

16．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。

17．在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。

18．当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件19．“方法”是用来完成特定操作的特殊子程序。

20．“事件过程”是用来完成事件发生后所要执行的程序代码。

二、选择题1．工程文件的扩展名为。

A、.frxB、.basC、.vbpD、.frm2．以下4个选项中，属性窗口未包含的是。

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。

(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 。

(完整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 ）。

《Visual Basic程序设计》模拟试卷七及其答案

《Visual Basic程序设计》模拟试卷七及其答案一、语言基础题40分（一）判断题10题，每题1分1、使用声明语句建立一个变量后，VB自动将数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串（””），定长的字符串则用空格填充，V ariant变量被初始化为Empty，布尔型的变量初始化为False。

2、在窗体中用Show或Hide方法和在代码中将Visible属性分别设置为TRUE或FALSE的效果是一样的。

3、当对象具有焦点时，按下、松开键盘上一个键会触发该对象的KeyPRESS 事件。

该事件先于KEYDOWN事件而后于KEYUP事件发生。

4、Dim a1,a2 as integer 语句显式声明变量a1和a2 都为整型变量。

5、函数Len(“abc d”+space(5))的值是5。

6、执行Do…Loop While语句时，不管条件真假，首先会无条件地执行一次循环。

7、语句Command1.visible=false 与Command1.enabled=false 是等价的。

8、通过对CommonDialog通用对话框控件action属性的赋值或方法调用可以生成所需要的如open、save as、color、font、print、help 等常用对话框。

9、当图片框picturebox控件的autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。

10．要创建新的顺序文件，必须先用input或output或append方式打开该文件。

（二）单选题10题，每题1分1、下列符号哪一个是VB中的合法变量名？______A. IFB. 7ABC. A[B]7D. AB72、数学式子sin25°写成VB表达式是______A. sin25B. Sin（25）C. Sin（25*3.14/180）D. Sin(25°)3、函数Int(Rnd(0)*10)是在哪个范围内的整数？______A. （0，1）B. （1，10）C. （0，10）D. （1，9）4、若x是一个正实数，对x的第3位小数四舍五入的表达式是______A. 0.01*Int(x+0.005)B. 0.01*Int(100*(x+0.005))C. 0.01*Int(100*(x+0.05))D. 0.01*Int(x+0.05)5、函数Left(“Hello”,2)的值为______A. HeB. elC. loD. True6、函数Int(Abs(99-100)/2)的值为______A. 1B. 0C.“1”D. “0”7、表达式2*3^2+2*8/4+3^2的值为______A. 64B. 31C.49D. 228、将命令按钮Command1设置为不可见，应修改该命令按钮的______属性。

vb程序设计试题及答案

vb程序设计试题及答案为了帮助大家更好地理解和掌握VB程序设计，下面将为大家提供一套VB程序设计试题及答案。

通过完成这些试题，相信能够对VB程序设计有更深入的了解和应用。

请注意，以下试题中给出的是简要描写，实际编写程序时请适当完善。

试题一：计算两个数字的和与差要求：编写一个VB程序，输入两个数字，然后输出它们的和与差。

答案：```vbPrivate Sub btnCalc_Click()Dim num1, num2, sum, diff As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2diff = num1 - num2lblSum.Caption = "和：" & sumlblDiff.Caption = "差：" & diffEnd Sub```试题二：学生成绩统计要求：编写一个VB程序，输入3位学生的成绩，然后计算并输出平均成绩和最高成绩。

答案：```vbPrivate Sub btnCalc_Click()Dim score1, score2, score3, average, max As Integerscore1 = Val(txtScore1.Text)score2 = Val(txtScore2.Text)score3 = Val(txtScore3.Text)average = (score1 + score2 + score3) / 3max = WorksheetFunction.Max(score1, score2, score3)lblAverage.Caption = "平均成绩：" & averagelblMax.Caption = "最高成绩：" & maxEnd Sub```试题三：简单计算器要求：编写一个VB程序，实现一个简单的计算器功能，包括加减乘除四则运算。

程序设计基础(VB)题型练习题

程序设计基础（VB）题型练习题一、单项选择题（30题，每题1分，共30分，请将答案填写在后面的答题纸上）1. Visual Basic不具有以下的_______________特点。

A．Visual Basic采用面向过程的编程机制B．Visual Basic是结构化程序设计语言C．Visual Basic提供了可视化的工具D．Visual Basic采用了面向对象的程序设计方法2. 为了保存一个Visual Basic应用程序，应当。

A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C. 只保存工程文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件3. 下列操作不能打开属性窗口的是________________。

A．在对象上单击右键，弹出快捷菜单，选取“属性窗口”菜单项B．双击对象 C．单击工具栏上的“属性窗口” D．按F4键4. 要想改变一个窗体的标题内容，则应设置以下哪个属性的值______。

A．Name B．FontName C．Caption D．Text5.以下过程是______事件。

Private Sub Form_Click()...End SubA．命令按钮的单击 B．命令按钮的双击 C．窗体的单击 D．窗体的双击6. 若要将隐藏的窗体显示出来，实现的方法是。

A．Unload B．Load C．Show D．Hide7. 下列Visual Basic的变量名中，合法的是。

A．User&name B．5Password C．_count D．Num8. 声明一个变量为局部变量应该使用关键字。

A. DimB.PrivateC.PublicD.Static9. 下列VB表达式语法正确是的。

A．a>b.and.b<>c B．a>b AND <>c C．a>b AND b<>c D．以上都不正确10．要把一个命令按钮设置成无效，应设置其哪一个属性值。

《VB程序设计基础及实验》——测试题库(34页)

一、判断题(共180小题)(A)。

1、VB代码中的所有符号，都必须是英文半角字符表示，不能使用汉字或全角字符。

(B)。

2、在VB中，对象是指具有特殊属性和行为方式的实体，各种控件都是对象，但窗体不属于对象。

(B)。

3、控件放置到窗体中后，其大小和位置就不能再进行调整。

(A)4、Name（名称）属性是一个控件区别于其他控件的特征。

(A)5、Visible属性用来设置对象的可见性。

(A)6、Enabled属性用于激活或禁用对象。

(A)7、响应某个事件后所执行的操作通过一段代码来实现，这样的一段程序代码叫做事件过程。

(A)8、VB有三种工作模式分别是设计模式、运行模式、中断模式。

(A)9、VB程序设计的特点是事件驱动。

(A)10、事件驱动编程是非常适用于图形用户界面的编程形式。

(A)11、属性是用来描述和反映对象特征的参数，对象的属性既可以在属性窗口中设置，又可以在程序代码通过赋值实现。

(A)12、当进入vb的集成开发环境，若发现不显示“工具箱”时，可以使用“视图” 中的“工具箱”打开。

(A)13、属性、事件、方法构成了对象的三要素。

(A)14、双击控件或窗体本身会打开属性窗口。

(B)。

(15、在Visual Basic6.0中所有对象都具有相同的属性。

(B)。

16、文本框获得焦点的方法是GotFocus.(B)。

17、在Visual Basic中所有对象都具有Click事件.(B)。

18、命令按钮只能响应单击click事件。

(B)。

19、VB程序一行写不下，可以直接换行继续写。

(B)。

20、文本框和标签控件运行后都可以接受用户的输入。

(B)。

21、VB 程序中所有用到的控件都可以在标准工具箱中找到。

(A)22、若要对窗体上的控件调整大小，先要保证该控件是活动控件。

(A)23、当在窗体上单击某控件时，控件的边框上就会有8个黑色小方块，此时该控件就是活动控件。

(A)24、如果把光标置于控件内部，按住鼠标左键不放，移动鼠标，就可以把控件拖到窗体上任何位置。

《VB程序设计基础》练习题

《VB程序设计基础》练习题《VB 程序设计基础》练习题、选择题: 1在Visual Basic 中，下列能作为变量名的是（A ） x+1（ B ）x_1（ C Or （ D ） If 2、在Visual Basic 中，语句 Dim x As Single所说明的变量 x 属于（A ）整数型（B ）逻辑型（C ）字符串型（D 单精度实数型3、在Visual Basic 中，⽤变量p 存储杂志的刊号（如CN 41-103 ”），变量p 的数据类型应定义为（（A ） String （ B ） Integer （ C ） Single （ D ） Date4、在Visual Basic 中，⽤变量存储 560位学⽣的⾝⾼数据（如：1.76 ），下列最合适的变量说明是（A ）将560个变量说明为整数型（B ）将560个变量说明为单精度实数型（C ）将⼀个元素个数为 560的⼀维数组说明为整数型（D ）将⼀个元素个数为 560的⼀维数组说明为单精度实数型 5、在Visual Basic 中，表达式 Sqr(100) + 100 的值是1 .10、将数学表达式 sin xcos x (x 的单位：弧度)写成 Visual Basic 表达式，正确的2是(A) SinxCosx / 2 (B) Sinx * Cosx / 2 (C) Sin(x)Cos(x) / 2 (D) Sin(x) * Cos(x) / 211、下列属于正确的 Visual Basic 表达式是( ) (A ) a+b*|c|( B ) b3+2( C ) 2n-1( D ) 2 ? h/g12、在Visual Basic 中，从字符串"Good morning"中截取"morning"的表达式是( )(A ) Mid("Good morning", 6, 7) ( B ) Mid(Good morning, 6, 7) (C ) Mid("Good morning", 5, 7)( D ) Mid("Good morning", 7, 7) 13、将数学表达式 a < b w c 写成Visual Basic 表达式，正确的是(A ) a<=b<=c ( B ) a<=b Or b<=c (C ) a<=b And b<=c ( D ) a<=b Not b<=c14.随机产⽣［0,12)中的数，以模拟旅客通过检票⼝的时间，正确的 Visual Basic 表达式是(A ) Rnd()*12(B ) Rnd()*13(A ) 110 ( B ) 103在 Visual Basic 中，a = -100，表达式"360" + Str(a)(B ) 360-100 (C) 2006、 (A ) 260 7. 在Visual Basic (A ) 58. 在Visual Basic (A ) 123 ( B )(C ) 460的值是（）中, (B ) 中, 45 中, 1.8表达式5678\100的值是 56 ( C ) 56.78表达式12345 Mod 100的值是(D ) 5 的值是(D ) 0.8(C ) 12 表达式Fix(1.8) (C ) 1(D ) 567(C) Int(Rnd()*12)+1 (D) Int(Rnd()*13)+115、设x是正数，下列能⽤于描述"x是否为偶数”的Visual Basic 条件表达式是(A ) x \ 2 = 0 (C ) x Mod 2 = 0、填空题1、有如下 Visual Basic 程序段a = 4b = 5a = a / 2c = Abs(a - b)该程序段运⾏后，变量c 的值为 2、有如下 Visual Basic程序段a = 9b = "Comma nd Butt on"c = Len(b)If a > 0 And a < c The nLabel1.Caption = Mid(b, a, 6) ElseLabel1.Caption = "error" End If该程序段运⾏后，在标签 Label1上显⽰的是 _______________ 3、有如下Visual Basic 程序段：a = 3.14b = 20c = In t(a) + b该程序段运⾏后，变量 c 的值为 ______________ 。

《VB程序设计基础》模拟试题

VB程序设计模拟试题●填空题1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、类模块文件的扩展名为______CLS_______ ;2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类,前者根据其取值的不同,可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________;3. Abs-6.5= _____6.5______；Int-9.1= ____-10_______;4. "程序"& "设计"运算结果为 ___程序设计____ ;5. Dim a, b as Boolean语句显式声明变量a是___变体___变量,b是___布尔__变量;6. MsgBox函数的返回值中, VBRetry表示单击了____重试_____按钮,VBYes表示单击了___是_____按钮,VBNo表示单击了_____否____按钮;7. 要加载窗体,可以在代码中使用___________语句,要显示窗体,可以在代码中使用___________方法,要隐藏窗体,可以在代码中使用Hide方法,要卸载窗体,可以在代码中使用___________方法;8.对话框分为_________对话框和________对话框两种类型,其中_____________ 对话框最常用;9. 对象是Visual Basic应用程序的基本单元,它是由 ___类___创建的;在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性;10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句;Select case 语句11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______;12. Do…Loop Until 循环结构中,当条件为____真____时结束循环;13. 要显示弹出菜单,可以在代码中使用_____________事件;14. 参数传递有__________方式、__________方式和命名传递方式,常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式;15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___;16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____;17.Visual Basic程序,按其语句代码执行的先后顺序,可以分为___顺序__结构、选择__结构和___循环____ 结构;18.数组元素下标的下界默认为是_____________,如果要改变其默认值,应使用_____________;●判断题1. Visual Basic运行程序的方法只有编译模式;2. 语句Command1.visible=false 与Command1.enabled=false 是等价的;3. InputBox函数和MsgBox函数一样,返回的是字符串;4. 通过类模块,我们不可以根据需要建立自己的控件;× 5. 2.1E+5是合法的Visual Basic数据;6. 根据占用内存方式的不同,可将数组分为常规数组和动态数组两种类型;√ 7. x2是合法的变量名;8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件;√ 9. Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环;× 10. 标签没有change事件和setFocus方法;× 11. VB对象就是窗体和控件;× 12. 要实现同样的循环控制,在Do While…Loop和DO…Loop While循环结构中给定的循环条件是一样的;× 13. 文本框和标签通过同一属性在窗体上显示文字;14. 能够改变复选框背景颜色的属性是BackColor;15. 当图片框Picturebox控件的Autosize属性为true时,超过图片框尺寸的图片其超过部分会被图片框截去;× 16. 所有对象的属性都可以在属性窗口中设定;× 17. Msgbox函数建立的信息框既能显示信息又能输入用户的信息;18. 使用Open语句可以创建新的顺序文件;× 19.要在窗体上添加控件,不能通过双击工具箱中对应的控件图标实现;× 20.TextBox与Label有许多共同的特点,它们都能显示和输入文字;√ 21.方法Form1.show与Form1.visible=True是等效的;√ 22.Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环;× 23.函数Str26与Str-26的值的长度相同;√ 24.每个Vb对象都有name属性;25.在Visual Basic中,向过程传递参数时,按地址传递参数是缺省的;√ 26.Do…Loop until语句实现循环时,只要条件是假,循环将一直进行下去;× 27.文本框和标签通过同一属性在窗体上显示文字;× 28.要实现同样的循环控制,在Do While…Loop和DO…Loop While循环结构中给定的循环条件是一样的;√ 29.将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法;× 30.使用Open语句可以创建新的顺序文件;●写出下面的程序运行结果1. 程序1Private Sub Form_ loadMsgBox "你好"End Sub运行结果：____弹出消息框,提示为”你好”_________ ;2. 程序2Dim NumberNumber = 8Select Case NumberCase 1 To 5Print " Between 1 and 5"Case 6 To 10 Print " Between 6 and 10"Case ElsePrint " Not between 1 and 10"End Select运行结果：_____ Between 6 and 10________ ;3.程序3Dim Sub Commandl_ClickTextl.Text = "07"End SubDim Sub Command2_ClickTextl.Text = "秋季"End Sub单击Command2按钮后,再单击Command1按钮,在文本框中显示：__07___;4. 程序4Private Sub Form_ClickFor I = l To 100Sum = Sum+ INext IPrint SumEnd Sub运行结果:5050 ;5. 程序5Private Sub Form_ loadMsgBox "VB程序"End Sub运行结果：_____弹出消息框,提示为”VB程序”________ ;6. 程序6Private Sub Form_ActivateDim S As SingleDim I As IntegerS=1For I=1 To 5S=SINextPrint " 5= ";SEnd Sub运行结果：________________120_________________ ;7. 程序7Private Sub Form_ActivateDim s As LongDim I As IntegerS = 0For I = 1 To 6S = S + I^2NextPrint " S ="; SEnd Sub运行结果： 91 ;VB程序设计基础模拟试题一．判断题正确的划√,错误的划×,每小题1分,共10分√ 1、面向对象程序设计是一种以对象为基础,由事件驱动对象来执行的设计方法; × 2、所有对象的属性都可以在属性窗口中设定;√ 3、把当前窗体form1隐藏,用form1.hide和me.hide语句均可;√ 4、变量的声明有两种方法,即使用“类型说明符”和使用“类型说明词”均可;× 5、判断数值X是否在0,100范围可用关系表达式：0<=X<=100.√ 6、文本框控件没有Caption属性;× 7、Dim a1,a2 As Integer语句表示声明的变量a1和a2都为整型变量;√ 8、执行Do-Loop While语句时,不管条件真假,首先会无条件地执行一次循环;× 9、Rndx产生0,1之间的随机数;√ 10、每个Visual Basic对象都有Name属性;二．选择题以下只有一项是正确的,每题2分,共40分1、不是Visual Basic的特点的选项是：Ａ．可视编程B．面向过程 C．事件驱动 D．面向对象2、如果把一个人当作对象,那么“身高”相当于这个对象的:Ａ．属性Ｂ．方法Ｃ．事件Ｄ．特征3、以下哪项不是合法的变量名A．file_1 B．file1 Ｃ．file-1Ｄ．file_1_124、求从文本框中输入密码时在文本框中只显示号,则应在此文本框的属性窗口中设置：A．Text 属性值为 B．Caption 属性值为C．Password 属性值为空D．Passwordchar 属性值为5、哪个是算术运算符：Ａ．Imp Ｂ．ModＣ．Not Ｄ．Eqv6、Integer类型的变量可存的最大整数为：Ａ．255 Ｂ．256 Ｃ．32768 Ｄ．327677、下列哪一个是日期型常量：Ａ．" 2/1/99 " Ｂ．2/1/99 Ｃ． 2/1/99 Ｄ．{ 2/1/99 }8、用于获得字符串S从第5个字符开始的3个字符的函数是：Ａ．MidS,5,3Ｂ．MiddleS,5,3Ｃ．RightS,5,3 Ｄ．LeftS,5,39、为使计时器对象每隔5秒钟产生一个时钟事件Timer事件,则其Interval属性值应设置为：Ａ．5 Ｂ．300 Ｃ．500 Ｄ．500010、对一个窗体对象,其最先发生的事件是：A．Click Ｂ．DbClick Ｃ．Load Ｄ．UnLoad11、下列4个选项中,可以单独的构成一条语句的选项是：A．对象名.属性名 B．对象名.方法名C．对象名.事件名Ｄ．对象名.控件名12、若x是一个正实数,将千分位四舍五入,保留两位小数的VB表达式为:A．0.01Intx+0.005 B．0.01Int100x+0.005C．0.01Int100x+0.05 D．0.01Intx+0.0513、下列表达式中,合法的Ｖisual Basic表达式有：Ａ．－b+sqrbb+4ac/2/aＢ．Cosa^2-AtnaＣ．SqrY^3+3AA+6BBＤ．1/X+1/Y+5A14、在一个语句行内写多条语句时,语句之间应该用什么符号分隔A．逗号 B．分号C．顿号D．冒号15、计算结果为0的表达式是：A．Int3.4+Int-3.8 B．Int3.4+Fix-3.8C．Fix3.4+Fix-2.8 D．Fix3.4+Int-3.816、下列程序段执行后输出的结果是：x=int Rnd+4Slect Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "及格"Case ElsePrint "不及格"End SelectＡ．优秀Ｂ．良好Ｃ．及格Ｄ．不及格17、循环结构For i=0 to 10 Step 2 的执行次数是：Ａ．4 Ｂ．5 Ｃ．6Ｄ．718、“x是小于100的非负数”,用VB表达式表示,正确的是：Ａ．x<100 B．0<=x And x<100Ｃ．0<=x<100 Ｄ．0≤x Or x<10019、要判断两个整型变量A和B中有且只有一个为0,不能使用下面哪一个逻辑表达式 ;Ａ．A = 0 And B<>0 or A<>0 and B = 0Ｂ．A = 0 Xor B = 0Ｃ．A B = 0 And A<>BＤ．A B = 0 And A = 0 Or B = 020、下列程序段循环结构执行后,i的输出值是：Ａ．２５Ｂ．１０Ｃ．１１Ｄ．因为y的初值不知道,所以不确定For i=1 to 10 Step 2y=y+iNext iPrint i三．填空题每空2分,共20分1.语句option explicit的作用是强制变量声明;2.把条件10≤Ｘ＜１２写成Visual basic 表达式为： 10<=x and x<12 ;3．将数学式a acb b24 2-+-写成VB表达式为：________________________________________________________________________ ;4.逻辑符And、Or、Not按优先级排序为： ;5．选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的布尔表达式为：T>1.7 and W<62.5 ;6.声明一个值为3.14的常量Pi的语句为Const pi = 3.14_ ;7.在过程中定义Dim x9,1 to 10 as Integer,则数组中共拥有__________个元素;8.要使一个按钮无效,则可把它的Enable属性设为False True 、False;9.设X是大于300且能被3整除的奇数,关于X的表达式为：______x>300andx Mod 3=0andx Mod 2 <>0_______________________;10．定时器控件的Interval属性值是指时间间隔,单位为毫秒；当每隔此间隔的时间,定时器会触发一次计时器事件;四.程序填空题：每空3分,共12分1．如下程序运行后, 变量S的值为120 , i的值为 6 ;Option ExplicitPrivate Sub Command1_ClickDim i As IntegerStatic S As IntegerS = 1For i = 1 To 5S = S iNext iPrint SEnd Sub2．以下程序是求1—100之间所有的“偶数”之和;请填空;Dim s as integerDim i as integerS=0For i=2 to 100 step 2S=S+ iNext iPrint S五．程序阅读题每小题2分,共4分在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程：Private Sub Command1_ClickFor n = 1 To 5If n Mod 3 <> 0 Then m = m + n \ 3Next nPrint nPrint mEnd Sub程序运行后,如果单击命令按钮,则窗体上显示:n=_____6________ ; m= 2六．程序设计题,请将以下横线中的代码补充完整;每空2分,共14分1．假设某班共有学生N人,编写程序统计该班学生的Visual Basic考试成绩,并显示出60分以下、60—70、70—80、80—90以及90分以上的学生人数各是多少程序代码如下：Private sub form_clickDim score as single ‘score表示考生的实际分数Dim x1%,x2%,x3%,x4%,x5% ‘x1,x2,x3,x4,x5分别表示各个分数段的人数Dim I as integer ‘I表示循环变量Dim N as integer ‘N表示参考总人数N=valinputbox“请输入参考总人数:”For I =1 to nScore =valinputbox“请输入成绩:”Select case ScoreCase is>=90X1=x1+1Case is>=80X2=x2+1Case is>=70X3=x3+1Case is>=60X4=x4+1Case elseX5=x5+1End SelectNext iPrint “90分以上：”,x1；“人”Print “80—90分：”,x2；“人”Print “70—80分：”,x3；“人”Print “60—70分：”,x4；“人”Print “60分以下：”,x5；“人”End sub实验六思考题:设s,m,n均为String类型的变量,编程实现:如果s中包含字串m,则将s 中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入. Private Sub Command1_ClickDim s As StringDim m As StringDim n As StringDim ls As StringDim i As IntegerDim k As Integers = InputBox"请输入S字符串"Text2.Text = sm = InputBox"请输入m字符串"Text3.Text = mn = InputBox"请输入n字符串"Text4.Text = ni = InStrs, mk = i + Lenmls = Lefts, i - 1Text1.Text = ls + n + Mids, k 'text1.Text=lefts,i-1+n+mids,kEnd SubPrivate Sub Form_ClickDim a%, b%, c%, temp As Doublea = ValInputBox"请输入a"b = ValInputBox"请输入b"c = ValInputBox"请输入c"If a > b Thentemp = aa = bb = tempEnd IfIf a > c Thentemp = aa = cc = tempEnd IfIf b > c Thentemp = bb = cc = tempEnd IfPrint a; b; cEnd SubPrint Result或者 Private Sub cmdselect_ClickDim x As Single, y As SingleDim Operator As StringDim result As Singlex = ValInputBox"输入第一个数：", , 0Operator = InputBox"输入运算法：", , "+"y = ValInputBox"输入第二个数:", , 0Select Case OperatorCase "+": result = x + yCase "-": result = x - yCase "": result = x yCase "/": result = x / yEnd SelectPrint resultEnd Sub1、 Private Sub Form_ClickDim x%, y%, z%x = ValInputBox"请输入第一门课程成绩"y = ValInputBox"请输入第二门课程成绩"z = ValInputBox"请输入第三门课程成绩"If x + y + z / 3 > 95 Or x = 100 And y = 100 And z >= 80 Or x = 100 And z = 100 And y >= 80 Or y = 100 And z = 100 And z >= 80 ThenPrint "该同学获得一等奖"ElseIf x + y + y / 3 > 90 Or x = 100 And y >= 75 And z >= 75 Or y = 100 And x >= 75 And z >= 75 Or z = 100 And x >= 75 And z >= 75 ThenPrint "该同学获得二等奖"ElseIf x >= 70 And y >= 70 And z >= 70 ThenPrint "该同学获得三等奖"ElsePrint "该同学没有奖项"End IfEnd Sub2、评优If语句Private Sub cmdCheck_ClickDim a%a = ValInputBox"请输入一门课程的百分之成绩" If a >= 90 ThenPrint "优秀"ElseIf a >= 80 And a <= 89 ThenPrint "良好"ElseIf a >= 70 And a <= 79 ThenPrint "中等'"ElseIf a >= 60 And a <= 69 ThenPrint "及格"ElsePrint "不及格"End IfEnd Sub评优Select语句Private Sub cmdpingyou_ClickDim a%a = ValInputBox"请输入一门课程的百分之成绩" Select Case aCase 90 To 100: Print "优秀"Case 80 To 89: Print "良好"Case 70 To 79: Print "中等"Case 60 To 69: Print "及格"Case Is <= 59: Print "不及格"End SelectEnd Sub在窗体中产生五彩缤纷的效果;Private Sub Form_ClickDim i%Dim x, y, colorMe.DrawWidth = 4While Truex = Me.Width Rndy = Me.Height Rndcolor = RGB255 Rnd, 255 Rnd, 255 Rnd Me.PSet x, y, colorDoEventsWendEnd Sub列出100-200之间的所有素数;Private Sub Command1_ClickDim x As IntegerDim i%, j%, k%k = 0For i = 100 To 200For j = 2 To i - 1If i Mod j = 0 ThenExit ForEnd IfNextIf i = j ThenPrint i; '输出素数k = k + 1 '统计素数的个数If k Mod 8 = 0 Then '每8个素数为一行PrintEnd IfEnd IfNextEnd Sub显示1-128的字符：Private Sub Form_ClickDim i%For i = 1 To 128Print Chri;If i Mod 16 = 0 Then '每16个字符为一行输出 PrintEnd IfNextEnd Sub用循环显示数字0-9：Private Sub cmdDo_ClickDim i%i = 0Print "do循环输出数字0-9："DoPrint i;i = i + 1Loop While i <= 9End SubPrivate Sub cmdFor_ClickDim i%Print "for循环输出数字0-9："For i = 0 To 9Print i;NextPrintEnd SubPrivate Sub cmdWhile_ClickDim i%i = 0Print "while循环输出数字0-9：" Do While i <= 9Print i;i = i + 1LoopPrintEnd Sub九九乘法表：上三角下三角。