Get格雅VB填空题.docx

1、Get格雅VB填空题VB填空题填空题1.VB语言中，菜单分为下拉式菜单和 弹出式菜单 。2.面向对象系统的三个根本特性是封装性、 继承性 和多态性。3.设在窗体上有一通用对话框Commondialog1，为建立一个“翻开对话框，应把 Action 属性设置为1。 Enable 属性为True时，表示该控件有效，即能够响应用户的操作。 Unload Form1 。6.假设有定义Dim x(-2 to 4) as Integer，那么函数UBound(x)的值为 4 。7.如果要从顺序文件中读数据，那么翻开方式应为 Input 。 Variant 用于定义变体类型数据。 亦或 运算符。10.表示变

2、量x既是5的倍数，也是7的倍数的逻辑表达式为 (x mod 5 = 0)and(x mod 7 = 0) 。11.在VB语言中，窗体文件的扩展名为 frm 。 Put# 。13.函数过程或子程序过程直接或间接地调用自身称为 递归调用 。14.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是滚动条控件的 LargeChange 属性。 Optionbase 1 。 子程序过程 。17.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 picture BOX ，该控件是 图片框 。 Text 。19.与传统的程序设计语言相比，Visu

3、al Basic最突出的特点是 事件驱动编程机制 。 建立用户界面 。“假，不同为“真的运算符是 Xor 。22.在程序中，要在图片框或图像框中加载图片，可用函数 LoadPicture 。23.有一名为menuItem的菜单项，为了在程序运行时使该菜单项失效，应使用的语句为 Menuitem.Enable = False 。 Form1.Show 。25.程序运行期间，如果拖动滚动条上的滚动块，那么触发的滚动条事件是 Scroll事件 。26.在VB中，字符串天津2003Test需要的长度为 10 。27.在VB中，声明货币类型变量所用的关键字为 Currency 。 x mod 2 = 1

