tceic.com
简单学习网 让学习变简单
当前位置:首页 >> 其它课程 >>

2016年10月技术选考VB算法加试题训练


命题:杜宗飞 算法加试题一周一练(8) 行政班: 教学班: 姓名: 学号: 【加试题 1】下列 VB 程序的功能是:查找四位正整数中的超级素数。素数又称质数,指在 一个大于 1 的自然数中,除了 1 和此整数自身外,没法被其他自然数整除的数。超级素数的 定义为: 当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数, 则此数为超级素 数。如数 7331、733、73、7 均

为素数,所以 7331 为超级素数。程序运行时,单击 Command1, 则在列表框 List1 中显示所有四位数的超级素数。程序流程图如图所示 (1) 虚线内程序段所采用序算法名称是 (枚举、解析、对分查找) (2) 程序加框处代码有错,请改正。 Public Function prime(x As Integer) As Boolean '判断是否素数,若是返回 True,否则返回 False Dim i As Integer If x = 1 Then prime = False Exit Function Else For i = 2 To x \ 2 If x Mod i = 0 Then prime = False Exit Function End If Next i prime = True End If End Function Private Sub Command1_Click() Dim i As Integer, tmp As Integer Dim flag As Double For i = 1001 To 9999 Step 2 tmp = i flag = True Do While tmp <> 0 If Not prime(tmp) Then flag = False Exit Do End If tmp = tmp / 10 Loop If flag Then List1.AddItem Str(i) Next i End Sub 1 命题:杜宗飞 【加试题 2】下列程序的功能是:模拟字处理软件 word 里面的替换功能。程序运行时, 在文本框 Text1 中输入原文,在文本框 Text2 中输入原字符 (要被替换的字符) , 在 文本框 Text3 中输入将要替换成的字符。 单 击替换按钮(Command1) ,将原文(Text1)被 替换后的内容显示在文本框 Text4 中。 程序 的运行界面如图所示。 (1)程序加框处代码有错,请改正。 Private Sub Command1_Click() Dim st1 As String, st2 As String Dim tmp As Integer Dim ch1 As String, ch2 As String Dim i As Integer, lent1 As Integer Dim lent2 As Integer, length As Integer Dim flag As Boolean st1 = Text1.Text lent1 = Len(st1) '原文长度 ch1 = Text2.Text lent2 = Len(ch1) '原字符长度 length = lent1 - lent2 + 1 ch2 = Text3.Text '要替换成的字符 i = 0 st2 = flag = False Do While i <= length tmp = Mid(st1, i, lent2) '从原文 i 开始取 lent2 长度的子串,与原字符比较 If t

推荐相关:

2016年浙江省信息技术学业水平考试VB知识点

2016 年浙江省信息技术学业水平考试 VB 知识点 (1)基本概念 “算法”指的是解题方法的精确而完整的描述,由有限个步骤组成。算法具有有穷性、确定 性、可执行性...


2016年10月技术选考加试题专项练习

2016年10月技术选考加试题专项练习_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练(7) 行政班: 教学班: 姓名: 学号: 【加试题 1】下列 VB ...


2016年10月浙江省技术选考(信息技术)

2016年10月浙江省技术选考(信息技术)_高考_高中教育_教育专区。2016 年 10 ...③②① D.②①③ 12.【加试题】某对分査找算法VB 程序段如下: i= ...


2016年10月浙江省技术选考(信息技术)

2016年10月浙江省技术选考(信息技术)_高考_高中教育_教育专区。2016 年 10 ...③②① D.②①③ 12.【加试题】某对分査找算法VB 程序段如下: i= ...


2016年10月技术选考转换函数与VB调试专题

2016年10月技术选考转换函数与VB调试专题_其它课程_高中教育_教育专区 暂无评价|0人阅读|0次下载2016年10月技术选考转换函数与VB调试专题_其它课程_高中教育_教育...


2016年10月浙江学考选考技术真题附参考答案

2016年10月浙江学考选考技术真题附参考答案_其它课程_高中教育_教育专区。绝密...②①③ 12.【加试题】某对分查找算法VB 程序段如下: i=1:j=9:n=0...


2016年10月浙江技术选考加试题16题17题复习专题.

2016年10月浙江技术选考加试题16题17题复习专题._其它课程_高中教育_教育专区...下列 VB 程序的功能是: 程序运行时,在文本框 Textln 中输入正整数 s1。单击...


2017年技术选考VB算法加试题周练插入数据

2017年技术选考VB算法加试题周练插入数据_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练(3) 行政班: 教学班: 姓名: ——聪明在于勤奋! 学号:...


2017年技术选考VB算法加试题周练字母数字分类

2017年技术选考VB算法加试题周练字母数字分类_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练 行政班: 教学班: 姓名: ——宁吃百日苦,不留终身...

网站首页 | 网站地图
All rights reserved Powered by 简单学习网 www.tceic.com
copyright ©right 2010-2021。
文档资料库内容来自网络,如有侵犯请联系客服。zhit325@126.com