专题02 解析和枚举算法及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。

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的值。

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简介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专题题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专题习题一、选择题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程序(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程序设计有所帮助。

一、算法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解析算法与枚举算法操作题姓名：__________班级：___________学号：___________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) (其他等价答案也行) 【详解】。