flv下载

实用第 智慧密集

使用“维棠＂轻松完成ＦＬＶ视频下载与转换

马凤娟 吴鹏飞

摘 要： “维棠”是一款专门针对ＦＬＶ格式的视频下载而开发的软件，用户使用“维棠”可以将

优酷网、土豆网、酷６网、５６网等网站上的ＦＬＶ视频节目轻松下栽到自己的电脑上保存下来，并

可以根据需要转换成不同的格式。

关键词：维棠；ＦＬｖ文件；下载；格式转换

１ ＦＬＶ视频简介

ＦＬＶ视频即Ｆｌａｓｈ Ｖｉｄｅｏ，是Ｍａｃｒｏｍｅｄｉａ公司推出的一种

流媒体视频格式，与其他视频格式相比，ＦＩＪＶ视频文件较小，

加载速度非常快，便于在互联网上传输。并且，ＦＬＶ视频采用

嵌入在浏览器中的Ｆｌａｓｈ Ｐｌａｙｅｒ来播放．用户不需要再安装另

外的视频播放器就可以直接观看，非常方便。因此，ＦＬＶ格式

推出不久，就受到各大网站的青睐，例如优酷网、土豆网、酷

６网、５６网等都采用ＦＬＶ作为自己的网络视频格式，内容上

涵盖娱乐、教育、新闻等方面，一时间，互联网上出现了大量

的ＦＬＶ文件。

但是大家在使用的过程中或许已经发现，这种ＦＬＶ的视

频格式．只能在线观看不能下载，即便是下载也要借助于该

网站提供的下载软件，例如５６网提供的５６ｉｃａｎ、土豆网提供

的ｉＴｕｄｏｕ等．播放这些文件也需要专门的播放器，这显然是

不方便的．而且安装这么多的插件也会加重电脑的负担。只

安装一个“维棠”．就可以轻松地解决各大网站的ＦＬＶ格式

视频的下载、播放及格式转换问题．接下来就一起来看怎么

做吧。

２安装“维棠”软件

２．１ 下载

首先从“维棠”官网（网址：ｈｔｔｐ：／／ｗｗｗ．ｖｉｄｏｗｎ．ｃｎ／

ｓｕｐｐｏｒｔｌｉｓｔ．ｈｔｍ１）下载该软件，目前最新版本是ＶｉＤｏｗｎ－１．１．２－２。

２．２安装

（１）双击ＶｉＤｏｗｎ１．１．２．２ｓｅｔｕｐ．ｅｘｅ进行安装，将会弹出一

个选择安装语言的对话框，选择“简体中文”，单击“ＯＫ”按

钮。

（２）从接下来弹出的对话框中单击“下一步”按钮。

（３）然后从弹出的对话框中单击“我接受”按钮，接受授

权协议中的条款。

８８ 电 与雏

（４）然后会弹出选择安装目录的对话框，单击“浏览”按

钮可以选择自己要安装的目录。按默认设置，单击“下一步”

按钮继续安装。

（５）接下来的对话框主要是一些附加任务的选择，例如是

否创建桌面图标、快速启动图标等．可以根据自己的需要进行

选择某些任务或取消某些任务。然后单击“安装”按钮，开始

安装。

（６）稍微等待几秒钟即可，从弹出的对话框中单击“完

成”按钮。即可完成安装。

（７）安装完成后将自动运行该软件，或者从“开始”菜单

中选择“程序”一“维棠ＦＬＶ视频下载软件”．或者单击桌面

快捷图标，都可以启动该软件。启动后界面如图ｌ所示。

图１程序运行界面

该软件的界面比较简单，上方是该软件的菜单栏和常用的

工具栏，主要的操作都是通过菜单栏和工具栏里的命令来完成

的。左侧是一个列表，包括正在下载的视频、已经完成下载的

视频和已经删除的视频列表，需要查看哪一部分，直接单击选

择即可。

３使用“维棠”下载ＦＬＶ视频

在优酷网、土豆网等网站浏览视频时。如果想下载到自己

（下转第９３页）

ＴＲ０ＵＢｌＥＳＨ００ＴｌＨＢ ＯＦ ＰＲＯＧＲＡＭ

ＶＢＡ中常见自定义控件应用有何技巧

