算法与程序设计填空题10套
高中信息技术学业水平考试算法与程序设计题、填空题、分析题小抄版含答案
一、解决问题有解析法、穷举法、递归法、冒泡排序法，根据问题选择选择合适的算法。
1. 列举所有可能的情况，逐个判断有哪些是符合问题所需要的条件，从而是得到问题的解答，这是 穷举法 的思路。
2. 一个玻璃球从高处到自由落体运动。
在达到地面时，速度为98m/s ，请问玻璃求从高处开始下落地面用多长时间？ 解析法 3、水仙花数是一个三位数，其各位立方和等于该数本身，如153=1*1*1+5*5*5+3*3*3选择的算法是 穷举法4、一张单据上有一个5位数的号码67__ __8，其中百位和十位的数字看不清楚了，但知道该数能够被78整除，也能被67整除，设计一个算法求出该号码。
穷举法5.已知：f (1)=1 f (2)=3 当n>2时：F(n)=2f (n -1)+3f (n-2)编程求f (100)的值。
答案：递归法6.求解“百鸡问题”已知公鸡每只3元，母鸡每只5元，每3只小鸡1元，用100元买100只鸡，问每种鸡应各买多少？ 答案：穷举法___7.国内特快专递每200g 为一个为一个计费单位。
200g 以内20元，200g 以上每续200g （不足200g 按200g 计算16元，现在要编写一个程序输入包裹自动计算出价格。
答案：解析法8.动员成绩进行公布现在要编写一个程序自动完成编排,请问最好采用哪种答案：冒泡排序法二、分析程序写出运行结果或补全程序。
1. Dim a as integer ,b as interge a=1:b=0Do while a<=3 a=a+1 b=b+a*a Loop Print a ,b4 29 2、Dim ch As String , i As Integer ch=”abc ” i=1Do while i<=3Ch=ch&Right(“DEF ”,i) i=i+2 Loop Print ch End sub运行结果是： abcFD 3、 S=0 I=1For I=1 to 4 S=s+i^2 Next i Print “s=”;s运行结果是： s=30 4、Private sub command 1_click() S=0For i=1 to 3 s=s+2*i next iprint “s=”;s End sub运行结果是 s=125、dim s as integer, I as integer S=0 For I = 1 to 10 step 2 S=s+i Next iPrint “s=”;s运行的结果是： s=2561/49的值For i =1 to 49 step 2 S= S+1/i Next i7、计算1+3+5+7+……+99的值 Dim I ,s as integer S=0For I = 1 to 50 S=s+(2*i-1)Next I 8、已知Ｓ=1+2+3+…+N ，找出一个最大的整数Ｎ，使得Ｓ<300. Private Sub S=0 N=0Do while S<300 N=N+1 S=S+N Loop End sub 9、Private Sub Form-Activate ( )Dim I ,S As Integer S=1For I=1 to 4 S=S*IPrint “S=”; S End Sub运行结果: S=2410、Private Sub Form-Activate ( )Dim I Integer ,S As IntegerFor I =2 To 6 S=S+I Next I Print “S=”; S运行结果: S=20 11、Private Sub Form-Load Dim X As Integer, Y AS Integer Text1.Text=” ” X=99 Y=98 M=X If X<Y then M=Y Text1.caption=MEnd Sub运行结果： 9912、Private Sub Form-Activate ( )Dim a b c As Integer a=15 b=60 c=38If a<b then m=a else m=b If m>c then m=c Print “M=” m End Sub运行结果 : M=15 13、计算1+3+5+……+99的值 Private Sub Form-Activate ( )Dim I ,S As Integer S=0For I=1 To 99 step 2S= S+I Print “S=” S End Sub 14、计算1+1/2+…………+1/50的值 Private Sub Form-Activate ( )Dim I ,S As Integer S=0For I=1 to 50 S= S+1/I Print “S=” ; S End Sub15、实现函数：Y=︱X ︱Private Sub Form-Activate ( )Dim X as Integer , Y as single IntegerText1.text=” ” X =Inputer(“X =?”)If X>=0 then ElseY=―X End ifText1.text=Y End Sub16.Private Sub Form_Activate( ) Dim i As Integer , sum As Integersum=0For i =1 To 100 sum=sum+2 Next iPrint “sum=” ; sum End Sub该程序的输出结果是： sum=200 17、写程序结果 Text2=“34”a=(val (Text2)-32)*5/2 print a答案：_5____ 18、完善程序：打印如下图形。
《算法与程序设计》试题带答案
12、在调试程序的时候，经常要设置断点，设置断点的快捷键是（）高一第二学期《算法与程序设计》学分认定试题A、F1B、F8C、F9D、F1213、算法描述可以有多种表达方法，下面哪些方法不可以描述“闰年问题”的算法（）学校：_____________ 班级：____________ 学号：____________ 姓名：____________ A、自然语言B、流程图C、伪代码D、机器语言14、以下不属于非法用户自定义标识符（常量和变量命名）的是（）一、单选题（每小题 3 分，20 小题，共60 分）A、8adB、ad8C、_a8dD、const1、用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于15、已知A，B，C，D 是整型变量，且都已有互不相同的值，执行语句B=0；A=C ；D=A ；D=B ；后，其值相等的用计算机解决问题的哪一个步骤？（）变量是（）A、分析问题B、设计算法C、编写程序D、调试程序A、A，DB、A，CC、C，BD、B，A2、在调试程序过程中，下列哪一种错误是计算机检查不出来的？（）16、要交换变量 A 和B 的值，应使用的语句组是( )A、编译错误B、执行错误C、逻辑错误D、任何错误计算机都能检查出来A、A=B ；B=C；C=AB、C=A ；A=B ；B=C3、下列关于算法的叙述中，错误的是（）C、A=B ；B=AD、C=A ；B=A ；B=CA、一个算法至少有一个输入和一个输出17、Visual Basic 中以单引号开头一行文字称为注释，它对程序的运行（）B、算法的每一个步骤必须确切地定义A、起一定作用 B 、有时候起作用C、一个算法在执行有穷步之后必须结束C、不起任何作用，但是必须的D、不起任何作用，但能增加程序的可阅读性D、算法中有待执行的运算和操作必须是相当基本的。
18、要使一个命令按钮显示文字“确定”，正确的设置是把该命令按钮的（）。
《算法与程序设计》模块练习题
一、单选题：1．计算机程序的三种结构是顺序结构、、选择结构。
A．模块结构B．循环结构C．多重循环结构D．块IF结构2．在VB应用程序设计中，通常应对编写程序代码。
A．所有对象B．窗体C．Timer D．有事件的对象3．在VB程序设计中，事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
下列选项哪个是VB中的事件A．Caption B．Click C．Text D．Font4．在面向对象程序设计中，用来描述对象的特征信息。
A．事件B．方法C．代码D．属性5．下列选项哪个是VB中的属性A．Label B．TextBoxC．CommandButton D．.Left6．将字符A输出在标签Label1上的方法是。
A、Label1.Caption=AB、Label1.Caption=”A”C、Label1.Text=”A”D、Label1.Text=A7．下列过程中，是程序开始运行时，窗体一加载就运行的程序段。
A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress8．下列句子中，不是赋值语句。
A．A=”123” +”456”B．Label1.Captin=”你好！”C．r=Val(Text1.Text) D．x+1=y9．的Visual Basic表达式是。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a10．生成一个[1,6]范围的随机整数的表达式是。
A．Rnd * 6+ 1 B．Fix (Rnd * 6 ) + 1C．Fix (Rnd * 5 ) - 1 D．Fix (Rnd * 5 )11．下面有关程序的说法，错误的是_ ___ __。
A．程序是计算机要执行的指令的集合B．程序是用计算机语言编写的C．编写程序时为了防止别人盗取，要用只有自己知道的代码编写D．程序设计通常包括分析问题、设计算法、编写程序、调试运行与检测结果的过程12．在VB系统中，代表内存单元，是命了名的存储空间。
算法测试题及答案
算法测试题及答案一、选择题1. 以下哪个选项不是排序算法？A. 冒泡排序B. 选择排序C. 快速排序D. 深度优先搜索答案：D2. 在二叉树中，深度为5的节点最多有多少个？A. 16B. 32C. 64D. 31答案：D二、填空题1. 递归算法的基本思想是 _ ，即把问题分解成相同但规模更小的问题。
答案：分而治之2. 动态规划与分治法的不同之处在于动态规划会 _ ，而分治法则不会。
答案：存储子问题的解三、简答题1. 请简述什么是贪心算法，并给出一个例子。
答案：贪心算法是一种在每一步选择中都采取在当前状态下最好或最优的选择，从而希望导致结果是全局最好或最优的算法策略。
例如，活动选择问题，给定一系列活动，每个活动都有一个开始时间和结束时间，贪心算法会按照结束时间的早晚来选择活动，从而最大化参与活动的数量。
2. 描述快速排序算法的基本思想。
答案：快速排序算法是一种分治策略，基本思想是选择一个元素作为“基准”（pivot），然后将数组分为两个子数组，一个包含所有小于基准的元素，另一个包含所有大于基准的元素。
这个过程称为分区（partitioning）。
之后，递归地将分区过程应用到两个子数组上，直到每个子数组只有一个元素或为空。
四、计算题1. 给定一个数组 [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5]，请使用快速排序算法对其进行排序，并给出排序后的数组。
答案：使用快速排序算法对给定数组进行排序后，得到的数组为 [1, 1, 2, 3, 3, 4, 5, 5, 5, 6, 9]。
2. 假设有一个二叉搜索树，其根节点的值为10，现在要删除值为5的节点，请描述删除过程。
答案：删除二叉搜索树中的节点分为三种情况：- 情况1：要删除的节点没有子节点，直接删除该节点。
- 情况2：要删除的节点只有一个子节点，用其子节点替换该节点。
- 情况3：要删除的节点有两个子节点，找到该节点的直接前驱或直接后继，用其值替换要删除的节点，然后删除直接前驱或直接后继。
算法与程序设计填空题10套
第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (1)False或0 。
2. 有如下程序段：x=5y=10z=12if x+y<=z Or y+z<=x Or x+z<=y then a=" False" else a=" True"该程序段运行后，a 的值为(1)True 。
3. 有如下程序段：s=0for i=1 to 5s=s+i*inext i该程序段运行后，s的值为(1) 55 。
4. 程序填空随机产生10个0～100之间的整数，按从小到大的次序排序并输出。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。
图12-3sub command1_click()const n=10dim i,j,t as integerdim a(1 to 10) as integerfor i=1 to 10______(1)__a(i)=int(Rnd*101)________ next iFor i = 1 To n - 1For j = i+1 To nIf ______(2)_a(i)>a(j)_____ Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFor i = 1 To nList1.AddItem Str(a(i))Next i第二套1.有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为 (1)5 。
2. 有如下程序段：x=5y=-20if not x>0 then x=y-3 else y=x+3该程序段运行后，x 的值为 (1) 5 。
3. 有如下程序段：e=0:f=1for i=1 to 3e=e+ff=f+enext i该程序段运行后，f的值为 (1) 13 。
计算机算法试题(含答案)
算法设计与分析试卷一、填空题(20分，每空2分)1、算法的性质包括输入、输出、_______ 、有限性。
2、动态规划算法的基本思想就将待求问题____________ 、先求解子问题，然后从这些子问题的解得到原问题的解。
3、设计动态规划算法的4个步骤：(1)找出_______ ，并刻画其结构特征。
(2)___________ 。
(3)___________ 。
(4)根据计算最优值得到的信息， _______________ 。
4、流水作业调度问题的johnson算法：(1)令N1 _____ ,N2={i|ai>=bj};(2)将N1中作业依ai的 _______ 。
5、对于流水作业高度问题，必存在一个最优调度n,使得作业n (i) 和n (i+1 ) 满足Johnson 不等式____________ 。
6、最优二叉搜索树即是______ 的二叉搜索树。
二、综合题(50分)1、当(a1,a2,a3,a4,a5,a6) =(-2,11,-4,13,-5,-2)时，最大子段和为刀ak(2v=k<=4) ______ (5 分)2、由流水作业调度问题的最优子结构性质可知，T (N , 0)=___________ (5 分)3、最大子段和问题的简单算法(10分)int maxsum(i nt n ,i nt *a,i nt & bestj){in tsum=0;for (i nt i=1;i<=n ;i++)for (in t j=i;j<=n ;j++)int thissum=0;for(i nt k=i;k<=j;k++) ________if(thissum>sum){sum=thissum;----------------- ?bestj=j;}}return sum;}4、设计最优二叉搜索树问题的动态规划算法OptimalBinarysearchTree? (15 分)Void OptimalB in arysearchTree(i nt a,i nt n ,i nt * * m, int * * w) {for(i nt i=0;i<=n; i++) {w[i+1][i]=a[i]; m[i+1][i]= ______ ;}for(i nt r=0;r <n 丁++)for(int i=1;i<=n-r;i++){int j=i+r;w[i][j]=w[i][j-1]+a[j]+b[j];m[i][j]= ___________ ；s[i][j]=i;for(int k=i+1;k<=j;k++){int t=m[i][k-1]+m[k+1][j];if( ________ ) {m[i][j]=t; s[i][j]=k;}}m[i][j]=t; s[i][j]=k;}}5、设n=4, (a1,a2,a3,a4)=(3,4,8,10), (b1,b2,b3,b4)=(6,2,9,15) 用两种方法求 4 个作业的最优调度方案并计算其最优值？( 15 分)三、简答题( 30 分)1、将所给定序列a[1:n] 分为长度相等的两段a[1:n/2] 和a[n/2+1:n] ，分别求出这两段的最大子段和，则a[1:n] 的最大子段和有哪三种情形？(10 分)答：2、由0——1 背包问题的最优子结构性质，可以对m(i,j )建立怎样的递归式? (10 分)3、0 1 背包求最优值的步骤分为哪几步？( 10 分)参考答案：填空题：确定性分解成若干个子问题最优解的性质递归地定义最优值以自底向上的方式计算出最优值构造最优解{i|ai<bi} ai 的非减序排序；将N2 中作业依bi 的非增序排序min{b nD,a n i+i)} > min{b 頑+i), a no }最小平均查找长度综合题：20 min{ai+T(N-{i},bi)}(1=<i<=n) thissum+=a[k] besti=i 0 m[i+1][j] t<m[i][j] 法一：min(ai,bj)<=min(aj,bi)因为min(a1,b2)<=min(a2,b1)所以 1 — 2 (先 1 后2)min(a1,b3)<=min(a3,b1)先1后3)同理可得：最后为1 —3—4—2法二：johnson 算法思想N1= {1 , 3, 4} N2 = {2}N11 = {1 , 3, 4} N 12= {2} 所以N 11—N12得：1—3—4—2简答题：1、(1) a[1:n]的最大子段和与a[1:n/2]的最大子段和相同。
高中信息技术_算法与程序设计题库（含答案）
⾼中信息技术_算法与程序设计题库（含答案）算法与程序设计会考题库算法与程序设计选择题2、下列属于字符型常量的是A、wordB、北京奥运会C、#2006-11-10#D、"1234"3、函数Abs(-9)返回的值是A、3B、4C、9D、-94、在VB语⾔中，下列正确的赋值语句是A、a + 4 = cB、a = 2 + cC、a + 4 = b – 5D、a / 2 = c * 35、以下程序段执⾏后，整型变量s的值为s = 1For i = 1 To 3s = s * iNext iA、0B、1C、3D、66、在VB语⾔中，下列合法的变量名是A、5566B、a-cC、ab&34D、x17、在VB语⾔中，表⽰“a⼤于5或⼩于0”的正确表达式是C、a > 5 Or a < 0D、a > 0 And a < 58、代数式对应的VB表达式是A、a + b / cdB、(a + b) / c * dC、a + b / (c * d)D、(a + b) / (c * d)9、以下程序段执⾏后，整型变量a的值为a=2b=3b = b + aa = a * bA、3B、5C、6D、1010、代数式对应的VB表达式是A、a + b / c - dB、(a + b) / c – dC、a + b / (c - d)D、(a + b) / (c - d)11、在VB语⾔中，下列正确的赋值语句是A、a + b = cB、a = 9C、a + 2 = b – 3D、a / 2 = c12、在VB语⾔中，下列正确的赋值语句是A、5 = cB、3 a = 5 cC、-c = c – 3D、a=b+c13、下列属于整型常量的是A、2006D、3.1416、下列属于整型常量的是A、123B、59999C、4.5D、"45"17、函数Sqr(9)返回的值是A、1B、3C、4D、1618、代数式对应的VB表达式是A、a + b / 2 * cB、(a + b )/ 2 cC、a + b / (2 * c)D、(a + b) / (2 * c)19、下列逻辑表达式的值为“真”的是A、2 + 4 > 8B、3 + 12 > 15C、5 > 0 And 4 < 3D、10 / 5 < 320、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 5s = s + 1Next iA、0B、1C、5D、1521、下列逻辑表达式的值为“真”的是A、3 < 8 – 6B、12 + 6 = 2 * 922、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 3s = s + iNext iA、0B、1C、3D、623、下列属于整型常量的是A、1997B、⼀千零⼀夜C、"1997"D、ABC24、函数Abs(-4)返回的值是A、1B、2C、4D、-426、下列属于字符型常量的是A、1234B、abcdC、#abc123#D、"2008北京奥运会"27、设置窗体标题时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性28、在VB语⾔中，下列合法的变量名是A、34abB、ab_cC、ab-34a=5b=8b=b+aa=a+bA、5B、8C、13D、1830、下列逻辑表达式的值为“假”的是A、3 + 5 > 10B、4 + 12 <> 15C、4 / 2 = 2D、5 < 2 * 331、若a = 8，b = 5，则运⾏Print a; "-"; b; "="; a - b的结果是A、a -b = 3B、8 - 5 = 3C、a - b = a – bD、332、函数Abs(5)返回的值是A、1B、5C、-5D、2533、下列逻辑表达式的值为“假”的是A、4 + 11 > 20B、3 + 5 > 7C、8 / 4 < 4D、5 > 3 And 3 > 234、若a = 4，b = 5，则运⾏Print a; "+"; b; "="; a + b的结果是A、a + b = 9B、4 + 5 = 9C、a + b = a + bD、9B、a > 12 And a < 0C、a > 12 Or a < 0D、a > 0 And a < 1237、设置窗体背景颜⾊时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性38、以下程序段执⾏后，整型变量a的值为a=3b=5b=b-aa=a+bA、2B、5C、8D、1139、在VB语⾔中，下列正确的赋值语句是A、a + 3 = cB、a = c – 9C、2 * a = 3 * bD、a + b / 2 = c40、在VB语⾔中，下列正确的赋值语句是A、a = a + 1B、3 * a = c - 5C、a + a = 2 * aD、a + 3 = b41、以下程序段执⾏后，整型变量a的值为a = 3b = 5b = b + aa = a + bA、342、在VB语⾔中，下列合法的变量名是A、22aaB、helloC、a*bD、a^243、在VB语⾔中，下列合法的变量名是A、aaB、a*bC、7abD、dim44、在VB语⾔中，下列合法的变量名是A、12aB、ab/cC、ab34D、(ab)45、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 4s = s + iNext iA、0B、4C、5D、1046、以下程序段执⾏后，整型变量a的值为a=5b=8b = b - aa = a - bA、2B、3C、5B、3C、4D、1649、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 4s = s + 1Next iA、0B、1C、4D、5算法与程序设计操作题1、打开“考⽣⽬录VB\134”⽂件夹中的⽂件：“k4.vbp”进⾏以下操作后并保存。
算法设计期末填空题整理
二、填空题1.算法的复杂性有时间复杂性和空间复杂性之分。
2、程序是算法用某种程序设计语言的具体实现。
3、算法的“确定性”指的是组成算法的每条指令是清晰的，无歧义的。
4.矩阵连乘问题的算法可由动态规划设计实现。
5、拉斯维加斯算法找到的解一定是正确解。
6、算法是指解决问题的一种方法或一个过程。
7、从分治法的一般设计模式可以看出，用它设计出的程序一般是递归算法。
8、问题的最优子结构性质是该问题可用动态规划算法或贪心算法求解的关键特征。
9、以深度优先方式系统搜索问题解的算法称为回溯法。
10、数值概率算法常用于数值问题的求解。
11、计算一个算法时间复杂度通常可以计算循环次数、基本操作的频率或计算步。
12、利用概率的性质计算近似值的随机算法是__数值概率算法，运行时以一定的概率得到正确解的随机算法是__蒙特卡罗算法_____________________。
14、解决0/1背包问题可以使用动态规划、回溯法和分支限界法，其中不需要排序的是动态规划，需要排序的是回溯法，分支限界法。
15、使用回溯法进行状态空间树裁剪分支时一般有两个标准：约束条件和目标函数的界，N皇后问题和0/1背包问题正好是两种不同的类型，其中同时使用约束条件和目标函数的界进行裁剪的是0/1背包问题，只使用约束条件进行裁剪的是N皇后问题。
16、贪心选择性质是贪心算法可行的第一个基本要素，也是贪心算法与动态规划算法的主要区别。
17、矩阵连乘问题的算法可由动态规划设计实现。
18、拉斯维加斯算法找到的解一定是正确解。
19.贪心算法的基本要素是贪心选择质和最优子结构性质。
21. 动态规划算法的基本思想是将待求解问题分解成若干子问题，先求解子问题，然后从这些子问题的解得到原问题的解。
22.算法是由若干条指令组成的有穷序列，且要满足输入、输出、确定性和有限性四条性质。
23、大整数乘积算法是用分治法来设计的。
24、以广度优先或以最小耗费方式搜索问题解的算法称为分支限界法。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是(1)False或0。
2.有如下程序段：x=5y=10z=12if x+y<=z Or y+z<=x Or x+z<=y then a="False"else a="True"该程序段运行后，a的值为(1)True。
3.有如下程序段：s=0for i=1to5s=s+i*inext i该程序段运行后，s的值为(1)55。
4.程序填空随机产生10个0～100之间的整数，按从小到大的次序排序并输出。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。
图12-3sub command1_click()const n=10dim i,j,t as integerdim a(1to10)as integerfor i=1to10______(1)__a(i)=int(Rnd*101)________ next iFor i=1To n-1For j=i+1To nIf______(2)_a(i)>a(j)_____Thenk=a(i):a(i)=a(j):a(j)=kEnd IfNext jNext iFor i=1To nList1.AddItem Str(a(i))Next i第二套1.有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为(1)5。
2.有如下程序段：x=5y=-20if not x>0then x=y-3else y=x+3该程序段运行后，x的值为(1)5。
3.有如下程序段：e=0:f=1for i=1to3e=e+ff=f+enext i该程序段运行后，f的值为(1)13。
4.程序填空有30个人，其中有男人、女人和小孩。
他们在一家饭馆里花去500元。
已知，每个男人花30元，每个女人花20元，每个小孩花10元。
问男人、女人、小孩各为多少人？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
sub command1_click()dim man,woman,child,s as integerfor man=1to15for woman=1to23child=_______(1)_30-woman-man_s=30*man+20*woman+10*childif___(2)s=500and child>0thenlist1.additem str(man)+""+str(woman)+""+ str(child)end ifnext womannext manend sub图12-7第三套1.有如下程序段：x=5y=6x=yy=x该程序段运行后，y的值为(1)6。
2.有如下程序段：x=5y=-20if not x>0then x=y-3else y=x+3该程序段运行后，y的值为(1)8。
3.有如下程序段：k=1for i=1to5k=k*inext i该程序段运行后，k的值为(1)120。
4.程序填空从键盘键入一个整数x，将x插入到一列有序数据：-5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
Dim a(1To8)As IntegerDim n,I,j,x As IntegerPrivate Sub Command1_Click()x=Val(Text2.Text)If x>a(n)Then________(1)___i=8_______Elsei=1Do While x>a(i)_______(2)___i=i+1_______LoopEnd IfText3.Text=Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13Thenn=n+1a(n)=Val(Text1.Text)List1.AddItem Str(a(n))Text1.Text="":Text1.SetFocusEnd IfEnd Sub第四套1.有如下程序段：x=5y=6p=Not(x+y<>11)该程序段运行后，P的值是(1)True或1。
2.有如下程序段：x=5y=10z=12If x+y>z And y+z>x And x+z>y Then a="True"Else a="False"该程序段运行后，a的值为(1)“True”。
3.有如下程序段：x=6k=1do while k<=5k=k+3x=x+kloop该程序段运行后，x的值为(1)17。
4.程序填空用物理天平测量物体的质量时，测得物体的质量为a克（a为整数，并小于１千克），问这时在天平的砝码盘中应有哪几个砝码，请选用最少数量的砝码（称质量为１千克的物体，天平的砝码由下列质量的砝码组成：５００克１个，２００克１个，１００克２个，５０克１个，２０克1个，１０克２个，５克１个，２克２个，１克１个）。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图见图12-15）。
Dim a(1To12)As IntegerDim i,x As IntegerPrivate Sub Command1_Click()a(1)=500:a(2)=200:a(3)=100a(4)=100:a(5)=50:a(6)=20a(7)=10:a(8)=10:a(9)=5a(10)=2:a(11)=2:a(12)=1x=Val(Text1.Text)i=1do while_______(1)_x<>0if x>=a(i)thenList1.AddItem Str(a(i))_________(2)___x=x-a(i)_________End ifi=i+1loopEnd Sub第五套1.有如下Visual Basic程序段：a=3:b=2:c=3b=a+b*c该程序段运行后，变量b的值为(1)9。
2.有如下Visual Basic程序段：a=39b=93If a+b>100Then py="太大"If a+b=100Then py="相等"If a+b<100Then py="太小"Label1.Caption=py该程序段运行时，在Label1标签上显示的是(1)太大。
3.以下Visual Basic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。
为了实现这一功能，程序中划线处的表达式应更正为_____(1)___i_____。
Private Sub Command1_Click()Dim i As Integer,s As Longs=0i=1Do While i<=1024s=s+2*ii=i*2LoopText1.Text=Str(s)End Sub4.有一道趣味题，张老师问李老师:"你今年几岁？你爱人今年几岁？"李老师笑笑说："我年龄的平方与我爱人年龄之和恰好等于1053。
而我爱人年龄的平方与我的年龄之和却等于873。
你计算一下吧！"设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2+y=1053x+y2=873解决此问题的流程图如VB-1所示。
根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()Dim x As Integer,y As Longx=1y=1053-x*xDo While(1)y*y+x<>873(2)x=x+1y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)End Sub程序中划线处(1)应填入y*y+x<>873程序中划线处(2)应填入x=x+1图VB－1第六套1.有如下Visual Basic程序段：a="Happy"b="ness"c=a+b该程序段运行后，变量c的值是_____(1)_Happyness_____。
2.有如下Visual Basic程序段：Dim x As Single,c As Stringx=Val(Text1.Text)If x>12Thenc="PM"Elsec="AM"End IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是(1) PM。
3.3.下列Visual Basic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。
为了实现这一目标，程序中For语句划线处的循环变量步长应为_________(1)___3______。
Private Sub Command1_Click()Dim sum As LongDim i As Integersum=0For i=1To97Stepsum=sum+i*iNext iText1.Text=Str(sum)End Sub4.模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。
程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。
当输入的运算符不是加、减、乘、除四种运算符时，则输出"运算符不正确"；当进行除法运算时，如果除数为0，提示输出"除数不能为零"。
解决上述问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()Dim a As Single,b As Single,ch As Stringa=Val(Text1.Text)b=Val(Text2.Text)(1)ch=Text3.textIf ch="+"ThenText4.Text=Str(a+b)ElseIf ch="*"ThenText4.Text=Str(a*b)ElseIf ch="-"ThenText4.Text=Str(a-b)ElseIf ch="/"ThenIf(2)b<>0Then Text4.Text=Str(a/b)Else Text4.Text="除数不能是零"ElseText4.Text="运算符不正确"End IfEnd Sub程序中划线处(1)应填入程序中划线处(2)应填入第七套1.有如下Visual Basic程序段：a="Tea"b="cher"c=a+b该程序段运行后，变量c的值是：(1)Teacher。