历年vb题目(带答案).docx

历年vb题目(带答案).docx

ID:60745129

大小:34.40 KB

页数:7页

时间:2020-12-13

历年vb题目(带答案).docx_第1页
历年vb题目(带答案).docx_第2页
历年vb题目(带答案).docx_第3页
历年vb题目(带答案).docx_第4页
历年vb题目(带答案).docx_第5页
资源描述:

《历年vb题目(带答案).docx》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、历年vb题目整理(带答案)1、算法描述:求的1~100'注:请不要更改原程序结构'Functionfunc()(1)iAsIntegerfunc=(2)Fori=2To100Stepfunc=func+iNextiEndFunction之间所有偶数的与,删除(1)、(2)、(3),并在对应位置填写正确的代码dim0(3)22、操作要求:顺序查找单词“name”:输入10个不同的单词给数组,查找单词“name”就是否在数组中;如果在,输出单词在数组中的位置,否则,输出“不在数组中”。Submain()DimiAsIntegerDimbuzaiAsBoolean'定义数组d,下界为

2、1,上界为10,数据类型为string,在dim后完善语句Dim(1)d(1To10)AsString'输入10个单词,在for语句后完善i的初始值与终值Fori=(2)1to10'输入每个单词给数组元素,在赋值号左侧添加变量(3)=InputBox("Pleaseinputword"&i)d(i)Nextibuzai=Truei=0Whilebuzai=TrueAndi<10'顺序查找单词,数组下标增1,在赋值号右侧添加表达式i=(4)i+1'判断数组元素就是否为单词"name",在if语句后添加判断条件If(5)Thend(i)="name"buzai=FalseEndIfWendI

3、fbuzai=FalseThenMsgBox"在数组中的位置为:"+Str(i)ElseMsgBox"不在数组中"EndIfEndSub3、小王今年26岁,资助了一名贫困大学生,'她想从明年开始每年比上一年多资助一名贫困大学生。'编程求解小王到多少岁,就能资助到n名甚至更多大学生?Functionfunc(n)stu=1age=26'请完善下面两条语句DoWhilestu

4、in、txt"ForInputAs#1LineInput#1,nClose#1Open"out、txt"ForOutputAs#1Print#1,func(n)Close#1Else'请完善大学生数n的输入语句(3)=InputBox("请输入大学生数n:","Input")nMsgBoxfunc(n)EndIfEndSub4、操作要求:设计一个VB学习指导程序的窗口运行界面,界面设计如下图。要求(1)打开“工程1、vbp”,设置窗体Form1属性值:将该窗体标题命名为“VB学习指导”;(2)添加一个标签控件Label1,并设置如下属性值:该控件填充内容“VB学习指导”;字体为隶书

5、,字形为粗体,字号为三号,字体颜色为调色板中第(3)对标签控件Label2(请输入口令:),设置如下属性值:根据字体大小自动调整;(4)添加一个文本框控件Text1,并设置如下属性值:文本框高度为650,宽度为2215;5行第7列,并居中对齐;文本框内容为空;(5)添加一个命令按钮Option2,并设置如下属性值:将该按钮标题命名为“退出”;字体为黑体,字号为四号;按钮宽度1575,高度735;(5)保存并提交。5、操作要求:打开y的值(当x<0工程1、vbp”,补充完成程序。实现当从键盘上输入x的值后,求函数时,y=

6、3x+1

7、;当x>=0时,y=4x+1)。如:输入-2后

8、,输出结果:5、Functionfunc(x)Ifx<0Thenfunc=(1)abs(3*x+1)Elsefunc=(2)4*x+1EndIfEndFunction历年vb题目整理(带答案)6、操作要求:打开“是:从键盘上输入两个数a与b,比较工程1、vbp”补充完成程序并保存!该程序的功能就a与b的大小,并输出较小的数。Functionfunc(a,b)If(1)Thenabfunc=bElsefunc="两数相等"EndIfEndIfEndFunction7、操作要求:输入a、b、c的值,判断一元二次方程ax^2+bx+c

9、=0就是否有解,如果无解则输出“无解”,如果两个解相同则输出“两解相同”,否则输出“两解不同”。Functionf(a,b,c)'请完成其它的判断语句Ifb*b-4*a*c<0Thenf="无解"Ifb*b-4*a*c=0Then(2)(1)f="两解相同"Ifb*b-4*a*c>0Thenf="两解不同"EndFunctionSubMain()IfCommand="assess"ThenOpen"in、txt"ForInp

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。