小少朋友喜欢对ＯＭｃｅ进行二次开发．用ＶＢＡ来提高

自己的办公效率，恰当、合理地使用ＶＢＡ提供的自定义控件

不仪可以让应用程序窗体变得更加美观，同时也能使设计的应

用更加的个性化、更加方便用户的使用。

在默认的情况下，窗体控件工具箱中仅给出了常见的几个

控件，事实上，ＶＢＡ的控件数量远不止如此。用户可以根据

需要在控件工具箱上添加一些标准控件或自定义控件，也可以

随时删除它们。接下来，为大家介绍几个常见的自定义控件的

使用方法．希望大家能充分地运用这些控件，这样会使应用程

序增色不少。

（１）日历控件【Ｃａｌｅｎｄａｒ）

在Ｅｘｃｅｌ ＶＢＡ窗体的工具箱中没有提供Ｅｌ历控件对象，事

实上很多应用程序在设计的时候需要用到此控件，利用它可以

方便地插入用户输入的日期。首次使用该控件时需要将其添加

到窗体工具箱中。添加的方法是：

打开ＶＢＥ编辑器．首先在当前工作薄中插入一个用户窗

体。接下来单击“工具”菜单的“附加控件”命令，打开“可

用控件”对话框，在“可用控件”列表框中选择“日历控件

ｌ１．０” （Ｏｆｆｉｃｅ版本为２００３），单击“确定”按钮。此时在窗体

工具箱中多出了一个“Ｃａｌｅｎｄａｒ”（Ｅｌ历）控件。

与其他可编程控件一样，日历也有很多的属性，如：

ＢａｃｋＣｏｌｏｒ属性可用来设置日历控件的背景色：Ｙｅａｒ、Ｍｏｎｔｈ和

Ｄａｙ属性可用来提取所选日历的年份、月份和日期；Ｖａｌｕｅ属

性用于显示用户在Ｅｌ历控件中选定的日期值等。

接下来．看一个关于日历控件应用的例子：

当在工作表中输入出生日期时，系统自动弹出插入日期的窗

体，用户选择日期并确认后，日期将被插入到指定的单元格中。

打开ＶＢＥ编辑器．在当前工作簿中插入一个用户窗体，

利用Ｅｌ历控件和按钮控件设计如图１所示的用户界面。双击窗

体中的命令按钮。在其Ｃｌｉｃｋ事件中编写下面的代码：

Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ １ Ｃｌｉｃｋ（）

ＡｃｔｉｖｅＣｅｌ１．Ｖａｌｕｅ＝Ｃａｌｅｎｄａｒ１．Ｖａｌｕｅ

ＵｓｅｒＦｏｒｍ１．Ｈｉｄｅ

Ｅｎｄ Ｓｕｂ

双击当前的工作表（如ｓｈｅｅｔ１），在其ＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ事

件中编写下面的代码：

Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｏｒｋｓｈｅｅｔ

＿Ｓｅｌｅｃ ｏｎＣｈａｎｇｅ（ＢｙＶａｌ Ｔａｒｇｅｔ

Ａｓ Ｒａｎｇｅ）

判断用户选中的是否为第３列

ｌｆ Ｔａｒｇｅｔ．Ｃｏｌｕｍｎ＝３ Ｔｈｅｎ

ＵｓｅｒＦｏｒｍ１．Ｓｈｏｗ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

输人数据时．当用户将光标移到到第３列即出生日期所在

列时自动弹出用户窗体。用户选择完Ｅｌ期并单击“插入Ｅｌ期”

按钮后，所选日期自动插入到当前的单元格中，同时用户窗体

自动隐藏。这样，用户就可以方便地录入日期数据了。

图１ 日历控件

（２）日期控件（ＤＴＰｉｃｋｅｒ）

与日历控件一样，日期控件也是一个用来获取日期的控

件，功能大致相同，但操作界面与日历控件略有区别，该控件

在应用程序的开发中比日历控件应用更为常见。

首次使用日期控件时也需要将其添加到窗体工具箱中去，

添加的方法与日历控件类似。日期控件的名字是“Ｍｉｃｒｏｓｏｆｔ

Ｄａｔｅ ａｎｄ Ｔｉｍｅ Ｐｉｃｋｅｒ Ｃｏｎｔｒｏｌ ６．０（ＳＰ４）”。其主要属性有：

