《填空题.docVIP

二、填空题（题数：2道，共：10分，得分：0.0分） 1、(选修)下面程序代码结构包含了循环结构和_______结构，程序最终结果是s等于_______，t等于______。 PrivateSubCommand1_Click() Dimt,sAsInteger t=0 s=0 DoUntilt10 IftMod3=0Then s=s+t EndIf t=t+2 Loop Prints,t EndSub 系统答案：选择，6，12 //三种程序结构：顺序结构、选择结构、循环结构 2、(选修) 数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。 系统答案：sqr，a*a$%$a^2，abs 二、填空题（题数：2道，共：10分，得分：0.0分） 1、(选修)有如下VB程序： PrivateSubform_load() n=InputBox(请输入一个正整数：,输入) s=1 Fori=1Ton s=s*i Nexti MsgBoxn+!+=+Str(s),0,阶乘计算 EndSub 当n=4时，程序运行后输出的结果是___________________。 系统答案：24$%$4!=24 //str()函数将数值型转换为字符串型，+号此处表示字符串的连接，所以需要数据类型转换。 2、(选修)下图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整： 注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“aorb”表达式中的空格要保留。 系统答案：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项的值。请将程序补充完整！ PrivateSubCommand1_Click() DimsAsInteger s=______①_______ //fib()函数的调用，格式函数名（参数）即fib(10) Prints=;s EndSub PublicFunctionfib(nAsInteger)AsInteger //子函数的定义，实现算法功能 If(n=1)Or(n=2)Then fib=_______②______ //前两项为1 Else fib=_______③______ //从第三项开始后一项是前两项的和 EndIf EndFunction 系统答案：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”的形式，但形如“aorb”表达式中的空格要保留。 系统答案：SMOD5，Y，N 二、填空题（题数：2道，共：10分，得分：0.0分） 1、(选修)下面是一段VisualBasic程序： PrivateSubCommand1_Click() Dims,iAsInteger i=1 DoUntili11 i=i+2 s=3*i+6 Loop Prints EndSub 该程序运行后，语句“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程序段： PrivateSubform_load() n=InputBox(请输入m的值：,输入) s=0 Fori=1Ton s=s+i Nexti MsgB