历年vb题目(带答案)

1、历年 vb 题目整理 ( 带答案 )1 、算法描述 : 求的 1100注 :请不要更改原程序结构function func()(1) i as integerfunc =(2)for i = 2 to 100 stepfunc = func + inext iend function之间所有偶数的与,删除 (1) 、(2) 、 (3), 并在对应位置填写正确的代码dim0(3)22 、操作要求 : 顺序查找单词“name ” :输入 10 个不同的单词给数组, 查找单词“name”就是否在数组中; 如果在,输出单词在数组中的位置 ,否则 ,输出“不在数组中”。sub main()dim i a

2、s integerdim buzai as boolean 定义数组 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 ibuzai = truei = 0while buzai = true and i 10 顺序查找单词 ,数组下标增 1,在赋值号右侧添加表达式i =

3、(4)i+1 判断数组元素就是否为单词 name, 在 if 语句后添加判断条件if(5)thend(i) = namebuzai = falseend ifwendif buzai = false thenmsgbox 在数组中的位置为: + str(i)elsemsgbox 不在数组中 end ifend sub3 、小王今年26 岁 ,资助了一名贫困大学生, 她想从明年开始每年比上一年多资助一名贫困大学生。 编程求解小王到多少岁 ,就能资助到 n 名甚至更多大学生？function func(n)stu = 1age = 26请完善下面两条语句do while stu val(n)历年

4、vb 题目整理 ( 带答案 )age = age +(1)1stu = (2)+ age25stuloopfunc = ageend functionsub main()if command = assess thenopen in、txt for input as #1line input #1, nclose #1open out、 txt for output as #1print #1, func(n)close #1else 请完善大学生数 n 的输入语句(3) = inputbox(请输入大学生数n:, input)nmsgbox func(n)end ifend sub4 、操作

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

6、按钮 option2, 并设置如下属性值 :将该按钮标题命名为“退出”;字体为黑体 ,字号为四号 ;按钮宽度1575, 高度 735;(5) 保存并提交。5 、操作要求:打开y 的值 ( 当x=0时 ,y=4x+1)。如 : 输入 -2 后 ,输出结果 :5 、function func(x)if x 0 thenfunc =(1)abs(3*x+1)elsefunc =(2)4*x+1end ifend function历年 vb 题目整理 ( 带答案 )6 、操作要求 : 打开“是: 从键盘上输入两个数a 与b, 比较工程 1 、vbp ”补充完成程序并保存！该程序的功能就a 与 b 的大

7、小 , 并输出较小的数。function func(a, b)if (1) thenabfunc = belsefunc = 两数相等 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 thenopen i

8、n、txt for input as #1line input #1, aline input #1, bline input #1, cclose #1open out、 txt for output as #1print #1, f(a, b, c)close #1elsea = inputbox(请输入 a, input)b = inputbox(请输入 b, input) 请完成变量 c 的输入语句(3)c = inputbox(请输入c, input)msgbox f(a, b, c)end ifend sub8 、操作要求 : 打开“是: 求实数 x 的绝对值。工程1 、vbp”补

9、充完成程序并保存！该程序的功能就function func(x)if x = 0(1)thenfunc = xelsefunc =(2)-x历年 vb 题目整理 ( 带答案 )(3)end ifend function9 、操作要求 : 打开“ 算 n! 的 并在窗体上打印出 果工程 1 、 vbp ” 行以下操作后并保存！填空完成程序, 如 入 :3, 出 :6 。 ( 注 :n!=12 n),function func(n)dim i as integer(1)for i = 1 to(2)func = func * i next i 算n!func=1nend function10 、操

