Vb操作题题库

1、VB 填空题 :1、Visual Basic 6.0 分为 3 种版本，这 3种版本是 、 和。其中，最完整的是 _。答案：1：学习版 #专业版 #企业版2：学习版 #专业版 #企业版3：学习版 #专业版 #企业版4：企业版知识点：VB 知识点 /第一章2、可以通过 快捷键或 快捷键退出 Visual Basic 。答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB 知识点 /第一章3、传统的程序设计语言主要是面向 的，而现在涌现出的许多可视化程序设计语言，如 Visual Basic 主要是面向 进行程序设计的。答案：1：过程 #问题2：对象知识点：VB 知识点 /第

2、一章4、在面向对象程序设计中，对象是由 和组成的概念。答案：1：代码 #数据2：代码 #数据知识点：VB 知识点 /第一章5、Visual Basic 开发环境中，在标题栏的方括号内能指出目前正处在 、状态或状态。答案：1：设计 #中断 #运行 #设计状态 #中断状态 #运行状态2：设计 #中断 #运行 #设计状态 #中断状态 #运行状态3：设计 #中断 #运行 #设计状态 #中断状态 #运行状态知识点：VB 知识点 /第一章窗口中的相应窗体名来6、在设计模式下，工程中的某个窗体没有出现，可通过双击 使之出现。答案：1：工程资源管理器知识点： VB 知识点 /第一章7、Visual Basic

3、 开发环境中，当属性窗口在界面上末出现时，可使用 菜单中的 选项让它显示出来。答案： 1：视图2：属性窗口 知识点： VB 知识点 /第一章8、在属性窗口中，属性显示方式分为两种，即按 击相应的按钮来实现。顺序和按 顺序，分别通过单答案： 1：字母 #分类2：字母 #分类 知识点： VB 知识点 /第一章9、菜单命令中有 标记表示该命令是一个 的命令。答案：1：打开对话框知识点： VB 知识点 /第一章10、Visual Basic 工程文件的扩展名是，窗体文件的扩展名是 答案：1： vbp2：frm知识点： VB 知识点 /第一章11、Visual Basic 的对象是 和的总称。答案：1：

4、窗体 #控件2：窗体 #控件 知识点： VB 知识点 /第二章12、Visual Basic 程序设计中，对象的特征称为 ，对象能够执行的操作称为 对象能够识别的操作称为 。答案：1：属性2：方法3：事件知识点：VB 知识点 /第二章13、要把窗体 Form1 的标题改为 欢迎你 ，可使用的语句是答案：1： Form1.Caption= 欢迎你知识点：VB 知识点 /第二章14、在 Visual Basic 中，要将一个窗体装载到内存进行变量初始化等预处理，应选用的事件是。答案：1：Load#load#LOAD知识点：VB 知识点 /第二章15、在 Visual Basic 中，一个控件在窗体

5、上的位置由 和 属性决定，其大小由和属性决定。答案：1：Top#Left2：Top#Left3：Width#Height4：Width#Height知识点：VB 知识点 /第二章16、在界面设计阶段，为了选择多个控件，可以按住 键，然后单击每个控件。答案：1：Shift#Ctrl#shift#SHIFT#CTRL#ctrl知识点：VB 知识点 /第二章17、在刚建立工程时，要使窗体上的所有控件具有相同的字体格式，应对 的 属性进行设置。答案：1：窗体2：Font#font#FONT知识点： VB 知识点 /第二章a=300： b=20a=a+bb=a-ba=a-b答案：1： 20知识点： VB

6、 知识点 /第二章19、某文本控件： Name属性为 Text1。Text属性为 CET6 ，执行下列程序后输出结果为 Sub Test( )Print Text1End Sub答案：1： CET6知识点： VB 知识点 /第二章20、为了使标签能自动调整大小以显示全部文本内容，应把标签的 属性设置为 True。答案：1：Auto Size#AUTO SIZE#auto size知识点： VB 知识点 /第三章21、在窗体中添加两个命令按钮，其名称分别为Command1 和 Command2, 窗体加载时要求Command1 不可用， Command2 可用；单击 Command2 后， Co

7、mmand1 可用。请将下列程序 补充完整。Private Sub Command2_Click()_(1)_End SubPrivate Sub form_Load()_(2)_.End Sub答案：1： Commandl.Enab1ed=True2： Command1.Enabled=False知识点： VB 知识点 /第三章22、Visual Basic 中有一种控件组合了文本框和列表框的特性，这种控件是答案： 1：组合框 知识点： VB 知识点 /第三章答案：1：Enabled#ENABLED#enabled知识点：VB 知识点 /第三章24、在窗体中有两个文本框控件 Text1 和