Ｆｏｒｍａｔ属性用于指定日期的显示格式：Ｖａｌｕｅ属性值与用户选

定的日期值有关：Ｙｅａｒ、Ｍｏｎｔｈ和Ｄａｙ属性可用来提取所选日

期值的年份、月份和Ｅｌ期等。

也来看一个关于日期控件使用的例子：

使用窗体查询或采集数据时经常会遇到日期输入的问题。

此时既可以手工输入日期数据，也可以单击列表框右侧的下拉

按钮选择日期数据。图２为日期控件在应用程序设计中的典型

应用，系统可将用户选择的Ｅｔ期值回显到指定的文本框或其他

对象中，从而方便了日期数据的查询或采集。

图２日期控件

（３）Ｆｌａｓｈ控件

在Ｏｆｆｉｃｅ组件中利用控件工具箱提供的“其他控件”中的

“Ｓｈｏｃｋｗａｖｅ Ｆｌａｓｈ Ｏｂｊｅｃｔ”对象可以在文件中插入Ｆｌａｓｈ文件，

其实在ＶＢＡ的应用程序窗体中也可以插入ｎａｓｈ对象。要使用

Ｆｌａｓｈ控件．首先需要从“附加控件”对话框中选中它并将其

添加到窗体工具箱上，该控件的名字是“Ｓｈｏｃｋｗａｖｅ Ｆｌａｓｈ

Ｏｂｊｅｃｔ”。

在窗体中添加Ｆｌａｓｈ对象的方法与在文档中添加Ｆｌａｓｈ的

方法相同，这里就不再赘述了。利用Ｆｌａｓｈ控件对象可以制作

出精美的欢迎界面、功能强大的ＣＡＩ（计算机辅助教学）软件

以及一些个性化的应用程序菜单等．结合Ｆｌａｓｈ本身强大的

Ａｃｔｉｏｎ Ｓｃｒｉｐｔ命令．几乎无所不能。

蝴 ｊ ８９

、々 Ｊ ｜ｌ Ｊ Ｊ 实用第一： 智慧密集

， ； ．

（４）进度条控件（ＰｒｏｇｒｅｓｓＢａｒ）

进度条控件是用来显示进度的控件，该控件在应用程序的

加载、下载等待、安装等应用中非常的广泛。要使用进度条控

件．首先需要从“附加控件”对话框中选中它并将其添加到窗

体工具箱上，进度条控件的名字是“Ｍｉｃｒｏｓｏｆｔ ＰｒｏｇｒｅｓｓＢａｒ

Ｃｏｎｔｒｏｌ ６．０（ｓＰ４）”。

该控件的主要属性有：Ｍａｘ属性用于指定进度条控件的最

大值；Ｍｉｎ属性用于指定进度条控件的最小值；Ｖａｌｕｅ属性用

于显示进度条的进度值。

下面例子可以实现模拟的应用程序进度加载效果。利用进

度条控件和标签控件，可以设计一个如图３所示的窗体界面，

最后在窗体Ａｃｔｉｖａｔｅ事件中编写如下代码就可以模拟其效果了。

Ｐｒｉｖａｔｅ Ｓｕｂ ＵｓｅｒＦｏｒｍ Ａｃｔｉｖａｔｅ（）

ＰｒｏｑｒｅｓｓＢａｒ１．Ｍｉｎ：１

ＰｒｏｇｒｅｓｓＢａｒ１．Ｍａｘ＝２００００

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝”０％“

Ｆｏｒ ｉ＝１ ＴＯ １００００ Ｓｔｅｐ ０．１

ＰｒｏｇｒｅｓｓＢａｒ１．Ｖａｌｕｅ＝Ｓｔｒ（ｉ）

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝Ｒｏｕｎｄ（ ／１００００，２） １ＯＯ＆“％”

ＤｏＥｖｅｎｔｓ

Ｎｅｘｔ ｉ

Ｅｎｄ Ｓｕｂ

图３进度条控件

朋友们可以根据演示的速度来调整代码中的相关数值。需

要说明的是：代码中使用了ＤｏＥｖｅｎｔｓ函数，其作用足转让控

制权，以便让操作系统处理其它的事件。当需要执行一段循环

