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

前端之家收集整理的这篇文章主要介绍了广西区计算机二级vb net考试前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

第一卷 (本卷每题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}

过程MySub定义如下:

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

Sub MySub(ByVal ar() 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} data=2 Barr={1,1} data=2

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

22以下代码

x = Microsoftvisualbasicleft(gbc13,1) & Mid(pool,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\目录下

@H_997_4044@ Dim oleDbConnection1 As OleDbOleDbConnection

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

@H_997_4044@ 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

猜你在找的VB相关文章