2022年VB填空题.pdf

VB填空题填空题一 (题数 :2 道,共:10 分,得分 :0、0 分) 1、 (选修 )下面程序代码结构包含了循环结构与_结构 ,程序最终结果就是s 等于_,t 等于 _。PrivateSubCommand1_Click() Dim t,s As Integer t=0 s=0 Do Until t10 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$%$a2,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 用于累加求与,请将其补充完整 : 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 10 页 - - - - - - - - - - VB填空题注:表达式中多余的空格不要保留,例如 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) Prints=;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”) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 10 页 - - - - - - - - - - VB填空题注:表达式中多余的空格不要保留,例如 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 i11 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,Max$%$Max=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 high=80$%$80=60$%$60=S 填空题十 (题数 :2 道,共:10 分,得分 :0、0 分) 1、(选修 )有一组数列 :19251166545,如果按照选择排序法将其按从小到大的顺序排列,第二次交换后得到的数列应为_、_、_、_、 _、_。系统答案 :6,11,25,19,65,45 /考察选择排序法思想,每次拿第一个数与后面的数比较,循环一次的结果就是第一数与后面精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 10 页 - - - - - - - - - - VB填空题最小的数交换。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$%$0 x,Abs(x),Text2 、text=y$%$Text2 、text=Str(y) 填空十一1、(选修 )下图就是关于计算变量S 的算法流程图 ,请问变量S 在每一次循环以后的值分别就是: (1)、_;(2)、_;(3)、_;(4)、_;(5)、_。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 10 页 - - - - - - - - - - VB填空题系统答案 :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 _ Print2*4*6*8* *20=&sEnd 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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 10 页 - - - - - - - - - - VB填空题/典型的两个数进行交换的方法,引入第三个变量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)Min Then Min=D(j):m=j /如果这个数比第i 个数小。就与第i 个数交换Next 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+ +ns=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) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 10 页 - - - - - - - - - - VB填空题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/32+1 的运行结果就是 ,279 Mod 2的运行结果就是。 ( ) 系统答案 :5,1 2、( 选修) 在VB 中, 表达式 Print Right(Welcome to China, 5)的结果就是 “” 。 ( ) 系统答案 :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/32+1 的运行结果就是 ,279 Mod 2的运行结果就是。 ( ) 系统答案 :5,1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 10 页 - - - - - - - - - -