代码时．特别是循环的次数较大时，为了防止出现死机或死循

环．在循环代码的开始加上ＤｏＥｖｅｎｔｓ函数以便在程序运行过

程中可以中止程序的运行。本例稍有遗憾的是无法根据系统的

运行情况实现进度条加载速度快慢的控制，感兴趣的朋友可进

一步做些尝试。

其实ＶＢＡ中的自定义控件也不止今天介绍的这几个，在

很多时候．其实用户的很多需求利用这些自定义控件就可以很

方便地实现了，而不是需要辛辛苦苦地去重复编写这些代码，

当然这需要大家平时就要留意收集和整理这方面的技巧与心得。

（作者：仲勇）

质数判别有哪些问题有待探讨

质数在研究整数的过程中占有一个很重的地位，它被称

为自然数的“建筑的基石”。虽然有很多数学家和学者致力于对

它的研究，但成果并不显著，仍有许多问题有待解决。例如，哥

德巴赫猜想困扰了人们几百年．有很多数学家对它进行了多年的

９０ 电 与雏

研究但并没有得到解决。随着现代科学技术的迅速发展，运用

计算机能够较快地计算某自然数是否是质数，知道在某范同内

质数的分布情况。另外。质数在信息学奥林匹克竞赛中也屡屡

出现，技巧性非常强，可以锻炼和提高学生的思维，所以有必

要对质数在计算机上如何进行判别的相关问题进行一些探讨。

（１）质数的定义法

１）如何判别一个数为质数

什么是质数？质数是一个大于１的整数，如果它的正因数

只有１及它本身，这个数就叫质数（或素数）。通俗的讲，质

数是只有１和它本身两个约数的自然数，不能被任何其他的自

然数整除。

如何判别一个数是质数呢？按照上述对质数的定义，就要

用２到这个数减１的数分别去除这个数，如果都不能把它整除

了，那么这个数就被认为是质数。用程序表示如下：

ｖａｒ

ｎ， ：ｉｎｔｅｇｅｒ：

ｆ：ｂｏｏｌｅａｎ；

ｂｅｇｉｎ

ｒｅａｄ（ｎ）；

ｆ：＝ｔｒｕｅ；

ｆｏｒ ｉ：＝２ ｔｏ ｎ－１ ｄｏ

ｉｆ ｎ ｍｏｄ ｉ＝Ｏ ｔｈｅｎ ｆ：＝ｆａｌｓｅ；

Ｉｆ ｆ ｔｈｅｎ ｗｒｉｔｅｌｎ（‘ＹＥＳ’）

ｅｌｓｅ ｗｒｉｔｅｌｎ（“ＮＯ’）：

ｅｎｄ．

这个程序按照质数的定义来判断一个整数是否是质数是没

什么问题的，但它还是做了许多无用功。比如，来判断ｌ５是

否为质数。如果用上面的程序，就得从２到１４分别去除１５，

其实是没有必要的。如果１５能被３整除了，就说明它是合数

了．还有必要再用４ １４去除吗？这时就应中断循环。另外，

在循环的次数上还可以优化，假如判定３６是否为质数，只要

从２到６分别去除３６就可以了，为什么？因为：２ｘ１８＝３６；３ｘ

１２＝３６；４ｘ９＝３６；６ｘ６＝３６；如果２、３、４、６能把３６整除了，

那１８、１２、９肯定也能把３６整除。所以可把上面的程序优化

为：

Ｖａｒ

ｎ，ｉ：ｉｎｔｅｇｅｒ：

ｆ：ｂｏｏｌｅａｎ；

ｂｅｇｉｎ

ｒｅａｄ（ｎ）；

ｆ：＝ｔｒｕｅ；

ｆｏｒ ｉ：＝２ ｔｏ ｒｏｕｎｄ（ｓｑｒｔ（ｎ））ｄｏ

ｉｆ ｎ ｍｏｄ ｉ＝Ｏ ｔｈｅｎ ｂｅｇｉｎ

ｆ：＝ｆａｌｓｅ；

ｂｒｅａｋ；

ｅｎｄ；

ｉｆ ｆ ｔｈｅｎ ｗｒｉｔｅｌｎ《‘ＹＥＳ’） ．．