8、Text2 ，焦点在 Text2 中，现在要把焦点移到 Text1 中，应使用的语句是 。答案：1： Text1.SetFocus知识点：VB 知识点 /第三章25、语句 Print 名字 ；Tab(5)； 李军 的输出结果是 答案：1：名字李军知识点：VB 知识点 /第三章26、要使计时器控件每隔 0.3秒发生一次 Timer 事件，应把它的 属性设置为答案：1： Interval#interval2：300知识点：VB 知识点 /第三章27、在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Textl 的文本框。程序运行 后， Command1 为禁用 (灰色 ) 。当向文本

9、框中输入任何字符时，命令按钮Command1 变为可用。请填入适当的内容，将程序补充完整。Private Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1_ ()Commandl Enabled=TrueEnd Sub答案： 1： Change#change知识点： VB 知识点 /第三章28、窗体、图片框或图像框中的图形通过对象的 属性设置。答案： 1： Picture#picture 知识点： VB 知识点 /第三章29、在窗体中添加两个文本框和一个命令按钮， 然后在命令按钮的代码窗口中编写如下代码： Private

10、 Sub Commandl_Click()Text1.Text= VB Text2.Text=Text1.TextText1.Text= ABC End Sub程序运行后，单击命令按钮后， Text1 和 Text2 中显示的内容分别为 和 。答案：1： ABC2：AB知识点： VB 知识点 /第三章30、用于获得字符串 S 最左边 4 个符的函数是 答案：1： Left(S,4)#left(S,4)#LEFT(S,4)知识点： VB 知识点 /第四章31、表达式 Fix(-32.68)+Int(-23.02) 的值为 答案：1： -56知识点： VB 知识点 /第四章32、在窗体上可以画一个

11、命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) a=Input Box( 请输入一个整数 ) b=Input Box( 请输入一个整数 )Print a & bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321 和 456，输出结果为 答案：1： 321456知识点： VB 知识点 /第四章33、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 C1ick()Dim x as Integer ， y as Integer x=InputBox( 请输入一个整数 ) y=InputBox( 请输

12、入一个整数 )Print x+yEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321 和 456，输出结果为 答案：1： 777知识点： VB 知识点 /第四章34、执行下面的程序段后， b 的值为 a=300 b=20 a=a+b b=a-b a=a-b答案：1： 300知识点： VB 知识点 /第四章35、填写下列空白：a$=Lcase(Hello)a$的返回值 1_b$= Ucase (Hello) b$ 的返回值 2_。答案：1： hello#hello2：HELLO#HELLO 知识点： VB 知识点 /第四章36、表达式 5*(7 MOD 3)*1/2*5 的值是

13、答案：1： 12.5知识点： VB 知识点 /第四章37、要结束程序的运行应使用语句 语句。答案： 1： End#END#end 知识点： VB 知识点 /第四章38、在 Visual Basic 中，变量名的取名规则是以 开头，总长度不超过 个字符。答案：1：字母2：255知识点： VB 知识点 /第四章39、假定当前日期为 20XX 年 11 月 20 日，星期四，则执行以下语句： Print Day (Now)输出结果是 。答案： 1： 20 知识点： VB 知识点 /第四章40、以下程序段的输出结果是 。num =0While num100#while n=100 知识点： VB 知识

14、点 /第五章44、该程序用户界面如图所示，由一个标签(Labe11)、一个命令按钮( Command1 )和两个复选框 (Check1 、 Check2)组成。程序运行后，用户选中粗体复选框时 字体改变 :几个字的字体变成粗体，用户选中斜体复选框时，字体改变 : 几个字的字体变成斜体。若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。Private Sub Check1 C1ick()If Check1.value =1 ThenLabe11.Font.Italic=TrueElseLabe11.Font. 2 =FalseEnd IfEnd SubPrivate Sub C

15、heck2 C1ick()If Check2.value = 1 ThenLabe11.Font.Bold =TrueElseLabe11.Font. 3 =FalseEnd IfEnd SubPrivate Sub Command1 C1ick()4End Sub答案：1：12：Italic3：Bold4： unload me#end#End#END知识点：VB 知识点 /第五章45、输出 M 型图形，行数由输入确定，要求最后一行中间的* 在第 30 列的位置上，如输入为 4 时，输出为：Private Sub Form Click()Dim a as StringCls a = * n =

