VB练习题库.pdf

《VB练习题库.pdf》由会员分享，可在线阅读，更多相关《VB练习题库.pdf（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB练习题库一、单项选择题下 列叙述中正确的是（）A.只有窗体才是Visual Basic中的对象B.只有控件才是Visual Basic中的对象C.窗体和控件都是Visual Basic中的对象D.窗体和控件都不是Visual Basic中的对象 当窗体被加载时运行，发生的事件是（）A Load B.Unload C.Resize D.DragDrop 用于Visual Basic程序设计的控件在（）A.工程窗口中B.工 具 箱 中C.工具菜单中D.工具栏上 Visual Basic程序中分隔各语句的字符是（）A.B.:C.D._ Visual Basic程序中语句行的续行符是（）A.B.:

2、C.D._ Visual Basic程序中的注释所使用的字符是（）A.B.:C.D._假定窗体的名称（Name属性）为Forml,则把窗体的标题设置为“VB Test”的语句为（）A.Forml=VB Test B.Caption=!VB TestC.Forml.Text=VB Test D.Forml.Name=!VB Test下列不能打开代码窗口的操作是()A.双击窗体上的某个控件 B.双击窗体C.单击视图菜单中的“代码窗口”D.单击用体或控件下列说法中正确的是为了保存一个Visual Basic应用程序，应当()A.只保存图体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存

3、工程文件和标准模块文件(.bas)D.分别保存工程文件、图体文件和标准模块文件 决定窗体标题条显示内容的属性是()A.Text B.Name C.Caption D.BackStyle 为了使标签覆盖背景，应把BackStyle属性设置为()A.O B.l C.True D.False 为了使标签中的内容居中显示，应把Alignment属性设置为()A.O B.l C.2 D.3下 列可以把当前目录下的图形文件picl.jpg装入窗体FORM1中的语句为()A.FORM1=picl.jpgB.FORMl.Handle=picl.jpgC.FORMl.Picture=LoadPicture(pi

4、c l.jpg)D.FORM1=LoadPicture(pic l.jpg)决 定标签内显示内容的属性是()A.Text B.Name C.Alignment D.Caption为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A.Value B.Default C.Cancel D.Enabled为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A.Value B.Default C.Cancel D.Enabled在窗体（Name属性为Forml）上画两个文本框（其Name属性分别为T

5、extl和Text2）和一个命令按钮（N am e属性为Commandl）,然后编写如下两个事件过 程：Private Sub Command l_Click（）a=Textl.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load（）Textl.Text=Text2.Text=End Sub程序运行后，在第一个文本框（Textl）和第二个文本框（Text2）中分别输入123和321,然后单击命令按钮，则输出结果为（）A.444B.321123C.123321D.132231 下列可作为Visual Basic的变名的是（）A.3*fita B.f

6、rintCha r C.A s D.q8元 下列可作为Visual Basic的变名的是（）A.Filename B.A（A+B）C.A%D D.Print下列可作为Visual Basic中所允许的形式的数是（）A.25.74 B.3.457E-100 C.368 D.1.87E+50 设a=2,b=3,c=4,d=5,下列表达式的值是（）ab AND ccA.True B.False C.-l D.O 设a=2,b=3,c=4,d=5,下列表达式的值是（）32*b OR a=c AND b o c OR cdA.O B.True C.False D.-l 设a=2,b=3,c=4,d=5,

