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

推荐相关:

2017年技术选考VB算法加试题周练最长相同

2017年技术选考VB算法加试题周练最长相同_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练(4) 行政班: 教学班: 姓名: 学号: 【加试题】小明编写...


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

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


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

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


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

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


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

2016年10月浙江技术选考加试题16题17题复习专题._...下列 VB 程序的功能是: 程序运行时,在文本框 Text...级数展开式公式可以计算正弦函数的值, 正弦函 数 ...


2016年浙江省技术选考算法题专题练习

2016年浙江省技术选考算法题专题练习_其它课程_高中教育_教育专区。桐乡一中技术...VB 综合题 姓名: 学号: H, D B 2.在 PhotoShop 中 RGB 颜色模式采用十...


2017年技术选考VB算法加试题周练子串

2017年技术选考VB算法加试题周练子串_其它课程_高中教育_教育专区。命题:杜...周岁计算公式为:2016 年减去出生年份。程序运行界面如下图所示: (1)上图所示,...


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

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


2017届浙江技术选考第二轮复习VB算法加试题复习4

2017届浙江技术选考第二轮复习VB算法加试题复习4_其它考试_资格考试/认证_教育专区。2017 届浙江技术选考第二轮复习 VB 算法加试题复习四 一、选择题:本大题共 ...


2017届浙江技术选考第二轮复习VB算法加试题复习5

2017届浙江技术选考第二轮复习VB算法加试题复习5_其它课程_高中教育_教育专区。有答案 2017 届浙江技术选考第二轮复习 VB 算法加试题复习五 一、选择题:本大题...

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