【解析】(1)打开考生文件夹下“VB"文件夹中“test.vbp”工程,参照题中的程序运行界面在窗体Form1中添加标签Label4,并将其Caption属性值设置为空。(2)选择“判断”按钮的Command1_Click()事件过程,将“V B”文件夹下“code.txt”中的程序代码全部复制到该过程中。在注释①中填入string,②所在行填入代码d(3)...
'xlsApp.Visible = False 'xlsApp.Workbooks.Open (DpathBUFF & "/" & f1.Name) 隐式打开,xlsApp调用全部文档 Excel.Workbooks.Open (DpathBUFF & "/" & f1.Name) 显示打开 next
添加一个按钮,caption为"打开当前文件夹",在click事件中写上:shell "explorer "& app.path & "\"就可以了。
(1)打开考生文件夹下“VB”文件夹中“test.vbp”工程,参照题中的程序运行界面,在窗体Form1中添加命令按钮Command2,并将其Caption属性值设置为“清除”。(2)选择“计算”按钮的Command1_Click( )事件过程,将“VB”文件夹下“code.txt”中的程序代码全部复制到该过程中。(3)运行程序,在文本框Text1t和文本框...
VB打开一个文件夹下所有的excel并且对其进行读取操作,自己实现了一部分代码,可是总是提示出错。自己通过监视发现,如果用do while 语句,打开excel的时候其文件名数组为空的了。如果用for循环的话,总是报 实时错误9 超出下标,通过监视也找不到问题所在。 ... 展开 林...
1 利用VB6.0打开“考生文件夹\112”文件夹中的程序“说反话.vbp”进行以下操作并保存。(1)删除代码中的①、②、③,填入正确的语句以实现如下功能:程序运行后在第一个文本框中输入“你好吗”,单击“开始”按钮,在第二个文本框中显示“吗好你”。说反话回输入一句话:开始和你说反话:(2)对其它代码和注释部分不...
如果是txt文件,就做个do while循环,遍沥这一百个目录,把每个读出的文件写在一人Richtext中
230、利用VB6.0打开“考生文件夹\122”文件夹中的程序“07.vbp”进行以下操作并保存。(1)删除代码中的①、②、③,填入正确的语句以实现如下功能:程序运行,当单击“显示”按钮后,随机产生10个0~100的整数,单击窗体,在窗体上显示这10个数的平均值。(2)对其它代码和注释部分不能做任何修改;(3)完成后保存程序并...
dim Path as string path=app.path & IIf(len(app.path)=3,"AA","\AA")if dir(path,vbDirectory)<>"" then Shell "Explorer.exe" & Chr(34) & path & Chr(34)
英文提示都不看,打什么代码呢?