VB期末上机考试题
1、编制通用函数sum过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。
2、编制通用函数fact过程，计算N！的值。在窗体的Click事件中调用该函数。
3、编制一个判断奇偶数的函数过程（Odd）。在窗体的Click事件中调用该函数，输入一个整数，判断
其奇偶性。
4、新建一个工程，完成应用程序的设计，具体要求如下：
（1）按照下图所示在窗体上放置按钮和控件。
（2）取消窗体的最大化和最小化按钮。
（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。
（4）同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。
5、新建一个工程，完成“密码检验”程序的设计。具体要求如下：
（1）参照运行界面完成界面设计。
（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。
（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。
6、新建一个工程，完成“格式设置”程序。如图。
7、新建一个工程，完成“点餐”程序的设计。具体要求如下：
（1）窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。
（2）要求文本框只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑。
（3）完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。
8、“列表框添加内容”程序
（1）参照运行时界面完成界面设计。
（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。
（3）单击“删除单词”按钮，删除列表框中被选中的列表项。
（4）单击“全部删除”按钮，删除列表框中的全部表项。
（5）单击“退出”按钮，结束该程序。
9、“格式设置”程序。
（1）参照运行时界面完成界面设计。
（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规。
（3）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。
（4）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。
10、“添加与删除”程序。
（1）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，
分别为“Word、Excel、PowerPoint、Outlook”。
（2）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（3）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
11、“偶数迁移”程序。
（1）参照运行时界面完成界面设计。
（2）能完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
12、“字体设置”程序。
（1）参照运行时界面完成界面设计。
（2）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。（3）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~20。
13、“字体和格式设置”程序。
14、“列表框间移动”程序。
（1）参照运行时界面完成界面设计。
（2）在两个列表框控件的list中输入一些内容。
（3）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。（4）当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。
（5）当单击“结束”按钮时，退出应用程序。
15、“畅销书排行榜“程序。
（1）输入新书名和名次，单击“入榜“，添加到左边列表框中相应位置。
（2）单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”
（3）单击“清除”，可以删除文本框中的输入内容。
16、“改变字号”程序。
（1）窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条。
（2）完成以下功能：根据设定字号改变标签框内显示文字的字体。要求水平滚动条与文本框相关联。
17、“滚动字幕”程序。
（1）参照运行时界面完成界面设计。
（2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。
18、“字幕升起”程序。
（1）单击“开始”，标签文字在定时器控制下自动从下向上移动，移动距离为每个时间间隔100缇，当标签移动到窗体外时，再从下面进入。
（2）同时“开始”按钮变为“停止”。
（3）定时器时间间隔由滚动条决定，范围0.1—1秒，默认值为0.3秒。
19、“字幕闪烁”程序。
（1）参照运行时界面完成界面设计。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为16、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红蓝两种颜色显示。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.3秒。
20、“字幕滚动（定时器版）”。
（1）参照运行时界面完成界面设计。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为16、文字颜色为“红色”。
（3）单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时“停止”按钮变为“开始”按钮。（5）定时器（Timer1）的时间间隔为0.1秒。
21、“字幕放大”程序。
（1）参照运行时界面完成界面设计。
（2）单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。
（3）单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。
（4）要求标签文字在放大时保持水平居中。
（5）定时器（Timer1）的时间间隔为0.2秒。
22、“闹钟”程序。
（1）参照运行时界面完成界面设计。
（2）设计两个定时器，Timer1用于显示系统时间，时间间隔为1秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可使用。
（3）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、16号，背景白色，文字居中对齐，固定边框。
（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。
（5）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过闹钟时间，则标签Label1的背景色按红白两色交替变换。
23、“到计时”程序。
（1）参照运行时界面完成界面设计。
（2）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选按钮控件数组，从上到下为Option1（0）、Option1（1）、Option1（2），标题分别为“1分钟”、“5分钟”、“10分钟”。默认选择为1分钟。
（3）标签Label1，用于显示倒计时的剩余的时间。
（4）单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。
（5）当剩余时间到0分0秒时，改为显示“时间到！”。
（6）定时器Timer1的时间间隔为1秒。
24、“调色板”程序。
（1）参照运行时界面完成界面设计。
（2）滚动条的取值范围均为0-255。
（3）在框架内的右边还有文本框控件。
（4）拖动三个滚动条的滚动框来选择红、绿、兰三原色的配色取值，并通过文本框的背景色动态显示调色效果。
（5）单击“应用“按钮（COMMAND1），将调配好的颜色应用为标签LABEL2的文字颜色。
25、“拨号盘”程序。
（1）参照运行时界面完成界面设计。
（2）窗体的上边有一个文本框Text1，设置为最多接受10个字符；Font宋体、粗体；文字颜色蓝色。（3）用命令按钮数组Command1（0）~Command1（9）构成数字键，数字键标题正好命令按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。
（4）单击“重拨”按钮（Command2），再现原来的拨号过程。
（5）定时器Timer1的时间间隔为0.5秒。
26、“简单动画”程序。
（1）参照运行时界面完成界面设计。
（2）在窗体上创建一个Label2的控件数组，数组长度为6，用于显示动画的图像“--->”。
（3）在窗体上放置一个timer控件，用它来控制Label2上的图像位置的变化。
（4）单击“开始”按钮时label2上的图像开始移动，单击“结束”按钮图像停止移动，设置每一秒移动一个箭头。
27、设计一个“霓虹灯”程序，运行界面如下图所示。具体要求如下：
（1）在窗体上创建一个Label1控件数组，数组长度为7，分别用于显示“V”、“B”、“编”、“程”、“俱”、“乐”、“部”。
（2）在窗体上放置一个Timer控件，用它来控制Label1上的文字依次自动出现，时间间隔为1秒。
……
28、新建一个工程，完成“改变大小”程序的设计。
（1）窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips。
（2）窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips。
（3）水平滚动条的下面有两个标签控件，Label1的标题为“圆直径为：”，Label2的标题为“3400”，两个标签均为固定边框。
（4）改变滚动条的值可以控制圆形的直径，同时在标签Label2中动态显示圆形的直径。
( 5 ) 要求圆形直径在变化时要保持圆心在滚动条和窗体上边的中心位置不变。
29、“反弹球”程序设计。
（1）图片框中有一个shape1，形状为圆，直径为500缇，红色填充。
（2）单击“开始”，圆球先向右上角方向运动，然后反弹。水平方向dx和垂直方向dy改变量都为100缇。
（3）定时器时间间隔为0.1秒。
30、新建一个工程，完成“作图”程序的设计。
（1）窗体的右边是一个图片框Picture1，用于显示图形。
（2）单击“坐标系”按钮（Command1），将图片框的坐标系统设置为原点在中央，x轴[-10，10]，y 轴[10，-10]，并在图片框中画出该坐标系统示意图。
（3）单击“扇形”按钮（Command2），在图片框中画一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为π/6，终止角为5π/6的扇形。
（4）单击“结束”按钮（Command3），程序结束运行。
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
vb期末考试试题
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
VB上机综合测试题(十五套)
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 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，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
VB上机程序调试题_题目及参考答案
第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
vb期末考试试题
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
VB期末考试试题及答案 (1)
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
vb经典题目及答案
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
大一VB期末考试试卷及答案
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
VB上机考试习题以及答案
VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
VB期末试卷(A卷带答案)
高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer
a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k
VB期末考试上机题编程答案
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；
VB期末考试题库及答案
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
VB练习题(上机)含标准答案
第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)
Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
大学VB期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。