vb程序提取制定文件夹下的所有类型的文件名倒入到电子表格Word格式.docx

vb程序提取制定文件夹下的所有类型的文件名倒入到电子表格Word格式.docx

《vb程序提取制定文件夹下的所有类型的文件名倒入到电子表格Word格式.docx》由会员分享，可在线阅读，更多相关《vb程序提取制定文件夹下的所有类型的文件名倒入到电子表格Word格式.docx（4页珍藏版）》请在冰豆网上搜索。

clientheight=2100clientleft=1905clienttop=1875clientwidth=3660linktopic="

scaleheight=2100scalewidth=3660

　　beginVmandbuttoncommand1caption="

输出最大值"

height=375left=960tabindex=0top=1320width=1575endend

　　attributeVb_name="

　　attributeVb_globalnamespace=FalseattributeVb_creatable=FalseattributeVb_predeclaredid=trueattributeVb_exposed=Falseoptionbase1

　　privatesubcommand1_click（）dimarrn（30）asintegerdimmaxasintegerRandomizeForm1.clsFori=1to30

　　’**********found*************’’请不要删除该行’arrn（i）=int（Rnd*51）91

　　printFormat（arrn（i）,"

@@@@@@"

）;

　　ifimod6=0thenprintnexti

　　’**********found*************’’请不要删除该行’max=arrn（0）1Fori=2to30ifmax　　print"

max="

;

max

　　2.在考生文件夹下有一个工程文件modi.vbp，相应的窗体文件为modi.frm。

在窗体上有一个命令按钮。

程序中定义了过程sub1,其功能是在屏幕上输出一个n行的乘法表。

程序运行时，单击命令按钮，由用户输入行数，调用sub1，输出乘法表。

例如n=3时，输出如下（界面请参阅附图）。

　　一共有3行1*1=1

　　2*1=22*2=4

　　3*1=33*2=63*3=9

　　’**********found*************’’请不要删除该行’

　　的下面一行中，请不要改动程序中的其他部分。

只在指定的修改行中修改，运行程序。

最后把修改后的文件按原来文件名存盘，提交程序改错题文档。

　　VeRsion5.00

输出乘法表"

clientheight=3900clientleft=60

　　clienttop=345clientwidth=7305linktopic="

scaleheight=3900scalewidth=7305

　　startupposition=3’窗口缺省beginVmandbuttoncommand1caption="

beginpropertyFont

　　name="

宋体"

size=12charset=134weight=400

　　underline=0’Falseitalic=0’Falsestrikethrough=0’Falseendproperty

　　height=735left=2760tabindex=0top=2520width=2175endend

　　attributeVb_globalnamespace=FalseattributeVb_creatable=FalseattributeVb_predeclaredid=trueattributeVb_exposed=Falseprivatesubcommand1_click（）dimnasinteger

　　n=inputbox（"

请输入行数n"

）cls

　　print"

一共有"

n;

"

行"

　　’**********found*************’’请不要删除该行’callsub1callsub1（n）endsub

　　subsub1（nasinteger）dimi,j

　　Fori=1ton

　　’**********found*************’’请不要删除该行’Forj=1toni

　　printi;

*"

j;

="

i*j,

　　nextjprintnexti

　　篇二：

用excel从文件夹中提取所有文件名

　　用excel从文件夹中提取所有文件名

　　1.把一个文件夹中的所有文件名整理到一个文件中，便于管理和查询以及打印，多数是使用“复制”、“粘贴”方法（将文件夹中的文件重命名，在可编辑状态下进行复制，而后在其他文档中粘贴）。

这种办法可行，但对于文件夹中有大量的文件的情况，则工作效率低，而且做完后必须核对。

　　2.利用dos的重定向命令“〉”加excel的引用外部数据功能可实现方便快捷的方法（关于dos中的重定向“〉”。

假设我们要提取c盘下的windows目录下的所有文件及文件夹名。

　　第1步在dos或windows98的ms-dos方式下，输入如下命令：

c:

＼windows＼dir〉d:

＼1.txt（回车）

　　第2步打开一个新的excelxp电子表格，单击工具栏中的“数据”下拉菜单，选择“导入外部数据→导入数据”命令，打开“导入数据”对话框，在“查找范围”中找到d盘下的

