VB填空题

V B填空题(共11页) -本页仅作为预览文档封面，使用时请删除本页-填空题一（题数：2道，共：10分，得分：分）1、(选修)下面程序代码结构包含了循环结构和_______结构，程序最终结果是s等于_______，t等于______。

PrivateSubCommand1_Click()Dim t,s As Integert=0s=0Do Until t>10If t Mod 3=0Thens=s+tEnd Ift=t+2LoopPrint s,tEnd Sub系统答案：选择，6，12//三种程序结构：顺序结构、选择结构、循环结构2、(选修)数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。

系统答案：sqr，a*a$%$a^2，abs填空题二（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序：Private Sub form_load()n=InputBox("请输入一个正整数：","输入")s=1For i=1To ns=s*iNext iMsgBox n+"!"+"="+Str(s),0,"阶乘计算"End Sub当n=4时，程序运行后输出的结果是___________________。

系统答案：24$%$4!=24//str()函数将数值型转换为字符串型，+号此处表示字符串的连接，所以需要数据类型转换。

2、(选修)下图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整：注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：SUM=SUM+i$%$SUM=i+SUM，i=i+2$%$i=2+i填空题三（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。

请将程序补充完整！Private Sub Command1_Click()Dim s As Integers=______①_______ //fib()函数的调用，格式函数名（参数）即fib(10) Print"s=";sEnd SubPublic Function fib(n As Integer) As Integer //子函数的定义，实现算法功能If(n=1)Or(n=2)Thenfib=_______②______ //前两项为1Elsefib=_______③______ //从第三项开始后一项是前两项的和End IfEnd Function系统答案：fib(10)，1，fib(n-1)+fib(n-2)$%$fib(n-2)+fib(n-1)2、(选修)下图是判断输入的整数S能否被5整除的算法流程图，变量I用来判断是否可以整除，请将其补充完整。

（第2空和第3空填“Y”或“N”）注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：S MOD 5，Y，N填空题四（题数：2道，共：10分，得分：分）1、(选修)下面是一段Visual Basic程序：PrivateSubCommand1_Click()Dims,i As Integeri=1Do Until i>11i=i+2s=3*i+6LoopPrintsEnd Sub该程序运行后，语句“s=3*i+6”共执行了_______次，运行结果是_______，该程序结构属于_______结构。

系统答案：6$%$六，45，循环//注意循环的次数，根据循环条件来判断2、(选修)将条件“a大于等于10且小于100”转换为相应的VB表达式为：a____10____a____100。

系统答案：>=，and，<填空题五（题数：2道，共：10分，得分：分）1、(选修)现有一个VB表达式为“A=(11+3)Mod6/2-1”，在这个表达式里运算优先级最高的是___________；其次是____________；运行结果A的值是__________。

系统答案：括号$%$()，/$%$除，1//注意运算符的优先级2、(选修)写出判断整数a是否能被3整除且为奇数的VB表达式:a____3=_________a_____2=____；系统答案：Mod，0，And，Mod，1填空题六1、(选修)有如下VB程序段：Private Sub form_load()n=InputBox("请输入m的值：","输入")s=0For i=1To ns=s+iNext iMsgBox "s="+Str(s),0,"计算结果"End Sub当m=6时运行的结果是______。

系统答案：212、(选修)下图是“求三个不相等的数中的最大数”的流程图，请补充完整。

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：Max=a，c>Max$%$Max<c填空题七（题数：2道，共：10分，得分：分）1、(选修)VB标准函数Rnd(x)的作用是返回一个大于等于0且小于1的随机实数，那么产生大于等于10且小于50的随机整数的VB表达式是“_____(Rnd*40+____)”。

系统答案：Int，102、(选修)将十进制数21和32分别转化为二进制数是_____和______。

系统答案：10101$%$(10101)2，100000$%$(100000)2//十进制与2相除，直到余数为1 ，注意画图填空题八（题数：2道，共：10分，得分：分）1、(选修)如下所示的VB程序，运行时在Text1、Text2、Text3中分别输入10、8、3三个数，请问Text4输出结果应为多少PrivateSubCommand1_Click()Dim a As SingleDim b As SingleDim c As Singlea=Valb=Valc=Valm=(a+b)*(a-b)/(2*a*c)=mEnd SubText4输出结果为：_____系统答案：2、(选修)下面是二分查找算法的函数定义，阅读后填空！说明：S()为存储要查询数据的数组，p为要查找的数。

Function find(p As Integer) As IntegerDim high As Integer, mid As Integer, low As Integerlow=1high=nDo While(high>=low)mid=(low+high)/2……………………① //求中间值If S(mid)=p ThenExit DoElseIf S(mid)>p Thenhigh=mid+1……………………②//如果查找的值比中间值小，那么中间值之后的数舍去Else //（包括中间值），最大值为中间值前一个数，所以high=mid-1low=mid-1……………………③//如果查找的值比中间值大，那么中间值之后的数舍去End If //（包括中间值），最小值为中间值后一个数，所以low=mid+1End IfLoopIf high<low Thenfind=0…………………④ //表示查找完毕，没有找到Elsefind=mid……………………⑤//表示查找完毕，找到并把值赋给变量findEnd IfEnd Function用数字序号标出的代码中有两处错误的地方，分别是______和_______。

正确的代码应该是_____________和____________。

（前两空填入数字即可，小数填在前面，大数填在后面；后两空的顺序要与前两空的顺序一致）系统答案：2，3，high=mid-1，low=mid+1//典型的二分法查找思想填空题九（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序段：Private Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm=Valn=Vala=mm=nn=a=m=nEnd Sub运行后在文本框Text1、Text2中分别输入21、78，则Text3输出结果为：_____，Text4输出结果为：_____。

系统答案：78，212、(选修)依照某高校规定，总成绩在80分(包含80分)以上的属于优秀学生，60分（包含60分）至80分的属于良好学生，低于60分的属于一般学生。

请根据以上描述把流程图补充完整。

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：S>=80$%$80<=S，S>=60$%$60<=S填空题十（题数：2道，共：10分，得分：分）1、(选修)有一组数列：，如果按照选择排序法将其按从小到大的顺序排列，第二次交换后得到的数列应为____、____、____、____、____、____。

系统答案：6，11，25，19，65，45//考察选择排序法思想，每次拿第一个数和后面的数比较，循环一次的结果是第一数与后面最小的数交换。

2、(选修)在窗体上有一个命令按钮（Command1）和2个文本框（Text1和Text2），然后编写了如下事件过程，要求：在文本框Text1中输入一个数值x，根据下面的分段函数计算y的结果，并将y值显示在文本框Text2中。

请将实现以上功能的程序补充完整：Private Sub Command1_Cick()x=ValIf___①___Theny=x*x+2*x+1Else If x=0 Theny=0Else If x <0 Theny=__②____End If______③______End Sub注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：x>0$%$0<x，Abs(x)，=y$%$=Str(y)填空十一1、(选修)下图是关于计算变量S的算法流程图，请问变量S在每一次循环以后的值分别是：（1）、_______；（2）、______；（3）、______；（4）、______；（5）、______。