历年vb题目整理带答案

1、.1、算法描述：求的1100之间所有偶数的和注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码function func() (1) i as integer dim func = (2) 0 for i = 2 to 100 step (3) 2 func = func + i next iend function2、操作要求: 顺序查找单词“name” ： 输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。 sub main() dim i as integer dim buzai as b

2、oolean 定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句 dim (1) d(1 to 10) as string 输入10个单词，在for语句后完善i的初始值与终值 for i =(2) 1 to 10 输入每个单词给数组元素，在赋值号左侧添加变量 (3) = inputbox(please input word & i) d(i) next i buzai = true i = 0 while buzai = true and i 10 顺序查找单词，数组下标增1，在赋值号右侧添加表达式i =(4) i+1 判断数组元素是否为单词name,在if语句后添加

3、判断条件 if (5) then d(i) = name buzai = false end if wend if buzai = false then msgbox 在数组中的位置为： + str(i) else msgbox 不在数组中 end ifend sub3、小王今年26岁，资助了一名贫困大学生，他想从明年开始每年比上一年多资助一名贫困大学生。编程求解小王到多少岁，就能资助到n名甚至更多大学生？function func(n) stu = 1 age = 26精品.请完善下面两条语句 do while stu val(n) age = age + (1) 1 stu = (2) +

4、 age 25 stu loop func = ageend functionsub main() if command = assess then open in.txt for input as #1 line input #1, n close #1 open out.txt for output as #1 print #1, func(n) close #1 else 请完善大学生数n的输入语句 (3) = inputbox(请输入大学生数 n:, input) n msgbox func(n) end ifend sub4、操作要求: 设计一个vb学习指导程序的窗口运行界面，界面设

5、计如下图。要求（1）打开“c:myexam工程1.vbp”，设置窗体form1属性值：将该窗体标题命名为“vb学习指导”；（2）添加一个标签控件label1，并设置如下属性值：该控件填充内容“vb学习指导”；字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第5行第7列，并居中对齐；（3）对标签控件label2（请输入口令：），设置如下属性值： 根据字体大小自动调整；（4）添加一个文本框控件text1，并设置如下属性值： 文本框高度为650，宽度为2215； 文本框内容为空；（5）添加一个命令按钮option2，并设置如下属性值： 将该按钮标题命名为“退出”； 字体为黑体，字号为四号； 按

6、钮宽度1575，高度735；（5）保存并提交。5、操作要求: 打开c:myexam工程1.vbp”，补充完成程序。实现当从键盘上输入x的值后，求函数y的值(当x=0时，y=4x+1)。如:输入-2后,输出结果:5.function func(x)精品.if x 0 then func = (1) abs(3*x+1)else func = (2) 4*x+1end ifend function6、操作要求: 打开“c:myexam工程1.vbp”补充完成程序并保存！该程序的功能是：从键盘上输入两个数a和b，比较a和b的大小，并输出较小的数。function func(a, b)if (1) t

7、hen ab func = b else func = 两数相等 end ifend ifend function7、操作要求: 输入a、b、c的值，判断一元二次方程 ax2+bx+c=0是否有解，如果无解则输出“无解” ，如果两个解相同则输出“两解相同”，否则输出“两解不同”。function f(a, b, c)请完成其它的判断语句 if b * b - 4 * a * c 0 then f = 两解不同end functionsub main() if command = assess then open in.txt for input as #1 line input #1, a l

8、ine input #1, b line input #1, c close #1 open out.txt for output as #1 print #1, f(a, b, c) close #1 else a = inputbox(请输入 a, input) b = inputbox(请输入 b, input) 请完成变量c的输入语句 (3) c = inputbox(请输入 c, input) msgbox f(a, b, c) end if精品.end sub8、操作要求: 打开“c:myexam工程1.vbp”补充完成程序并保存！该程序的功能是： 求实数x的绝对值。functio

9、n func(x) if x = 0 (1) then func = x else func = (2) -x (3) end ifend function9、操作要求: 打开“c:myexam工程1.vbp”进行以下操作后并保存！填空完成程序，计算n!的值并在窗体上打印出结果，如输入：3，则输出：6。（注：n!=12n）function func(n)dim i as integer(1) func=1for i = 1 to (2) nfunc = func * i 计算n!next iend function10、操作题：“提示信息”界面设计，如下图所示，要求（1）打开“c:myexam