… 、－ＴＲ０ＵＢｌＥＳＨ００ＴＩＨＧＯＦＰＲＯＧＲＡＭ“ ｕｕ一 … 一 …… … ． … ……－ｎｍ…－一…一－ 一 ． ．．

ｅｌｓｅ ｗｒｉｔｅｌｎ（“ＮＯ’）

ｅｎｄ．

经过优化后的程序，大大缩短了质数的判别时间。

２）如何找出任意两个正整数之间的质数

如果再寻找某一区间内的所有质数就好办了，只要在上面

的程序加上一个大循环就行了。如，找出ａ—ｂ（ａ≤ｂ，ａ，ｂ是正整

数）之间的质数，实现的程序就是：

Ｖａｒ

ａ，ｂ，ｎ，ｉ：ｉｎｔｅｇｅｒ

ｆ：ｂｏｏｌｅａｎ：

ｂｅｇｉｎ

ｒｅａｄ（ａ，ｂ）：

ｆｏｒ ｎ：＝ａ ｔｏ ｂ ｄｏ

ｂｅｇｉｎ

ｆ：＝ｔｒｕｅ；

ｆＯｒ ：＝２ ｔｏ ｒｏｕｎｄ（ｓｑｒｔ（ｎ））ｄｏ

ｉｆ ｎ ｍｏｄ ｉ＝Ｏｔｈｅｎ ｂｅｇｉｎ

ｆ：＝ｆａｌｓｅ；

ｂｒｅａｋ；

ｅｎｄ；

．ｆ ｆ ｔｈｅｎ ｗｒｉｔｅ（ｎ，‘’）

ｅｎｄ；

ｅｎｄ，

上述程序对整型（ｉｎｔｅｇｅｒ）内的数进行判定一般不成什么

问题，一旦数大了，会出现超时。尤其是奥林匹克竞赛上的试

题，测试数据有的是很大的，如果超时就难获得满分，就得采

用另一种方法——筛选法。

（２）合数过滤筛选法

质数是不能被２一（ｎ一１）间的任何数整除；反过来看，只

要能被２～（ｎ一１）间的任何数整除的ｎ，都不是质数。我们可以

采用一个简单的排除法：就是对ｎ以内的所有数．只要逐个去

掉值为２～（ｎ～１）的倍数的数，剩下的数就是质数。

现在以一个奥赛试题进行分析：选数（２００２年试题）：

问题描述：已知ｎ个整数，ｘ１，ｘ２，ｘ３，……ｘｎ，以及一

个整数ｋ（ｋ＜ｎ）。从ｎ整数中任选ｋ个整数组合相加，可分别得

到一系列的和。现在要求你计算出和为素数（质数）的组合数

有多少种。 （１≤ｎ≤２０，ｋ＜ｎ，１≤ｘｉ≤５００Ｏ０００）。在此只对试题

质数的判定来分析：由于整数ｘｉ的上限为５００００００，ｋ的上限为

ｌ９，这就使得￣ｌｂＪ＇ｌ ｋ个整数的和是否为质数的问题似乎有点困

难。为了保证在该范围内能正确出解，且不超时，先进行筛选，

将１＾，ｌＯ０００间的质数筛选出来存人质数表Ｐ中。由于Ｐ表中的最

大质数接近１００００，其平方大于或等于ｘｉ和的上限１９ｘ５００００００

（ｋ最大值是１９），因此是一个比较可行的方法：

ｖａｒ

ｆ：ａｒｒａｙ［１．．１００００】ｏｆ ｂｏｏｌｅａｎ；｛标记是否为质数）

Ｐ：ａｒｒａｙ［１．．５０００１ ｏｆ Ｉｏｎｇｉｎｔ；｛存放质数）

ｋ：ｉｎｔｅｇｅｒ：

编写一个过程来筛选质数：

Ｐｒｏｃｅｄｕｒｅ ｐｒｉｍｅ；

Ｖａｒ

ｉ，ｊ：ｉｎｔｅｇｅｒ；

ｂｅｇｉｎ

ｋ：＝０：

ｆｉｌｌｃｈａｒ（ｆ，ｓｉｚｅｏｆ（ｆ），ｔｒｕｅ）；

们Ｊ：＝ｆａｌｓｅ；

ｆｏｒ ｉ：＝２ ｔｏ １００００ ｄｏ

