VB试题附答案1

一、单项选择题（每小题1分，共25分）1、VB主要用于开发哪种环境下的文件：（）A．DOS B．WINDOWS C．DOS 和WINDOWS D．UNIX 2、把控件放置在窗体中的最快捷的方法是（）A．拖放鼠标B．单击工具箱中的控件并拖动鼠标C．双击工具箱中的控件 D. 单击工具箱中的控件3、当移动控件、重新设定其尺寸时，（）属性会自动改变。

A．top , left B．name , caption C．click, change D．cancel , default 4、一组复选框中，如果单击一个没有被选中的复选框，则其他已选中的复选框处于（）状态。

A．禁止B．选中C．不选中D．不显示5、VB 应用程序中，（）决定了程序的流向。

A．对象B．方法C．属性D．事件6、当程序运行过程中，需要给用户一些提示信息或警告信息时，应使用（）。

A．Msgbox B．Inputbox C．A,B都可以D．A,B都不可以7、以下变量名中合法的是（）。

A．if B．ab_7 C．3abc D．a[b]78、能够在代码中唯一确定一个对象的是对象的（）属性。

A．caption B．text C．style D．name9、表达式val(“16abc”)的值为（）。

A．1 B．16 C．16abc D．abc10、复选框控件的Value属性可取值是。

A.True和FalseB.0和1C.1、2、3D.0、1、211、若要暂时关闭定时器，则可通过设置属性来实现。

A.IntervalB. VisibleC. EnabledD. Timer12、控件Command1的名称属性为com时，则它的click事件过程名为（）。

A．Command1_click B．Command—clickC．Com_click D．Command1.click13、下列控件中，不可改变控件大小的是（）A．frame B．timer C．command D．textbox14、下列数据中是boolean常量的是（）A．123 B．not C．true D．and15、下面四个选项，不是事件的是。

A.LoadB.EnabledC.UnloadD.Activate16、若要使标签的大小自动适应所显示的文本，可通过设置属性的值来实现。

A. AutoSizeB. AlignmentC. EnableD. Visble17、x=int(rnd*10)，则x是在哪个范围内的整数（）。

A．0<x<10 B．0<x< 1 C．0≤x< 1 D．0≤x<1018、要改变一个窗体的标题内容，应修改该窗体的属性。

A. NameB. FontNameC. CaptionD.Text19、下列是日期型常量。

A."2/1/02"B.2.1.02C.#2/1/02#D.{2/1/02}20、MsgBox函数返回值的类型是。

A.数值B.字符串C.可变D.数值或字符串21、表达式Int(-17.8)+Sgn(17.8)的值是。

A.18B.-17C.-18D.-1622、如果将逻辑常量True赋值给一个整型变量，则该整型变量的值为。

A.0B.-1C.TrueD.False23、设A=2,B=3,C=4,D=5。

以下表达式的值为True的是。

A.A>B AND C<=D OR 2*A>CB.3>2*B OR A=C AND B<>C OR C>DC.NOT A<=C OR 4*C=B^2 AND B<>C+AD.A+B+C>D OR A*B<D24、下列选项中，哪一项是所有控件共有的属性：A. CaptionB. ValueC. TextD. Name25、若要使标签透明，则可使用的属性是：()A. BackColorB. BackStyleC. BorderStyleD. ForeColor二、多选题（每小题2分，共10分）1．程序的基本结构有（）。

A．顺序B．逻辑C．选择D．循环2．与对象的位置、大小有关的属性是（）A．Top B．Left C．Height D．Width 3．于VB编码基础，以下说法正确的是（）Ａ．VB代码区分大小写，因此在编写代码时一定要注意。

Ｂ．可以在一行上书写多条语句，语句之间用“：”分隔。

Ｃ．一行允许多达２５５个字符。

Ｄ．VB的变量名不能以数字开头。

4．下列关于VB中对象的属性、方法、事件的叙述中，正确的是（）。

A．属性用来描述和反映对象的特征，如：控件的名称、标题等。

B．对象的属性只能通过属性窗口进行修改。

C．事件就是发生在对象上的事情，如：单击、双击等。

D．VB中的方法可以是过程或函数，用户只能在代码中调用，不能修改5．给过程添加注释，可采用（）。

A．Rem语句 B．紧随语句后加Rem语句C．紧随语句后加’标志 D．行首加’标志三、下列程序运行后的输出结果（每小题5分，共20分）1．Private Sub Command1_Click()a = 4b = 5Print "A="; a; ",B="; bCall mult((a), b)Print "A="; a; ",B="; bEnd SubSub mult(x, y)x = 2 * xy = 3 * yPrint "X="; x; ",Y="; yEnd Sub2.Private Sub Form_Click()ClsPrintFor n = 1 To 5Print Tab(n + 10);For m = 1 To 8Print "*";Next mPrintNext nEnd Sub3 .Private Sub Form_Click()Dim a(1 To 5, 1 To 5) As IntegerFor i = 1 To 5For j = 1 To 5If i = j Thena(i, j) = 1Elsea(i, j) = 0End IfPrint a(i, j);Next jPrintNext IEnd Sub4.Private Sub Form_Load()Dim x As IntegerShowx = 7pay = Fe(x)Print “pay=”;payEnd SubFunction Fe(x As Integer) As IntegerSelect Case xCase Is < 6Fe = x + 1Case Is < 8Fe = x + 2Case Is < 10Fe = x + 3Case ElseFe = x + 4End SelectEnd Function四、在下列程序的下划线位置上，填写符合题目要求的内容（每空3分，共30分）1．单击控件数组中（共有三个）的不同对象，在窗体上显示不同内容。

Private Sub Option1_Click(Index As Integer)Select Case ①Case ②Print "ABC"Case ③Print "DEF"Case ④Print "HIJ"End SelectEnd Sub2.下列代码求出S=1+(1+2)+(1+2+3)+ …+(1+2+3+ …+N)的值。

Private Sub Form_Click()n = Val(InputBox("请输入N的值："))j = 0s = ⑤0For i = 1 To ⑥nj =j+is = ⑦s+jNext iPrint sEnd Sub4. 输出100以内所有9的倍数的数，并计算这些数的和。

Private Sub Form_Click()Dim i As Integer, s As Integers = ⑧0For i = 1 To 100If ⑨I mod 9 =0 Thens = ⑩s+iPrint iEnd IfNext iPrint sEnd Sub五、编程题（共15分）编写程序，在100~999三位整数范围内,找出这样的数(水仙花数)：该数等于其各位数字的立方和。

例如：371=33+73+13，即371就是水仙花数。

编写窗体的单击事件，要求将所求结果输出到窗体上。

Private Sub Form_Click()答案一、单项选择题（每小题1分，共25分）二、多选题（每小题2分，共10分）三、下列程序运行后的输出结果（每小题5分，共20分）1.A=4，B=5X=8, Y=15A=4，B=152.****************************************3.1 0 0 0 00 1 0 0 00 0 1 0 00 0 0 1 00 0 0 0 14.pay= 9四、在下列程序的下划线位置上，填写符合题目要求的内容（每空3分，共30分）①index ②0 ③ 1 ④ 2 ⑤0 ⑥n ⑦s+j ⑧0⑨i Mod 9 = 0 ⑩s+i五、编程题（共15分）Private Sub Form_Click()Dim p As IntegerFor n = 100 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - (a * 100 + b * 10)p = a ^ 3 + b ^ 3 + c ^ 3If p = n Then Print p Next nEnd Sub。