VB填空题.docx

1、VB填空题VB填空题填空题1.VB语言中，菜单分为下拉式菜单和 弹出式菜单 。2.面向对象系统的三个基本特性是封装性、 继承性 和多态性。3.设在窗体上有一通用对话框Commondialog1，为建立一个“打开”对话框，应把 Action 属性设置为1。4.命令按钮的 Enable 属性为True时，表示该控件有效，即能够响应用户的操作。5.能够释放窗体Form1所占用的内存空间的语句是 Unload Form1 。6.若有定义Dim x(-2 to 4) as Integer，则函数UBound(x)的值为 4 。7.如果要从顺序文件中读数据，则打开方式应为 Input 。8.关键字 Var

2、iant 用于定义变体类型数据。9.XOR是逻辑 亦或 运算符。10.表示变量x既是5的倍数，也是7的倍数的逻辑表达式为 (x mod 5 = 0)and(x mod 7 = 0) 。11.在VB语言中，窗体文件的扩展名为 frm 。12.向随机文件或二进制文件中写入数据所用的命令关键字为 Put# 。13.函数过程（或子程序过程）直接或间接地调用自身称为 递归调用 。14.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是滚动条控件的 LargeChange 属性。15.设置数组下标的默认下界为1的语句是 Optionbase 1 。16.用关键字sub定义的过程称为 子程序

3、过程 。17.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 picture BOX ，该控件是 图片框 。18.文本框的默认属性是 Text 。19.与传统的程序设计语言相比，Visual Basic最突出的特点是 事件驱动编程机制 。20.VB窗体设计器的主要功能是 建立用户界面 。21.两个操作数取值相同为“假”，不同为“真”的运算符是 Xor 。22.在程序中，要在图片框或图像框中加载图片，可用函数 LoadPicture 。23.有一名为menuItem的菜单项，为了在程序运行时使该菜单项失效，应使用的语句为 Menuitem.Enab

