广西区计算机二级vb net考试

来源:互联网 发布:json at position 0 编辑:程序博客网 时间:2024/03/29 01:09

第一卷  (本卷每题2分,共70分)

 

1.在VB.NET中每个对象都有三个基本要素,它们是     

A.对象的名称、值和所属类            

B.对象的属性、事件和方法

C.对象的大小、存储方式和内容     

D.对象的访问方法、存储方式和名称

2.数学函数式Sin25°写成VB.NET表达式是     

 Asin25  Bsin(25)  Csin(25)  Dsin(25*314/180)

3.下列哪组语句可以将变量AB的值互换     

AA=B:B=A        BA=A+B:B=AB:A=A+B  

CC=A:A=B:B=C    DA=(A+B)/2:B=(AB)/2

4.“x是小于100的非负数”,VB.NET表达式表示正确的是     

 A0x100            B0<=x<100

 C0<=x And x< 00       D0<=x Or x<100

5.下列     是属于VBNET合法的变量名。

 AHome    BEMail   C Integer(关键字)  Dmoney

6.若要求将提交按钮的访问键设置为“S”,     则为修改其Text的属性值。

 A.@Submit   B*Submit   C.#Submit  D.&Submit

7.窗体上有一个名为Button1的命令按钮和一个标签框,然后编写如下事件过程:

  Private Overloads Sub Button1_Click(ByVal sender As SystemObject, ByVal e  As SystemEventArgs) Handles Button1Click

       Dim num As Integer                   //num为整数,关键

       num = 1

       Do Until num > 6                       //until为“直到”,条件满足时停止

       Label1Text = num

       num = num + 24                     //num的值依次为135     7

       Loop

End Sub

程序运行后,单击命令按钮,则在标签框上显示的内容是     

 A58     B. 5      C7   D无数据输出

8VB.NET中,修改了主窗体的某个属性后,发现无法启动程序,原因可能是     

 A.修改了主窗体的caption属性      

B.修改了主窗体的ismainform属性

 C.修改了主窗体的name属性         //记下来,,name是最重要的属性,在设计好后就

D.修改了main函数                   不要再改了,不然很容易出错。

9.在模块MyModule中定义的过程ShowHelpInfo,其访问权限为     这是作用域问题

Public Module MyModule

……

Sub ShowHelpInfo(String info)                    默认为private过程,在本模块中使用

MessageBoxShow(info)

End Sub

……

End Module   

 A.仅在MyModule中可以使用    B.在本项目中可以使用

 C.在本解决方案中可以使用     D.在派生模块中可以使用

10.双击窗体会产生     事件。

 Aenabled       Bactive             Cclick        Dload

11.在VB.NET中,无返回值的过程称为     过程。

 ASub    BFunction     C Property     Dmain

12.在VB.NET中,代表程序到数据库的连接的对象为     了解其中文意思就行

 ADataSet数据集  BDataAdapter适配器 CCommand命令   DConnection连接

13.添加     到某个窗体中,则在窗体运行时将不可见

 ALabel  BCommandbutton  Cimagelist  Dtoolbar

14.执行下列语句后,变量x的值为      

dim a as integer=0 : a=3/2                  //四舍五入,

 A0      B1    C2     D3

15VB.NET构架中MSIL的含义为     

 AMicrosoft Interface Language         

BMicrosoft Intermediate Library

 CMicrosoft International Language     

DMicrosoft Intermediate Language                    微软中间语言,识记

16.在设计循环语句时,若有以下要求:

          在执行循环之前先测试条件表达式 expression,然后让代码循环执行到该条件表达式的值取“真”,则应使用     循环语句。

  Ado until expression           Bdo

……                             ……

    Loop                              loop until exprssion

 Cdo while expression           Ddo

……                             ……

    Loop                              loop while expression

17VB.NET程序中,     显示一个内容为“this is a test消息框

 ASystemWindowsFormsMessageBox("this is a test!")

 BSystemWindowsFormsMessageBoxShow("this is a test!")

 CSystemWindowsFormsMessageBoxShowDialog("this is a test!")

 DSystemWindowsFormsMessageBoxShowMessageBox("this is a test!")