ｊｆ ｆ［ｉ】ｔｈｅｎ ｂｅｇｉｎ

ｉｎｃ（ｋ）：｛计质数的个数）

ｐ【ｋ】：＝ｉ ｛存放质数）

ｊ：： ；｛能用加法就不要用乘法｝

ｗｈｉｌｅ ｊ＜＝１００００ ｄｏ｛将ｉ的倍数筛掉）

ｂｅｇｉｎ

ｆ［ｊ］：＝ｆａｌｓｅ；

ｊ：＝ｊ＋ｉ：

ｅｎｄ；

ｅｎｄ；

ｅｎｄ；

上面的程序运行后，在质数表Ｐ中就有ｋ个质数。在质数

表Ｐ的基础上再去判别和数ｓｔｌｍ是否为质数。大家知道，任何

一个大于１的整数都可以分解成质因子的乘积形式，而Ｐ表中

的质数是按递增方向存放的．如果用Ｐ表中的每个质数去除

ＳＨｉｌｌ，若某个质数能把ＳＨＩｎ整除，则说明ＳＨＩｎ为合数；若ＰⅢｉ

Ｐ【ｉ】＞ｓｕｍ，则说明ｓｌｌｍ不可能分解出比Ｐ［ｉ］大的质数了，

ＳＨｉｌｌ本身就是质数了。判别函数程序如下：

ｆｕｎｃｔｉｏｎ ｔｅｘｔ（ｓｕｍ：ｌｏｎｇｉｎｔ）：ｂｏｏｌｅａｎ；

Ｖａｒ ｉ：ｉｎｔｅｇｅｒ；

ｂｅｇｉｎ

ｔｅｘｔ＝ｔｒｕｅ；

ｆｏｒ ｉ：＝１ ｔｏ ｋ ｄｏ

ｂｅｇｉｎ

ｉｆ ｐ【ｉ】 ｐ［ｉ】＞ｓｕｍ ｔｈｅｎ ｂｒｅａｋ（若超出搜索范围的上

限，则说明ｓｕｍ是质数，返回ｔｒｕｅ）

ｅｌｓｅ ｉｆ ｓｕｍ ｍｏｄ ｐＩｌ】＝０ ｔｈｅｎ ｂｅｇｉｎ

ｔｅｘｔ：＝ｆａｌｓｅ；

ｂｒｅａｋ；

ｅｎｄ；｛说明ｓｕｍ不是质数，返回ｆａｌｓｅ｝

ｅｎｄ；

ｅｎｄ；

这样在程序中只要调用一次过程。就可将质数筛选出来，再

将每次组合的和数用函数去判别，大大提高了程序的运行时间。

再看一个实例．大家都听说过哥德巴赫猜想的问题．迄今为

止，这仍然是一个著名的世界难题，被誉为数学王冠上的明珠。

问题描述：任何一个大于２且不超过ｎ的偶数都能写成两

个质数之和。

问题分析：由题意可知，程序是要对组成上述范围内的任

一个偶数的两个整数进行质数判别。如果ｎ的数不是很大，用

蝴 ９１

＊ 。… Ｈ “ … Ｊ’ ’ １ ’ ’ 、 实用第一 智慧密集

．． ¨ …

２到ｒｏｕｎｄ（ｓｑｒｔ（ｎ））之间数去除，进行两次判别，机器还能承

受；如果ｎ的值很大，肯定是要超时的。为了保证ｎ是大数时

能出正确解，是用筛选法来编写程序，验证哥德巴赫猜想问

题。 （在这里ｎ是大于２且小于等于１００００之间的偶数）：

Ｖａｒ

ｎ，ｉ：ｌｏｎｇｉｎｔ；

ｍ，ｊ，ｋ：ｉｎｔｅｇｅｒ；

ｐ：ａｒｒａｙ［１．．１００００】ｏｆ Ｉｏｎｇｉｎｔ；

ｆ：ｂｏｏｌｅａｎ；

ｂｅｇｉｎ

ｒｅａｄｌｎ（ｎ）；

ｍ：＝１：

ｐ［１１：＝２：｛将质数２放人Ｐ表中）

ｆｏｒ ｉ：＝３ ｔｏ ｎ ｄｏ｛筛选ｎ以内的所有质数）