7、下列表达式的值是（）NOT a=b And b10 B.(aB.Or(b0)C.(aO)D.(-3+5A.And(b0)设有语句x=InputBox(输入数值,“0；示例”)程序运行后，如果从键盘上输入数值1 0并按回车键，则下列叙述中正确的是()A.变X的值是数值10 B.在InputBox对话框标题栏中显示的是“示例”C.0是默认值D.变量X的值是字符串“10”从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第一个字符串中起始位置的函数是A.Left B.Mid C.String D.Instr 设 a=VisuaI Basic,下面使 b=Basic的语句是

8、()A.b=Left(a,8,12)B.b=Mid(a,8,5)C.b=Rigth(a,5,5)D.b=Left(a,8,5)以下能够触发文本框Change事件的操作是()A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timerl_（）TxtTime.text=TimeEnd Sub在下划线上应填入的内容是A.Enabled B.Visible C.Interval D.Timer在窗体上画两个单选按钮，名称

9、分别为Optionl、O ption!,标题分别为“宋体”和“黑体”；一个复选框，名称为Checkl,标题为“粗体”；一个文本框，名称为Textl.Text属性为“改变文字字体:要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中（窗体外观如下图），则能够实现上述要求的语句序列是()A.Optionl.value=TrueCheck l.Value=F alseC.Option2.Value=FalseCheckl.Value=TrueB.Optionl.Value=TrueCheck l.Value=TrueD.Option 1.Value=TrueCheckl.Value=l为了在按下E

10、sc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A.Value B.Default C.Cancel D.Enabled在窗体上画一个命令按钮，名称为Com m andlo然后编写如下程序：Private Sub Commandl_Click()For 1=1 To 4ForJ=0TolPrint Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是()A.BB B.A C.B D.AAccBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD图像

11、框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是()A.Autosize B.StretchC.AutoRedraw D.Appearance在 窗体上画两个名称分别为Textl.Texte2的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Command l_Click()Dim x As Integer,n As Integerx=ln=0Do While x10 Then xit forNextTextl.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A.2 B.3 D.4 D.5 在窗体

12、上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim arrayl(10,10)As IntegerDim i,j As IntegerFori=lTo3For j=2 To 4arrayl(ij)=i+jNext jNext ITextl.Text=arrayl(2,3)+arrayl(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A.12 B.13 C.14 D.15在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Comma

13、ndl_Click()Dim i As IntegerJ As IntegerDim a(10,10)As IntegerFori=l To 3Forj=lTo3a(ij)=(i-l)*3+jPrint a(ij);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是A.123 B.234 C.147 D.123246 345 258 456369 456 369 789设有如下程序：Option Base 0Private Sub Form_Click()DimaDim i As Integera=Array(l,2,3,4,5,6,7,8,9)For i

14、=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是A.43 2 1 B.5432 C.6 5 4 3 D.7 6 5 4下列叙述中正确的是A.在窗体的Form,oad事件过程中定义的变是全局变B.局部变的作用域可以超出所定义的过程C.在某个Sub过程中定义的局部变可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程时，所有局部变被系统初始化为0 或空字符串在窗体上画一个命令按钮，名称为Commandlo程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在

15、 F1中判断所输入的整数是否是奇数，如果是奇 数，过程F1返回1,否则返回Oo能够正确实现上述功能的代码是A.Private Sub Command l_Click()x=InputBox(“请输入整数”)a=Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FunctionB.Private Sub Commandl_Click()x=InputBox(“请输入整数”)a=FX(Val(x)Print aEnd SubFunction Fl(

16、ByRef b As Integer)If b Mod 2=0 ThenFl=0ElseFl=lEnd IfEnd FunctionC.Private Sub Commandl_Click()x=InputBox(请输入整数)Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer)If b Mod 2=0 ThenFl=lElseFl=0End IfEnd FunctionD.Private Sub Commandl_Click()x=InputBox(请输入整数)Fl(Val(x)Print aEnd SubFunction Fl(ByRe

17、f b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function 在窗体上画一个名称为Commandl的命令按钮和一个名称为T extl的文本框，然后编写如下程序：Private Sub Command l_Click()Dim x,y,z As Integerx=5y=7z=0Textl.text=mCall Pl(x,y,z)Textl.Text=Str(x)End SubSub Pl(By Vai a As Integer,By Vai b As Integer As Integer)c=a+bEnd Sub程序

18、运行后，如果单击命令按钮，则在文本框中显示的内容是A.0 B.12 C.Str(z)D.没有显示以下叙述中错误的是A.如果过程被定义为Static类型，则该过程中的局部变都是Static类型B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.事件过程可以像通用过程一样由用户定义过程名以下叙述中错误的是A.在 KeyUp和 KeyDown事件过程中，从键盘上输入A 或 a 被视作相同的字母(即具有相同的KeyCode)B.在 KeyUp和 KeyDown事件过程中，将键盘上的T 和右侧小键盘上的T 视作不同的数字(具有不同的KeyCode)C.KeyPress事件中不

19、能识别键盘上某个键的按下与释放D.KeyPress事件中可以识别键盘上某个键的按下与释放以下叙述中错误的是A.在同一窗体的菜单项中，不允许出现标题相同的菜单项B.在菜单的标题栏中所引导的字母指明了访问该菜单项的访问键C.程序运行过程中，可以重新设置菜单的Visible属性D.弹出式菜单也在菜单编辑器中定义设在菜单编辑器中定义了一个菜单项，名为m enulo为了在运行时隐藏该菜单项，应使用的语句是()A.menul.Enabled=True B.Munul.Enabled=FalseC.Menul.Visible=True D.Menu 1.Visible=False以下叙述中错误的是()A.在

20、程序运行时，通用对话框控件是不可见的B.在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用C.调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框在用通用对话框控件建立“打开”或“保存”文件对话框时孤果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)则正确的描述格式剧)A.text(.txt)l(*.txt)n B.文本文件(.txt)I (.txt)”C.text(.txt)ll(*.txt)D.text(.txt)(*.txt)”以下

21、叙述中错误的是()A.一个工程中只能有一个Sub M ain过程B.图体的Show方法的作用是将指定的图体装入内存并显示该图体C.图体的Hide方法和Unload方法的作用完全相同若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体以下叙述中错误的是（）A.一个工程中可以包含多个图体文件B.在一个窗体文件中用Private定义的通用过程能被其他窗体调用C.在设计V B程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D.全局变量必须在标准模块中定义设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String*10TelNum As Str

22、ing*20End Type在 窗 体 上 画 一 个 名 为C om m andl的命令按钮。要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（）A.Private Sub Commandl_Click（）Dim BAs BooksOpen Mc:Person.txtMFor Output As#1B.Name=InputBox（输入姓名”）B.TelNum=InputBoxd输入电话号码”）Write#l,B-Name,B-TelNumClose#1End SubB.Private Sub Commandl_Cl

23、ick()Dim B As BooksOpen ac:Person.txtMFor Input As#1B.Name=InputBox（输入姓名”）B.TelNum=InputBox（输入电话号码”）Print#l,B.Name,B.TelNumClose#1End SubC.Private Sub Commandl_Click（）Dim B As BooksOpen Mc:Person.txtwFor Output As#1B.Name=InputBox（输入姓名”）B.TelNum=InputBox（输入电话号码”）Write#1,BClose#1End SubD.Private Sub

24、Commandl_Click（）Open Mc:Person.txtHFor Input As#1Name=InputBox（输入姓名”）TelNum=InputBox（输入电话号码”）Print#l,Name,TelNumClose#1End Sub以下叙述中正确的是（）A.一个记录中所包含的各个元素的数据类型必须相同B.随机文件中每个记录的长度是固定的C.Open命令的作用是打开一个已经存在的文件D.使用Input#语句可以从随机文件中读取数据目 录列表框的Path属性的作用是（）A.显示当前驱动器或指定驱动器上的目录结构B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的

25、文件名D.显示该路径下的文件 通过（）周口可以在设计时直观的调整图体在屏幕上的位置。A.代码窗口 B.图体布局周口 C.窗体设计窗口 D.JR性窗口 下列不能打开属性窗口的操作是（）A.执行“视图”菜单中的“属性窗口”命 令B.按F 4键C.按Ctrl+T D.单击工具栏上的“属性窗口”图标 如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（）命令A.引 用B.部 件C.工程属性D.加图体 下面变名错误的是（）A.我们 B.abc C.al23 D.a.c关键字声明的局部变在整个程序运行中一直存在（）A.Dim B.Public C.Static D.Private 表达式4+56*7

26、/8 Mod 9 的值是（）A.4 B.5 C.6 D.7如 果在立即窗口中执行以下操作（是回车键）a=8b=9print ab则输出结果是（）A.-1 B.0 C.False D.True当 VB执行下面语句后，A 的值为（）A=1IfA0 Then A=A+1IfAl Then A=0A.O B.I C.2 D.3以 下叙述正确的是（）A.组合框包含了列表框的功能B.列表框包含了组合框的功能C.组合框和列表框的功能完全不同D.蛆合框和列表框的功能完全相同下 列叙述中正确的是（）A.文本框控件可以设置滚动条B.InputBox函数和MsgBox函数一样，返回的是字符串C.ListBox控件和

27、ComboBox控件一样，都只能选择一项D.V B使用Delete来删除磁盘上的文件下列叙述中正确的是（）A.在M DI应用程序中，每一个子窗体的菜单都显示在子窗体中B.在多文档应用中，每次可以有几个活动的子窗体进行输入/编辑C.V B的每一个窗体和控件都存在一个预定义的事件集D.改变窗体的标题也就是改变其JR性窗口中的Name JR性如果希望一个窗体在显示的时候没有边框，应该设置的JR性是（）A.将窗体的标题（Caption）设成空字符B.将窗体的Enabled属性置成FalseC.将窗体的BorderStyle属性置成NoneD.将窗体的ContalBox置成False关于复选框和单选钮的

28、比较中正确的是（）A.复选框和单选钮都只能在多个选择项中选定一项B.复选框和单选钮的值（value）都是（True/False）C.单选钮和复选框都响应DblClick事件D.要使复选框不可用，可设置Enabled属性（False）和value属性（Grayed）菜单控件只包含一个事件，即（），当用鼠标单击或键盘选中后按回车键触发该事件，除分隔条以外的所有菜单控件都能识别该事件A.GotFocus B.Load C.Click D.KeyDown在过程定义中，Private表示（）A.此过程要以被其他过程调用B.此过程不可以被任何其他过程调用C.此过程只可以被本工程中的其他过程调用D.此过程只

29、可以被本窗体模块中的其他过程调用 在窗体中添加名称为Command 1和名称为Command!的命令按钮测验文本框 Textl,然后编写如下代码：Private Sub Commandl_Click()Textl.Text=ABEnd SubPrivate Sub Command2_Click()Textl.Text=CDEnd Sub首先单击Command!按钮，然后再单击Commandl按钮，在文本框中显示()A.AB B.CD C.ABCD D.CDAB下列叙述中不正确的是()A.VB中的函数功能类似于Sub过程B.Sub过程不可以递归C.子过程不返回与其特定子过程名相关联的值D.过程是

30、没有返回值的函数，又常被称为Sub过程，在事件过程或其他子过程中可以按名称调用过程 在某菜单中，有一菜单项(Caption)内容是“NEW”,名字(Name)是Create,则单击该菜单项所产生的事件过程应是()A.Private Sub MnuNEW_Click()B.Private Sub Create_Click()C.Private Sub NEW_Click()D.Sub Mnu_Create_Click()滚动条控件的M ax属性所设置的是（）A.滚动框处于最右位置时，一个滚动条位置的value属性最大设置值B.单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动C.单击滚动

31、条的箭头区域时，滚动条中滚动块的最大移动D.滚动条控件无该属性在窗侬Name属性为Form l冲添加两个文本超其Name JK性分别为Textl和Text2）和一 命令按钮（Name属性为Commandl）,然后编写如下事件过 程：Private Sub Commandl_Click（）a=Textl.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load（）Textl.Text=Text2.Text=End Sub程序运行后，在Textl和Text2中分别输入12和34,然后单击命令按钮，则输出结果为（）A.12 B.34 C.46 D.1234

32、在窗体中添加一个文本框（其中Name属性为Textl），然后编写如下代码：Private Sub Form_Load（）Textl.Text=Textl.SetFocusFor i=1 To 10Sum=Sum+iNext iTextl.Text=SumEnd Sub上述程序运行后，单击窗体，则运行的结果（）A.在文本框Textl中输出55 B.在文本框Textl中输出0C.出 错 D.在文本框Textl中输出不定值在窗体中添加两个文本框，其名称为别为Textl和 Text2；两个标签，其名称为别为Labell和 Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换

33、为比此字母小4 的大写字母，结果显示在文本框Textl中。如输入“efg”,则输出结果为“ABC；能够实现上述功能的程序是()A.Private Sub Form_Load()ShowTextl.Text=HHText2.Text=Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)Textl.Text=Chr(KeyCode-4)End SubB.Private Sub Form_Load()ShowTextl.Text=HHTextl.Text=Text2.SetFocusEn

34、d SubPrivate Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)Textl.Text=Textl.Text+Chr(KeyCode-4)End SubC.Private Sub Form_Load()ShowTextl.Text=HnTextl.Text=Text2.SetFocusEnd SubPrivate Sub Text2_Click(KeyCode As Integer,Shift As Integer)Textl.Text=Textl.Text+Chr(KeyCode-4)End SubD.Private Sub

35、 Form_Load()ShowTextl.Text=Text2.Text=,M,Textl.SetFocusEnd SubPrivate Sub Text2_Click(KeyCode As Integer,Shift As Integer)Textl.Text=Chr(KeyCode-4)End Sub设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10),P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+P(i)*

