用VB程序设计计算器用VB编程序设计一个简易的计算器.实验要求：1.设计合适的运行界面并编写相应的事件代码.2.要求用标签显示运算数据及运算结果.初始状态显示0.3.要求用命令按钮输入运算数据.窗体中包含0-9、+、-、*、/、=、C、小数点等17个命令按钮.4.当单击数字按钮时,在标签上显示运算数据.5.当单击+、-、*、/按钮时,将第一个运算数取出,并清除标签 显示0.6.当单击“=”按钮时,将第二个运算数取出,计算出运算结果之后显示到标签上.7.当单击“C”按钮时,清除两个运算数及标签 并显示0.8.将工程中所有的文件压缩为一个RAR文件.9.最后提交完成的RAR文件.（提示：可以使用全局变量或模块变量在事件过程之间传递数据.）建议：先实现加的功能,正确运行之后再拓展到减、乘、除的功能.
gsKH02HM22
帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中&若满意请及时采纳,谢谢
为您推荐：
其他类似问题
扫描下载二维码VB综合练习_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB综合练习
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩2页未读，继续阅读
你可能喜欢人人网 - 抱歉
哦，抱歉，好像看不到了
现在你可以:
看看其它好友写了什么
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&2014年计算机二级考试VB专家预测试题及答案10
　　21．以下说法中错误的是(&&&&)。&　　A．如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的&　　作用相同&　　B．可以用多个命令按钮组成命令按钮数组&　　C．命令按钮只能识别单击(Click)事件&　　D．通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用&　　22．以下关于局部变量的叙述中错误的是(&&&&)。&　　A．在过程中用Dim语句或Static语句声明的变量是局部变量&　　B．局部变量的作用域是它所在的过程&　　C．在过程中用Stalic语句声明的变量是静态局部变量&　　D．过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放&　　23．以下程序段的输出结果是(&&&&)。&　　x=1&　　y=4&　　Do&Until&y&4&　　&&x=&x&*&y&　　&&y=y+1&　　Loop&　　Print&X&　　A．1&&　　B．4&　　C．8&&　　D．20&　　24．如果执行一个语句后弹出如图所示的窗口，则这个语句是(&&&&)。 　　&　　A．InputBox("输人框"，"请输入VB数据")&　　B．x=InputBox("输入框"，"请输入VB数据")&&　　C．InputBox("请输入VB数据"，"输入框")&　　D．x=InputBox("清输入VB数据"，"输入框")&25．有如下事件过程：&　　Private&Sub&Form&Click()&　　&&Dim&n&As&Integcr&　　&&x=0&　　n=InputBox("请输入一个整数")&　　&&For&i=1&To&i&　　&&&&For&i=1&To&i&　　&&&&&&x=x+1&　　&&&&Next&j&　　&&Next&i&　　&&Print&x&　　End&sub&&　　程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是(&&&&)。&　　A．13&&　　B．14&　　C．15&&　　D．16&　　26．请程序：&　　Sub&subP(b()As&Integer)&　　&&For&i=1&To4&　　&&&&b(i)=2*i&&　　&&Next&i&　　End&Sub&　　Private&Sub&Commandl&Click()&　　&&Dim&a(1&To&4)As&Integer&　　&&a(1)=5:a(2)=6:a(3)=7:a(4)=8&　　subP&a()&　　For&i=1&To&4&　　&&Print&a(i)&　　Next&i&　　End&Sub&&　　运行上面的程序，单击命令按钮，则输出结果是(&&&&)。&　　A．&2&&　　&&&&4&　　&&&&6&　　&&&&8&　　B．&5&　　&&&&6&　　&&&&7&　　&&&&8&　　C．&10&&　　&&&&12&　　&&&&14&　　&&&&16&　　D．出错&　　27．Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。&　　Function&Isfab(x&As&Integer)As&Boolean&　　&&Dim&ii&As&Integer，b&As&Integer，C&As&Integer，flag&As&Boolean&　　&&flag=False&　　&&a=1：b=1&　　&&Do&While&x<B 　　c=a+b&　　a=b&　　b=c&　　If&x=b&Then&flag=True&　　&&Loop&&　　&&Isfab=flag&　　End&Function&　　测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是(&&&&)。&　　A．把a=b与b=C的位置互换&　　B．把c=a+b移到b=C之后&　　C．把Do&While&xb&　　D．把If&x=b&Then&flag=True改为If&x=a&Then&flag&True&　　28．在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：&　　Private&Sub&Coinmand1&Click()&　　&&Dim&a$，b$，c$，k％&　　&&a="ABCD"&　　&&b="123456"&　　&&c=""&　　&&k=1&　　&&Do&While&k&=Len(a)Or&k&=Len(b)&　　&&&&If&k&=Len(a)Then&　　&&&&&&c=c＆Mid(a，k，1)&　　&&&&End&If&　　&&&&If&k&=Len(b)Then&　　&&&&&&c=c＆Mid(a，k，1)&　　&&&&End&If&　　&&&&k=k+1&　　&&Loop&　　&&Print&c&　　End&Sub&　　运行程序，单击命令按钮，输出结果是(&&&&)。&　　A．123456ABCD&&　　B．ABCD123456&　　C．D6C584A321&&　　D．A1B2C3D456&　　29．请阅读程序：&　　Private&Sub&Form&Click()&　　&&m=1&　　&&For&i=4To&1&Step-1&　　&&&&Print&Str(m)；&　　&&　　m=m+1&　　For&j=1&To&i&　　&&Print"*"：&　　Next&j&　　Print&&　　&&Next&i&　　End&Sub&　　程序运行后，单击窗体，则输出结果是(&&&&)。&　　A．1****&&　　2***&　　3**&　　4*&　　B．4****&　　&&&&3***&　　&&&&2**&　　&&&&1*&　　C．****&&　　***&　　**&　　*&　　D．*&　　&&&&**&　　&&&&***&　　&&&&****&　　30．在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private&Sub&Command1&Click()&　　&&Dim&a&　　&&a=Array(1，2，3，4)&　　&&i=3：j=1&　　&&Do&While&=0&　　&&&&s=s+a&i)*j&　　&&&&i=i-1&　　&&&&j=j*1c&　　&&Loop&　　&&&&Print&S&　　End&Sub&　　运行上面的程序，单击命令按钮，则输出结果是(&&&&)。&　　A．4321&&　　B．123&　　C．234&&　　D．1234
　　21．C。【解析】VB中命令按钮可执行的事件包括Click事件、Dragdrop事件、Drag()ver事件、gotFocus&事件、keyDown事件、keyPress事件、keyUp事件、lostFoucus事件、MouseMove事件、MouseDown事件、MouseUp事件等。所以选C。&　　22．D。【解析】static用于定义静态变量，dim定义的是动态变量。静态变量的生存期是程序的整个运行时间，而动态变量的生存期是所在的过程结束，即过程结束该动态变量即被销毁。而变量的可见性是指变量在程序的哪些部分可供调用，过程中定义的变量在此过程结束后销毁。故本题选D。&　　23．B。【解析】本题考查的是do&until循环语句。do&until是直到型循环，当条件为假时执行循环体，直到为真结束。本题中首先y=4，循环条件y&4，所以关系表达式的结果为假，执行循环体中的语句，直到x=4，y=5。然后再次进入循环判断。因为y=5，所以循环判断表达式结果为真，不执行循环体，循环结束。Print&x打印X中的值，故选B。&　　24．D。【解析】InputBox函数在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的Strin9。InputBox语法InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，con―text])，其中Prompt是必需的，其余可选，参数Prompt是作为对话框消息出现的字符串表达式。prompt&的最大长度大约是1024个字符。Title可选，显示对话框标题栏中的字符串表达式。所以选D。&　　25．C。【解析】本题考查嵌套for循环语句，因为n=5，所以外层循环执行5次，内层循环为1～i次，所以循环体x=x+1共执行1+2+3+4+5=15次，故答案为C。&　　26．A。【解析】本题考查数组为参数在函数间的传递。本题中，当用户点击控件Command1时，控件的Commandl&Click()事件过程被触发，在此过程中首先定义了一个包含4个元素的数组a，并赋值。然后以数组a为参数传递给过程subP，在过程subP中执行for循环，分别给a中的4个元素赋值为2、4、6、8。函数执行结束返回过程Command1_Click()，利用for循环打印输出a数组中的值，所以选A。&　　27．C。【解析】本题中程序思路是利用for循环求得斐波那契数列，然后和x比对，若x是斐波那契数列中的值，则返回布尔值Frue，若不是则返回false。题目源程序中循环条件是x<B，又因为A、B初始值都是1，而X是正整数，所以不论X取何值，循环都不会执行。 　　28．D。【解析】Mid函数用于提取字符串中的指定位数，函数调用格式为Mid(string，start[，length])，其中start为必要参数，为Long型，为被取出部分的首字符的位置。如果start超过string的字符数，Mid返回空串。length可选参数为返回的字符数，如果省略或length超过文本的字符数，将返回字符串中从start&到尾端的所有字符。Len函数的作用是返回串的长度。本题中a串长4，b串长6，每次循环将a、b的第k个字符取出连在一起给串c，k从1开始，当k=5时，将b中k位置的字符依次插入串C中。&　　29．A。【解析】本题是利用循环语句输出，每次循环在一行中输出i个星号，变量m是行号，j是星号个数，无参数的print语句让程序在新的一行输出。&　　30．D。【解析】此程序的作用是将数组a中a(o)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数，i是数组的下标，作用是依次取a(3)、a(2)、a(1)、a(O)，s=s+a(i)*J的作用是将取到的数依次放到个位、百位、十位、千位，这是因为J四次循环的取值分别为l、10、100、1000。所以S四次循环的取值为4、4+30、34+200、324、324+1000。&
(window.slotbydup=window.slotbydup || []).push({
id: '2467140',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467141',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467142',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467143',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467148',
container: s,
size: '1000,90',
display: 'inlay-fix'}