VB考试试题填空题

PrivateSubCommand1_Click() Dim t,s As Integer t=0 s=0

Do Until t>10

If t Mod 3=0Then s=s+t End If t=t+2 Loop Print s,t End Sub

系统答案：选择，6，12

//三种程序结构：顺序结构、选择结构、循环结构

2、(选修)

数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。 系统答案：sqr，a*a$%$a^2，abs

填空题二（题数：2道，共：10分，得分：0.0分） 1、(选修)有如下VB程序： Private Sub form_load()

n=InputBox(\"请输入一个正整数：\输入\") s=1

For i=1To n s=s*i Next i

MsgBox 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分，得分：0.0分）

1、(选修)有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。请将程序补充完整！ Private Sub Command1_Click() Dim s As Integer

s=______①_______ //fib()函数的调用，格式函数名（参数）即fib(10) Print\"s=\";s End Sub

Public Function fib(n As Integer) As Integer //子函数的定义，实现算法功能 If(n=1)Or(n=2)Then

fib=_______②______ //前两项为1 Else

fib=_______③______ //从第三项开始后一项是前两项的和 End If

End 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分，得分：0.0分） 1、(选修)下面是一段Visual Basic程序： PrivateSubCommand1_Click() Dims,i As Integer i=1

Do Until i>11 i=i+2 s=3*i+6 Loop Prints End Sub

该程序运行后，语句“s=3*i+6”共执行了_______次，运行结果是_______，该程序结构属于_______结构。

系统答案：6$%$六，45，循环

//注意循环的次数，根据循环条件来判断

2、(选修)将条件“a大于等于10且小于100”转换为相应的VB表达式为：a____10____a____100。 系统答案：>=，and，<

填空题五（题数：2道，共：10分，得分：0.0分） 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=0

For i=1To n s=s+i Next i

MsgBox \"s=\"+Str(s),0,\"计算结果\" End Sub

当m=6时运行的结果是______。 系统答案：21

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

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。 系统答案 ：Max=a，c>Max$%$Max填空题七（题数：2道，共：10分，得分：0.0分）

1、(选修)VB标准函数Rnd(x)的作用是返回一个大于等于0且小于1的随机实数，那么产生大于等于10且小于50的随机整数的VB表达式是“_____(Rnd*40+____)”。 系统答案：Int，10

2、(选修)将十进制数21和32分别转化为二进制数是_____和______。 系统答案：10101$%$(10101)2，100000$%$(100000)2 //十进制与2相除，直到余数为1 ，注意画图

填空题八（题数：2道，共：10分，得分：0.0分）

1、(选修)如下所示的VB程序，运行时在Text1、Text2、Text3中分别输入10、8、3三个数，请问Text4输出结果应为多少？ PrivateSubCommand1_Click() Dim a As Single Dim b As Single Dim c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) m=(a+b)*(a-b)/(2*a*c) Text4.Text=m End Sub

Text4输出结果为：_____ 系统答案：0.6

2、(选修)下面是二分查找算法的函数定义，阅读后填空！ 说明：S()为存储要查询数据的数组，p为要查找的数。 Function find(p As Integer) As Integer

Dim high As Integer, mid As Integer, low As Integer low=1 high=n

Do While(high>=low)

mid=(low+high)/2……………………① //求中间值 If S(mid)=p Then Exit Do Else

If S(mid)>p Then

high=mid+1……………………② //如果查找的值比中间值小，那么中间值之后的数舍去 Else //（包括中间值），最大值为中间值前一个数，所以high=mid-1

low=mid-1……………………③ //如果查找的值比中间值大，那么中间值之后的数舍去 End If //（包括中间值），最小值为中间值后一个数，所以low=mid+1 End If Loop

If highfind=0…………………④ //表示查找完毕，没有找到 Else

find=mid……………………⑤ //表示查找完毕，找到并把值赋给变量find End If

End Function

用数字序号标出的代码中有两处错误的地方，分别是______和_______。正确的代码应该是_____________和____________。（前两空填入数字即可，小

数填在前面，大数填在后面；后两空的顺序要与前两空的顺序一致） 系统答案：2，3，high=mid-1，low=mid+1 //典型的二分法查找思想

填空题九（题数：2道，共：10分，得分：0.0分） 1、(选修)有如下VB程序段： Private Sub Command1_Click()

Dim m As Integer, n As Integer, a As Integer m=Val(Text1.Text) n=Val(Text2.Text) a=m m=n n=a

Text3.Text=m Text4.Text=n End Sub

运行后在文本框Text1、Text2中分别输入21、78，则Text3输出结果为：_____，Text4输出结果为：_____。 系统答案：78，21

2、(选修)依照某高校规定，总成绩在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分，得分：0.0分）