ｂｅｇｉｎ

ｆ：＝ｔｒｕｅ；

ｆｏｒ ｊ：＝１ ｔｏ ｍ ｄｏ｛用质数表中的质数去除ｉ，如果整

除ｉ就是合数）

ｍｏｄ ｌ＿Ｏｔｈｅｎ ｂｅｇｉｎ

ｆ：＝ｆａｌｓｅ；

ｂｒｅａｋ；

ｅｎｄ；

ｉｆ ｆ ｔｈｅｎ ｆ如果不能被整除，ｉ就是质数并放入Ｐ表）

ｂｅｇｉｎ

ｉｎｃ（ｍ）；

ｐｆｍＩ：＝

ｅｎｄ；

ｅｎｄ；

ｆｏｒ ｉ：＝２ ｔｏ ｌｎ ｄｉｖ ２）ｄｏ｛验证任一个大于２的偶数都可

以用两个质数和表示｝

ｆｏｒ ｊ：＝１ ｔｏ ｍ ｄｏ

ｂｅｇｉｎ

ｆ：＝ｆａｌｓｅ；

ｆｏｒ ｋ：＝ｉ ｔｏ ｍ ｄｏ

ｉｆ ｉ＋ｉ＝ｐ【ｊｌ＋ｐ【ｋ】ｔｈｅｎ

ｂｅｇｉｎ

ｆ：＝ｔｒｕｅ；

ｗｒｉｔｅｌｎ（ｉ＋ｉ， ＝ ，ｐ【ｊ】， ＋ ，ｐ【ｋ１）：

ｂｒｅａｋ；

ｅｎｄ；

ｉｆ ｆ ｔｈｅｎ ｂｒｅａｋ；

ｅｎｄ；

ｅｎｄ．

这个问题还是很有趣的，同学们不妨运手试一试。

（３）其他方法与技巧

有些问题中，并不是涉及到质数都得要去判别是否为质

数，只要算法合适，问题完全可以简化。比如：求２－ｌＯ０中．

每个数的质因子。输出形式如下：

２＝２

３＝３

９２电器 与雄 。电脑缡程技巧与雄护、’．

４＝２ ２

５＝５

６＝２ ３

’００＝２ ２ ５ ５

认真观察．仔细分析上面的输出形式：发现它是先用最小

的质数２连续去整除，直到不能被整除了，如果这时商不为

ｌ，将除数加１，继续去除。直至商等于１时，说明该数分解

完成。由于在每次开始时都是用质数连续去除，直到不能整除

为止，所以出现的因子都会是质因子。程序如下：

Ｐｒｏｇｒａｍ ｚｈｉｙｉｎｚｉ；

ｖａｒ ａ，ｂ，ｎ：ｉｎｔｅｇｅｒ；

ｂｅｇｉｎ

ｆｏｒ ｎ：：２ ｔｏ １Ｏ０ ｄｏ

ｂｅｇｉｎ

ａ：＝２：

ｂ：＝ｎ：

ｗｒｉｔｅ（ｂ， ＝ ）：

ｒｅｐｅａｔ｛ｂ是变化的被除数，ａ是变化的除数）

ｗｈｉｌｅ ｂ ｍｏｄ ａ＜＞Ｏ ｄｏ ａ：：ａ＋１：｛ｂ不能被整除，除数加１）

ｂ：＝ｂ ｄｉｖ ａ：｛ｂ被ａ整除了，产生新的被除数ｂ）

ｉｆ ｂ＝ｌ ｔｈｅｎ ｗｒｉｔｅ（ａ）｛ｂ＝ｌ时分解完毕｝

ｅｌｓｅ ｗｒｉｔｅ（ａ， ，）：｛ｂ＜＞１时，输出当前质因子

ａ，等待下一个质因子的输出）

ｕｎｔｉｌ ｂ＝ｌ：｛本次分解质因子结束）

ｗｒｉｔｅｌｎ；

ｅｎｄ；

ｅｎｄ．

从这个程序中可以得知：任何一个大于ｌ的正整数都可以

用质因子的乘积表示。

看一下２０１２年普及组复赛的第一题“质因数分解”。

问题描述：已知正整数ｎ是两个不同的质数的乘积，试求

出较大的那个质数。

输入文件：只有一个正整数ｎ：