10、作 : “提示信息 ”界面 ,如下 所示 ,要求(1) 打开 “ c:工程 1、 vbp ”, 窗体 form1 置如下属性 :窗体 “提示信息 ”;背景色 色板第1 行第 7 列。(2) 添加一个 控件 label, 并 置如下属性 :标签标题为 “要 不？ ”(注: “？” 中文 点符号); 高度 495, 度 1935;字体 楷体 _gb2312, 字形 常 ,字号 三号 ,字体 色 色板第5 行第 8 列 ,背景 型 0 。(3) 添加一个按 控件 commandbutton, 并 置如下属性 : 按 “否 ”;字号 小四。(4) 保存并提交。11 、操作要求 : 入 10 位同学的英

11、 成 存放在数 score中 , 利用 排序算法按照从大到小的 序 行排序 。 算法描述 : 入 10 位同学的英 成 存放在数 score 中利用 排序算法按照从大到小的 序 行排序 定 数 score, 下界 1,上界 10, 数据 型 singledim(1)score(1 to 10) as singlefunction f()i 排序的次数 , 排序9 次 ,为 i 添加初 与 for i =(2)1 to 9min = score(i):m = ij 每次排序的数的范 , 从 i+1 开始直到第10 个数 ,为for j =(3)i + 1 to 10if score(j) min

12、 then min = score(j):m = jj 添加初 与 next j以 k 中 量, 写交 score(i)与score(m)的 句k = score(i)score(i) = score(m)(4)score(m) = knext ist = 排序后的数列 :历年 vb 题目整理 ( 带答案 )for i = 1 to 10st = st + str(score(i) + next if = stend functionsub main()dim i as integer, m as integer, k as integer, j as integerdim st as str

13、ingif command = assess thenopen in、 txt for input as #1dim x as stringfor i = 1 to 10line input #1, xscore(i) = val(x)next iclose #1open out、 txt for output as #1print #1, f()close #1elsefor i = 1 to 10 输入 10 位同学的英语成绩 ,在赋值号左侧添加变量(5) = inputbox(请输入第 & i & 个数据 )score(i)next imsgbox f()end ifend sub12

14、、购物问题 :购物满 1000 元 ,打 7 折 ,800 到 1000 元 ,打 8 折,500 到 800 元 ,打 9 折。 private sub command1_click()x=val(text1 、text)if x=1000 then(1)y=0 、7*xelseif(2)thenx=800y=0、 8*xelseifx=500then(3)y=0 、 9*xelsey=xend iftext2、 text=yendsub13 、十进制转化成二进制问题:将一个十进制数转化为二进制数。function func(x)dimbin(32),j,strstr= ”j=0历年 vb

15、题目整理 ( 带答案 )dowhile (x0)bin(j)=(1)x mod 2(2)x=x2j=j+1loopdo while (j0)str=str&bin(j-1)j= (3)j-1loopfunc=strend function14 、水仙花数问题: 水仙花数就是满足下面条件的一组三位的正整数上数字的立方之与恰好等于它自己。例如:153就就是一个水仙花数找出所有的水仙花数及个数。参考程序代码如下:方法一 :private sub command1_click()dim sum as integerdim i, a, b, c as integerlist1 、clearsum=0fo

16、r i = 100 to 999a = i 100求得百位上的数字b = 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,它们满足条件: 每一位,13+53+33=153,请next ilabel1 、caption = 个数 : + str(sum)end sub方法二 :private sub command1_click()dim sum as integerdim i, j, k as inte

17、gerlist1 、clearsum=0for i = 1 to 9百位数for j = 0 to 9十位数for k = 0 to 9个位数if i 3 + j 3 + k 3 = 100 * i + 10 * j + k thenlist1、 additem (str(100 * i + 10 * j + k)sum = sum + 1统计个数end ifnext k就是否满足条件历年 vb 题目整理 ( 带答案 )next jnext ilabel1 、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 thenfib = 1已知第 1 、第 2 均 1elsefib = fib(n-1)+fib(n -2) 算公式 ,fib(n)=fib(n-1)+fib(n-2)end if要求 fib(n-1) 与 fib(n-2) 需要再次 行算法end functi