vb.net面試題，請(qǐng)大家?guī)兔?，謝謝。

如果需要講詳細(xì)一點(diǎn),那就加我QQ531412815

創(chuàng)新互聯(lián)-專(zhuān)業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性?xún)r(jià)比岳普湖網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式岳普湖網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋岳普湖地區(qū)。費(fèi)用合理售后完善，十余年實(shí)體公司更值得信賴(lài)。

第4題,潛在的錯(cuò)誤,這里的錯(cuò)誤不是常規(guī)錯(cuò)誤,屬于那種只有在運(yùn)行是才知道的錯(cuò)誤:

Catch ex As Exception

MsgBox(ex.StackTrace)

'永遠(yuǎn)不會(huì)查找下面的錯(cuò)誤

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!")

結(jié)構(gòu)化錯(cuò)誤處理永遠(yuǎn)達(dá)不到下面這里,因?yàn)镃atch ex As Exception 已經(jīng)處理了所有錯(cuò)誤.

第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 分類(lèi)，有一種方法就是按照Ref_ID 分組，也就是使用SQL語(yǔ)言，不過(guò)這里需要該很多，

我就不用了，那么就稍微復(fù)雜一點(diǎn)，使用FIND方法,不過(guò)有一點(diǎn)必須注意REF_ID必須排序，因?yàn)閿?shù)據(jù)庫(kù)中

已經(jīng)排好序了，我就不用排了。

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題：就是從一個(gè)集合中取元素輸出的問(wèn)題

比較簡(jiǎn)單的辦法就是使用遞歸

以下是使用VB的方法(可以移植到VB.NET上,因?yàn)槲覍?duì)VB.NET的數(shù)組到現(xiàn)在還不太會(huì),所以就將就一下)

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是真正的遞歸函數(shù),而Combination是用來(lái)預(yù)處理字符的

全局變量:

BUSE：用來(lái)確定是否使用過(guò)這個(gè)元素

lSTR：用來(lái)保存字符元素

NCOUNT：用來(lái)限制遞歸函數(shù)的深度，換句話說(shuō)，就是輸出元素組中的元素個(gè)數(shù)

實(shí)際測(cè)試成功，另外我對(duì)前三題很感興趣，希望能夠傳給我

準(zhǔn)備去某公司面試，他注重對(duì)編程的興趣，不懂可以學(xué)，我以前搞過(guò).net,vb,以后也不搞這語(yǔ)言，面試要注意什

面試JAVA？？？不會(huì)也可以進(jìn)去學(xué)？？？哪的公司??？我們一同去！

還有兩道vb.net面試題，請(qǐng)大家?guī)兔?，謝謝。

我很喜歡這種題目

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

第7題，問(wèn)題出在兩方面

Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional

ByVal AssignToArea As Boolean = False) As Double

Dim Area As Double = (SideBase * Height) / 2

中間的 _ 有問(wèn)題，應(yīng)該去掉

還有objShape = CType(objShape, clsTriangle) 有錯(cuò)誤，不能轉(zhuǎn)換

注釋掉objShape = CType(objShape, clsTriangle)

刪除_后，得到結(jié)果

true

false

-330

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

第8題，就是以acc_grp_cust_tbl表為基礎(chǔ)，查找cust_tbl并輸出

一般的話使用涉及兩個(gè)表的話使用SHAPE語(yǔ)句（以SQL為基礎(chǔ)的語(yǔ)句）

雖然兩者使用時(shí)差不多，但是理論比較難懂，我這里也不講了，我使用ADO+SQL方法

先說(shuō)明一下程序中的一個(gè)細(xì)節(jié)，也是問(wèn)題比較容易忽略的

1400 0 1 2

1500 3 4

1600 5

說(shuō)明一個(gè)問(wèn)題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數(shù)值，而是類(lèi)似字符的東西（因?yàn)榭赡苁?/p>

備注）

定義rsgrp對(duì)應(yīng)acc_grp_cust_tbl ，rscust對(duì)應(yīng)cust_tbl

預(yù)先設(shè)置好rsgrp和rscust的連接(使用VB的方法，可以移植到VB.NET上）

do until rscust.eof

strline=rscust(0) " "

strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"

RSGRP.OPEN STRSQL

if rsgrp.recordcount0 then

rsgrp.movefirst

do until rsgrp.eof

strLine=strline rscust(3) " " rscust(2) "/"

rsgrp.movenext

loop

end if

rscust.close

strline=left(strline ,len(strline)-1)

'去除最后一個(gè)"/"

console.writeline(strline)

loop