输出文件：较大的那个质数Ｐ：

数据范围：６≤ｎ≤２ｘ１０９。

问题分析：根据给出的数据范围，ｎ的上限达到２ｘ１０９，

如果它的两个因子都要判别是否为质数的话．那一定会超时

的。由前面的例题已经知道：任何一个正整数都能表示成质因

子的乘积。而此题正是ｎ是两个不同的质数的乘积，那给出的

ｎ就不会出现像７、２８这样的数（７＝７，２８＝２ｘ１４，２８＝４ｘ７）。

那只要在２到ｔｒｕｎｃ（ｓｑｒｔ（ｎ））范围内找出能把ｎ整除的数，这

个数就是那个较小的质因子，较大的那个质因子也就迎刃而解

了。程序如下：

ｐｒｏｇｒａｍ ｐｒｉｍｅ：

ｖａｒ ｎ，ｉ：ｌｏｎｇｉｎｔ；

ｂｅｇｉｎ

ｒｅａｄｌｎ（ｎ）；

１’Ｒ０ＵＢｌＥＳＨ００ＴＩＨＢＯＦＰＲＯＧＲＡＭ 一… －…… … － ……… — … 一…一 ………ｒ 一 …… … － ’ … 一－

ｆｏｒ ｉ：＝２ ｔｏ ｔｒｕｎｃ（ｓｑｒｔ（ｎ））ｄｏ

ｉｆ ｎ ｍｏｄ ｉ＝Ｏ ｔｈｅｎ ｂｒｅａｋ；

ｗｒｉｔｅｌｎ（ｎ ｄｉｖ ｉ）：

ｅｎｄ．

此程序全部通过给出的考试测试数据。

通过以上分析．大家对质数判别问题可能有了初步的认

．Ｓ止．址 ．址．５止 ．Ｓ止．ｓ止． ．ＳｌＬ

识。若能够掌握其算法思想对解决实际问题还是很有必要的。

在平时的训练和学习中，注意锻炼思维能力，勤于思考，发现

规律．在面临一个个题型时能够快捷准确地建立模型，确定算

法，解决问题。以上仅是个人的理解，希望和大家共勉。

（作者：檀素芳）

（上接第８８页）

电脑上保存下来，只需要启动

按钮（如图２所示）。

（１）单击

“维棠”，单击工具栏中的新建 按Ａｈ＋Ｃ快捷键

。 一 蒜

图２新建下载

单击新建按钮后，打开如图３所示的页面，将想要下载的

视频所在页面的网址拷贝到“视频网址”后面的对话框中，

单击“另存到”后面的节略号，指定视频要存储的位置。然后

设置一些参数或按照默认设置，单击确定，即可开始下载视

频．如图４所示。

图３下载设置

图４下载列表

４ ＦＬＶ视频格式转换

目前很多视频播放软件和课件制作软件还不支持ＦＬＶ格

式的视频，所以需要把下载的ＦＬＶ文件转换成其他通用的视

频格式．如Ａｖｉ、Ｗｍｖ、Ｍｐ３、Ｍｐ４等。做法如下：

． 止 — ．毒止舢—Ｓ ．Ｓｌ上．ｓ止 ．址舢—Ｓ止．址

“工具”菜单栏，选择“转换管理器”，或者

打开如图５所示的对话框。

图５视频转换对话框

（２）单击图５中的“新建任务”按钮，打开图６所示的

页面。从中单击“源文件”后面的“浏览”按钮，选择要转换

的源文件。单击“输出文件”后面的“浏览”按钮，指定要输

出文件的保存路径和要输出的格式，单击“确定”按钮，即可

完成格式转换。操作非常方便，也可以根据需要截取视频中的

某个片段进行转换。

图６转换设置

这样只需要一个软件“维棠”，就可以完成下载、格式转

换的功能，完成后可以得到Ａｖｉ、Ｗｍｖ、Ｍｐ３等格式的视频，

可以直接用于ＭＰ３、手机等其他的播放设备，也可以插入到

Ｐｏｗｅｒｐｏｉｎｔ等软件中作为演示材料，这一点对于教师朋友们有

很大的帮助。

（收稿日期：２０１２—１２—１７）

ｉ 脑螭程２技０巧１３与．０雅９护９３