18.若需要在File菜单下的SaveExit两个菜单项之间插入一分隔条,     可以修改File菜单下的菜单项属性。

 A.在SaveExit菜单项之间插入一新的菜单项,将其Seperator属性设为True

 B.用画笔在SaveExit菜单项之间划一合适长度的横线

  C.在SaveExit菜单项之间插入一新的菜单项,将其Text属性设为减号"-"

 D.在SaveExit菜单项之间插入一新的菜单项,将其Style属性设为“OwnerDraw

19.实现菜单功能,应向菜单项的     事件添加代码。

 ACommand      B Click     CPopup       D Select

20VB.NET窗体中提供的Hide方法的作用是     它的中文意思是隐藏,反过来就是show

 A.销毁窗体对象     B.关闭窗体     C.将窗体极小化    D.隐藏窗体

21.已知数组arr进行以下定义:

     Dim arr() as Integer = {1,1,1,1,1}

过程MySub定义如下:

要点:数组是按址传递的,一般变量则根据byvalbyref来定。

Sub MySub(ByValar() As Integer,ByRef x As Integer)

Dim i As Integer

For i = 0 To UBound(ar) '注:UBound(ar)求数组ar的下标上限

ar(i) = x

Next

x = 0

End Sub

则执行下列语句后,数组arr和变量data中的内容是 (            )

Dim data As Integer = 2

MySub(arr, data)

 Aarr={2,2,2,2,2} data=2        Barr={1,1,1,1,1} data=2

Carr={2,2,2,2,2} data=0        Darr={1,1,1,1,1} data=0

22以下代码

       x = Microsoftvisualbasicleft(gbc13,1) & Mid(pool,2,2) & Microsoftvisualbasicright(god,1)

变量x等于     

 Agood          Bgolg     Cgbog       Dgobd

23MyClass的定义如下

Public Class MyClass1

Private data as String

End Class

 则关键字Private在类的定义中的作用是     

 A限定成员变量data只在本模块内部可以使用

 B.限定成员变量data仅在类MyClass的成员方法中可以访问;

 C.限定成员变量data仅仅可在类以及子类的成员方法中访问

 D.限定类MyClass仅在本模块中可以使用

 

24.以下定义常量不正确的语句是     $表示字符串

 AConst Num  As  Integer=200       

 BConst Num1  As  Long=200, Sstr$=World

 CConst Sstr$=World

 DConst Num$=#World#

25.在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1TextBox2两个文本框,然后编写如下事件过程:

       Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

       Dim n, x As Integer

       n = CInt(TextBox1Text)

       Select Case n

       Case 1 To 20

             x = 10

       Case 2, 4, 6

             x = 20

       Case Is < 10

             x = 30

       Case 10

             x = 40

       End Select

       TextBox2Text = x

       End Sub

   程序运行后,在文本框TextBox1中输入10,然后单击命令按钮,则在TextBox2中显示的内容是     哪个在前匹配哪个,匹配完跳出循环。

 A10     B20     C30     D4026

26.要使文本框能够多行显示,则应使     属性设为True从单词的中文意思去判断即可

 AMultiLine  BMaxLength  CSelLength  DLocked

 

27.要使命令按钮以图片形式显示,则应使(  )属性装入图片。同上

 ABackGroundImage     BImage      CImageList     DImageAlign

28.如果FOR语句中的步长值为正,则循环正常结束时     >=

 A.循环变量的终值>初值    B.循环变量的终值<初值

 C.循环变量的终值=初值    D.循环变量的终值不确定

29.若x=ASC(A),x等于     ascii表,识记啦。A,a的得记得,其它的记顺序就好。

 A65      B97      C66     D91

30.已知字符串s"this is a test> ",执行s=Trim(s)语句后,s的值为     

trim去左右的空格,,本题答案看不出差别来,但要理解意思。

 A<this is a test>     B<this is a test> 

 C<this is a test>     D<this is a test>

31VB.NET对象的最后一个引用被释放后      时间,对象占用的“托管堆”空间被“垃圾收集”功能回收。

 A.立即    B1分钟    C1小时   D.不确定

32.在程序运行过程中要改变文本框中字体的大小,     不正确的语句。

 ATextBox1Font=New SystemDrawingFont ("宋体", 140!,

    DrawingFontStyleBold)

 BTextBox1Font=New SystemDrawingFont ("宋体", 160!)

 CTextBox1Font=New SystemDrawingSize (180!)            //font.size

 DTextBox1Font= New Font("宋体", 140!)