16、 1Print 2Print Space(2* n - 3);aFor i =2 To n - 1Print Tab (32 - n - i ); a;Space(2*i - 3); a; Print 3Print Space (2* i - 3); aNext iPrint Tab(30 - 2 * n+2); a;Tab(30); a;Print Space(2*i - 3);a End Sub答案：1：val(InputBox( “ n=” )#VAL(INPUTBOX( “n=”)#val(inputbox( “ n=”)2： Tab(30-n+1);a;#tab(30-n+1);a;

17、3： space(2*n-2*i-1);a;#Space(2*n-2*i-1);a; 知识点： VB 知识点 /第五章46、工程文件和窗体文件的扩展名分别是.vbp、 答案：1： .frm47、属性窗口分为 4 个部分，这四个部分分别是 、属性显示方式、 属性列表和对当前属性的简单解释。答案：1：对象框48、快捷键 Ctrl+O 的功能相当于执行 菜单中的打开工程命令，或者相当于单击工具栏上的打开工程按钮。 （假设工作环境是中文 VB ）答案： 1：文件49、为了选择多个控件，可以按住 键，然后单击每个控件。答案：1： Ctrl#Shift#Ctrl 或 Shift#Ctrl 或 Shift#

18、Shift 或 Ctrl#Shift 或 Ctrl50、Visual Basic 应用程序通常由 3 类模块组成，即窗体模块、 和类模块。答案： 1：标准模块51、下列表达式有错误 ,正确的写法应该是 。(a+b)+c/80-5 (d+e)答案：1：(a+b+c)/80-5/(d+e)# (a+b+c)/80-5/ (d+e)52、与下列数学式子对应的 Visual Basic 的表达式是 。2a(7+b)答案：1： 2*a*(7+b)#2*a* ( 7+b)53、下列语句输出的结果是 GoodMorning 、 。(为回车)a$=Good b$=Morning print a$+b$ b$=

19、Evening print a$ & b$ 答案：1： GoodEvening54、以下程序段执行后 y 的值是 。x=8.6 y=int(x+0.5) print y答案：1：9# 9 #9 # 955、以下程序段的输出结果是x=8.5print int(x)+0.6答案：1：8.6# 8.6 #8.6 # 8.656、为了使标签能自动调整大小以显示全部文本内容，应把标签的 属性设置为 True。答案：1： AutoSize57、要想在文本框中显示垂直滚动条，必须把 属性设置为 2，同时还应把 MultiLine属性设置为 True。答案：1： ScrollBars58、计时器事件之间的间隔

20、通过 属性设置。答案：1： Interval59、组合框有 3 种不同的类型，这 3 种类型是下拉式列表框、简单组合框和下拉式组合框、 可以通过设置组合框的 属性的不同取值来实现。答案：1： Style60、在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 。答案：1：下拉式列表框 #下拉式61、在窗体上画一个列表框，然后编写如下两个事件过程：Private Sub Form_Click()list1.RemoveItem 1list1.RemoveItem 3list1.RemoveItem 2End SubPrivate Sub Form_Load()list1.AddIte

21、m itemAlist1.AddItem itemB list1.AddItem itemC list1.AddItem itemD list1.AddItem itemEEnd Sub运行上面的程序，然后单击窗体，列表框中所显示的项目为 itemA 、 答案： 1： itemC62、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text1.Text = VB 程序设计 End SubPrivate Sub Text1_Change()Picture1.Print VB programmingEnd Sub程序运行后，单击窗体， 则

22、在文本框中显示的内容是 VB 程序设计， 而在图片框中显示的内 容是 。答案：1： VB programming63、执行下面的程序段后， S 的值为 。s=5For i=2 To 5 s=s+1Next i答案：1： 964、以下程序的功能是 :从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数 字的平均值，输出结果。请填空。Private Sub Form_click()Dim x, y As SingleDim z As Integerx = InputBox(Enter a score)Do while x=0y = y + xz = z + 1 x = InputBox(En

23、ter a score)LoopIf z = 0 Thenz = 1 End Ify = Print yEnd Sub答案：1： y/z65、阅读程序： Private Sub Form_Click()num = 0 s = 0Do While num = 2 num = num + 1s = s + 1LoopPrint sEnd Sub 程序运行后，单击窗体，输出结果是 答案：1：3# 3 #3 # 366、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()a = 0For i = 1 To 2For j = 1 To 4If j Mo

24、d 2 0 Thena = a + 1End Ifa = a + 1Next jNext iPrint aEnd Sub 程序执行后，单击命令按钮，输出结果是 。答案： 1：12# 12 #12 # 1267、程序执行结果 S 的值是 Private Sub Command1_Click()i = 0 Dos = i + si = i + 1Loop Until i = 4Print sEnd Sub答案：1：6# 6 #6 # 668、控件数组的名字由 Name 属性指定，而数组中的每个元素由 属性指定。答案：1： Index# Index #Index69、表达式 Fix(-32.68)+

25、Int(-23.02) 的值为 。答案：1： -5670、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox( 请输入一个整数 )B = InputBox( 请输入一个整数 )Print a + BEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321 和 456，输出结果为 答案：1： 32145671、执行下面的程序段后， b 的值为 a = 300B = 20 a = a + BB = a - B a = a - B答案：1： 30072、下面的程序用 冒泡法将数组 a中的 10 个整数按升序排列，

26、请将程序补充完整。 Option Base 1Private Sub Command1_Click()Dim a,a1 as integera = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For i=1 To 9For j=If a(i)=a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1End IfNext jNext iFor i = 1 To 10Print a(i)Next iEnd Sub假定变量 x 是一个窗体级变量)答案：1：i+1 To 10 73、在窗体上画一个命令按钮，然后编写