36、2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是()A.33 B.35 C.37 D.38在窗体中添加一个名称为Commandl的命令按钮，然后编写如下代码：Function F(a As Integer)b=0Static cb=b+c=c+1F=a+b+cEnd FunctionPrivate Sub Commandl_Click()Dim a As IntegerDim b As Integera=2For i=1 To 3b=F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是()A.B.C.D.设有如下程

37、序：Private Sub Form_Click()score=Int(Rnd*10)+30Select Case scoreCase Is 10a$=HFMCase 10 To 19a$=HDMCase 20 To 29a$=nCnCase 30 To 39a$=nBHCase Elsea$=HAnEnd SelectPrint a$End Sub程序运行后，单击窗体,则在窗体上显示的是()A.AB.BC.CD.D设有如下代码：Private Sub Form_Load()ShowDim b()As Variantb=Array。,3,5,7,9,11,13,15)Call search(b

38、)For i=0 To 7Print b(i)Next iEnd Sub此程序的功能是通过过程调用，把数组中的元素按逆序存放。为实现此功能，缺少的过程的程序段是()A Private Sub search(dim a()as Variant)DimTFor i=LBound(a)To UBound(a)T=a(i):a(i)=a(UBound(a)-i):a(UBound(a)-i)=TNext iEnd SubB.Private Sub search(dim a()as Variant)DimTDim J As IntegerJ=(LBound(a)+UBound(a)/2For i=LBo

39、und(a)To JT=a(i):a(i)=a(UBound(a)-i):a(UBound(a)-i)=TNext iEnd SubC.Private Sub search(a()As Variant)DimTFor i=LBound(a)To UBound(a)T=a(i):a(i)=a(UBound(a)-i):a(UBound(a)-i)=TNext iEnd SubD.Private Sub search(a()As Variant)DimTDim J As IntegerJ=(LBound(a)+UBound(a)/2For i=LBound(a)To JT=a(i):a(i)=a(

40、UBound(a)-i):a(UBound(a)-i)=TNext iEnd Sub在窗体中添加一个名称为Commandl的命令按钮和一个名称为T extl的文本 框，然后编写如下程序：Private Sub Commandl_Click()Dim x,y,z As Integerx=10y=5z=23Textl.Text=Call pl(x,y,z)Text 1.Text=Str(z)End SubSub pl(By Vai a As Integer,By Vai b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则文本框中显示的内容是

41、()A.OB.15C.Str(z)D.23 一 工程中包含两个名称分别为Forml、Form2的窗体，两个名称为m dlFl、m dlF2的标准模块。假定在FormK Form2和m dlFunc中分别建立了自定义过程，其定义格式为：Form l中定义的过程：Public Sub Funl()End SubForm2中定义的过程：Public Sub Fun2()End SubM d lF l中定义的过程：Public Sub mdlFunl()End SubM dlF2中定义的过程：Public Sub mdlFunlOEnd Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下

42、叙述中正确的是：A.上述4 个过程都可以在工程中的任何图体或模块中被调用B.Funl和 mdlFunl过程能够在工程中各个窗体或模块中被调用C.上述4 个过程只能在被定义的模块中调用D.mdlFunl过程被调用时只要使用过程名即可在窗体中添加一 1s名 称 为 CommonDialogl的通用对话框、一个名称为Commandl的命令按钮。打开一个打开文件的通用对话框。该窗口的标题为“打开”，缺省文件名为“tl.bmp”，在“文件类型”栏 中 有 3 类图形文件(WMF/BMP/JPG1 则能够满足上述要求的程序是()A Private Sub Command l_Click()CommonDi

43、alogl.DialogTitle=ntl.bmpnCommonDialogl.Filter=n(*.wmf)l(*.bmp)l(*.jpg)nCommonDialogl.FileName=“打开”CommonDialogl.Action=2End SubB.Private Sub Command l_Click()CommonDialogl.FileName=ntl.bmpnCommonDialogl.Filter=(*.wmf)l(*.bmp)l(*jpg)CommonDialogl.DialogTitle=打开”CommonDialogl.Action=1End SubC Private

44、 Sub Command l_Click()CommonDialogl.FileName=ntl.bmpHCommonDialogl.Filter=WMFI(*.wmf)IBMPI(*.bmp)IJPGI(*.jpg)CommonDialogl.DialogTitle=打开CommonDialogl.Action=2End SubD Private Sub Command l_Click()CommonDialogl.FileName=ntl.bmpnCommonDialogl.Filter=,WMFI(*.wmf)IBMPI(*.bmp)IJPGI(*.jpg)nCommonDialogl.

45、DialogTitle=打开CommonDialogl.Action=1End Sub二、填空题在V B中，对 象 的 三 要 素 分 别 是 和 o V B中 工 程 文 件 的 扩 展 名 为；窗体文件的扩展名为 o在 用Visual Basic开发应用程序时,一般需要、和_ _ _ _ _三步。在V B中整型数据占 个字节的内存空间。双精度浮点型数据占个字节的内存空间。若 用 户 单 击 了 窗 体Forml,则 此 时 将 被 执 行 的 事 件 应 为：假定一个文本框的Nam e属性为Textl,为了在该文本框中显示“Hello!”,所使用的语句为 O在窗体上画两个文本框和一个命令按

46、钮，然后在代码窗口中编写如下事件过程：Private Sub Commandl_Click()Textl.Text=VB ProgrammingText2.Text=Textl.TextTextl.Text=ABCDEnd Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为 和 控件和窗体的Name属性只能在 窗口中设置，不能在代码窗口中设置。为 了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True。为 了使一个标签透明且没有边框，必须把它的Borderstyle属性设置为,并把BackStyle属性设置为。在 VB应用程序中用Const将 Name声明为字符串“张

47、三”常,使用的语句是O以 下语句的输出结果是 Oprint sgn(2)执行以下语句后，输出结果是、。s$=ABCDEFGHIJKprint left$(s$,4)print right$(s$,4)执行以下语句后，输出结果是、0s$=ABCDEFGHIJKprint mid$(s$,3,4)print len(s$)执行以下语句后，输出结果是 Os$=ABCDEFGHIJKprint lcase$(s$)在 Visual Basic 中，字符串常曜要用 括起来，日期/时间型常一要 用 括起来。下 列 语 句 的 输 出 结 果 是。Print Int(12345.6789*100+0.5)/

48、100 语句Print25+32=;25+32的输出结果是。以 下语句的输出结果是 Os$=Chinas$=BeijingPrint 蟠 阅读程序：Sub Form Click()a=10:b=15:c=20:d=25Print a;Spc(5);b;Spc(7);cPrint c;Spc(3);H+n;Spc(3);d;Print Spc(3);M=M;Spc(3);c+dEnd Sub运 行 上 面 的 程 序，单 击 窗 体，输 出 结 果 是以 下 程 序 段 的 输 出 结 果 是 Ox=8Print x+l;x +2;x+3 表达式 Fix(-32)+Int(-24)的值为。制 作

49、菜单的分隔栏时，选用的符号是 O下面程序的功能是当窗体装入弹出消息框显示“欢迎你”3个字。请将下列程序补充完整。Private Sub Form()_ _ _ _ _ _ _ _ _ _ _(“欢迎你”)End Sub 在窗体中添加一个名称为L abell的标签，两个名称为Textl和Text2的文本框以及名称为Commandl的按钮。程序运行后，在两文本框中输入整数，当单击按钮时，标签L abell中显示运算结果。程序的功能是计算n!+(n+l)!+(n+2)!+.+(n+m)!o请将下列程序补充完整。Private Sub Commandl_Click()Dim a,b,c,d As Do

50、ubleDim i9 n,m As Integern=Val(Textl.Text):m=Val()a=O:b=l:c =O:d=lFor i=1 To mb=b*ia=a+bNext iFor i=1 To nd=d*ic=c+dNext iLabel l.=a-cEnd Sub通 过选择组合框中的选项来改变文本框的字体。在窗体中添加一个蛆合框(Combol)和一个文本框(Textl),代码如下。请补充完整。Private Sub Combol_Click()Textl.FontName=Combol.List(Combol.Listlndex)End SubPrivate Sub Form