33.要使文本框成为密码输入框,一般应修改文本框的     

 APasswordChar属性和MaxLength属性,并且 MultiLine属性值只能为False

 BPasswordChar属性和MaxLength属性,并且Lines属性值只能为False

 C.只修改PasswordChar属性值就可以了,其他属性可以不修改。

 DPasswordChar属性和MaxLength属性, MultiLine属性值可以为True

34.向列表框中填加一个项目,正确的语句是()。

 AListBox1ItemsAdd (How are You?)         //只要知道添加的内容就行了,不用位置

 BListBox1ItemsInsert (How are You?)       

 CListBox1ItemsAdd (2,How are You?)

 DListBox1ItemsInsert (2,How are You?)

35.窗体中有一个名称为Button1的命令按钮、一个Label1控件对象,编写如下事件过程:

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As

SystemEventArgs) Handles Button1Click

       Dim n As String, x, i, j As Integer

       x = 0                     //初值

       n = InputBox("请输入一个大于1的整数", "输入框")

       For i = 1 To CInt(n)             n=3

                For j = 1 To i

                          x = x + 1        //算算这个语句执行多少次,就知道答案了,1*2*3次。

               Next j

       Next i

       Label1Text = CStr(x)

End Sub

程序运行后,单击命令按钮,如果输入3,则在Label1显示的内容是(    )

 A3      B4     C5       D6

 

第二卷

 

说明:(1)第二卷均为填空题,在阅读和理解的基础上,在第二卷答题卡上编号对应的栏目中填入适当的字符、语句。

    2)共10个空栏,每空栏3分,共30分。

 

1.在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框,然后编写如下事件过程:

     Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As

     SystemEventArgs) Handles Button1Click

        Dim x,y,z As Integer

        x=5: y=7: z=0

        textBox1Text =x& y & z               //字符串连接运算符

        End Sub

   程序运行后如果单击命令按钮则在文本框中显示的内容是        1         570

2以下的程序段的作用是用Insert语句在User表中将窗体中的文本框username1password1的文本数据分别写入字段usernamepassword假设要连接的Access数据库名为Examplemdb”,存放在d:\Data\目录下

Dim oleDbConnection1 As OleDbOleDbConnection

Dim strConnect As Sting=           2             “provider=Microsoft.JET.oledb.4.0;datesource=example.mdb”                 //连接字符串

oleDbConnection1= New SystemDataOleDbOleDbConnection(strConnect)

comm1 = New OleDbCommand("INSERT INTO [USER]([username],[password]) values('" + username1Text + "','" + password1Text +"')", conn)

                3                 comm1.executenonquery()            //命令执行

oleDbConnection1close()

3.给定项目VBApplication1的功能是:计算出2+4+6+8++1000的总和,并在TextBox1文本框中显示。

确定步长是多少?2

终止值是多少?1000

  Public Class Form1

   Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As

   SystemEventArgs) Handles Button1Click

       Dim total As Long, i As Integer

       total = 0

       i = 2

       Do Until i >1000          4                        //先条件,为假是执行

           total =  total+i            5           //连加

           i =   i+2        6                //循环变量的增量,及步长

       Loop

       TextBox1Text = total

       End Sub

End Class

4.已有一模块文件Modify.vb。该模块中的Findat过程是用于在一个字符串变量中查找"at",并用消息框给出查找结果的报告:没有找到或找到的个数。

Public Sub Findat()

   '在字符串str1中查找"at"

   Dim str1 As String

   Dim length As Integer '字符串长度

   Dim sum As Integer  '查到的个数

   Dim i As Integer

   str1 = InputBox("请输入一个字符串")

   length =  Len(str1)

   i = 1

   sum = 0

   Do While i <=       length-1     7       //等于length-1时,是最后两个字符了

       If  mid(strl,I,2) (取字符串str1中第i个位置开始的2个字符)   = "at" Then

              sum = sum + 1

       End If

           I=i+1       9               //向后移

   Loop

   If        sum=0    10           Then

   MsgBox "没有找到!"        //所以sum=0

   Else

   MsgBox "找到了" & Str(sum) & ""

   End If

End Sub

 

原创粉丝点击