专题02 解析和枚举算法及VB程序实现(专项练习)(参考答案)
(word完整版)高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题
高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题学校: ___________ 姓名： __________ 班级：____________ 考号： ___________1 •使用枚举法解决问题，在列举问题的可能解的过程中( )A .可以遗漏，但不应重复B. 不能遗漏，也不应重复。
C. 可以重复，但不应遗漏。
可以遗漏，也可以重复。
【答案】B【解析】2 .有如下VB程序段m=a(1)For i=2 to 100If a(i) > m the n m=a(i)Next i该程序段执行后，变量m中存储的是()A. 累加值B.计数值C. a(1)至a(100)中的最大值【答案】C【解析】3 .读程序，写出下列程序的输出结果55、s = 1For j = 100 To -100 Step -1s = s * jNext jMsgBox (s)上述程序段中s = s*j的执行次数是()D.最小值D、201A、400B、401C、200答案】 D 【解析】4•统计1〜1 000间个位数是4,且能被9整除的数共有多少个， 可以采用的算法是（）A .查找算法 B.枚举算法 C .解析算法 D.排序算法【答案】 B 【解析】 5.在游戏中经常有开数字密码锁得场景,已知一个6 位数的密码锁,正确的数字顺序组合是由下面一组数字 426815 经过两次冒泡排序得到,请问开锁的正确数字组合可能 是（ ）。
成第二遍的结果是 （ ） A . 512, 613, 700, 900, 810 B . 512, 810, 613, 900, 700 C . 512, 900, 613, 700, 810 D . 512, 613, 810, 700, 900答案】 D 解析】 7.模拟剪刀石头布的游戏,骰子是一个正六面体,用 头、布这三种情况,使用 RND 随机函数可以表示为（ A. INT ( RND ( 3) +1 ) B. INT ( RND*2+1 ) C. INT (RND (2)+1 )D.INT ( RND*3+1 ) 【答案】 D【解析】 8.三个正整数 a 、b 、c 满足等式 a2+b2=c2 , a 、b 、c 称为“勾股数 ”,求出 100 以内所有 “勾股数 ”可采用的算法是（ ） A •枚举算法 B.解析算法C.冒泡排序D.顺序查找【答案】AA . 864251 【答案】 A【解析】B . 842651C . 126845D . 124685 6. 某食品连锁店 5 位顾客贵宾消费卡的积分依次为810, 512, 613, 700, 900。
VB解析算法及程序实现
3.1解析算法及程序实现1. 计算长方体体积的算法描述如下：①输入长方体的长⑵、宽(w)、高(h)②计算长方形体积v = z * w *h③输出结果④结束上述算法届丁 ()A. 枚举算法B. 排序算法C. 解析算法D. 递归算法2. 下列问题适合用解析算法求解的是( )A. 将十三张纸牌按从小到大进行排列B. 统计100内偶数的各位数字之和恰好为10的个数C. 计算一辆车行驶100公里的油耗D. 寻找本年级身高最高的同学3. 有如下问题：①已知圆锥的半径r和高度h,使用公式V=1兀r2h求出此圆锥体的体积。
3②已知班级每位同学的其中成绩总分s,按照s的值从大到小进行成绩排名。
③已知圆的周长s,利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1〜10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是( )A.①②B. ①③C. ③④D. ②④4. 出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：J［10+2*(x-3X(x>3)_________I -- --- --- 1 ---- --- ---之/ 输曲I ~『了、［结虽］流程图加框处部分的算法届丁：( )A.解析算法B. 排序算法C. 枚举算法D. 递归算法5. 现要求编写VB 程序实现如下功能：分别 在文本框 Textl 、Text2、和Text3中输入 三条线段的长度，单击“判断”按钮Comman 后，在标签Labell 中显示判断结果。
程序 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Then st ="这三条线不能构成一个三角形"ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st =ElseIf st =Else st =End IfLabel1.Caption =End Sub划线处应填写正确的语句是：(1) 划线处① __________(2) 划线处② 6. 下列VB 程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
VB解析算法及程序实现
3.1解析算法及程序实现1.计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积 v = z * w * h③输出结果④结束上述算法属于（ ）A. 枚举算法B. 排序算法C. 解析算法D. 递归算法2.下列问题适合用解析算法求解的是（ ）A.将十三张纸牌按从小到大进行排列B.统计100内偶数的各位数字之和恰好为10的个数C.计算一辆车行驶100公里的油耗D.寻找本年级身高最高的同学3.有如下问题：①已知圆锥的半径r 和高度h ，使用公式V= 31πh r 2求出此圆锥体的体积。
②已知班级每位同学的其中成绩总分s ，按照s 的值从大到小进行成绩排名。
③已知圆的周长s ，利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是（ ）A. ①②B. ①③C. ③④D. ②④4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：流程图加框处部分的算法属于：（）A.解析算法B.排序算法C.枚举算法D.递归算法5.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2、和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。
程序运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click()Dim a As Single ,b As SingleDim c As Single ,st As Stringa=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Thenst = “这三条线不能构成一个三角形”ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Thenst = “可以构成一个直角三角形”ElseIf ①Thenst = “可以构成一个等边三角形”Elsest = “可以构成一个不等边的斜三角形”End IfLabel1.Caption = ②End Sub划线处应填写正确的语句是：（1）划线处①（2）划线处②6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
VB程序习题集(附答案)解析
VB简介1、在以下有关对象属性的表达中，不正确的选项是___________。
A、一个对象的属性可分为外观、行为假设干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进展设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最根本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"〞，其中的Text1、Text和“Visual Basic〞分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框显示的容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click〔〕事件，那么命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
高中信息技术VB专项题(学考)
高中信息技术VB专项题（学考）VB专题题DimiAInteger,AIntegerDimaAInteger,bAInteger,cAInteger,dAInteger=0Fori=1000To9999①'取出个位数字b=(iMod100)\\10'取出十位数字c=i\\100Mod10'取出百位数字d=i\\1000'取出千位数字Ifa^4+b^4+c^4+d^4=iThenLit1.AddItemi=②EndIfNe某tLabel2.Caption=″四叶玫瑰数共有″+Str()+″个″EndSub(2)程序中的语句“b=(iMod100)\\10”和下列哪些项功能相同(多选)。
A.b=i\\10Mod10C.b=iMod100\\10B.b=int(i/10)Mod10D.b=Mid(i,3,1)第1页VB专题题图1图2在以下ViualBaic程序的画线①②处填入合适的语句,实现上述功能。
Dima(1To10)AIntegera(i)=Int(Rnd()某900+100)Lit1.AddItem①Ne某tiEndSubFori=②Ifa(i)Mod2=1ThenLit2.AddItema(i)EleLit1.AddItema(i)EndIfNe某tiEndSub图1第2页VB专题题图2DimASingle,某ASingle,nAInteger,iAIntegerRandomizeLit1.Clear=①n=Val(Te某t2.Te某t)Fori=1To②'通过循环语句产生n-1个红包的随机值某=Int((Rnd()某/(n-i)+0.005)某100)/100Lit1.AddItemStr(某)=③Ne某ti 某=Int((+0.005)某100)/100'产生最后一个红包Lit1.AddItemStr(某)EndSub第3页VB专题题Fori=1ToLen(a)c=Mid(a,i,1)If②Thenc=Chr(Ac(c)-32)EndIfb=b&cNe某tiTe某t2.Te某t=bEndSub(2)由程序可知,小写字母比大写字母的ASCII编码值大5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。
(完整版)Vb专题习题
Vb专题习题一、选择题1. 将数学表达式写成Visual Basic表达式，正确的是（）（A）Sqr(abs(b*b-4ac)) （B）Sqr(abs[b*2-4*a*c])（C）Sqr(abs(b*b-4*a*c))（D）Sqr[abs(b*b-4*a*c)]2. 在Visual Basic中，若要将窗体中某个命令按钮设置成无效状态，应对该按钮的（）属性值进行修改。
（A）Value （B）Visible （C）Enabled （D）Caption3. 执行如下Visual Basic程序段时，出现了如下图所示的错误：Private Sub Command1_Click()Dim a As Integer, b As Integera = 5:b = 8b = a + blabel1.Caption = Str(b)End Sub引发此错误的语句可能为（）（A）Dim a As Integer, b As Integer（B）a = 5: b = 8（C）b = a + b（D）label1.Caption = Str(b)4. 已知a=5，b=9，c=11，则下列Visual Basic表达式的值为False的是（）（A）a > b And a > c（B）a < b Or a > c（C）a < b + c （D）a > c – b5. 有下列Visual Basic程序段：某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print若程序要实现“求100内能被3整数的自然数个数”的功能，则方框中正确的语句是（）（A）i / 3 = 0（B）i mod 3 = 0（C）i \ 3 = 0（D）int(i/3) = 06. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As Integera = Int(5 * Rnd + 1) * Int(5 * Rnd - 1)Print aEnd Sub执行程序后，a的值范围是（）（A）[0，15] （B）[－1，15] （C）[－4，15] （D）[－5，15]7.在Visual Basic中，表达式3 ^ 2 Mod 14 \ 2 ^ 3的值是（）（A）1 （B）0 （C）2 （D）38. 某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print9. 下列Visual Basic程序段中，能实现输出变量a、b、c三个数中最大数的是（）10、有如下Visual Basic程序段：x = 3y =5Text1.Text = "x+y"该程序运行后，要文本框Text1中显示的是（）（A）3+5（B）x+y（C）8（D）3+5=811.在Visual Basic中，下列表达式的值为5的是（）（A）Int(Sqr(9) + 1.28)（B）(19 \ 2) Mod 5（C）Abs(-7) + Sqr(4)（D）Len("x+y+2")12.在Visual Basic中，下列语句定义的数组元素为10个的是（）（A）Dim a(0 To 10) As Integer（B）Dim b(1 To 9) As String（C）Dim c(2 To 10) As Boolean（D）Dim d(0 To 9) As Date13.某Visual Basic工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是（）A. Command1的Click事件过程代码B. Timer1的Timer事件过程代码C. Label1的Click事件过程代码D. Image1的Click事件过程代码14. 在Visual Basic中，下列能作为变量名的是（）A. MyB. IfC. a+yD. 2nd15. 已知字符A～Z的ASCII码值分别对应65～90。
VB程序习题集(附答案)解析
VB程序(chéngxù)习题集(附答案)解析VB程序习题集(附答案(dá àn))解析VB简介(jiǎn jiè)1、在以下有关对象属性(shǔxìng)的叙述中，不正确的是___________。
A、一个对象的属性可分为外观(wàiguān)、行为若干类B、不同属性(shǔxìng)可能具有不同的数据类型C、一个对象的所有属性(shǔxìng)都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法(fāngfǎ)、属性C、对象(duìxiàng)、属性、值D、属性(shǔxìng)、对象、值4、用窗体的___________属性(shǔxìng)来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在(cúnzài)三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
VB程序设计--第章 算法与程序设计含答案 (二)
VB程序设计--第章算法与程序设计含答案(二)VB程序设计--第章算法与程序设计含答案本文将为大家介绍VB程序设计中的算法与程序设计，并提供相应的答案，希望对大家学习VB程序设计有所帮助。
一、算法1. 什么是算法？算法是指解决问题的步骤和方法。
在计算机程序设计中，算法是指计算机程序解决问题的步骤和方法。
2. 算法的特点有哪些？算法具有以下特点：（1）有穷性：算法必须在有限的步骤内结束；（2）确定性：算法中的每一个步骤必须是明确的，不会产生二义性；（3）可行性：算法中的每一个步骤必须是可行的，能够被计算机实现；（4）输入：算法需要输入数据；（5）输出：算法需要输出结果。
3. 算法的分类算法可以分为以下几类：（1）递推算法：递推算法是指通过已知的初始条件和递推公式，计算出后续项的算法；（2）分治算法：分治算法是指将问题分解成若干个相似的子问题，分别解决后再将结果合并起来的算法；（3）贪心算法：贪心算法是指在每一步都选择当前最优解的算法；（4）回溯算法：回溯算法是指在问题的解空间中搜索问题的解的算法；（5）动态规划算法：动态规划算法是指通过已知的初始状态和状态转移方程，计算出后续状态的算法。
二、程序设计1. 程序设计的基本要素程序设计的基本要素包括：输入、输出、数据结构、算法和控制结构。
2. 数据结构数据结构是指数据元素之间的关系和操作的集合。
常见的数据结构有线性结构、树状结构和图形结构。
3. 控制结构控制结构是指程序中用于控制程序流程的语句。
常见的控制结构有顺序结构、选择结构和循环结构。
4. 程序设计的步骤程序设计的步骤包括：（1）问题分析：对问题进行分析，确定问题的输入、输出、数据结构和算法；（2）算法设计：根据问题的要求，选择适当的算法进行设计；（3）编写程序：根据算法设计，编写程序代码；（4）程序测试：对程序进行测试，确保程序的正确性和可靠性；（5）程序维护：对程序进行维护，确保程序的可用性和可维护性。
解析算法-枚举算法练习题
解析算法-枚举算法练习题(总3
页)
--本页仅作为文档封面，使用时请直接删除即可--
--内页可以根据需求调整合适字体及大小--
1. 编写VB 程序完成计算!101!71!411+++=F 的值。
2. 根据以下迭代公式编写VB 程序求π的近似值。
3. 角谷猜想。
对任意一个大于1的正整数n ，进行如下运算：若n 是奇数时，n 的值替换为3n+1，若n 是偶数时，n 的值替换为n/2；重复以上运算，n 最终变为1。
编写一个VB 程序输出验算过程。
1.“玫瑰花数”是指一个4位整数，其各个位数字的4次方和恰好等于该数本
身，例如，1634是一玫瑰花数， 444443611634+++=。
编写VB 程序输出所有
的玫瑰花数。
2.孔雀开屏数。
如果一个n 位整数k 的各位数字之和的n 次幂等于k 本身，则这个数k 称为孔雀开屏数。
如三位数512=(5+1+2)3，512就是一个三位的孔雀开屏数。
编写VB 程序输出二～五位数中的所有孔雀开屏数。
3. 孪生素数。
孪生素数是指两个相邻奇数且都是素数，如3，5；11、13；它们是最近的素数，就像孪生兄弟一样。
输出100以内的所有孪生素数。
4.方程x+y+z=n有几组正整数解
（提高篇）方程x+y+z≤n有几组正整数解。
高三VB一轮同步课堂解析算法与枚举算法 操作题
☞信息技术算法同步课堂☜VB解析算法与枚举算法操作题姓名：__________班级：___________学号：___________1．小吴编写了一个 VB 程序，实现功能如下：在 1000 至 9999 的自然数中，找出能被 7 整除，且百位或者个位数字是 6 的所有整数，并统计个数。
程序界面如下：（1）在设计程序界面时，要使按钮 Command1 上显示为统计，可在属性窗口通过修改其________属性完成。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()Dim s As Integer, n As IntegerDim a As Integer, b As Integer n = 0List1.ClearFor s =1001 To 9999 Step 7a = ____①________b= s Mod 10If____②______ThenList1.AddItem Str(s)-1-____③_________End IfNext sLabel1.Caption = "共有" + Str(n) + "个"End Sub2．编写VB程序，实现如下功能：单击按钮“确定”，在列表框中输出1-100里所有的完全平方数。
程序界面如下图所示：为实现上述功能，请将以下程序补充完整。
Private Sub Command1_Click()Dim j As Integer, k As IntegerList1.ClearFor k = 1 To 100j = Int(Sqr(k))If __________Then List1.AddItem _______________Next kEnd Sub参考答案1．Caption s\100 mod 10a=6 or b=6n=n+1【详解】略2．k=j*j 或k=j^2 (其他等价答案也行) Str(k) (其他等价答案也行) 【详解】。
算法与程序设计VB试题与答案02
VB02五、操作题（题数：6道，总分：60分）1、打开文件“考生文件夹\860\圆周率.vbp ”，完善程序实现如下功能并保存： 公元5世纪，我国古代数学家祖冲之将圆周率π求到了小数点后7位。
到17世纪，微积分被牛顿和莱布尼兹发明之后，大量计算圆周率π的公式被发现。
莱布尼兹公式就是其中之一：1111114357911π=-+-+-+编写程序，利用以上公式计算π，直到最后一项的值小于0.0000001为止，输出π的值。
Private Sub cmdComputePi_Click()Dim pi As Double, t As DoubleDim n As Long, sign As Integerpi = 0n = 1sign = 1Dot = ① 有问题pi = pi + ②n = ③sign = -signLoop Until Abs(t) < 0.0000001pi = ④Print "pi:" & piEnd Sub①1/n ②sign*t ③n+2 ④4*pi2、打开文件“考生文件夹\862\完数.vbp ”，完善程序实现如下功能并保存：输入一个数，判断该数是否为完数。
所谓完数即该数等于其因子之和。
例如：6＝1＋2＋3；28＝1＋2＋4＋7＋14。
若是完数则输出该数及该数等于因子之和的公式；若不是完数则输出该数不是完数。
Private Sub cmdPerfect_Click()Dim m As IntegerDim sum As IntegerDim s As StringDim i As Integers = "1"sum = 1① = Val(InputBox("输入一个正整数:"))For i = 2 To m - 1If m Mod i = 0 Thensum = ②s = s & " +" & Str(i)End IfNext iIf sum = m ThenPrint m; "是完数"Print m; "="; ③ ' 输出因子之和ElsePrint m; "不是完数"End IfEnd Sub①m ②sum+I ③s3、打开文件“考生文件夹\857\恺撒密码.vbp”，完善程序实现如下功能并保存：公元前60年，古罗马统帅“朱利叶斯·恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书，进行战时通信。
浙教版高中算法与程序设计解析和枚举算法的VB实现课堂知识清单+课后练习
解析+枚举算法及VB实现课堂知识清单+课后练习班级姓名一、课堂知识清单：1.枚举算法：※基本思想：一一列举该问题所有可能情况，根据题目的条件逐个进行判断，从中挑选出符合条件的解。
※程序实现：FOR+IF 语句※注意：与顺序查找的区别——顺序查找中有枚举的思想，但顺序查找中IF条件的运算符是“=”。
枚举的范围尽量缩小，不能遗漏，也不能重复。
2.解析算法：※基本思想：找出问题的前提条件与所求结果变量之间关系的数学表达式，并通过计算来实现问题的求解。
※程序实现：IF 语句或赋值语句或 FOR语句+赋值语句执行体※注意：程序实现十分简单，但往往数学建模（即建立条件与结果关系的数学表达式）较难。
二、课后练习：1.在给定正整数区间【m,n】（m<n）中寻找被3除余1，被7除余2的正整数个数的算法是（）A .递归算法 B.枚举算法 C.冒泡排序 D.选择排序2.某超市打折促销，规定如下：购物未超过500元，按原价9折优惠计；购物超过500，但未超过2000部分按8折计超过2000部分；购物超过2000，但未超过3000部分按7折计，购物超过3000以上，超过部分按6折计。
根据购物货款求实付金额，解决这个问题，最合适的算法是（）A .顺序查找 B.枚举算法 C.解析算法 D.对分查找3.将第2题主要算法用VB实现写在框中，其中购物总金额（未优惠前）变量用text1输入，最终实付金额输出至label1中，其他未规定可自行设定。
4.如一个三位正整数等于它的每个数的立方和，则此数称“水仙花”数，如 153=1^3+5^3+3^3。
下列程序用于求出100-999之间的所有“水仙花”数，并将数输出到list1中，请将划线部分补充完整。
Private sub command1_click()Dim m as integer, n as integer,Dim a as integer, b as integer, c as integerfor m = ○1a=m\100b=○2c=m mod 10n=a^3+b^3+c^3if ○3 then ○4next mEnd sub水仙花数功能代码主要体现的算法：（单选填：冒泡排序\解析算法\选择排序\枚举算法）5.有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，2个月后会生1对小兔子，以后每个月都会生一对小兔子；而生下来的小兔子，也是2个月后开始每月生1对小兔子，以此类推。
VB综合(答案)
VB综合(学考部分非选择题)1。
[2017年4月学考题］奇偶校验是一种校验数据传输正确性的方法。
其中奇校验方法:统计二进制数据的数位中“1"的个数，若个数为奇数,则校验位值为0，否则校验位值为1。
小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1~255十进制待校验数，单击“计算"按钮Command1后,在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。
程序运行界面如图所示.（1）在设计程序界面时，要清空文本框中的显示内容,应修改该文本框中的Text属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click(）Dim a As Integer， s As StringDim n As Integer, t As Integer, v As Integern = Val（Text1.Text)t = 0s = ””Do While n > 0a = n Mod 2n = n \ 2t = ①t+as = Str(a) + sLoopv = t Mod 2Text2。
Text = sLabel3。
Caption = "校验位值：” + ②str（1—v）End Sub(3）运行该程序，在文本框Text1中输入22,单击“计算”按钮，则显示的校验位值是0 .2。
[2016年10月学考题]编写“加法练习题生成器"程序，实现如下功能：在文本框Text1中输入题数n，单击“生成"按钮Commandl，在列表框Listl中显示n个两数之和小于100的加法练习题。
程序运行界面如图a所示。
图a 图b（1）在设计程序界面时，使应使用图b所示“控件工具箱”中的3 (填写相应编号）添加“生成”按钮。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码.Private Sub Command1_Click()Dim n As Integer, i As Integer， a As Integer, b As IntegerRandomizen = Val（Text1.Text)i = 1Do While i<= na = Int（Rnd * 100)b = Int（Rnd ＊ 100）If ②a+b〈100 ThenList1。
VB程序习题(附答案解析)
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框显示的容为：5+7=12。
A、Text1.T ext = a + b + cB、Text1.T ext = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
考点规范练11-VB解析、枚举算法及其程序实现 - 修正
考点规范练11.VB解析、枚举算法及其程序实现1.以下问题,适合用枚举法解决的是( )A.已知圆的半径和圆的面积公式求圆的面积B.利用求和公式计算1+3+5+7+…+100的和C.已知三角形三边长度,通过海伦公式求出三角形的面积D.中国科学家们通过对4万多种抗疟疾的化合物和中草药的筛选,最终屠呦呦发现青蒿素具有良好抗疟效果(由此屠呦呦获得2015年诺贝尔奖)2.小贝用VB软件制作了一个“猜价格”的小程序,界面如图所示:用户在文本框Text1中输入价格,点击确定,若价格高于商品价格,在标签Label2中显示“高了!”,若低于商品价格则显示“低了!”,若相等则显示“你猜对了!”。
其VB程序如下:Private Sub Command1_Click( )p = ①s=Val(Label3.Caption)If ② ThenLabel2.Caption=“你猜对了!”ElseIf p > s ThenLabel2.Caption=“高了!”ElseLabel2.Caption=“低了!”End IfEnd SubPrivate Sub Form_Load( )RandomizeLabel3.Caption=Int(Rnd 1 000)End Sub(1)在程序画线处填写适当的表达式或语句,以实现程序功能。
程序中①画线处应填入。
程序中②画线处应填入。
(2)由程序可知,标签Label3的功能是。
3.现代场馆建设前,均需考虑紧急疏散出口数。
现通过程序计算出口数的设置问题:在文本框Textl中输入场馆可容纳的人数,在文本框Text2中输入疏散全部观众所需的时间,在文本框Text3中输入每个出口可同时进出的人数,在文本框Text4中输入每人进出大门的时间,单击“计算”按钮Command1,在文本框Text5中显示该场馆至少应设置的疏散出口数。
程序运行效果如图所示:其中“计算”按钮Command1的单击事件处理过程如下:Private Sub Command1_Click( )rs=Val(Text1.Text) '总人数gdsj=Val(Text2.Text) '疏散全部观众的规定时间jcrs=Val(Text3.Text) '每个出口可同时进出的人数jcsj=Val(Text4.Text) '每人进出大门的时间num=rs / jcrs '总组数(总组数=总人数/每个出口可同时进出的人数)If num <> Int(num) Then num=Int(num)+1doors=num jcsj / (gdsj 60)If ① Then doors=Int(doors)+1Text5.Text= ②End Sub(1)该程序采用的算法是(选填“枚举算法”或“解析算法”)。
VB解析算法及程序实现 (2)
3.1解析算法及程序实现1.计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积 v = z * w * h③输出结果④结束上述算法属于（ ）A. 枚举算法B. 排序算法C. 解析算法 D. 递归算法2.下列问题适合用解析算法求解的是（ ）A.将十三张纸牌按从小到大进行排列B.统计100内偶数的各位数字之和恰好为10的个数C.计算一辆车行驶100公里的油耗D.寻找本年级身高最高的同学3.有如下问题：①已知圆锥的半径r 和高度h ，使用公式V= 31πh r 2求出此圆锥体的体积。
②已知班级每位同学的其中成绩总分s ，按照s 的值从大到小进行成绩排名。
③已知圆的周长s ，利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是（ ）A. ①②B. ①③C. ③④D. ②④4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：流程图加框处部分的算法属于：（ ）A.解析算法B.排序算法C.枚举算法D.递归算法5.现要求编写VB 程序实现如下功能：分别在文本框Text1、Text2、和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。
程序运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click()Dim a As Single ,b As SingleDim c As Single ,st As Stringa=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Thenst = “这三条线不能构成一个三角形”ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = “可以构成一个直角三角形”ElseIf ① Thenst = “可以构成一个等边三角形”Elsest = “可以构成一个不等边的斜三角形”End IfLabel1.Caption = ②End Sub划线处应填写正确的语句是：（1）划线处①（2）划线处②6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
解析枚举算法强化练习
解析、枚举算法强化练习1．下列问题中适合使用解析算法解决的是( )A．计算两个电阻的并联值B．完成各大网站访问量的排名C．找出100以内所有的质数D．找出100以内所有6的倍数2．用解析算法计算匀加速直线运动的位移问题时，使用的计算公式是s=v0t+(1/2)at^2，下列用于描述该公式的VB表达式中，正确的是( )A．s=v0t+l/2at^2 B．s=v0*t+l/(2*a*t*t)C.s=v0t+l/( 2*at^2)D.s=v0*t+l/2*a*t^23．用解析算法实现求匀速直线运动位移的VB程序代码如下：Private Sub Command1__Click()Dim S As SingleDim V As SingleDim t As Singles=0v=10t=Val( Textl.Text)s=v*tLabel1.Caption=Str(s)End Sub程序界面如图所示：在文本框Textl中输入28，单击“计算”按钮Commandl后．标签Labell中显示的内容是。
4．人们常用的欧洲鞋号（又称“法码”）与我国出台的鞋类“薪鞋号”标准存在着如下换算关系：新鞋号=（法码+10）÷2 x l0. 如新鞋号为23.5的鞋子，即为人们平常所说的37码。
下面的VB程序可用于解决此问题，程序运行界面如图所示：运行程序，在文本框Textl中输入新鞋号，单击“换算”按钮Commandl，在文本框Text2中显示所对应的法码，程序代码如下：Private Sub Command1__Click()Dim n As Integer，m As Single 'n为新鞋号，m为法码n=Val( TextI.Text)Text2.Text=Str( m)End Sub程序划线处应填入的内容是。
5．某停车场的收费标准如下：1小时及以内，收费5元；超过1小时的，超过部分每小时按15元收费（不足1小时的按1小时计算），具体算法流程图如图3-15-5所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第1页共1页
专题2解析和枚举算法及VB程序实现（专项练习）（参考答案）1.
【答案】（1）500（2）①False②Label1.Caption=Str(c) ③开始
【解析】（1）计时器timer的interval属性表示时钟频率，其单位为毫秒。
题干中的频率为0.5秒，故答案为500。
（2）①根据题意可知，按钮标题变为“开始”的同时，计时器停止工作，故答案为false。
②根据题意可知，每次产生的抽奖号码都要显示在label1中，故答案为Label1.Caption=Str(c)。
（3）初始时为“开始”，单击一次后变为“停止”，单击两次后变为“开始”，以此类推可知，单击奇数次后为停止，单击偶数次后为开始。
故答案为开始。
2.
【答案】（1）Com1（2）①n = Val(Text1.Text) ②Str(2*(n-i)+1) ③Text2.Text = s
【解析】（1）代码中第一行的“Com1_Click”是事件驱动过程名，由对象名和事件名组成，故答案为Com1。
（2）①变量n为正整数，类型为整型，其值通过文本框text1输入，故答案为n = Val(Text1.Text)。
②代码中for循环的功能是逐个推理数字串中的数据，数字串前半段为依次递增2，后半段为依次递减2，else解决的就是后半段数据的计算，s为字符串型，故答案为Str(2*(n-i)+1)。
③最终的结果存储在变量s中，需要通过文本框text2输出，故答案为Text2.Text = s。
3.
【答案】（1）Caption（2）①n = Val(Text1.Text) ②y * 10 + x Mod10③Str(sum)
【解析】（1）窗体类对象的标题显示内容由Caption属性来决定，故填Caption。
（2）①变量n表示回文数，类型为长整型，其值通过text1来输入，故答案为n = Val(Text1.Text)。
②返回个位数，将原有的y扩大10倍。
故y * 10 + x Mod10。
③变量sum表示某区间内回文数的总个数，其值为长整型，通过标签Label2输出时，需要现转换为字符类型，故答案为Str（sum）
4.
【答案】①Step7 ②c = s Mod10③a=1or b=1or c=1
【解析】①循环变量s的初值为105，而105是三位数中最小的且能被7整除的数，那么下一个能被7整除的数字必然105+7，为了使枚举算法更加高效，步长值应为7，故答案为step7。
②变量c表示一个三位数s的个位，最直接且最常用的表达式为c = s Mod10，本题答案也可以是c= s-a*100-b*10。
③题干中要求“至少有一位数为1”，该数为一个三位数，a表示百位，b表示十位，c表示个位，故答案为a=1or b=1or c=1。