vb.net考试题的简单介绍

求陕西师范大学vb上机考试考试题

选择题

成都创新互联是一家集网站建设,三山企业网站建设,三山品牌网站建设,网站定制,三山网站建设报价,网络营销,网络优化,三山网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

1 下面4个选项中属于字符型数据的是( )

A "Hello" B Hello' C Hello D #Hello

2 初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是()。

A Visual Studio 2005 Express Edition

B Visual Studio 2005 Team Test Edition

C Visual Studio 2005 Team Developer Edition

D Visual Studio 2005 Team Architect Edition

3 若dim a() as integer={1,2,3,4,5},则a.length的值()

A 是4 B 是5 C Null D 是6

4 定义字符串变量:

Dim strInput As String=“VisualBasic2005”

Dim strSubStr1 As String

计算子串:strSubStr1 = strInput.Remove(2, 4)

则strInput的值为:

A VisualBasic B ViBasic2005 C sual D alBa

5 要使TextBox控件能够显示多行,应设置()属性为True

A VisibleB Enabled C MultiLine D Text

6 下列赋值语句正确的是( )

A A=B+CB –B=A C 2=A+B D B+C=A

7 当在文本框中输入“ABCD”时,标签上显示的是()。

Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged

Label1.Text =TextBox1.Text

End Sub

A ABCD B A C AABABCABCD

B

C

D D A

Ab

ABC

ABCD

8 Sub过程与Function过程最根本的区别是()

A Function过程可以有形参,Sub过程不可以

B Sub过程可以直接使用过程名调用,而Function过程不可以

C Sub过程不能返回值,而Function过程能返回值

D 两种过程的参数传递方式不同

9 对下列程序段,说法正确的是()###btnQuit.SetBounds(10,80,200,50)

A btnQuit对象的左边界距窗体的左边界是10像素,上边界距窗体的上边界为80像素

B btnQuit对象的左边界距屏幕的左边界为200像素,上边界距屏幕的上边界为50像素

C btnQuit对象的宽度为200像素,高度为80像素

D btnQuit对象的高度为80像素,宽度为200像素

10 Dim str1,str2 As String ### str1="北京奥运2008" ### str2=str1.Substring(0,4) ### 那么str2的值为( )

A 北京 B 北京奥运 C 奥运 D 是2008

11 按照匈牙利表示法,前缀为lbl表示哪一个控件。

A Button B Label C ListBox D TextBox

12 数学关系式3x10表示成正确的vb.net表达式为

A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10

13 要使文本框中的文字不能修改,应对()属性进行设置。

A Locked B Visible C Enable D ReadOnly

14 按照匈牙利表示法,TextBox控件的前缀是()

A btn B lst C mnu D txt

15 调用子过程后可以通过形参来改变两个实参值的语句是()。

A Sub f1(ByVal n as integer,ByVal m as Integer)

B Sub f2(ByRef n as integer,ByVal m as Integer)

C Sub f3(ByRef n as integer,ByRef m as Integer)

D Sub f4(ByVal n as integer,ByRef m as Integer)

16 数学关系式x10或者x0表示成正确的vb.net表达式为

A 10x0 B x0 and x10 C x0 or x10 D 0x x10

17 可以同时删除字符串前导和尾部空白的函数是( )

A Ltrim B Rtrim C Trim D Mid

18 以下变量名是正确的()

A 是_a1 B 是123a C 是For D 是as

19 下面程序求两个数中的小数()不正确

A min1=iif(xy,x,y)

B if xy then ###min1=x###else###min1=y###end

C ifmin1=IIF(xy,y,x)

D if yx then ###min1=y ###end if###min1=x

20 下列程序段的执行后,变量a,k的值分别为

Dim a,k as integer

a=5

For k=1 To 0

a=a * k

Next k

A -1 6 B -1 16 C 1 5 D 11 21

AABBC ACCAB BBDDC CCADC

选择题百度文库中还有好多

操作题

1.请编写函数fun(),其功能是:计算2-500之间(包括2,500)素数的个数,并将其作为返回值。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)。

2.请编写函数fun(a),其函数功能是:计算a的阶乘,并返回结果。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)

3..请编写函数f(x),其功能是:判断一个大于或等于3的正整数是否是素数,

如果是素数函数返回1,否则返回0。例如:输入37,函数返回1;输入40,函数返回0。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“判断”按钮)。

4.请编写函数f(a),其功能是:计算一个长度为5的一维整形数组a中最大值与最小值的差,并作为函数的返回值。

例如:从文本框中输入1 5 8 9 2,差为8。

数组中的值需要自己在文本框中输入。

注意:不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性(运行后点击“计算”按钮)。

vb.net面试题,请大家帮忙,谢谢。

如果需要讲详细一点,那就加我QQ531412815

第4题,潜在的错误,这里的错误不是常规错误,属于那种只有在运行是才知道的错误:

Catch ex As Exception

MsgBox(ex.StackTrace)

'永远不会查找下面的错误

Catch ex As ArgumentNullException

MsgBox("Input Test box cannot be null.")

Catch ex As OverflowException

MsgBox("Input Test box 2 cannot be zero!")

