历年vb题目整理带答案

1、组中得位置,否则,输出“不在数组中” 。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顺序查找单词,数组下

2、标增i = (4)判断数组元素就是否为单词If (5) Then 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)1、算法描述:求得1100 注:请不要更改原程序结构Functionfunc

3、()(1) i As Integer func = (2)For i = 2 To 100 Stepfunc = func + i Next iEnd Function2、操作要求:顺序查找单词“输入10个不同得单词给数组之间所有偶数得与,删除(1)、(2)(3),并在对应位置填写正确得代码(3)dim0name”,查找单词name”就是否在数组中;如果在,输出单词在数1,在赋值号右侧添加表达式i+1name,在if语句后添加判断条件d(i) = nameage = age +(1)1Stu =(2) + age -25Loopfunc = age End Function Sub Mai n

4、()If mand = assess Then Open in、txt For Input As #1 Line Input #1, n Close #1Open out、txt For Out put As #1 Print #1, func(n) Close #1Else请完善大学生数n得输入语句(3) = Inpu tBox(请输入大学生数n:, Input) MsgBox func(n)End IfEnd Sub4、 操作要求：设计一个VB学习指导程序得窗口运行界面，界面设计如下图。要求(1)打开工程1、vbp”，设置窗体Form1属性值：将该窗体标题命名为“VB学习指导”；(2)添加

5、一个标签控件Label1,并设置如下属性值：该控件填充内容“VB学习指导”；字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第 对标签控件Label2(请输入口令:),设置如下属性值：根据字体大小自动调整；(4)添加一个文本框控件Text1,并设置如下属性值：文本框高度为650,宽度为2215;文本框内容为空；(5)添加一个命令按钮Option2,并设置如下属性值：将该按钮标题命名为“退出”；字体为黑体，字号为四号；按钮宽度1575,高度735;(5)保存并提交。5、 操作要求：打开y得值(当x0Function fun c(x)If x =0时,y=4x+1)。如：输入-2后,输出结果

6、:5、abs(3*x+1)4*x+16、操作要求:打开“ 工程1、vbp”补充完成程序并保存！该程序得功能就是:从键盘上输入两个数a与b,比较a与b得大小,并输出较小得数。Function func(a, b)If (1) Thenfunc = aElseIf (2) Thenfunc = bElsefunc = 两数相等End IfEnd IfEnd Function7、操作要求：输入a、b、c得值,判断一元二次方程axA2+bx+c=0就是否有解,如果无解则输出“无解”,如果两个解相同则输出“两解相同”,否则输出“两解不同”。Function f(a, b, c) 请完成其它得判断语句If

7、 b * b - 4 * a * c 0 Then f =If b * b - 4 * a * c = 0 Then(2)End FunctionSub Main()If mand = 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(b = InputBox(工程1、vbp”补充完成程序并保存！该程序得功能就a

8、b两解不同无解(1)f=两解相同If b * b - 4 * a * c 0 Then f =请输入a, Input)请输入b, Input) 请完成变量c得输入语句(3)c = InputBox(MsgBox f(a, b, c)End IfEnd Sub8、操作要求:打开“ 是:求实数x得绝对值。Function func(x)If x = 0(1) thenfunc = xElsefunc =(2) -x请输入c, Input)利用选择排序算法按照从大到小得顺序进行排序定义数组score,下界为1,上界为10,数据类型为SingleDim (1)score(1 To 10) As Si

9、ngleFunction 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 The n Min = score(j)： m = jNext j以k为中间变量，编写交换score(i)与score(m)得语句k = score(i)score(i) = score(m)(4)score(m) = kNext ist =排序后得数列为:(3)end ifEnd Function

10、9、 操作要求：打开“ 计算N!得值并在窗体上打印出结果Function func(n)Dim i As In teger(1)For i = 1 To (2)func = func * i 计算N!Next iEnd Function10、 操作题：提示信息”界面设计，如下图所示，要求(1)打开“C:工程1、Vbp”对窗体Form1设置如下属性值：窗体标题为提示信息”； 背景色为调色板第1行第7列。(2)添加一个标签控件Label,并设置如下属性值：标签标题为 要继续吗？ ”注：？“”为中文标点符号);标签高度为495,宽度为1935;字体为楷体_GB2312,字形为常规，字号为三号，字体颜

11、色为调色板第5行第8列,背景类型为0。(3)添加一个按钮控件mandButton,并设置如下属性值：按钮标题为否”； 字号为小四。(4)保存并提交。11、 操作要求：输入10位同学得英语成绩存放在数组行排序。算法描述：输入10位同学得英语成绩存放在数组func=1工程1、vbp”进行以下操作后并保存！填空完成程序,如输入：3,则输出:6。(注:N!=1 X2 X-XN)score中,利用选择排序算法按照从大到小得顺序进score中XIFor i = 1 To 10 st = st + Str(score(i) + Next if = stEnd FunctionSub Main()Dim i

12、As Integer, m As Integer, k As Integer, j As IntegerDim st As StringIf mand = assess ThenOpen in、txt For Input As #1 Dim x As String For 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) = InputBo

13、x(请输入第 & i & 个数据) Next iMsgBox f()End IfElseY=xEnd if Text2、End sub 13、十进制转化成二进制问题:将一个十进制数转化为二进制数。Functionfunc(x)Dimbin(32),j,strStr=”j=0End Sub12、 购物问题:购物满1000元,打7折,800到1000元,打8折,500到800元,打9折。mand1_click()、text)thenPrivate subX=val(text1If x=1000(1) ElseifY=0 Elseif(2) then、8*xx=500 then (3

14、)Y=0、7*xx=800Y=0、9*xscore(i)text=ydo while (x0) bin(j)= (1)(2) j=j+1 loop do while(j0) str=str&bin(j-1) j= (3)loop func=str end function14、水仙花数问题:水仙花数就是满足下面条件得一组三位得正整数,它们满足条件:每一位上数字得立方之与恰好等于它自己。例如:153就就是一个水仙花数,13+53+33=153,请 找出所有得水仙花数及个数。参考程序代码如下:方法一:Private Sub mand1_Click() Dim sum As Integer

15、Dim i, a, b, c As Integer List1、Clear Sum=0 For i = 100 To999求得百位上得数字求得十位上得数字求得个位上得数字判断就是否满足条件List1、AddItem (Str(i)sum = sum + 1统计个数End IfNext iLabel1End Sub方法二:PrivateSubmand1_Click()Dim sum As IntegerDim i, j, k As Integer List1、ClearSum=0For i = 1 To 9For j = 0 To 9For k = 0 To 9If i A 3 + j A 3

16、+ k A 3= 100 * i + 10 * j + k ThenList1、AddItem (Str(100 * i + 10 * j + k)sum = sum + 1统计个数End IfNext kx mod 2x=x2j-1a = i 100b = i 10 Mod 10c = i Mod 10If a A 3 + b A 3 + c A 3 = i Then、Caption = 个数: + Str(sum)百位数十位数个位数就是否满足条件Next jNext iLabel1、Caption =个数:+ Str(sum)End Sub15、用递归算法来计算斐波那契数列1,1,2,3,

17、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 In teger) As LongIf n = 1 or n=2 The nfib = 1Elsefib = fib( n-1)+fib (n -2)End IfEnd Function也可以用如下代码来完成Function fib( n As In teger) As LongIf n = 1 or n=2 The n fib = 1If n2 the n fib =