27、如下程序：Dim x As IntegerSub inc(a As Integer)x = x + aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Print x;End Sub程序执行后，单击 Command1 命令按钮，输出的结果是 答案： 1：9# 9 #9 # 9 74、在窗体上面画一个命令按钮，然后编写如下程序：Function M(x As Integer, y As Integer) As IntegerM = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim

28、 a As Integer, b As Integer a = 1b = 2Print M(a, b)End Sub 程序运行后，单击命令按钮，输出结果为答案：1：2# 2 #2 # 275、在 Visual Basic 中可以建立 菜单和 菜单。答案：1：弹出式 #下拉式 #标准 #标准 #快捷方式 #快捷2：下拉式 #弹出式 #快捷方式 #快捷 #标准 #标准76、菜单编辑器可分为 3 个部分，即数据区、 和菜单项显示区。答案：1：编辑区77、在菜单编辑器中，菜单项前面的4 个小点的含义是 符号。答案：1：内缩78、弹出式菜单又名 。答案：1：快捷方式菜单 #快捷菜单79、Visual B

29、asic 中的对话框分为 3 类，即预定义对话框、自定义对话框和 对话框。答案：1：通用80、文件对话框分为两种，即打开文件对话框和 对话框。答案：1：保存文件 #保存#Save As#SaveAs#另存 #另存文件 #另存为81、为了显示一个窗体， 所使用的方法为 ；为了隐藏一个窗体， 所使用的方法为 答案：1： Show2：Hide82、文件根据数据性质，可分为程序文件和 文件。答案：1：数据83、文件根据数据的存取方式和结构，文件可分为 文件和随机文件。答案：1：顺序84、文件根据数据的编码方式，可分为ASCII 文件和 文件。答案：1：二进制85、文件的打开和关闭语句分别是open 和

30、。答案：1： close86、顺序文件通过 语句或 Write 语句把缓冲区的数据写入磁盘。答案：1： Print87、执行下面的语句后，所产生的信息框的标题是 。a=msgbox(AAAA,BBBB,5)答案：1： BBBB88、使文本框获得焦点的方法是 。答案：1： SetFocus89、为了在按下 ESC 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设 置为 True，这个属性是 。答案：1： Cancel90、Visual BASIC 是一种面向 的语言。答案：1：对象91、下列语句的执行结果是 。Print Int(12345.6789*100+0.5)/100答案：1

31、：12345.68# 12345.68 #12345.68 # 12345.6892、如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 。答案：1： -#-#-# 连字符 -#连字符 (-)#连字符( -)93、以下语句的输出结果是 ：Print Format$(8795.5,000,000.00)答案：1：008,795.5094、在窗体上画一个文本框和一个标签， 其名称分别为 Text1 和 Label1 ，然后编写如下程序： Function fun(s As Integer)For i = 1 To sSum = Sum + iNext i fun = SumEnd Funct

