vb.net开发考试的简单介绍

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

相关问答

Q1: 《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 方法

Q2: 全国计算机二级考试的vb是vb6.0还是指什么?我们学的是vb.net,也不知道有这个没?在线等

对,二级vb就是MicroSoft

Visual

Basic

6.0

我都考过了,挺简单的,在6.0的环境下考试

vb.net和6.0还是有区别的,不过大体上是一样的

Q3: VB.net的考卷题型是怎么样的？

1、(X=a) And (X=b)

2、Msgbox()

3、13

4、实现窗体隐藏

5、11

6、Function

7、TextBox1.Focus()

8、.sln （似乎不区分语言，统一的）

9、方法

10、C# .NET （我也用它设计过:）

11、Form1.Close()

12、Windows 窗体

13、不知道

14、声明常量

15、s = a.ToString()

16、GetError

17、不知道

下一篇题目太猛了……

Q4: 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：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数

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