4、 。写成VB表达式为 sin(45/180*3.14159)+sqr(ln(3*x5)+6*Exp(x) 。30.从结构化程序设计角度看，程序的控制结构分为顺序结构、选择结构和 循环结构 。31.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示Image，该控件是 图像框 。32.在VB语言中，提前结束子程序过程的执行需要使用命令 End Sub 。 预定义对话框 、自定义对话框和通用对话框。34.在VB中，声明布尔类型变量所用的关键字为 Boolean 。35.赋值语句a=123 & mid(“123456，3，2)执行后，变量a的值是 1233

5、4 。36.根据文件中数据存取方式的不同，可以将数据文件分为顺序文件、 随机文件 和二进制文件。37.从结构化程序设计角度看，程序的控制结构分为 顺序结构 、选择结构和循环结构。38.在VB语言中，用关键字function定义的过程称为 函数过程 。39.在应用领域中，任何有意义的事物称为 对象 。40.在VB语言中，用 菜单编辑器 设计菜单和菜单项。41.定义过程或函数时，形参之前有关键字 Byval ，表示按参数值传递数据。 控件数组 。 ListCount属性 。44.VB程序中的对话框分为预定义对话框、自定义对话框和 通用对话框 。45.语句Dim arr(3，2 to 4) As I

6、nteger定义的数组arr含有的元素个数为 12 。 Index 属性。 Not(x mod 2) 。48.假设要求文本框显示多行文本，应将文本框的 MultiLine 属性设置为True。49.VB语言中，数组可分为 固定大小 和可变大小的数组。50.能够提前结束Do.Loop结构循环的语句为 Exit 。51.VB语言中，可用 Print 方法输出数据。 10+lnt(89*rnd(1) 。53.在VB语言中，有两种形式的常量，分别为普通常量和 符号常量 。54.按照执行方式，高级程序设计语言分为 解释型 和编译型两种。55.在VB窗口中进行界面设计时，假设双击窗体中的某个控件对象，翻开

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

8、变量。程序设计代码如下所示：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属性值为；还有两个命令按钮，名称分别为C1、C2，标题分别为“放大、“缩小，如下图。要求：请编写适当的事件过程，程序运行后，如果单击“放大按钮，那么把

9、图像框的高度、宽度均增加100；单击“缩小按钮，那么把图像框的高度、宽度均减少100。要求程序中不得使用任何变量。程序的代码如下所示：Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub3.工程文件，窗体上有一个文本框，名称为text1；一个命令按钮，名称

10、为Com1，标题为“确定，还有三个单项选择按钮，名称分别为op1，op2，op3，标题分别为飞机“火车“汽车。请编写适当的事件过程：在程序运行时，选中一个单项选择按钮，并单击“确定按钮后，按照下表在文本框中显示相应的内容。飞机火车汽车在文本框中显示的内容选中需要一小时选中需要十小时选中需要十五小时程序设计代码如下所示：Private Sub Com1_Click() If Op1.Value Then Text1.Text = 需要一小时 ElseIf Op2.Value Then Text1.Text = 需要十小时 Else Text1.Text = 需要十五小时 End IfEnd Su

11、b4.有一个工程文件，其窗体的标题属性为：“改变文本框的前景与背景颜色；窗体中包含一个命令按钮command1，其标题为 “设置颜色；一个文本框text1。要求程序运行时，单击命令按钮，将文本框的的前景色设置为RGB(255，0，0)，背景色设置为RGB(0，255，0。程序代码如下：Private Sub Command1_Click() Text1.BackColor = RGB(0, 255, 0) Text1.ForeColor = RGB(255, 0, 0)End Sub5.在名称为Form1的窗体上有一个文本框，名称为Text1，允许多行显示；有三个命令按钮，名称分别为C1，C2

12、，C3，标题分别为“输入，“转换，“存盘。请编写适当的事件过程，使得在运行时，单击“输入按钮，从文件夹中读入文件文件中只有字母和空格，放入Text1中；单击“转换按钮，那么把Text1中的所有小写字母转换为大写字母；单击“存盘按钮，那么把Text1中的内容存入文件中。注：所有用到的文件都放在当前盘的当前文件夹下Private Sub C1_Click() Dim s As String Open in5.txt For Input As #1 While Not EOF(1) s = s & Input(1, #1) Wend Text1.Text = s Close #1End SubPri

13、vate Sub C2_Click() Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click() Open out5.txt For Output As #1 Close #1End Sub6.某工程文件中有一窗体，窗体上有一个命令按钮和一个文本框。请编写函数过程fun()用于计算01000范围内不能被7整除的整数的个数。程序运行后，单击命令按钮，即可在文本框中输出01000范围内不能被7整除的整数的个数。Private Function fun() As Integer Dim i As Integer Dim count As

14、Integer For i = 0 To 1000 If i Mod 7 0 Then count = count + 1 Next i fun = countEnd FunctionPrivate Sub Command1_Click() Text1.Text = fun()End Sub7.有一工程文件的窗体上有两个命令按钮，名为Command1和Command2，标题为“添加和“去除；一个文本框，名为Text1，文本框编辑区为空白；一个列表框，名称为List1。程序运行时，在文本框中输入文本，假设单击“添加按钮，那么将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加按钮

15、变为无效，“去除按钮变有有效；假设单击“去除按钮，那么使文本框中的内容为空，且使“添加按钮变为有效，“去除按钮变为无效。Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Text1.Text = Command1.Enabled = True Command2.Enabled = FalseEnd Sub8.在一工程文件的窗体上有两个文本框名称为Text1和Text2。请编写程序实现：假设在Text1中输入大写英文字母，

16、那么在Text2中输出对应的小写字母；在Text1中输入小写英文字母，那么在Text2中输出对应的大写字母；在Text1中输入空格或数字字符，那么在Text2中照原样输出对应的字符；在Text1中输入其他字符，那么在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(K

17、eyAscii) Case 0 To 9,Space(1) Text2.Text = Text2.Text & Chr(KeyAscii) Case Else Text2.Text = Text2.Text & * End SelectEnd Sub9.有一个工程文件，窗体上有4个标签，其名称属性分别为Label1标题属性为“欢送进入VB世界、Label2标题属性为“字号、Label3标题属性为空，用于显示滚动条的当前值和Label4标题属性为“颜色；一个组合框名称为Combo1，包含3个工程，分别是“红色、“绿色和“蓝色；一个框架名称为Frame1，标题属性为“字型，框架中有两个复选框名称分

18、别为Check1和Check2，标题分别为“粗体和“下划线。请编写适当的事件过程，完成以下功能要求：1改变滚动条的当前值，能够将滚动条的当前值显示在标签3上，并且用该值设置标签1的文字字号；2在组合框中单击选中一种颜色后，用该颜色设置标签1的文字颜色；3在框架中选中或取消复选框，可以将该选择表达在标签1的文字上。如下图Private Sub Check1_Click()End SubPrivate Sub Check2_Click()End SubPrivate Sub Combo1_Click() If Combo1.Text = 红色 Then Label1.ForeColor = vbR

19、ed If Combo1.Text = 绿色 Then Label1.ForeColor = vbGreen If Combo1.Text = 蓝色 Then Label1.ForeColor = vbBlueEnd SubPrivate Sub HScroll1_Change()End Sub10.有一工程文件，其窗体上有三个顶级菜单名称分别为Read、Calc、Save，标题分别为“读入数据、“计算并输出和“存盘，窗体中有一个文本框名称为Text1，MultiLine属性为True，ScrollBars属性为2如下图。程序运行后，如果执行“读入数据命令，那么读入datain1.txt文件中

20、的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出菜单，那么把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘菜单，那么把所求得的和存入考生文件夹下的dataout.txt文件中。其中“读入数据菜单的单击事件过程已经定义，请编写“计算并输出和“存盘菜单的单击事件过程Option Base 1Dim Arr(100) As IntegerDim sum As IntegerPrivate Sub read_Click() Open datain1.txt For Input As #1 For i = 1 To 100

21、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 sum = sum + Arr(i) End If Next i Print sumEnd SubPrivate Sub save_Click() Open dataout.txt For Output As #1 Print #1, sum Close #1End Sub，其窗体上有一个文本框，名称为text

22、1；两个命令按钮，名称分别为C1和C2，标题分别为“计算，“存盘，如下图。并有一个函数过程isprime可以在过程中直接调用，其功能是判断参数a是否为素数，如果是素数，那么返回true，否那么返回false。编写适当的事件过程。使得程序运行时，单击“计算按钮，那么找出大于15000的第一个素数，并显示在text1中，单击存盘按钮，那么把text1中的计算结果存入当前文件夹下的的文件中。Private Function prime(a As Integer) As Boolean Dim b As Integer For b = 2 To a - 1 If a Mod b = 0 Then Ex

23、it 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 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

24、 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 Close #1End Sub12.有一工程文件，其Form1窗体上有一个命令按钮(名为Command1，标题属性为“计算并输出最小值)。要求编程序实现：随机产生30个区间1,1000内的整数，存入数组a(下标的下界为1)中，然后计算并输出其中的最小值。程序运行后，单击命令按钮，在窗体上中输出最小值，形式为“最小值为 XXX。

25、注：XXX代表1,1000内的任意一个数Option Base 1Private Sub Command1_Click() Dim x(30) As Integer Dim i As Integer, min As Integer For 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窗体上

26、建立了标题分别为“C1和“C2的按钮。Form1上按钮的标题为“结束，Form2上按钮的标题为“显示，Form2为启动窗体，Form1为不显示。要求：在程序运行时显示Form2窗体，单击Form2上的“显示按钮，那么显示Form1窗体，假设单击Form1上的“结束按钮，那么关闭Form1和Form2，并结束程序运行。Form2窗体中的命令按钮的单击事件过程：Private Sub C2_Click()Load Form1= TrueEnd SubForm1窗体中的命令按钮的单击事件过程：Private Sub C1_Click()EndEnd Sub2.有一工程文件，其窗体名称为Form1，K

27、eyPreview属性为True上有一个列表框名称为List1和一个文本框名称为Text1，如图1所示。编写窗体的KeyDown事件过程。程序运行后，如果按下键盘上的“A键，那么要求从键盘上输入要添加到列表框框中的工程内容任意，不少于三个；如果按下“D键，那么从键盘上输入要删除的工程，找到后，将其从列表框中删除。程序的运行情况如图2所示。程序不完整，请把它补充完整。Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)If Chr(KeyCode) = A ThenText1.Text = InputBox(请输入要添加的工程

28、)End IfIf Chr(KeyCode) = D ThenText1.Text = InputBox(请输入要删除的工程)For i = 0 To If List1.List(i) = ThenList1.RemoveItem i End IfNext iEnd IfEnd Sub3.在窗体上有一个命令按钮名称为Command1，标题为“计算并输出和两个文本框名称分别为Text1和Text2，如下图。程序运行后，单击命令按钮，即可计算出数组Arr中正数之和pos和负数之和neg，并分别在两个文本框中显示出来。该程序不完整，请把它补充完整。Option Base 1Private Sub C

29、ommand1_Click() Dim Arr Arr = Array(43， 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

30、；一个计时器，其名称为Timer1，如图1所示。程序运行后，如果单击“开始命令按钮，那么该按钮变为禁用，而标题变为“继续，同时标签中的字体每隔100毫秒增大0.1倍即为原来的1.1倍，字体大小超过100后，自动缩小为8；如果单击“停止命令按钮，那么该按钮变为禁用， “继续命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。Private Sub Form_Load() Command1.Caption = 开始 Command2.Caption = 停止 Timer1.Interval = 100 Timer1.Enabled = False Label1.Caption = 国 Label1.AutoSize = True Label1.FontBold = TrueEnd SubPrivate Sub Command1_Click()