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) 行政班: 教学班: 姓名: 学号: 【加试题】小明编写...


2016年10月浙江省技术选考试题解析

绝密★考试结束前 2016 年 10 月浙江省普通高校招生选考科目考试 技术试题姓名...③②① D.②①③ 12.【加试题】某对分査找算法VB 程序段如下: n ...


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

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


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

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


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

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


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

2017年技术选考VB算法加试题周练插入数据_其它课程_高中教育_教育专区。命题:杜...(窗体加载)时,随机生成 10 个数据存储在数组 a 中,并按升序排序后在列表框 ...


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

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


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

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


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

2017 届浙江技术选考第二轮复习 VB 算法加试题复习十七 一、选择题:本大题共...2017届浙江技术选考复习... 281人阅读 5页 ¥9.00 2016年10月浙江技术...


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

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

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