1、(选修)有一组数列：192511665，如果按照选择排序法将其按从小到大的顺序排列，第二次交换后得到的数列应为____、____、____、____、____、____。 系统答案：6，11，25，19，65，45

//考察选择排序法思想，每次拿第一个数和后面的数比较，循环一次的结果是第一数与后面最小的数交换。

2、(选修)在窗体上有一个命令按钮（Command1）和2个文本框（Text1和Text2），然后编写了如下事件过程，要求：在文本框Text1中输入一个数值x，

根据下面的分段函数计算y的结果，并将y值显示在文本框Text2中。

请将实现以上功能的程序补充完整： Private Sub Command1_Cick() x=Val(Text1.Text) If___①___Then y=x*x+2*x+1 Else If x=0 Then y=0

Else If x <0 Then

y=__②____ End If

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

系统答案：x>0$%$0填空十一

1、(选修)下图是关于计算变量S的算法流程图，请问变量S在每一次循环以后的值分别是： （1）、_______；（2）、______；（3）、______；（4）、______；（5）、______。

系统答案：1，2，6，24，120

2、(选修)本程序的功能是计算2*4*6*8*……*20，请填空。 PrivateSubCommand1_Click() Dim s As Double Dim i As Double s=1

For i=__①__To 20 Step__②___ s=s*i __③__

Print\"2*4*6*8*……*20=\"&s End Sub

系统答案：2，2，Nexti$%$Next

//注意for循环的初始值和步长，因为是偶数的积，所以初始值为2，步长为2

填空题十二（题数：2道，共：10分，得分：0.0分）

1、(选修)请将以下VB程序补充完整，以实现将m、n两个变量的值互换。 Dim m As Integer Dim n As Integer Dim i As Integer m=Val(text1.Text) n=Val(text2.Text) ______________ m=n

______________ 系统答案：i=m，n=i

//典型的两个数进行交换的方法，引入第三个变量

2、(选修)请补充完成程序，使程序实现功能：将输入的数据使用选择排序算法排序后输出。 Private Sub Form_Click() Dim D(100) As Single

n=Val(inputbox(\"请输入数据的总数量\")) For i=1To n

D(i)=Val(inputbox(\"请输入第\"&i&\"个数据\")) Next i

For i=1To__①__ //该循环控制循环的次数 Min=D(i):m=i

For j=i+1To n //从第i+1个数开始依次和第i个数比较

If D(j)k=D(i):__②___:D(m)=k //两个数交换 Next i

For i=1Ton

Print D(i) //将排序后的数输出 Next i End Sub 注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“aorb”表达式中的空格要保留。 系统答案：n-1，D(i)=Min$%$D(i)=D(m)

//考察选择法排序思想，循环的次数为n-1次，此处冒号表示换行

填空题十三（题数：2道，共：10分，得分：0.0分） 1、(选修)

有如下VB程序段：

Private Sub form_load()

n=InputBox(\"请输入m的值：\输入\") //接收外部输入的数值 s=0

For i=1To n //实现功能1+2+3+……+n s=s+i Next i

MsgBox \"s=\"+Str(s),0,\"计算结果\" End Sub

当m=6时运行的结果是______。 系统答案：21

2、(选修)如下所示的VB程序，运行时在Text1、Text2、Text3中分别输入10、8、3三个数，请问Text4输出结果应为多少？ PrivateSubCommand1_Click() Dim a As Single Dim b As Single Dim c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) m=(a+b)*(a-b)/(2*a*c) Text4.Text=m End Sub

Text4输出结果为：_____ 系统答案：0.6

填空题（题数：2道，共：10.0分，得分：0.0分）

1、(选修)有如下VB程序运行后，语句s = s + i共执行了_____次，i的值是_____。 Private Sub Command1_Click() s = 0

For i = 0 To 10 Step 3 s = s + i Next i End Sub (×)

系统答案：4，12

2、(选修)条件语句中的条件 Not 10 Mod 2 <> 0 的逻辑值是 （填写False或True）。 (×)

系统答案：True

二、填空题（题数：2道，共：10.0分，得分：0.0分）

1、(选修)表达式36/3^2+1的运行结果是 ，27\\9 Mod 2的运行结果是 。 (×)

系统答案：5，1

2、(选修)在VB中，表达式Print Right(\"Welcome to China\的结果是“ ”。 (×)

系统答案：China

二、填空题（题数：2道，共：10.0分，得分：0.0分）

1、(选修)在如下VB程序段中，循环体循环次数为_____，m的值为_____。 m = -6

Do While m <= 0 n = m + 1 m = m + 2 Loop (×)

系统答案：4，2

2、(选修)表达式36/3^2+1的运行结果是 (×)

系统答案：5，1

27\\9 Mod 2的运行结果是 ，。