VB6.0总复习题

1、在设计窗体时双击窗体的任何地方，可以打开的窗口是（代码窗口,而F4键不能打开）2、以下说法正确的是（一个窗体对应一个窗体文件）。

工程文件的扩展名是.frm3、设置窗体最小化时的图标可通过（Icon ）属性来实现p18表2-14、如果要实现当鼠标暂时停留在一命令按钮上时，显示提示信息，应设置此命令按钮的（ToolTipText）属性。

5、如果要实现窗体从内存中卸载，其实现的方法是（UnLoad）。

6、当文本框的MaxLength属性值取（0 ）时，该文本框能容纳的字符数最多。

7、焦点：使文本框获得焦点的方法是（SetFocus）。

8、当运行程序时，系统自动执行启动窗体的某个事件过程。

这个事件过程是（GotFocus）GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。

9、若使用Textbox控件时，为对用户输入的内容立即进行检查，就对Textbox控件的（Change）事件编程。

10、所有控件都具备的属性是（Name）。

11、命令按钮对象不支持DblClick事件。

12、下列4个选项中，不是VB数值常量的是（2E1.4 ）。

13、变量名不合法的是（M-d）,合法的是（k_name ）14、表达式"321" & 100 + "200"的值是（"321300”）。

15、VB6.0中执行时出现错误的是（x = Sqr(-4)x = Exp(800)）16、Sgn(x)的值为-1，则x的值是（小于0的数）。

// Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回0;当x为正数时，返回117、VB的叙述中正确的是（数组下标的下界在默认情况下从0开始）。

18、VB的叙述中不正确的是（使用ReDim语句可以改变数组的类型）。

19、在VB中声明了Variant变量，但未赋值，则系统默认其初始化值为（Empty）p40。

20、确定字符串str2在字符串str1中起始位置的函数是（Instr）p46。

21、表达式# 9/10/2009 – 5 的运算结果是（2009-9-5 ）p49。

22、表达式Int ( Rnd * 30 + 2 )的取值范围为（[2，31] ）。

23、运行下面的程序后，单击命令按钮，则在窗体上输出（）。

Print Format( 4123.479，"###.##%") 412347.9%24、关于MsgBox函数的说法中，正确的是MsgBox函数的第三个参数是Title，表示对话框的标题显示在对话框窗口顶部的标题栏区p6325、对象.cls方法对（窗体、图片框）控件有效。

P1826、若想使时钟控制每隔0.25秒触发一次Timer( )事件，则可将Interval属性值设为（250 ）。

27、（窗体、图形框、框架）组中的所有控件，可以在用户界面上作为其他控件的容器。

28、若希望分成两组使用多个Option Button控件，能完成这一功能的控件是(Frame)P96 p106;29、在窗体上画一个名称为Check1的复选框，在程序运行的过程中，若选中复选框，则Check1.Value的值是（1）。

30、每次单击滚动条两端箭头时，滚动条输出的变化值是5，应设置它的（SmallChange）属性。

31、引用列表框L ist1最后一个数据项应使用（List1.List(List1.ListCount - 1) ）。

32、窗体的MouseDown事件过程:Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single )有4个参数，关于这些参数，正确的描述是（通过Button参数判定当前按下的是哪一个鼠标键）。

二、读程序运行写结果1、Do Until…Loop循环命令的功能是（）。

（执行前先判断是否不满足条件，若不满足才进入循环）2、将当前页面跳转到"Test.asp"的ASP代码是（Response.Redirect "Test.asp" ）。

A、Response.Goto "Test..asp"B、Request.Goto "Test.asp"C、Response.Redirect "Test.asp"D、Request.Redirect “Test.asp”3、执行下列程序，单击命令按钮后在窗体上输出结果是（）。

Private Sub Command1_Click( )Dim A As IntegerA% = 456 : A = 232.45B = 235Print A%，AEnd Sub（232 232 ）4、执行以下程序段a$ = “abbacddcba”For i = 6 To 1 Step -2X = Mid(a,i,i)Y = Left(a,i)Z = Right(a,i)Z = UCase(X & Y & Z)Next iPrint Z输出结果为（BBABBA）。

5、在一个列表框List1中已按序放入ONE、TWO、THREE、FOUR、FIVE、SIX 6个字符串数据项，执行下面的程序后：Private Sub Form_Click( )For i = 1 To 3List1.RemoveItem iNext iEnd Sub列表中的数据项是（ONE、THREE、FIVE）。

6、执行下面的程序后，x的值为（）。

x ＝50For i = 1 To 20 Step 2x = x + i \ 5Next i（66）7、如下程序：Private Sub Form_Click( )c = 4x = Val(InputBox("请输入一个数"))While x <> -999If x > c Then c = xx = Val(InputBox("请输入一个数"))WendPrint c; Abs(x)End Sub运行后，单击窗体并输入9，8，2，-999，输出的结果是（9 999 ）。

8、在窗体上画两个名称分别是Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str(x)Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是（27和3 ）。

9、如下程序：For i = 1 To 3For j = 5 To 1 Step -1Print i * jNext jNext i运行程序，则语句Print i * j的执行次数及i、j的值分别是（15 4 0 ）。

10、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i) + i - 1Next iPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ 5 ）。

二、填空题（共30空，每空1分，共计30分）1、VB提供了结构化程序设计的3种基本结构，这3种基本结构是______、______和_______。

（顺序结构选择结构循环结构）2、__________方法可以清除列表框的所有内容。

（clear）3、E盘根目录下的一个名为pic1.gif的图形文件，要在运行期间把该文件装入一个图片框（Picture1），应执行的语句是_____。

（Picture1.Picture = LoadPicture(" E:\pic1.gif ")4、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动事件是__________。

（Scroll）5、VB中，若要设定每个数组默认的下界固定为1，其声明的语句是________。

（Option Base 1）6、InputBox函数返回值的类型为_____，MsgBox函数返回值的类型为_____。

（字符型；数值型）7、对于窗体上的菜单按钮，如果不允许进行操作，应通过___属性进行设置。

（Enabled）8、要将数学表达式Sin3(x+y)+4e2写成VB表达式，正确的形式是___。

（sin(x+y)^3+4*exp(2)9、在VB中，若要改变动态数组的大小，且保留数组中的数据，应在ReDim语句后加关键字______。

（Preserve）10、执行语句s = Len("可视化Basic", 4)后，s的值是_____。

（5）11、已知a = -5.5，则Int(a) = __，Fix(a) = ____，Cint(a) = ____。

（-6 -5 -6）12、设x = 3，y = 2，z = 1，表达式x < y And (Not y > z) Or z < x的值是_______。

（true）13、设有如下程序Private Sub Form_Click( )Dim a As Integer, s As Integern = 6：s = 0Don = n – 1s = s + nLoop until n < 0Print sEnd Sub以上程序运行后，单击窗体，输出结果为_____。

（14）14、下面程序的功能是：输出100以内能被3整除且个位数为4的所有整数。

请在下划线处填入适当内容，将程序补充完整。

Private Sub Command1_Click( )For i = 0 To _____j = i * 10 + 4If ______ ThenPrint jEnd IfNext iEnd Sub（9；j Mod 3 = 0）15、命令按钮Command1_Click事件中的程序为：Private Sub Command1_Click( )Static a As Integer, b As Integera = 1a = a + 5b = 5 + bPrint a，bEnd Sub程序运行时，单击命令按钮两次后，窗体上显示的结果为_____和_____。