4、le = False 。24.能够加载并显示窗体Form1的语句是 Form1.Show 。25.程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 Scroll事件 。26.在VB中，字符串天津2003Test需要的长度为 10 。27.在VB中，声明货币类型变量所用的关键字为 Currency 。28.能够表示当整型变量x是奇数时为真的VB表达式为 x mod 2 = 1 。29.数学表达式写成VB表达式为 sin(45/180*3.14159)+sqr(ln(3*x5)+6*Exp(x) 。30.从结构化程序设计角度看，程序的控制结构分为顺序结构、选择结构和 循环结构 。31.

5、鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示Image，该控件是 图像框 。32.在VB语言中，提前结束子程序过程的执行需要使用命令 End Sub 。33.VB程序中的对话框分为 预定义对话框 、自定义对话框和通用对话框。34.在VB中，声明布尔类型变量所用的关键字为 Boolean 。35.赋值语句a=123 & mid(“123456”，3，2)执行后，变量a的值是 12334 。36.根据文件中数据存取方式的不同，可以将数据文件分为顺序文件、 随机文件 和二进制文件。37.从结构化程序设计角度看，程序的控制结构分为 顺序结构 、选择结构

6、和循环结构。38.在VB语言中，用关键字function定义的过程称为 函数过程 。39.在应用领域中，任何有意义的事物称为 对象 。40.在VB语言中，用 菜单编辑器 设计菜单和菜单项。41.定义过程或函数时，形参之前有关键字 Byval ，表示按参数值传递数据。42.名称属性相同的同类型控件称为 控件数组 。43.表示列表框中选项数目的属性为 ListCount属性 。44.VB程序中的对话框分为预定义对话框、自定义对话框和 通用对话框 。45.语句Dim arr(3，2 to 4) As Integer定义的数组arr含有的元素个数为 12 。46.控件数组的下标对应控件的 Index

7、属性。47.能够表示当整型变量x是偶数时为真的VB表达式为 Not(x mod 2) 。48.若要求文本框显示多行文本，应将文本框的 MultiLine 属性设置为True。49.VB语言中，数组可分为 固定大小 和可变大小的数组。50.能够提前结束Do.Loop结构循环的语句为 Exit 。51.VB语言中，可用 Print 方法输出数据。52.能够表示随机产生一个两位整数的VB表达式为 10+lnt(89*rnd(1) 。53.在VB语言中，有两种形式的常量，分别为普通常量和 符号常量 。54.按照执行方式，高级程序设计语言分为 解释型 和编译型两种。55.在VB窗口中进行界面设计时，若双

8、击窗体中的某个控件对象，打开的窗口是 代码窗口 。56.表达式120+mid(“123456789”,3,3)的值为 465 。57.定义全局变量需要使用关键字 Public 。58.使用 Load 方法能够装载窗体，但不能显示该窗体。59.在VB中，声明双精度类型变量所用的关键字为 Double 。60.根据文件中数据存取方式的不同，可以将数据文件分为顺序文件、随机文件和 二进制文件 。编程题1.有一个工程文件，在窗体Form1上有两个文本框，名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示

9、，如果双击窗体，则Text1显示，Text2隐藏。注意：不得使用任何内存变量。程序设计代码如下所示：Private Sub Form_Click() Text1.Visible = False Text2.Visible = TrueEnd SubPrivate Sub Form_DblClick() Text1.Visible = True Text2.Visible = FalseEnd Sub2.有一个工程文件，在窗体Form1上有一个图像框，名称为Image1，其stretch属性值为True、picture属性值为pic1.bmp；还有两个命令按钮，名称分别为C1、C2，标题分别为“

10、放大”、“缩小”，如图所示。要求：请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。要求程序中不得使用任何变量。程序的代码如下所示：Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C3_Click() Open out5.txt For Output As #1 Print #1, Text1.Text Close #1End

11、Sub6.某工程文件中有一窗体，窗体上有一个命令按钮和一个文本框。请编写函数过程fun()用于计算01000范围内不能被7整除的整数的个数。程序运行后，单击命令按钮，即可在文本框中输出01000范围内不能被7整除的整数的个数。Private Function fun() As Integer Dim i As Integer Dim count As Integer For i = 0 To 1000 If i Mod 7 0 Then count = count + 1 Next i fun = countEnd FunctionPrivate Sub Command1_Click() Te

12、xt1.Text = fun()End Sub7.有一工程文件的窗体上有两个命令按钮，名为Command1和Command2，标题为“添加”和“清除”；一个文本框，名为Text1，文本框编辑区为空白；一个列表框，名称为List1。程序运行时，在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变有有效；若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。Private Sub Command1_Click() List1.AddItem Text1.Text Comma

13、nd1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Text1.Text = Command1.Enabled = True Command2.Enabled = FalseEnd Sub8.在一工程文件的窗体上有两个文本框（名称为Text1和Text2）。请编写程序实现：若在Text1中输入大写英文字母，则在Text2中输出对应的小写字母；在Text1中输入小写英文字母，则在Text2中输出对应的大写字母；在Text1中输入空格或数字字符，则在Text2中照原样输出对应的字符；在Text

14、1中输入其他字符，则在Text2中输出“*”。Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case Chr(KeyAscii) Case A To Z Text2.Text = Text2.Text & LCase(Chr(KeyAscii) Case a To z Text2.Text = Text2.Text & UCase(Chr(KeyAscii) Case 0 To 9,Space(1) Text2.Text = Text2.Text & Chr(KeyAscii) Case Else Text2.Text = Tex

15、t2.Text & * End SelectEnd Sub9.有一个工程文件，窗体上有4个标签，其名称属性分别为Label1（标题属性为“欢迎进入VB世界”）、Label2（标题属性为“字号”）、Label3（标题属性为空，用于显示滚动条的当前值）和Label4（标题属性为“颜色”）；一个组合框（名称为Combo1，包含3个项目，分别是“红色”、“绿色”和“蓝色”）；一个框架（名称为Frame1，标题属性为“字型”），框架中有两个复选框（名称分别为Check1和Check2，标题分别为“粗体”和“下划线”）。请编写适当的事件过程，完成以下功能要求：（1）改变滚动条的当前值，能够将滚动条的当前值

16、显示在标签3上，并且用该值设置标签1的文字字号；（2）在组合框中单击选中一种颜色后，用该颜色设置标签1的文字颜色；（3）在框架中选中或取消复选框，可以将该选择体现在标签1的文字上。如图所示Private Sub Check1_Click() Label1.FontBold = Not Label1.FontBoldEnd SubPrivate Sub Check2_Click() Label1.FontUnderline = Not Label1.FontUnderlineEnd SubPrivate Sub Combo1_Click() If Combo1.Text = 红色 Then La

17、bel1.ForeColor = vbRed If Combo1.Text = 绿色 Then Label1.ForeColor = vbGreen If Combo1.Text = 蓝色 Then Label1.ForeColor = vbBlueEnd SubPrivate Sub HScroll1_Change() Label1.FontSize = HScroll1.Value Label3.Caption = HScroll1.ValueEnd Sub10.有一工程文件，其窗体上有三个顶级菜单（名称分别为Read、Calc、Save，标题分别为“读入数据”、“计算并输出”和“存盘”）

18、，窗体中有一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）（如图所示）。程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”菜单，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”菜单，则把所求得的和存入考生文件夹下的dataout.txt文件中。其中“读入数据”菜单的单击事件过程已经定义，请编写“计算并输出”和“存盘”菜单的单击事件过程Option Base 1Dim Arr(100) As In

19、tegerDim sum As IntegerPrivate Sub read_Click() Open datain1.txt For Input As #1 For i = 1 To 100 Input #1, Arr(i) Next i Close #1End SubPrivate Sub calc_Click() Dim i As Integer Text1.Text = sum = 0 For i = 1 To 100 If Arr(i) Mod 3 = 0 Then Text1.Text = Arr(i) & vbCrLf & Text1.Text sum = sum + Arr(

20、i) End If Next i Print sumEnd SubPrivate Sub save_Click() Open dataout.txt For Output As #1 Print #1, sum Close #1End Sub11.有一个工程文件，其窗体上有一个文本框，名称为text1；两个命令按钮，名称分别为C1和C2，标题分别为“计算”，“存盘”，如图所示。并有一个函数过程isprime可以在过程中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回true，否则返回false。编写适当的事件过程。使得程序运行时，单击“计算”按钮，则找出大于15000的第一个素数，并

21、显示在text1中，单击存盘按钮，则把text1中的计算结果存入当前文件夹下的out4.txt的文件中。Private Function prime(a As Integer) As Boolean Dim b As Integer For b = 2 To a - 1 If a Mod b = 0 Then Exit For Next b If b = a Then prime = True Else prime = False End IfEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 15001 Do While

22、 x = 15000 If prime(x) Then Text1.Text = x Exit Do End If x = x + 2 LoopEnd Sub上述过程也可用ForNext循环实现编写Private Sub Command1_Click() Dim x As Integer For x = 15001 To 20000 Step 2 If prime(x) Then Text1.Text = x Exit For End If NextEnd SubPrivate Sub Command2_Click() Open out4.txt For Output As #1 Print

23、#1, Text1.Text Close #1End Sub12.有一工程文件，其Form1窗体上有一个命令按钮(名为Command1，标题属性为“计算并输出最小值”)。要求编程序实现：随机产生30个区间1,1000内的整数，存入数组a(下标的下界为1)中，然后计算并输出其中的最小值。程序运行后，单击命令按钮，在窗体上中输出最小值，形式为“最小值为 XXX”。注：XXX代表1,1000内的任意一个数Option Base 1Private Sub Command1_Click() Dim x(30) As Integer Dim i As Integer, min As Integer For

24、 i = 1 To 30 x(i) = Int(Rnd * 1001)+1 Next i min = x(1) For i = 2 To 30 If min x(i) Then min = x(i) Next i Print 最小值为 & minEnd Sub程序填空1.有一工程文件，包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。Form1上按钮的标题为“结束”，Form2上按钮的标题为“显示”，Form2为启动窗体，Form1为不显示。要求：在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1

25、窗体，若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。Form2窗体中的命令按钮的单击事件过程：Private Sub C2_Click()Load Form1Form1.Visible= TrueEnd SubForm1窗体中的命令按钮的单击事件过程：Private Sub C1_Click()EndEnd Sub2.有一工程文件，其窗体（名称为Form1，KeyPreview属性为True）上有一个列表框（名称为List1）和一个文本框（名称为Text1），如图1所示。编写窗体的KeyDown事件过程。程序运行后，如果按下键盘上的“A”键，则要求从键盘上输入

26、要添加到列表框框中的项目（内容任意，不少于三个）；如果按下“D”键，则从键盘上输入要删除的项目，找到后，将其从列表框中删除。程序的运行情况如图2所示。程序不完整，请把它补充完整。Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)If Chr(KeyCode) = A ThenText1.Text = InputBox(请输入要添加的项目)List1.AddItem Text1.TextEnd IfIf Chr(KeyCode) = D ThenText1.Text = InputBox(请输入要删除的项目)For i =

27、0 To List1.ListCount-1If List1.List(i) =Text1.Text ThenList1.RemoveItem i End IfNext iEnd IfEnd Sub3.在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。程序运行后，单击命令按钮，即可计算出数组Arr中正数之和pos和负数之和neg，并分别在两个文本框中显示出来。该程序不完整，请把它补充完整。Option Base 1Private Sub Command1_Click() Dim Arr Arr = Array(43

28、， 68， -25， 65， -78， 12， -79， 43， -94， 72) pos = 0 neg = 0 For k = 1 To 10 If Arr(k)0 Then pos =pos+arr(k) Else neg =neg+arr(k) End If Next k Text1.Text = 正数之和为： & Str(pos) Text2.Text = 负数之和为： & Str(neg)End Sub4.在窗体上有两个命令按钮，其名称分别为Command1、Command2；一个标签，其名称为Label1；一个计时器，其名称为Timer1，如图1所示。程序运行后，如果单击“开始”

29、命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔100毫秒增大0.1倍（即为原来的1.1倍），字体大小超过100后，自动缩小为8；如果单击“停止”命令按钮，则该按钮变为禁用， “继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。Private Sub Form_Load() Command1.Caption = 开始 Command2.Caption = 停止 Timer1.Interval = 100 Timer1.Enabled = False Labe

30、l1.Caption = 国 Label1.AutoSize = True Label1.FontBold = TrueEnd SubPrivate Sub Command1_Click() Command1.Caption = 继续 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = false Command2.Enabled = False Command1.Enabled = TrueEnd S

31、ubPrivate Sub Timer1_Timer() If Label1.FontSize =100 Then Label1.FontSize= Label1.FontSize*1.1 Else Label1.FontSize = 8 End IfEnd Sub5.有一个工程文件，其功能是通过通用过程Average求数组的平均值。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。Option Base 1Private Function Average(a() As Integer) As Sin