vb程序中怎样用对话框选择需要打开的文件

也可以使用DirListBox 、 FileListBox和DriveListBox 这几个控件各一个

Private Sub Dir1_Change()

File1Path = Dir1Path

End Sub

Private Sub Drive1_Change()

Dir1Path = Drive1Drive

End Sub

其中filelistbox 的pattern属性用于过滤文件扩展名，设为XLS，表示选择XLS文件

再用SET XLBOOK=XLAPP。WORKBOOKSOPEN("" & Dir1Path & "\" & File1FileName & " ")

打开的。改的测试语句如下：

Private Sub Command1_Click()

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

'Set xlBook = xlAppWorkbooksOpen("D:\TESTxls") '打开已经存在的EXCEL工件簿文件

Set xlBook = xlAppWorkbooksOpen("" & Dir1Path & "\" & File1FileName & " ")

xlAppVisible = True '设置EXCEL对象可见（或不可见）

Set xlsheet = xlBookWorksheets("sheet1") '设置活动工作表

'Set xlBook = xlAppWorkbooksOpen("D:\TESTxls") '怎样把这一句改成在系统中选择文件，而不是直接打开指定的文件

End Sub

1．窗体文件的文件名后缀是( C )

A．bmp B．vbp C．frm D．bas

2 文本框中显示的内容，由下列(B )属性反映

Acaption Btext Cseltent Dcolor

3．将命令按钮Command1设置为无效，应修改该命令按钮的( D )属性

A Visible B Value C Caption D Enabled

4．若要改变控件的背景色，则可使用的属性是( A )

A BackColor B ForeColor C BorderStyle D BackStyle

5．VB中声明和命名元素以下说明错误的是( C )

A．这些元素必须以字母或汉字开头

B．它们不能包含句号或者类型声明字符

C．它们的长度不能超过8个字符

D．它们不能与关键字同名

6．下列各组变量声明正确的是( )

A．Dim c% as integer

B．Dim i％, N$ as integer

C．Dim sdf%, tiger!

D．Public n％

7．赋值语句：a=123 & Mid(“123456”, 2, 2)执行后，a变量的值是( )

A．“12323” B．123 C．12323 D．157

8．表达式3 & 6 的运算结果是( D )

A 9 B 18 C．“9” D．“36”

9．VB中，11 \ 2的运算结果是(A )

A．5 B．05 C．55 D．无此运算符

10．设a=2, b=3, c=4, d=5, 表达式a>b AND c<=d OR 2a>c 的值是( )

A．True B．False C．-1 D．1

11．表达式16 / 4–2 3 mod 5的值为( )

A．1 B．-1 C．2 D．3

12 Rnd函数不可能为下列( )值。

A．0 B．1 C．01234 D．00005

13．在默认情况下，下列哪项代表数组A中的第5个元素( B )

A A[4] B A(4) C A(5) D A(6)

14．如下数组声明，（ B ）正确

A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer

C．Dim a[n,n] As Integer D．Dim a(3 4) As Integer

15．复选框的Value属性为0时，表示（A ）

A．复选框未被选中 B．复选框被选中 C．复选框禁用 D．复选框 *** 作有错误

16．列表框中的项目总数可由（ ）属性在程序中设置或引用。

A．Index B．ListCount C．Sorted D．Selected

17．下面程序段运行后，显示的结果是（ ）

Dim x%

If x Then Print x+1 Else Print x

A． 1 B． 0 C． -1 D． 显示出错信息

18 要给x,y两个变量赋初值3，下面语句正确的是（ ）

A xy=3 Bx=3,y=3 C x=y=3 D x=3:y=3

19．下列关于数组的描述错误的是（ ）

A．数组是一种数据类型

B．数组是一组相同类型的变量的集合

C．声明数组时，若省略下界，则下界默认为0

D．静态数组的长度不可变

20．下面关于过程的描述正确的是（ ）

A．函数过程由Sub关键字声明，子过程由Function关键字声明

B 子过程有返回值

C．函数过程有返回值

D．子过程名有类型

21．单选按钮的Value属性可取的值是（ ）

A True和False B 0和1 C 1、2、3 D 0、1、2

22．要获得列表框中项目的数量，可在程序中设置或引用（ ）属性。

A．List B ListCount C ListIndex DText

23．将通用对话框CommonDialog1的类型设置成颜色对话框，可调用该对话框的（ ）方法AShowopen BShowSave C ShowColor D ShowFont

24．（ ）是对象的一个基本要素，它描述了对象在程序中的外观特点。

A 事件 B 属性 C 方法 D 事件程序

没做完 ~~以后的答案在给你

1如果你代码中用到的函数，类。20就能满足。直接用2就好了

2版本的差异，大都是功能上的差别，增加了函数，增加了组件（百度搜

NET Framework各版本比较

）

3UI和框架版本无关，与系统主题和控件自身有关

你想兼容多种版本系统 最好是安装个虚拟机 每个系统都运行一遍

初二就学vb？

这就是个查询功能么，挺简单的。数据库怎么弄，要看你做多细致了，看你的描述一个表就可以了，字段么就是id，name，然后就是其他的什么属性了。

如果不输入的话就在程序里判断一下，为空就不加这个条件就行了。配图的话，存到数据库里就行了，直接从数据库里读取就行了。

改成这样，试试？

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

List1Clear

For i = 1 To 10

a(i) = Int(rand 100 + 1)

List1AddItem Str(a(i))

Next i

End

C错了。一个条件，不能产生两个结果 也就是说 f=sqr(x＋1) 和 f=x x＋3 只能有一个，有两个就矛盾了。

D没错，endif 分不分开没关系的，编写程序的时候，VB会自动给他们分开的。这个不错。

以上就是关于vb程序中怎样用对话框选择需要打开的文件全部的内容，包括:vb程序中怎样用对话框选择需要打开的文件、关于VB程序设计的选择题 各位好心人 帮帮忙、用VB.NET编写程序选择什么版本的.NET框架比较合适等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！