历年vb题目整理(带答案)

1、算法描述：求的1~100之间所有偶数的和'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码'Function func()(1) i As Integer dimfunc = (2)0For i = 2 To 100 Step (3)2func = func + iNext iEnd Function2、操作要求: 顺序查找单词“name”：输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。

Sub main()Dim i As 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 =(4) i+1'判断数组元素是否为单词"name",在if语句后添加判断条件If (5) Then d(i) = "name"buzai = FalseEnd IfWendIf buzai = False ThenMsgBox "在数组中的位置为：" + Str(i)ElseMsgBox "不在数组中"End IfEnd Sub3、小王今年26岁，资助了一名贫困大学生，'他想从明年开始每年比上一年多资助一名贫困大学生。

'编程求解小王到多少岁，就能资助到n名甚至更多大学生？Function func(n)stu = 1age = 26'请完善下面两条语句Do While stu < Val(n)age = age + (1) 1stu = (2) + age – 25 stuLoopfunc = 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、操作要求:设计一个VB学习指导程序的窗口运行界面，界面设计如下图。

要求（1）打开“C:\MyExam\工程1.vbp”，设置窗体Form1属性值：将该窗体标题命名为“VB学习指导”；（2）添加一个标签控件Label1，并设置如下属性值：该控件填充容“VB学习指导”；字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第5行第7列，并居中对齐；（3）对标签控件Label2（请输入口令：），设置如下属性值：根据字体大小自动调整；（4）添加一个文本框控件Text1，并设置如下属性值：文本框高度为650，宽度为2215；文本框容为空；（5）添加一个命令按钮Option2，并设置如下属性值：将该按钮标题命名为“退出”；字体为黑体，字号为四号；按钮宽度1575，高度735；（5）保存并提交。

5、操作要求:打开"C:\MyExam\工程1.vbp”，补充完成程序。

实现当从键盘上输入x的值后，求函数y的值(当x<0时,y=|3x+1|;当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 Function6、操作要求: 打开“C:\MyExam\工程1.vbp”补充完成程序并保存！该程序的功能是：从键盘上输入两个数a和b，比较a和b的大小，并输出较小的数。

Function func(a, b)If (1) Then a<bfunc = aElseIf (2) Then a>bfunc = bElsefunc = "两数相等"End IfEnd IfEnd Function7、操作要求: 输入a、b、c的值，判断一元二次方程 ax^2+bx+c=0是否有解，如果无解则输出“无解”，如果两个解相同则输出“两解相同”，否则输出“两解不同”。

Function f(a, b, c)'请完成其它的判断语句If b * b - 4 * a * c < 0 Then f = "无解"If b * b - 4 * a * c = 0 Then (1) f="两解相同"(2) If b * b - 4 * a * c > 0 Then f = "两解不同" End FunctionSub Main()If Command = "assess" ThenOpen "in.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、操作要求: 打开“C:\MyExam\工程1.vbp”补充完成程序并保存！该程序的功能是：数x的绝对值。

Function func(x)If x >= 0 (1) thenfunc = xElsefunc = (2) -x(3) end ifEnd Function9、操作要求: 打开“C:\MyExam\工程1.vbp”进行以下操作后并保存！填空完成程序，计算N!的值并在窗体上打印出结果，如输入：3，则输出：6。

（注：N!=1×2×…×N）Function func(n)Dim i As Integer(1) func=1For i = 1 To (2) nfunc = func * i '计算N!Next iEnd Function10、操作题：“提示信息”界面设计，如下图所示，要求（1）打开“C:\MyExam\工程1.Vbp”，对窗体Form1设置如下属性值：窗体标题为“提示信息”；背景色为调色板第1行第7列。

（2）添加一个标签控件Label，并设置如下属性值：标签标题为“要继续吗？”（注：“？”为中文标点符号）；标签高度为495，宽度为1935；字体为楷体_GB2312，字形为常规，字号为三号，字体颜色为调色板第5行第8列，背景类型为0。

（3）添加一个按钮控件CommandButton，并设置如下属性值：按钮标题为“否”；字号为小四。

（4）保存并提交。

11、操作要求:输入10位同学的英语成绩存放在数组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 = i'j为每次排序的数的围，应从i+1开始直到第10个数，为j添加初值和终值 For j =（3） i + 1 To 10If score(j) > Min Then Min = score(j): m = jNext j'以k为中间变量，编写交换score(i)和score(m)的语句k = score(i)score(i) = score(m)（4） score(m) = kNext ist = "排序后的数列为："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 StringIf 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、购物问题：购物满1000元，打7折，800到1000元，打8折，500到800元，打9折。