CS模拟试题(全)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
CS模拟试题(全)
1.从记录集中取某个字段的值,下列方法正确的有几项:()
A.T ext1=rs.fields(1)
B.text1.text=rs.fields("aa")
C.text1.text=rs.fields(1).value
D.text1.text=rs.fields("aa").name
A、1
B、2
C、3
D、4
2.采用ADO对象模型编程的正确步骤有:()
A、2个步骤:(1) 声明对象变量
(2) 使用对象变量
B、3个步骤:(1) 引用ADO对象库
(2) 声明对象变量
(3) 使用对象变量
C、4个步骤:(1) 引用ADO对象库
(2) 声明对象变量
(3) 实例化对象
(4) 使用对象变量
D、5个步骤:(1) 引用ADO对象
(2) 声明对象变量
(3) 实例化对象
(4) 使用对象变量
(5) 关闭对象并释放对象变量
3.MSHFlexgrid 网格控件有一个记录源属性,可以接受一个打开的记录集或ADODC数据
控件,在运行时即能自动显示所有数据。
这个属性的名称是:()
A、DataSource
B、RecordSet
C、RecorSource
D、Data Source
4、DataGrid数据控件的工作特性是:()
A、无数据源控件,显示和编辑数据不需要打开的数据源。
B、有数据源控件,显示和编辑数据依赖打开的数据源。
C、无数据源控件,但显示和编辑数据需要打开的数据源。
D、有数据源控件,但显示和编辑数据不需要打开的数据源
5、ADO对象模型包括以下从属对象:()
A、Connection、Command、RecordSet
B、WorkSpace、LockType、RecordSet
C、Connection、CursorLocation、Enginer
D、ConnectionString、LockType、CursorLocation
6、Recordset 记录集对象的 CursorLocation 属性决定:()
A、记录集临时表存放的位置。
取“服务器”或“客户端”两种结果值。
B、数据库存放的位置。
取“服务器”或“客户端”两种结果值。
C、临时表存放的位置。
可任意取值。
D、数据库存放的位置。
可任意取值。
7、在Form_Load()事件中用如下代码给一个组合框添加两个项目:
Combo.Additem“Red”
Combo.Additem“Blue”
这两个项目在____能够真正添加到组合框中?
A、窗体装载后
B、用户单击窗体时
C、用户单击组合框时
D、以上都不是
8、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
n=InputBox("")
For i= 1 To n
For j = 1 To i
x = x +1
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是:()
A、3
B、4
C、5
D、6
9、设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是:()
A、若"条件"是一个为0的常数,则一次也不执行循环体
B、"条件"可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do语句
D、如果"条件"总是为True,则不停地执行循环体
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
s = s + a
a = a - 1
Loop While (a <= 0)
Print s; a
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是:()
A、7 9
B、34 0
C、9 7
D、死循环
11、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后,如果单击命令按钮,则窗体上显示的内容是:()
A、15
B、18
C、21
D、24
12、在VB中,可以返回值的自定义过程是:()
A、事件过程
B、通用过程
C、Function
D、属性过程
13、如果在被调过程中改变了形式参数的值,而不会影响主调过
程中实际参数的值,则这种参数的传递方式称为_____传递?
A、按值
B、按地址
C、按名称
D、按形参
14、系统缺省的参数传递方式是_____传递?
A、按值
B、按地址
C、按名称
D、按形参
15、如果要在应用程序的整个周期内,保留某过程内局部变量的值,则声明这个变量应使用的关键字为:()
A、Dim
B、Private
C、Public
D、Static
16、窗体文件名称的后缀是:()
A、Vbp
B、Frm
C、Bas
D、vbw
17、要正确地声明一个动态数组,应使用:()
A、Private A(n) As Integer
B、Dim A() As Integer
C、Dim A ( ,) As Integer
D、Dim A (1 T o n)
18、在过程中可以使用_____语句定义变量?
A、Dim、Private
B、Dim、Static
C、Dim Public
D、Dim、Static、Private
19、在多窗体程序中,要声明一个所有窗体都能使用的全局变量,应在标准模块中使用的关键值是:()
A、Dim
B、Static
C、Private
D、Public
20、阅读下面的程序段:
Private Sub Command1_click( )
Dim I As Integer,dblSum As Double
I=1
Do While I<5
I = I+1
dblSum = dblSum +(I^ 2)
Loop
Print dblSum
End Sub
执行上面的循环后,dblSum 的值:()
A、54
B、29
C、14
D、21
21、已知变量x,y为整数型,且x = 4,y = 12,s为字符串型,且s=”a”,lblock为标签控件,下列赋值语句合法的是:()
A、x = lblock. Caption
B、Lblock.Caption = Str (x)
C、x*3 = y
D、Y = x*s
22、下列程序段的执行结果是:()
A = 75
If A > 60 Then I = 1
ElseIf A > 70 Then I = 2
ElseIf A > 80 Then I = 3
ElseIf A > 90 Then I = 4
End If
Print “I = ”; I
A、I=1
B、I=2
C、I=3
D、I=4
23、下列程序段的执行结果为:()X = 3
For I = 1 To 10
X = X + 1
Next I
Print I ; X
A、-1 3
B、-1 13
C、1 3
D、11 13
24、下列程序段的执行结果为:()Dim i , j ,n
n = 0
For i =1 To 5
For j = 5 To 1 Step -2
n = n + 1
Next j
Next I
Print n ; j ; i
A、15 -1 6
B、15 0 6
C、12 3 1
D、15 1 6
25、下列程序段的执行结果为:()
Dim I As Integer , j As Integer , k As Integer k =0 For I = 1 to 10 Step 3
For j =1 to 10
If j >5 Then k = k + 4 : Exit For
k = k +1
Next j
If I >8 Then Exit For
Next I
Print I , k
A、13 32
B、10 36
C、13 36
D、10 16
26、下列程序段的执行结果是:()
A = 1 :
B = 0
Select Case A
Case 1
Select Case B
Case 0
Print “ **0** ”
Case 1
Print “ **1** ”
End Select
Case 2
Print “ **2** ”
End Select
A、**0**
B、**1**
C、**2**
D、0
27、以下有关数组定义的语句序列中,错误的是:()
A、Static arr1(3)
arr1(1) = 100
arr1(2) = "Hello"
arr1(3) = 123.45
B、Dim arr2() As Integer
Dim size As Integer
Private Sub Command1_Click()
size = InputBox("输入:")
ReDim arr2(size)
End Sub
C、Private Sub Command1_Click()
Dim arr3(3) As Integer
End Sub
D、Dim n As Integer
Private Sub Command1_Click()
Dim arr4(n) As Integer
End Sub
28、VB是面向_____的程序设计语言?
A、过程
B、工程
C、事件
D、对象
29、组成应用程序界面背景的是:()
A、控件
B、方法
C、MDI
D、Form
30、文本框和单选按钮的名称的标准前缀分别是:()
A、txt、chk
B、txt、opt
C、tex 、chk
D、tex、opt
31、已知变量i%=(5>4 or 6<1),1+ i的结果为:()
A、1
B、0
C、-1
D、-2
32、下列用逗号分隔的字符串中,都能够用作合法变量的是:()
A、str_1,a567
B、exp,123a,x*y
C、x\y,x>y
D、end,lbcx
33、下列语法错误的有几项____。
A、PopupMenu mnuRight
B、Set MSHFlexGrid.RecordSource=Adodc1. RecordSet
C、Open “C:\TEXT1.txt” For Input Access Write As #1
D、Form1.Icon = LoadPicture(App.Path & "\AAA.ICO")
A、1
B、2
C、3
D、4
34、有效性验证Text1只能接收数字,下列限制正确的有几项:()
A、If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
B、If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
C、If Chr(KeyAscii) < 0 Or Chr(KeyAscii) > 9 Then KeyAscii = 0
D、If KeyCode < 48 Or KeyCode > 57 Then KeyCode = 0
A、1
B、2
C、3
D、4
35、下列可作为Visual Basic变量名的是:()
A、A#A
B、4A
C、?xY
D、constA
36、在窗体上画一个命令按钮,名称为Commandl。
单击命令按钮时,执行如下事件过程:Private Sub Commandl_C1ick() a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
Msgbox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是:()
A、softWare and hardwar
B、software
C、hardware
D、1
37、下面赋值语句中,错误的是:()
A、MyV1& = 5*6\3 + 6 Mod 2
B、MyV2% = 5*6\3 + 6 Mod 2
C、MyV3$ = "5*a\3 + 6 mod 2"
D、MyV4$ = 5*6\3 + 6 mod 2
38、下列数据中,正确的 Boolean 常量是:()
A、123
B、And
C、True
D、Or
39、设有语句
open "c:\Test.Dat" For OutPut As #1
则以下错误的叙述是:()
A、该语句打开C盘根目录下一个己存在的文件T est.Dat
B、该语句在C盘根目录下建立一个名为Test.Dat的文件
C、该语句建立的文件的文件号为1
D、执行该语句后,就可以通过Print#语句向文件Test.Dat中写入信息
40、设Mys1、Mys2均为字符串变量,Mys1="ABCDEFGHIJKL"、Mys2 = "g",则下面的关系表达式中结果为真( True )的是:
A、Mid(Mys1,7,1) > Mys2
B、Len(Mys1) <> 2 * Instr(Mys1,"F")
C、Chr(65) + Right(Mys1,5) = "AHIJKL"
D、Instr(Left(Mys1,6),"C") + 60>Asc(Ucase(Mys2))
41、x+y小于10 且x-y要大于0的逻辑表达式是:()
A、x+y<10, x-y>0
B、(x+y<10) : (x-y)>0
C、x+y<10 And x-y>0
D、x+y<10 x-y>0
42、在Form_Click事件中,Print Format(1236.54, “+##,##0.0%”)执行语句的正确结果是:
A、123456
B、+123,654.0%
C、+123,654%
D、123,654
43、代数表达式为(e x+y+(|x+y|)1/2) /(2*3.14+1),则对应的Visual Basic表达式为:()
A、E^(x+y) +|x+y|^1/2/(2*∏+1)
B、Exp (x+y)+sqr(Abs(x+y))/2*3.14159+1
C、(Exp (x+y)+sqr(Abs(x+y))) / (2*3.14159+1)
D、(Exp (x+y)+sqr(Abs(x+y))) / 2*∏+1
44、可以实现从字符串任意位置截取字符的函数是:()
A、InStr
B、Mid
C、Left
D、Right
45、可以设置系统当前时间的语句是:()
A、Date
B、Date$
C、Time
D、Timer
46、若要退出For循环,使用的语句为:()
A、Exit
B、Exit Do
C、Exit Sub
D、Exit For
47、结构化程序设计的核心是规定三种基本结构:_____结构、分支结构、循环结构。
A、条件
B、顺序
C、当行
D、逻辑
48、InputBox函数返回值的类型为:()
A、数值
B、字符串
C、变体
D、数值或字符串(视输入的数据而定)
49、可以同时删除字符串前导和尾部空白的函数是:()
A、Ltrim
B、Rtrim
C、Trim
D、Mid
50、Mid(“fA2yrdp”,2,3)的值是:()
A、“A2y”
B、2yr
C、“rdp”
D、“2yr”
51、Format(DateValue("2004-6-21"), "yyyy年mm月dd 日")的值是:()
A、04/6/21
B、6/21/04
C、2004年6月21日
D、2004年06月21日
52、strA=“Visual Basic Programing”:strB=“Quick”strC= strB & UCase(Mid(strA,7,6)) & Right(s trA,11)执行以下程序段后,变量strC的值为:()
A、Visual BASIC Programing
B、Quick Basic Programing
C、QUICK Basic Programing
D、Quick BASIC Programing
53、为了把焦点移到某个指定的控件,所使用的方法是:()
A、SetFocus
B、Visible
C、Refresh
D、GetFocus
54、在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1),然后编写如下两个事件过程:
Private Sub Command1_Click()
strA=T ext1.Text+T ext2.Text
Print strA
End Sub
Private Sub Form_Load()
Text1 Text=""
Text2 Text=""
End sub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为:()
A、444
B、321123
C、123321
D、132231
55、在Visual Basic中设计程序时,能自动被检查出来的错误是:()
A、语法错误
B、语法错误和逻辑错误
C、运行错误
D、逻辑错误
56、双击窗体中的对象后,Visual Basic将显示的窗口是:()
A、项目(工程)窗口
B、工具箱
C、代码窗口
D、属性窗口
57、Visual Basic采用了____编程机制?
A、面向过程
B、面向对象
C、事件驱动
D、可视化
58、下列关于事件的叙述中不正确的是:()
A、事件是系统预先为对象定义的能被对象识别的动作
B、事件可分为用户事件与系统事件两类
C、Visual Basic为每个对象设置好事件,并定义好事件过程的过程名,但过程代码必须由用户自选编写
D、Visual Basic中所有对象的默认事件都是Click
59、命令按钮Command1的Caption属性为“退出(X)”,要将命令按钮的快捷键设为Alt+X,应修改Caption属性为:()
A、在X前插入&
B、在X后插入&
C、在X前插入#
D、在X后插入#
60、用如下语句所定义的数组的元素个数是___个?
Dim b (-2 To 4 ) as String
A、2
B、4
C、6
D、7
61、使用关键字Private声明的事件过程中,则Private表示:()
A、此过程可以被任何其他过程调用
B、此过程只可以被本窗体模块中的其他过程调用
C、此过程不可以被任何其他过程调用
D、此过程只可以被本工程中的其他过程调用
62、在Visual Basic 应用程序中,以下正确的描述是:()
A、过程的定义可以嵌套,但过程的调用不能嵌套
B、过程的定义不可以嵌套,但过程的调用可以嵌套
C、过程的定义和过程的调用均可以嵌套
D、过程的定义和过程的调用均不能嵌
63、确定复选框是否选中,可访问的属性是:()
A、Value
B、Checked
C、Selected
D、Caption
64、以下叙述中正确的是:()
A、列表框包含了组合框的功能
B、组合框包含了列表框的功能
C、列表框和组合框的功能无相近之处
D、列表框和组合框的功能完全相同
65、若要求在文本框中输入密码时在文本框中只显示#号,则应当在属性窗口中设置:()
A、T ext 属性值为“#”
B、Caption属性值为“#”
C、Password 属性值为空
D、PasswordChar属性值为“#”
66、下列叙述正确的是:()
A、无论是哪种类型的文件,其打开和关闭的语句及格式都是相同的
B、以操作模式Append 打开的文件,既可以进行写操作,也可以进行读操作
C、以操作模式Output打开一个不存在的文件,会出现错误
D、一个随机文件的记录号必须唯一
67、下列叙述不正确的是:()
A、文件列表框具有列表框ListBox中的List、listCount、ListIndex属性,驱动器列表框和目录列表框不具有这些属性
B、在文件列表框中可以实现多项选择
C、不编写代码,驱动器列表框、目录列表框和文件列表框三者之
间不能够自动实现关联
D、目录列表框的ListIndex属性值可以出现小于—1的整
68、下列VB代码编译运行可能导致:()
If Textl.Text=""
MsgBoxX("Enter some value")
End lf
A、语法错误
B、运行时错误
C、逻辑错误
D、无错误
69、下面选项中____表示的VB对象是个特殊的窗体,经常用于在程序运行的时候向用户显示信息?
A、Combo Box
B、Message Box
C、Text Box
D、Label
70、在一个事件驱动程序中,所有的操作都是对____的响应?
A、事件
B、消息
C、面向对象
D、继承
71、设有如下的记录类型
Type Student
number As string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是:()
A、Student.name=”张红”
B、Dim s As Student s.name=”张红”
C、Dim s As Type Student s.name=”张红”
D、Dim s As Type /doc/925e8a2d7375a417866f8f6d.html =”张
72、执行如下语句:
a=InputBox ("Today", "TomorroW", "Yesterday", , , "Day before yesterday", 5)将显示一个输入对话框,在对话框的输入区中显示的信息是:()
A、T oday
B、Tomorrow
C、Yesterday
D、Day before yesterday
73、下列表达式中,____的值为Flase?
A、“BCD”<“BCE”
B、“12345”<>“12345”&“ABC”
C、Not 2 * 5 = 11
D、4 = 4And 5> 2 + 3
74、窗体上有一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click ( )
a = InputBox ( “Enter the First integer”)
b = InputBox (“Enter the Second integer”)
Print b+a
End Sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是:()
A、579
B、123
C、456
D、123456
75、Sub过程与Function 过程最根本的区别是:()
A、前者可以使用Call或直接使用过程名调用,后者不可以
B、后者可以有参数,前者不可以
C、两种过程参数的传递方式不同
D、前者无返回值,但后者有
76、以下叙述中错误的是:()
A、用Shell函数可以调用能够在Windows下运行的应用程序
B、用Shell函数可以调用可执行文件,也可以调用VisualBasic的内部函数
C、调用Shell函数的格式应为:<变量名>=Shell(……)
D、用Shell函数不能执行DoS命令
77、以下关于过程及过程参数的描述中,错误的是:()
A、过程的参数可以是控件名称
B、用数组作为过程的参数时,使用的是“传地址”方式
C、只有函数过程能够将过程中处理的信息传回到调用的程序中
D、窗体可以作为过程的参数
78、一个工程中包含两个名称分别为Forml、Form2的窗体,一个名称为mdlFunc的标准模块。
假定在Forml、Form2和mdlFunc 中分别建立了自定义过程,其Forml中定义的过程:
PriV ate Sub frmfunctionl()
End Sub
Form2中定义的过程:
Public Sub frmffunction2()
End Sub
mdlFunc中定义的过程:
PubliC Sub mdlFunction()
End Sub
在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是:()
A、上述三个过程都可以在工程中的任何窗体或模块中被调用
B、frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
C、上述三个过程都只能在各自被定义的模块中调用
D、只有mdlFunction过程能够被工程中各个窗体或模块调用
79、要将文本框(txt1)中选中的内容拷贝到剪切板(Clipboard)中,正确的语法是:()
A、Clipboard.SetText txt1.SelText
B、SetClipboard.Text = txt1.SelText
C、txt1.SelText = Clipboard.SetText
D、Clipboard.SetT ext = txt1.SelText
80、VB中的程序错误有____类?
A、1类:“程序错误”
B、2类:“语法错误”和“程序错误”
C、3类:“语法错误”、“逻辑错误”、“运行时错误”
D、4类:“语法错误”、“逻辑错误”、“运行时错误”和“编译错误”
81、下面程序执行的结果是:()
Private Sub Form_Click ()
A$="123":B$="456"
C=Val(A)+Val(B)
Print C/100
End Sub
A、123
B、3
C、5
D、579
82、下列程序段的执行结果为:()
Dim M(10) , N(10)
I = 3
For T = 1 To 5
M(T) = T
N(I) = 2 * I + T
Print N(I) ; M(I)
A、3 11
B、3 15
C、11 3
D、15 3
83、下列程序段的执行结果为:()Dim A( 3, 3 )
For m = 1 To 3
For n = 1 To 3
If n = m Or n = 3—m + 1 Then A(m , n ) = m + n
Else
A(m , n ) = 0
End If
Next n
Next m
For m = 1 To 3
For n = 1 To 3
Print A( m , n )
Next n
Print
Next m
A、1 1 1
1 1 1
1 1 1
B、2 0 4
0 4 0
4 0 6
C、
0 0 0
0 0 0
D、
1 0 1
0 1 0
1 0 1
84、单击命令按钮时,下列程序代码的执行结果为:()
Private Function FirProc ( x As Integer , y As Integer , z As Integer) FirProc = 2 * x + Y + 3* z
End Function
Private Function SecProc ( x As Integer, y As Integer ,z As Integer) SecProc = FirProc ( z , x , y ) + x
End Function
Private Sub Command1_Click ( )
Dim a As Integer , b As Integer , C As Integer
a =2 :
b = 3:
c = 4
Print SecProc ( c , b , a)
End Sub
A、21
B、19
C、17
D、34
85、下列语句中____可以添加状态栏的窗格,使多余可用空间全部被分配给各个窗格?
A、Dim mypanel as Panel
Set mypanel=StatusBarl.Panels.Add()
Mypanel.Autosize=sbrAutoSize
B、Dim mypanel as Panel
Set mypanel=StatusBarl.Panels.Add()
Mypanel.Autosize=sbrSpring
C、StatusBarl.Panels.Autosize=sbrSpr
86、下面____控件可以直接放在MDI父窗口中?
A、标签(Label)
B、图像(Image)
C、定时器(Timer)
D、命令按钮(Command Button)
87、向ComboBox内添加选项的方法是:()
A、Add
B、AddNew
C、Load
D、AddItem
88、窗体标题栏上显示的是下列哪个属性的文本:()
A、Name
B、Caption
C、Title
D、名称
89、动态添加图片的语法是Image.Picture =_____(“C:\AAA.bmp”)?
A、Load
B、Add
C、LoadPicture
D、AddPicture
90、一个VB工程加载时最先触发的事件是:()
A、Form_Activate()
B、Form_Load()
C、Form_Resize()
D、Form_Initialize()
91、Clipboard剪贴板对象的常用方法有:()
A、Clear SetText GetText
B、SelText SetState SelLength
C、Copy Past Cut
D、SelText GetText SetState
92、以下关于菜单的叙述中,错误的是:()
A、在程序运行过程中可以增加或减少菜单项
B、如果把一个菜单的Enabled属性设置为False,则可删除该菜单项
C、弹出式菜单在菜单编辑器中设计
D、利用控件数组可以实现菜单项的增加或减少
93、在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。
用于标识各个控件数组元素的参数是:()
A、Tag
B、Index
C、ListIndex
D、Name
94、目录列表框的Path属性的作用是:()
A、显示当前驱动器或指定驱动器上的路径
B、显示当前驱动器或指定驱动器上的某目录下的文件名
C、显示根目录下的文件名
D、只显示当前路径下的文件
95、在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码:Private x As Integer
Private Sub Commandl_Click()
X=5:Y=3
Call proc(x,Y)
Labell.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(ByVal a As Integer,ByVal b As hteger)
x=a* a
Y=b+b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是:()
A、5和3
B、25和3
C、25和6
D、5和6
96、在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。
要求单击命令按钮时,打开一个保存文件的通用对话框。
该窗口的标题为"Save",缺省文件名为“SaveFile”,在“文件类型”栏中显示*.txt。
则能够满足上述要求的程序是:()A、Private Sub Command_C1ick()
Commondialogl.FileName=“Savefile”
Commondialogl.filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl.Filterindex=2。