vb选择填空题.doc

选择1.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a=12345 Print Format$(a,000.00)End Sub程序运行后，单击命令按钮，窗体上显示的是_12345.00_。2.下列表达式中不能判断x是否为偶数的是_A_。A.x2=0B.x Mod 2=0C.Fix(x/2)=x/2D.x/2=Int(x/2)3.有以下程序：Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a() For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为_C_。A. 10 12 14 16B. 5 6 7 8C. 2 4 6 8D. 出错4. 以下不能输出Program的语句是_D_。A.Print Right(VBProgram,7)B.Print Mid(VBProgram,3,7)C.Print Mid(VBProgram,3)D,Print Left(VBProgram,7)5.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是_C_。A.Private Sub List1_Click() Label1.Name=List1.Text End SubB.Private Sub List1_Click() Label1.Caption=List1.ListIndex End SubC.Private Sub List1_Click() Label1.Caption=List1.Text End SubD.Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub6.下列程序段的执行结果为_B_。 X = 2 Y = 1 If X * Y 0a.-1b.FLASEc.Tured.17.执行以下程序段后，变量c$的值为_B_。 a$=Visual Basic Programming b$=Quick c$=b$ & UCase(Mid$(a$,7,6) & Right$(a$,12)A.Visual Basic ProgrammingB.Quick BASIC ProgrammingC.QUICK Basic ProgrammingD.Quick Basic Programming8. 以下关于函数过程的叙述中，正确的是_A_。A函数过程形参的类型与函数返回值的类型没有关系B函数过程的返回值可以有多个C函数过程的返回值可以有多个D如果不指明函数过程参数的类型，则该参数没有数据类型9. 下面不能正确求该函数数值的程序段是：_D_。A.If x 0 Then y = y * x End If If x = 0 Then y = 0 End If If x 0 Then y = x End IfB.Select Case x Case Is 0 y = x * x End SelectC. If x 0 Then y = y * x Else y = 0 End IfD. If x = 0 Then y = x End If If x 0 Then y = y * x Else y = 0 End If10. 用Dim(1,3 to 7,10)声明的是一个_3_维数组。11. 为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是_enabled_。12.用_index_属性可唯一标志控件数组中的某一个控件。13. 下列哪项是窗体对象的方法而不是属性_print_。14. 在窗体上画一个命令按钮（名称为Command1），编写如下事件过程：Private Sub Command1_Click() b = 5 c = 6 Print a = b + cEnd Sub15程序运行后，单击命令按钮，输出的结果是：_B_。A. a=11B.falseC.a=D.a=b+c16.以下叙述中错误的是_B_。A.;在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件B在一个窗体文件中用Private定义的通用过程能被其他窗体调用C一个工程中可以包含多个窗体文件D全局变量必须在标准模块中定义17. 以下叙述中不正确的是：_A_。A.Open语句的功能是打开一个已经存在的文件B.以下循环语句中的条件表示当到达文件结尾时结束循环： Do While Not EOF(1) LoopC. 执行如下命令后，文件指针指向文件的开头： Open C:DataFile.Dat For Output As #1D. 随机文件每条记录的长度是固定的18. 下面程序在调试时出现了死循环Private Sub Command1_Click() n=InputBox(请输入一个整数) Do If n Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000End Sub19.下面关于死循环的叙述中正确的是D_。A只有输入的n是奇数时才会出现死循环，否则不会B只有输入的n是偶数时才会出现死循环，否则不会C只有输入的n是大于1000的整数时才会出现死循环，否则不会D输入任何整数都会出现死循环20.单击窗体时，下列程序代码的执行结果为23,47_。Private Sub Form_Click() Test 2End SubPrivate Sub Test(x As Integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print x;End Sub解析：调用Sub过程的方式有两种，一种是使用Call语句来调用Sub过程，此时如果Sub过程带有参数，必须将参数放到用括号内，其形式如下：Call Sub过程名（参数列表）另一种将Sub过程当做一条语句来执行，此时如果Sub过程带有参数，就必须省略参数两边的括号，其形式如下：Sub过程名 参数列表跟踪程序段运行过程：第一步：调用test过程，参数x的参数值为2第二步：x=x*2+1=2*2+1=5第三步：因为 56,所以跳过调用test过程的语句，执行下面的语句第六步：x=x*2+1=11*2+1=23第七步：打印输出参数x的值第八步：test过程执行完毕，返回调用test过程的过程，继续执行该过程的后续语句第九步：返回到最初所调用的test过程，执行x=x*2+1语句，则x=47第十步：打印输出参数x的值整个程序段运行完毕，最终输出的结果是： 23 47。21. 假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是_。数组中每个命令按钮的标题（Caption属性）都一样22. 下列程序段的执行结果为_15 0 4_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, IPrint N; J; I23.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是_ Default _。24. 设置复选框中或单选按钮的标题对齐方式的属性是_ Alignment _。25. 下列程序段的执行结果为_2 4_。 A = 0: B = 0 For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next IPrint A; B26. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_27 3_。27. 执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是：_ 字符串 _。strInput=InputBox(请输入字符串,字符串对话框,字符串) 28.在VB中传递参数的方法有_两种_方式。29. 假定有如下的Sub过程：Sub S(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5 b = 4 S a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为_1.25 1_。30. 设有如下语句：Dim a,b As Integerc=VisualBasicd=#7/20/2005#以下关于这段代码的叙述中，错误的是（a被定义为Integer类型变量）31. 以下能从字符串VisualBasic中直接取出子字符串Basic的函数是_ Mid _。32. 以下叙述中正确的是_C_。A窗体的Name属性值是显示在窗体标题栏中的文本B窗体的Name属性值可以为空C窗体的Name属性指定窗体的名称，用来标识一个窗体D可以在运行期间改变窗体的Name属性的值33. 以下语句用于打开一个顺序文件Open C:MyFile.txt For OutPut 但该语句的一个重要错误是（没有指定文件号）34. 要把一个命令按钮设置成无效，应设置其哪一属性值_Enabled_。35. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i 2 Then a = 10 Else If (10 / 2) = 6 Then a = 20 Else a = 30End If38. 若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是_。（把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值）39. 执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是：_字符串_。strInput=InputBox(请输入字符串,字符串对话框,字符串)40. 为了使图片框的大小可以自动适应图片的尺寸，则应_。（将其Autosize属性值设置为True）41.以下关系表达式中，其值为假的是：_。（VisualBasic=visualbasic）42. 用下面语句定义的数组的元素个数是_9_。dim A(-3 to 5) as integer43. 设A=12345678，则表达式Val(Left(A,4)+Mid(A,4,2)的值为123445_。44. 下列可作为Visual Basic变量名的是constA_。45. 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是_。答案：Private Sub HScroll1_Change() Text1.Text=HScroll1.Value End Sub46. 用于去掉一个字符串的右边的空白部分的函数是_RTrim$()_。47. 若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是_按键盘上的回车键_。48. 下列哪条语句是错的_exit while_。49. 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序：Private Sub Form_Load() Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click() Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.LeftWidth Then Label1.Left = Label1.Left + 20 Else Label1.Left=0 End IfEnd Sub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是_。（标签的移动方向为自右向左）50. 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x= 10 Case 2,4,6 x=20 Case Is c Then d = d + x(i) c = x(i) Else d = d - c End If Next Print dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。c. 1262. 以下关系表达式中，其值为假的是：_。a. VisualBasic=visualbasic6. 用于去掉一个字符串的右边的空白部分的函数是_。d. RTrim$()63. 设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是_。 c. Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub64. 以下叙述中正确的是_。b. 窗体的Name属性指定窗体的名称，用来标识一个窗体65. 下列程序段的执行结果为_。 X = 2 Y = 1 If X * Y 0c. False66. 用Write和Print语句向文件中写入多个数据的差别在于_。c. Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格67. 下面可以正确定义2个整型变量和1个字符串变量的语句是_。d. Dim x%,y As Integer,z As String68. 用下面语句定义的数组的元素个数是_。dim A(-3 to 5) as integerc. 969. 下列哪条语句是错的_。a. exit do b. exit sub cccexit function d. exit while70. 在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _() TxtTime.text=TimeEnd Sub在下划线上应填入的内容是_。a. Timer71. 下列程序段的执行结果为_。 Dim A(5) For I = 1 To 5 A(I) = I * I Next IPrint A(I - 1)d.2572. 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为_。a. (空)73. 以下语句的输出结果是_。Print Format$(32548.5,000,000.00)a. 032,548.5074. 要把一个命令按钮设置成无效，应设置其哪一属性值_。a. Enabled75. 执行下列语句strInput=InputBox(请输入字符串,字符串对话框,字符串)将显示输入对话框。此时如果直接单击确定按钮，则变量strInput的内容是_。a. 字符串76. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n)End Subb. 程序运行后，单击命令按钮，在文本框中显示的值是_。c. A.377. 可以同时删除字符前导和尾部空白的函数是_。c. Trim78. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。d. 125223. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Option Base 1Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*510 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next iD. 1524. 唯一能区别一个控件的属性是_。c. Name25. 下列_语句可以为动态数组分配实际元素个数。b. ReDim语句26. 假定有如下的Sub过程：Sub S(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5 b = 4 S a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为_。d. 1.25 127. 某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer() Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是_。d. 通过属性窗口把计时器的Interval属性设置为200028. 以下不能输出Program的语句是_。a. Print Left(VBProgram,7)29. 以下能从字符串VisualBasic中直接取出子字符串Basic的函数是_。c. Mid30. 以下正确的叙述是：_。d. Select Case语句中的测试表达式只能是数值表达式或字符串表达式31. VB中项目文件的扩展名是_。c. VBP 填空题32.在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应计算结果显示在Label4中，程序运行情况如图所示。请在_处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() For i = 0 To 3 If _=True Then opt = Option1(i).Caption End If Next Select Case _ Case + Result = Val(Text1.Text) + Val(Text2.Text) Case - Result = Val(Text1.Text) - Val(Text2.Text) Case * Result = Val(Text1.Text) * Val(Text2.Text) Case / Result = Val(Text1.Text) / Val(Text2.Text) End Select _=ResultEnd Sub本题解题思路：该题主要考察OptionButton控件和Select CaseEnd Select分支结构。第一空：根据IFEnd IF语句的执行部分，可以看出是当某个单选钮被选取中时，执行条件语句，故此处应当填入Option(i).Value或Option(i)；第二空：此处缺少选择的条件，根据上文，可以看出opt即为选择控制条件；第三空：此处实现的功能应当是将结果显示在Label4中，故此处可以填入Label4.Caption或Label4。33. 以下程序段执行后y的值是_。 x=8.6 y=int(x+0.5)print y934. 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。Private Sub Command1_Click() _Unload_ Form1 Form2._ Show _End SubUnload语句、Show方法Unload语句用来将指定窗体从内存中清除。格式：Unload 窗体名称Show方法用来显示一个窗体。格式：窗体名称.Show 模式参数模式用来确定显示窗体的状态，可以取值0或1 。取值为0（0值是缺省值）则窗体是无模式窗体，当该窗体显示出来时，不但可以对该窗体进行操作，还可以对其他显示出来的窗体进行操作；取值为1则窗体是模式窗体，当该窗体显示出来时，只能对该窗体进行操作，只有当该窗体关闭后，才能对其他窗体进行操作。35. 语句Print 5*55/5的输出结果是_。2536. 在窗体上画一个命令按钮然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub运行一面的程序，单击命令按钮，其输出结果是_。跟踪程序：由a=Array(1,2,3,4)可知：a(1)=1a(2)=2a(3)=3a(4)=4执行循环体：s=s+a(i)*j=a(4)*1=4,j=j*10=10s=s+a(i)*j=4+a(3)*10=34,j=j*10=100s=s+a(i)*j=34+a(2)*100=234,j=j*10=1000s=s+a(i)*j=234+a(1)*1000=1234,j=j*10=10000最终的输出结果是：1234。37. 若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用_语句。Redim a(2)38. 设有以下的循环：x=1Do x=x+2 Print xLoop Until _要求程序运行时执行3次循环体，请填空。DoLoop Until是先执行循环体，再判断条件表达式，如果表达式的值为True，则执行Loop下面的语句，如果为False，则继续执行循环体。本题中执行第一次循环后变量x的值为3，执行第二次循环后变量x的值为5，执行第三次循环后变量x的值为7，这时要结束循环，表达式的值要为True，因此表达式的值要当变量x的值为5时为False，继续执行循环体，大于5小于7时为True，结束循环，因此变量x的判断条件要介于5和7之间，即x5或x6或x=6或x=7或x=7。39. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i=1 To 10 a(i)=iNextCall swap(_a_)For i=1 To 10 Print a(i);NextEnd SubSub swap(b() As Integer)n=_10_For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t _n=n-1_NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换。请填空。40. 在窗体上画两个列表框，其名称分别为List1和List2，然后编写如下程序： Private Sub Form_ _load_() List1.AddItem 语文 List1.AddItem 数学 List1.AddItem 物理 List1.AddItem 化学 List1.AddItem 英语 List1.AddItem 政治 End Sub Private Sub List1_DblClick() List2.AddItem _list1_.Text List1.RemoveItem List1.ListIndex End Sub Private sub List2_DblClick() List1.AddItem _list2_.Text List2.RemoveItem List2.ListIndex End Sub该程序的功能是：程序运行后在左侧列表框中显示各科目的名字，如果双击该列表框中的某个科目，则该科目从该表框中消失，并移到右列表框中；如果双击右侧列表框中的某个科目，则该科目从该列表框中消失，并移向左侧列表框中。请填空将程序补充完整。41. 在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。Private Sub Form_Load() Command1.Enabled=FalseEnd subPrivate Sub Text1_ _change_() Command1.Enabled=TrueEnd Sub1. v Visual Basic窗体设计器的主要功能是：_。c. 建立用户界面2. 为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为_。C. Dim pi As Single3. 用Dim(1,3 to 7,10)声明的是一个_维数组。a. 34. 执行下列语句后，显示输入对话框，此时如果单击确定按钮，则变量strInput的内容是：_。strInput=InputBox(请输入字符串,字符串对话框,字符串)c. 字符串5. 下面不能正确求该函数数值的程序段是：_。If x = 0 Then y = x End If If x 0 Then y = y * x Else y = 0 End