32、ionPrivate Sub Form_Click()Text1.Text = Str(fun(5)End SubPrivate Sub Text1_Change()Label1.Caption = VB Programming End Sub 程序运行后，单击窗体则文本框中显示的内容是 ，而在标签中显示的内容是 。答案：1： 15# 152： VB Programming95、在窗体上建立一个文本框，其名为Text1 ，在属性窗口中所设该文本框的MultiLine 属性为 True，然后编写如下事件过程：Private Sub Text1_Click()Open C:smptxt1.txt

33、For Input As #1Do While Not Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10)LoopText1.Text = whole$Close #1Open C:smptxt2.txt For Output As #1Print #1, Close #1 End Sub 上述程序的功能是： 把磁盘上文件 smptxt1.txt 的内容读到内存并在文本框中显示出来， 然后 把该文本框中的内容复制到磁盘文件 smptxt2.txt 中。请填空将程序补充完整。答案：1： EOF(1)2：Text1

34、.Text#Text1#Whole#Whole$96、在窗体上画一个命令按钮 Command1 ，然后编写如下程序：Function power(x As Single, ByVal y As Integer)Dim result As Singleresult = 1Do While y 0 result = result * x y = Loop power = resultEnd FunctionPrivate Sub Command1_Click()For i = 0 To 10 r = power(2, i) Print rNext iEnd Sub 程序中划线应当填入 。答案：1：

35、 y-1#-1+y97、有如下程序段：x = -5s = InputBox( 请输入 s 的值： )Select Case s Case Is 0 y = x + 1Case Is = 0 y = x + 2Case Else y = x + 3End SelectPrint x; y 运行时，从键盘输入 -5，输出的结果是 。答案：1：-5 -2#-5-298、下面的程序用于根据文本框 X 中输入的内容进行以下处理： 如果 X.Text 的值不是 2、4、 6，则打印 X 不在范围内 。 Private Sub Command1_Click()Select Case Val(x.Text)C

36、ase 2Print X的值为2Case Print X的值为4Case Print X的值为6Print X 不在范围内 End SelectEnd Sub答案：1： 42：63： Case Else99、在窗体上画两个文本框 (其 Name 属性分别为 Text1 和 Text2)和一个命令按钮 (其 Name 属性为 Command1)，然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x amax Then amax = xEnd IfIf Thenamin = xEnd Ifx = InputBox(Enter a score)

37、LoopPrint Max=; amax, Min=; aminEnd Sub答案：1：x=0#0-12： xx#amin=x#x= ThenList1.RemoveItem Label1.Caption= ElseMsgBox 请选择要删除的项目 End IfEnd Sub答案：1： 02： List1.ListIndex#Form1.List1.ListIndex#Me.List1.ListIndex3： List1.ListCount#Form1.List1.ListCount#Me.List1.ListCount111、以下程序的功能是：把当前目录下的顺序文件smtext1.txt 的

38、内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=Open .smtext1.txt_ As #1Do While _Input #1,inDataText1.Text=Text1.Text & inDataLoopClose #1End Sub答案：1： For Input2：Not EOF(1)112、在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit ，Visible 属性为 False。程序运行后， 如果用鼠标右键单击窗体， 则弹出与 mnuEdit

39、对应的菜单。 以下是实现上述功 能的程序，请填空。Private Sub Form_ (Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then mnuEditEnd IfEnd Sub答案：1： mousedown2： popupmenu#form1.popupmenu#me.popupmenu113、为了使计时器控件 Timer1 每隔 0.5秒触发一次 Timer事件，应将 Timer1 控件的属性设置为 。答案：1： interval2：500114、与数学表达式 cos2(a + b) /3

40、x+5 ，对应的 Visual Basic 表达式是 。答 案 ： 1 ： NNcos(a+b)2/(3*x)+5#5+cos(a+b)2/(3*x)#(cos(a+b)2/(3*x)+5#cos(a+b)*cos(a+b)/(3*x)+5 #cos(a+b)2/3/x+5#5+cos(a+b)2/3/x#(cos(a+b)2/3/x+5#cos(a+b)*cos(a+b)/3/x+5#cos(a+b)2/ x/3+5#(cos(a+b)2/x/3+5#5+(cos(a+b)2/x/3#cos(a+b)*cos(a+b)/x/3+5115、在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮 建立一个控件数组，名称为 Option1 。程序运行后，如果单击某个单选按钮，则文本框中的 字体将根据所选择的单选按钮切换，如图所示。请填空。Private Sub Option1_Click(Index As Integer)Select Case Case 0a=宋体Case 1a=黑体Case 2a=楷体 _GB2312End SelectText1.=