vb程序提取制定文件夹下的所有类型的文件名倒入到电子表格Word格式.docx
- 文档编号:15300829
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:4
- 大小:17.74KB
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,此
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 提取 制定 文件夹 所有 类型 文件名 倒入 电子表格