历年vb题目整理(带答案)知识讲解.doc

《历年vb题目整理(带答案)知识讲解.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品好文档，推荐学习交流1、算法描述：求的1~100之间所有偶数的和'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码'Functionfunc()(1)iAsIntegerdimfunc=(2)0Fori=2To100Step(3)2func=func+iNextiEndFunction2、操作要求:顺序查找单词“name”：输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。Submain()

2、DimiAsIntegerDimbuzaiAsBoolean'定义数组d,下界为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，在赋值号右

3、侧添加表达式i=(4)i+1'判断数组元素是否为单词"name",在if语句后添加判断条件If(5)Thend(i)="name"buzai=FalseEndIfWendIfbuzai=FalseThenMsgBox"在数组中的位置为："+Str(i)ElseMsgBox"不在数组中"EndIfEndSub3、小王今年26岁，资助了一名贫困大学生，'他想从明年开始每年比上一年多资助一名贫困大学生。'编程求解小王到多少岁，就能资助到n名甚至更多大学生？Functionfunc(n)stu=1age

4、=26仅供学习与交流，如有侵权请联系网站删除谢谢8精品好文档，推荐学习交流'请完善下面两条语句DoWhilestu

5、数n的输入语句(3)=InputBox("请输入大学生数n:","Input")nMsgBoxfunc(n)EndIfEndSub4、操作要求:设计一个VB学习指导程序的窗口运行界面，界面设计如下图。要求（1）打开“C:MyExam工程1.vbp”，设置窗体Form1属性值：将该窗体标题命名为“VB学习指导”；（2）添加一个标签控件Label1，并设置如下属性值：该控件填充内容“VB学习指导”；字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第5行第7列，并居中对齐；（3）对标签控件L

6、abel2（请输入口令：），设置如下属性值：根据字体大小自动调整；（4）添加一个文本框控件Text1，并设置如下属性值：文本框高度为650，宽度为2215；文本框内容为空；（5）添加一个命令按钮Option2，并设置如下属性值：将该按钮标题命名为“退出”；字体为黑体，字号为四号；按钮宽度1575，高度735；（5）保存并提交。5、操作要求:打开"C:MyExam工程1.vbp”，补充完成程序。实现当从键盘上输入x的值后，求函数y的值(当x<0时,y=

7、3x+1

8、;当x>=0时，y=4x+1)

9、。如:输入-2后,输出结果:5.Functionfunc(x)仅供学习与交流，如有侵权请联系网站删除谢谢8精品好文档，推荐学习交流Ifx<0Thenfunc=(1)abs(3*x+1)Elsefunc=(2)4*x+1EndIfEndFunction6、操作要求:打开“C:MyExam工程1.vbp”补充完成程序并保存！该程序的功能是：从键盘上输入两个数a和b，比较a和b的大小，并输出较小的数。Functionfunc(a,b)If(1)Thena

10、>bfunc=bElsefunc="两数相等"EndIfEndIfEndFunction7、操作要求:输入a、b、c的值，判断一元二次方程ax^2+bx+c=0是否有解，如果无解则输出“无解”，如果两个解相同则输出“两解相同”，否则输出“两解不同”。Functionf(a,b,c)'请完成其它的判断语句Ifb*b-4*a*c<0Thenf="无解"Ifb*b-4*a*c=0Then(1)f="两解相同"(2)Ifb*b-4*a*c>0Thenf="两解不同"EndFunctionSubMain(