《历年vb题目整理(带答案)》由会员分享，可在线阅读，更多相关《历年vb题目整理(带答案)（8页珍藏版）》请在金锄头文库上搜索。
1、1、算法描述：求的1100 之间所有偶数的和注：请不要更改原程序结构，删除（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 Boolea
2、n定义数组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 =0时，y=4x+1)。如:输入-2后,输出结果:5.Function func(x)If x bfunc = bElsefunc = 两数相等End
3、 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 in.txt For Input As #1Line Input #1, aLine Input #1, bLine Input #1, cClose #1O
4、pen 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)
5、 end ifEnd Function9、操作要求: 打开“C:MyExam工程1.vbp”进行以下操作后并保存！填空完成程序，计算 N!的值并在窗体上打印出结果，如输入：3，则输出：6 。（注：N!=12 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 列。（
6、2）添加一个标签控件Label，并设置如下属性值：标签标题为“要继续吗？ ”（注： “？”为中文标点符号）；标签高度为495，宽度为1935；字体为楷体_GB2312，字形为常规，字号为三号，字体颜色为调色板第5行第 8列，背景类型为 0。（3）添加一个按钮控件CommandButton ，并设置如下属性值：按钮标题为“否” ； 字号为小四。（4）保存并提交。11、操作要求: 输入10 位同学的英语成绩存放在数组score 中，利用选择排序算法按照从大到小的顺序进行排序 。 算法描述：输入10位同学的英语成绩存放在数组score中利用选择排序算法按照从大到小的顺序进行排序定义数组score,
7、下界为1, 上界为 10,数据类型为Single Dim (1) score(1 To 10) As SingleFunction f()i为排序的次数，应该排序9次，为i添加初值和终值For i =(2) 1 To 9Min = score(i): m = ij为每次排序的数的范围，应从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
8、(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)
9、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折。Private sub command1_click() X=val(text1.text)If x=1000 then(1) Y=0.7*xElseif
10、(2) then x=800Y=0.8*xElseif x=500 then (3) Y=0.9*xElseY=xEnd ifText2.text=yEnd sub13、十进制转化成二进制问题：将一个十进制数转化为二进制数。Function func(x)Dim bin(32),j,strStr=”j=0do while (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、水仙花数问题：水仙花数是满足下面条件的一组三位的正整数，它们满足条件
11、：每一位上数字的立方之和恰好等于它自己。例如：153就是一个水仙花数，13+53+33=153，请找出所有的水仙花数及个数。参考程序代码如下：方法一：Private Sub Command1_Click()Dim sum As IntegerDim i, a, b, c As IntegerList1.ClearSum=0For 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)
12、 sum = sum + 1 统计个数End IfNext iLabel1.Caption = 个数： + Str(sum)End Sub方法二：Private Sub Command1_Click()Dim sum As IntegerDim i, j, k As IntegerList1.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 Then 是否满足条件List1.AddItem (Str(100 * i + 10 * j
13、+ k)sum = sum + 1 统计个数End IfNext kNext 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 Then fib = 1 已知第1 项、第2项均为1Elsefib = fib(n-1)+fib(n -2) 计算公式，fib(n)=fib(n-1)+fib(n-2)End If 要求fib(n-1) 和fi