Catch ex As FormatException

MsgBox("Input Test box should be numeric format!")

结构化错误处理永远达不到下面这里,因为Catch ex As Exception 已经处理了所有错误.

第5题:

00123

1000 60.50

2000 60.00

3500 59.50

---- -----

6500 60.00

00124

3000 60.50

---- -----

3000 60.50

00125

2000 59.50

1000 58.00

---- -----

3000 58.75

就是按照Ref_ID 分类,有一种方法就是按照Ref_ID 分组,也就是使用SQL语言,不过这里需要该很多,

我就不用了,那么就稍微复杂一点,使用FIND方法,不过有一点必须注意REF_ID必须排序,因为数据库中

已经排好序了,我就不用排了。

Dim rst as ADODB.Recordset

dim refID as string

Rst = GetRecordset

Do While Not rst.EOF

refid=rst(0)

Console.writeline(rst.Fields("Ref_ID")

do

Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))

rst.MoveNext()

loop while rst(0)=refid

Loop

第6题:就是从一个集合中取元素输出的问题

比较简单的办法就是使用递归

以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会,所以就将就一下)

Dim bUse() As Boolean

Dim lStr() As String * 1

Dim nCount As Byte

-----------------------------------------------------------------------------------

Public Sub Combination(lstStr As String)

Dim i As Byte

Dim j As Byte

Dim StrLen As Byte

StrLen = Len(lstStr)

ReDim bUse(1 To StrLen) As Boolean

ReDim lStr(1 To StrLen) As String * 1

For i = 1 To StrLen

lStr(i) = Mid(lstStr, i, 1)

Next

For i = 1 To StrLen

nCount = i

GoWith StrLen, 1, 0, ""

Next

End Sub

------------------------------------------------------------------------------------

Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)

Dim i As Byte

If Deep = nCount Then

Debug.Print lastStr

Exit Sub

End If

For i = nStart To ECount

If Not bUse(i) Then

bUse(i) = True

GoWith ECount, i, Deep + 1, lastStr lStr(i)

bUse(i) = False

End If

Next

End Sub

--------------------------------------------------------------------------------------

Private Sub Form_Load()

Combination "wxyz"

End Sub

--------------------------------------------------------------------------------------

其中GOWITH是真正的递归函数,而Combination是用来预处理字符的

全局变量:

BUSE:用来确定是否使用过这个元素

lSTR:用来保存字符元素

NCOUNT:用来限制递归函数的深度,换句话说,就是输出元素组中的元素个数

实际测试成功,另外我对前三题很感兴趣,希望能够传给我

VB.NET程序设计题,紧急啊,明天考试了

Public Class Form3

Dim A(19) As Integer '声明数组20个

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = ""

Label3.Text = ""

Randomize()

Dim i As Integer

For i = 0 To UBound(A)

A(i) = CInt(Rnd() * 400 + 100)'随机数100~500

Label1.Text = A(i)  "  "

If (i + 1) Mod 5 = 0 Then  '每5个数就换行

Label1.Text = vbCrLf

End If

Next

Dim mina As Integer

mina = Amin(A)

If mina  0 Then

Label3.Text = "比第一个数组元素值大的数组元素中值最小的是:"  mina

Else

Label3.Text = "没有比第一个数组元素大数!"

End If

End Sub

Function Amin(ByVal Aa() As Integer) As Integer

Dim first As Integer

Dim tmpmin As Integer

Dim j, i As Integer

Dim tmpa() As Integer = A

first = A(0)  '第一个数出来

For j = 1 To UBound(tmpa) ’从第二个数冒泡

tmpmin = tmpa(j)

For i = j To UBound(tmpa)

If tmpa(i)  tmpmin Then '从小数到大数冒泡

tmpa(j) = tmpa(i)

tmpa(i) = tmpmin

tmpmin = tmpa(j)

End If

Next

Next

For i = 0 To UBound(tmpa)

If tmpa(i)  first Then ’从小数开始比较,如果小比第一个元数大就退出

tmpmin = tmpa(i) ' 取到比第一个元数大的数

Exit For

End If

Next

Return tmpmin '返回值

End Function

End Class

《vb.net程序设计》题目

1.目前.NET开发环境提供了那些程序设计语言的开发功能:visual C#和visual basic ,其实还有J#2.JIT是什么的缩写:Just-In-Time3.对象的什么属性在程序运行过程中,只能被引用,不能被修改:不记得了

4.要使某个控件在程序启动后,能看见,但不能用,应使该控件的enabled属性为:false

5.程序启动后,要使某个控件获得焦点,应使用该控件的 Focus 方法

6.checkbox控件的 Checked 属性决定了该控件的状态

7.要使textbox控件在程序启动后,只能显示只定内容,不能修改,应使readonly属性值为:true8.滚动条控件的 Value 属性值,反映了滚动条滑快的当前取值

9.改变窗体的标题,应修改窗体的 Text 属性

10.程序运行过程中,要向listbox控件中添加一项,应该使用 Items.Add 方法


标题名称:vb.net考试题的简单介绍
URL分享:http://ybzwz.com/article/dsipdec.html