VB程序设计复习题解答.doc

VB程序设计复习题1Visual Basic是一种_D_的可视化程序设计语言。A面向机器 B面向过程 C面向问题 D面向对象2Visual Basic主窗口中不包括_B_。A标题栏 B状态栏 C工具栏 D菜单栏3程序运行中用鼠标双击当前窗体时，会触发窗体的_C_ 事件。ALoad BUnload CDblClick DKeyPress4假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是 _A_。A单击窗体上没有控件的地方 B单击任一个控件C双击任一个控件 D双击窗体上没有控件的地方5、要设置窗体上各控件的属性，可在 _C_ 中进行。 A窗体布局窗口 B工程资源管理器窗口 C属性窗口 D窗体窗口6设变量A的值为-2，则_A_函数的执行结果与其他三个不一样。AVal(A) BInt(A) CFix(A) D-Abs(A)7要在窗体Forml的标题栏上显示统计程序，可用_B_语句。AForml.Name=统计程序 BForm1.Caption=统计程序 C. Forml.Caption=统计程序 DForml.Name=统计程序8函数String(n, str)的功能是 B 。A把数值型数据转换为字符串B返回由n个字符组成的字符串 C从字符串中取出n个字符D从字符串中第n个字符的位置开始取子字符串9、定义变量如下：Dim MyVarMyVar =”come see me “若在立即窗口中显示MyVar的值，下面正确的是（ A ）ADebug.Print MyVar B、? MyVar CPrinter.Print MyVar D、Print MyVar10设置复选框或单选按钮标题对齐方式的属性是（ D ）AAlign Bvalue CSorted D. Alignment11、滚动条控件的LargeChange属性所设置的是（ A ）A 单击滚动条与滚动箭头之间的区域时，滚动条控件value属性值的改变量B 滚动条中滚动块的最大移动位置C 滚动条中滚动块的最大移动范围D 滚动条控件无该属性12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ D ）ACaption BName CText Dvalue13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) Print C;DEnd Sub程序运行后，在文本框Text1、Text2中分别输入AbC与Efg，结果是（ A ）AabcEFG Babcefg CABCefg DABCEFG14假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ A ）ALabel1.BackStyle=0 BLabel1.BackStyle=1 Label1.BorderStyle=0 Label1.BorderStyle=1CLabel1.BackStyle=True DLabel1.BackStyle=False Label1.BorderStyle=True Label1.BorderStyle=False15当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D ）AMove BChange CSetFocus DScoll 16比较图片框（PictureBox）与图像框（Image）的使用，正确的描述是（ C ）A 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小B 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分C 当图片框（PictureBox）的AutoSize属性为FaLse时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸D 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框17当利用Line方法进行绘图时，以下正确的说法是（ B ）A 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B 使用Line(100,100)-(1000,1200)与Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C 可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BFD 可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F18下面语句中错误的是（ B ）A Redim Preserve Matrix(10,Ubound(Matrix,2)+1)B Redim Preserve Matrix(Ubound(Matrix,1)+1,10)C Redim Preserve DynArray(Ubound(DynArray)+1)D Redim DynArray(Ubound(DynArray)+1)19可以唯一标识控件数组中的每一个控件的属性是（ C ）AName BCaption CIndex DEnabled20、下面（ D ）不是VB的文件类控件ADriveListBox控件 BDirListBox控件CFileListBox控件 D、MsgBox21、关于Open语句不正确的叙述是（ D ）（A）Open语句可以打开顺序文件 （B）Open语句可以打开随机文件 （C）Open语句可以打开二进制文件 （D）Open语句可以打开一个窗体22、下列语句所声明的数组的元素个数为（ A ）Dim Ary(3 To 6,-2 To 2)（A）20 （B）16 （C）24 （D）2523、下面对控件数组叙述正确的是（ A ）（A）在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组 （B）控件数组使用Index属性来标识控件元素，其范围必须从0开始 （C）控件数组使用的资源比用几个单独同类型的控件占用的资源要多 （D）如果有一个命令按钮数组，各个按钮都有自己的Click事件过程24、在框架Frame1与图片框Piture1中各有一组复选框CheckBox，其作用是（ D ）（A）两组复选框中只有一个能被选中 （B）因有两组复选框，无一可被选中 （C）两组复选框中各有一个能被选中 （D）两组复选框中各有多个被选中25、要从For.Next循环中中退出循环，使用的语句是 (B)（A）Exit Do （B）Exit For （C）Continue （D）Stop二、多项选择题1、要清除文本框Textl中的内容，使其内容为空字符串，可以采用（ AC） 。 AText1.Text=Space(0) BText1.Text=0 CText1.Text= DText1.Text=Space(1) ECls Textl.Text2、下列关于Name属性的论述中，正确的是（ ABC ） 。 A所有窗体与控件都有Name属性，其值不能为空 B对象的Name属性指定对象的名称，用来标识一个对象 CName属性值必须以字母(或汉字)开头 D标签的Name属性值是显示在标签标题(Caption)中的文本 EName属性值可以在属性窗口中修改，也可以通过代码来修改3、下列关于Name属性的论述中，正确的是（ ABC ） 。 A所有窗体与控件都有Name属性，其值不能为空 B对象的Name属性指定对象的名称，用来标识一个对象 CName属性值必须以字母(或汉字)开头 D标签的Name属性值是显示在标签标题(Caption)中的文本 EName属性值可以在属性窗口中修改，也可以通过代码来修改4、若要清除图片框Picture1中已经载入的图片内容，可以使用的语句有（ BCD ）APicture1.Del BPicture1.Picture=LoadPicture() CPicture1.Picture=LoadPicture() DPicture1.Picture=Nothing EPicture1.Cls5、执行程序时，自动发生的窗体事件是（ ACD ）ALoad BClick CActivate DInitialize ELostFocus三、判断题1.要在窗体上添加控件，从工具箱中将控件拖到窗体上即可。 F2.可以把属性看作是一个对象的性质。 T3.TextBox与Label有许多共同的特点，它们都能显示与输入文字。 F4.所有对象的属性都可以在属性窗口中设定。 F5.标签没有change事件与setFocus方法。 T6.方法Form1.show与Form1.visible=True是等效的。 T7.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。 F8.DoLoop Until语句实现循环时，不管条件真假，首先无条件地执行一次循环。 T9.函数Str(23)与Str(-23)的值的长度相同。 T10.变量名的第一个字符必须是字母。 F11. 用Cls方法能清除窗体或图片框中用Print方法打印的文本或用Circle或Line方法绘制的图形。T12.窗体的标题栏显示内容由窗体对象的Name属性决定。F13.在运行期间用鼠标单击单选按钮时，按钮的Value属性变为“真”值。T14.由于定时器控件在运行时是不可见的，因此定时器没有事件触发过程。F四、填空题（每空2分，共10分）1、INT(45.02)= 45。 2、将窗体级变量MyText声明为字符串变量的语句是dim mytext as string。 3、常用的循环结构有：当型循环与直到型循环。 4、VB的表达式主要有：算术运算表达式、字符串表达市、关系表达式、逻辑表达式与对象属性表达式。 5、在图片控件 Picturebox 的属性中，可以决定控件是否自动改变大小的属性是Autosize6、设在窗体上有一个标签Label1与一个文本框数组Text1，数组Text1有10个文本框，索引号09，其中存放的都是数字数据。现由用户单击选定任一文本框，然后计算从第一个文本框开始，到该文本框为止的多个文本框中的数值总与，把计算结果显示在标签中，请完善下列事件过程。Private Sub Text1_Click(Index As Integer) Dim s As Single s = 0 For k = 0 To Index s = s + val(text1(k).text) Next Label1.Caption = sEnd Sub7、运行时，单击窗体，输出如图所示结果。Private Sub Form_Click() Cls For I=1 to9 Print Tab(15 - i); Print String(2 * i - 1, (48+I ) ) Next iEnd Sub五、读程序1、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序；Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Print 12345 End IfEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 67890End Sub程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（ 1234567890）2、在窗体中添加一个命令按钮、一个标签与一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：Private Function fun(x As Long) As Boolean If x Mod 2 0 Then fun = True Else fun = False End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Long n = Val(text1.Text) p = IIf(fun(n), 奇数, 偶数) Lable1.Caption = n & 是一个 & pEnd Sub程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ 20是一个偶数）3、下面程序的运行时，单击命令按钮后，显示结果是（ 5 ）Private Sub Command1_Click() a = Array(33, 76, 89, 21, 10, 44, 57, 69, 28, 71) b = Array(25, 45, 89, 90, 16, 27, 83, 62, 83, 75) For i = UBound(a) To LBound(a) Step -1 If a(i) b(i) Then c = c + 1 Next i Print cEnd Sub4、在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click() Dim arr1(10) As Integer, arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr2(n); arr1(n)End Sub程序运行后，单击按钮，输出结果为（11 3 ）5、程序运行时，单击窗体后，键盘输入763458，则标签Label1中的结果是（ 33 ）Private Sub form_Click() Dim x As Long Dim s As Integer, k As Integer, m As Integer x = Val(InputBox(请输入一个整数：) Do m = x Mod 10 s = s + m x = x 10 Loop While x 0 Label1.Caption = sEnd Sub六、程序设计题1、 随机产生49个2位的正整数，然后在指定位置插入一个数（插入的数n与位置p均从键盘输入），最后将这50个数按每行5个数的格式在窗体上输出。Dim a(49) As IntegerPrivate Sub Command1_Click()Dim n As Integer, p As Integer, i As Integern = Val(InputBox(please input a number:)p = Val(InputBox(please input the place:)For i = 48 To p Step -1 a(i + 1) = a(i)Next ia(p) = nPrint after insertFor i