　　1.txt文档，单击“打开”，进入“文本导入向导-3步骤之1”。

　　第3步在“原始数据类型”单选框中选“分隔符号”后按“下一步”，进入“文本导入向导-3步骤之2”。

　　第4步在“分隔符号”复选框中选“分号、逗号、空格、其他”，并在“其他”后的空格中填“.”，按“下一步”，进入“文本导入向导-3步骤之3”。

　　第5步单击“完成”，出现“导入数据”对话框，选择“现有工作表”单选框后按“确定”。

　　3.到了这里，你应可以看到8列数据，第一列便是所要的“文件名”。

但是，diR命令的显示的中文文件名只显示3～4个汉字，别急，看看第7列（g列），所有的完整的文件名都在这里！

第8列是文件名的后缀，方便于筛选（对于excel2000，所不同的是在工具栏中的“数据”下拉菜单下，选择的是“获取外部数据/导入文本文件”命令）。

　　篇三：

vb的操作题（有答案）

　　1.

（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。

程序刚运行时，会生成一个有10个元素的整型数组。

若选中"

查找最大值"

（或"

查找最小值"

）单选按钮，再单击"

查找"

按钮，则找出数组中的最大值（或最小值），并显示在标签label2中。

请去掉程序中的注释符，把程序中的？

改为正确的内容。

　　考生不得修改窗体文件中已经存在的程序。

最后把修改后的文件按原文

　　件名存盘。

　　privatesubcommand1_click（）

　　x=a

（1）

　　y=a

（1）

　　Fori=2to10

　　ifoption1.Value=truethen

　　ifa（i）xthen

　　>

x=a（i）

　　endif

　　elseifa（i）

　　　　endif

　　next

　　label2.caption=x

　　else

　　label2.caption=y

　　endsub

　　2.

（2）在名称为Form1的窗体上画一个名称shape1的形状控件，在属性窗口中将其设置为圆形。

画一个名称为list1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。

将窗体的标题设为"

图形控件"

。

单击列表框中的某一项，则将所选的值作为形状控件的填充参数。

例如，选择3，则形状控件中被竖线填充。

如图所示。

　　要求：

　　程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。

　　在shape控件中，可以用Fillstyle属性设置图形的填充图案，0：

透明，2：

虚线，3：

点线，4：

点划线，5：

双点划线，6：

内实线。

　　list控件的click事件过程为：

　　privatesublist1_click（）

　　shape1.Fillstyle=list1.text

　　3.

（1）在名称为Form1的窗体上画一个文本框，名称为text1；

　　再画二个命令按钮，名称分别为c1、c2，标题分别为"

隐藏"

、"

显示"

（如图所示）。

请编写适当的事件过程，使得在运行时，如果单击"

按钮，则文本框消失，而如果单击"

按钮，则文本框显示出来。

程序中不得使用任何变量。

*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

　　隐藏：

text1.visible=false

　　显示：

text1.visible=true

　　4.在窗体上画二个文本框，名称分别为text1、text2。

请设置适当的控件属　　

性，并编写适当的事件过程，使得在运行时，如果在text1中每输入一个字符，则显示一个"

，同时在text2中显示输入的内容（如图所示）。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

　　答案：

将text1的文本框的passwordchar属性为"

privatesubtext1_change（）

　　text2.text=text1.text

　　5.

（1）在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？

号的地方填入正确内容，然后删除？

及所有注释符（即号）但不能修改其他部分。

存盘时不得改变文件名和文件夹。

　　本题描述如下：

在窗体上有一个列表框，名称为list1，一个文本框，名称为text1，和一个命令按钮，名称为c1，标题为"

复制"

　　要求程序运行后，在列表框中自动建立四个列表项，分别为"

item1"

item2"

item3"

item4"

如果选择列表框中的一项，则单击"

按钮时，可以把该项复制到文本框中（如图所示）。

　　dimiasinteger

　　Fori=0to3

　　text1.text=list1

　　nexti

　　6在考生文件夹下有一个工程文件sj31.vbp，相应的窗体文件为sj31.frm，此