10、工程1.vbp”，对窗体form1设置如下属性值：窗体标题为“提示信息”；背景色为调色板第1行第7列。（2）添加一个标签控件label，并设置如下属性值：标签标题为“要继续吗？”（注：“？”为中文标点符号）；标签高度为495，宽度为1935；字体为楷体_gb2312，字形为常规，字号为三号，字体颜色为调色板第5行第8列，背景类型为0。（3）添加一个按钮控件commandbutton，并设置如下属性值：按钮标题为“否”；字号为小四。（4）保存并提交。11、操作要求: 输入10位同学的英语成绩存放在数组score中，利用选择排序算法按照从大到小的顺序进行排序 。 算法描述：输入10位同学的英语成绩

11、存放在数组score中利用选择排序算法按照从大到小的顺序进行排序 定义数组score,下界为1,上界为10,数据类型为single dim (1) score(1 to 10) as singlefunction f() i为排序的次数，应该排序9次，为i添加初值和终值精品. for i =(2) 1 to 9 min = score(i): m = i j为每次排序的数的范围，应从i+1开始直到第10个数，为j添加初值和终值 for j =（3） i + 1 to 10 if score(j) min then min = score(j): m = j next j 以k为中间变量，编写交

12、换score(i)和score(m)的语句 k = score(i) score(i) = score(m) （4） score(m) = k next i st = 排序后的数列为： for i = 1 to 10 st = st + str(score(i) + next i f = stend functionsub main() dim i as integer, m as integer, k as integer, j as integer dim st as string if command = assess then open in.txt for input as #1 d

13、im x as string for i = 1 to 10 line input #1, x score(i) = val(x) next i close #1 open out.txt for output as #1 print #1, f() close #1 else for i = 1 to 10 输入10位同学的英语成绩，在赋值号左侧添加变量 （5） = inputbox(请输入第 & i & 个数据) score(i) next i msgbox f() end ifend sub12、购物问题：购物满1000元，打7折，800到1000元，打8折，500到800元，打9折。

14、private sub command1_click() x=val(text1.text) if x=1000 then精品. (1) y=0.7*x elseif (2) then x=800 y=0.8*x elseif x=500 then (3) y=0.9*x else y=x end if text2.text=y end sub13、十进制转化成二进制问题：将一个十进制数转化为二进制数。 function func(x)dim bin(32),j,strstr=”j=0do while (x0)bin(j)=(1) x mod 2(2) x=x2j=j+1loopdo whil

15、e (j0)str=str&bin(j-1)j=(3) j-1loopfunc=strend function14、水仙花数问题：水仙花数是满足下面条件的一组三位的正整数，它们满足条件：每一位上数字的立方之和恰好等于它自己。例如：153就是一个水仙花数，13+53+33=153，请找出所有的水仙花数及个数。参考程序代码如下：方法一：private sub command1_click() dim sum as integer dim i, a, b, c as integer list1.clear sum=0 for i = 100 to 999 a = i 100 求得百位上的数字 b =

16、 i 10 mod 10 求得十位上的数字 c = i mod 10 求得个位上的数字 if a 3 + b 3 + c 3 = i then 判断是否满足条件 list1.additem (str(i) sum = sum + 1 统计个数 end if精品. next i label1.caption = 个数： + str(sum)end sub方法二：private sub command1_click() dim sum as integer dim i, j, k as integer list1.clear sum=0 for i = 1 to 9 百位数 for j = 0 t

17、o 9 十位数 for k = 0 to 9 个位数 if i 3 + j 3 + k 3 = 100 * i + 10 * j + k then 是否满足条件 list1.additem (str(100 * i + 10 * j + k) sum = sum + 1 统计个数 end if next k next j next i label1.caption = 个数： + str(sum)end sub15、用递归算法来计算斐波那契数列1，1，2，3，5，8，13，21的第n项，我们可以写出这样的计算公式： fib(n)=fib(n-1)+fib(n-2) (n2) fib(2)=1 (n=2)fib(1)=2 (n=1) fib函数参考程序代码如下：function fib(n as integer) as long 计算斐波那契数列第n项 if n = 1 or n=2 then fib = 1 已知第1项、第2项均为1 else fib = fib(n-1)+fib(n -2) 计算公式，fib(n)=fib(n-1)+fib(n-2) end if 要求fib(n-1)和fib(n-2)需要再次执行算法fibend function也可以用如下代码来完成：function fib(n