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

如果需要講詳細一點,那就加我QQ531412815

永安網(wǎng)站建設公司成都創(chuàng)新互聯(lián)公司,永安網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為永安超過千家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢，請找那個售后服務好的永安做網(wǎng)站的公司定做！

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

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

結(jié)構(gòu)化錯誤處理永遠達不到下面這里,因為Catch ex As Exception 已經(jīng)處理了所有錯誤.

第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必須排序，因為數(shù)據(jù)庫中

已經(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題：就是從一個集合中取元素輸出的問題

比較簡單的辦法就是使用遞歸

以下是使用VB的方法(可以移植到VB.NET上,因為我對VB.NET的數(shù)組到現(xiàn)在還不太會,所以就將就一下)

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是用來預處理字符的

全局變量:

BUSE：用來確定是否使用過這個元素

lSTR：用來保存字符元素

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

實際測試成功，另外我對前三題很感興趣，希望能夠傳給我

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

我很喜歡這種題目

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

第7題，問題出在兩方面

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

中間的 _ 有問題，應該去掉

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

注釋掉objShape = CType(objShape, clsTriangle)

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

true

false

-330

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

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

一般的話使用涉及兩個表的話使用SHAPE語句（以SQL為基礎的語句）

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

先說明一下程序中的一個細節(jié)，也是問題比較容易忽略的

1400 0 1 2

1500 3 4

1600 5

說明一個問題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數(shù)值，而是類似字符的東西（因為可能是

備注）

定義rsgrp對應acc_grp_cust_tbl ，rscust對應cust_tbl

預先設置好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)

'去除最后一個"/"

console.writeline(strline)

loop

VB.NET程序設計題，緊急啊，明天考試了

Public?Class?Form3

Dim?A(19)?As?Integer?'聲明數(shù)組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)'隨機數(shù)100~500

Label1.Text?=?A(i)??"??"

If?(i?+?1)?Mod?5?=?0?Then??'每5個數(shù)就換行

Label1.Text?=?vbCrLf

End?If

Next

Dim?mina?As?Integer

mina?=?Amin(A)

If?mina??0?Then

Label3.Text?=?"比第一個數(shù)組元素值大的數(shù)組元素中值最小的是："??mina

Else

Label3.Text?=?"沒有比第一個數(shù)組元素大數(shù)！"

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)??'第一個數(shù)出來

For?j?=?1?To?UBound(tmpa)?’從第二個數(shù)冒泡

tmpmin?=?tmpa(j)

For?i?=?j?To?UBound(tmpa)

If?tmpa(i)??tmpmin?Then?'從小數(shù)到大數(shù)冒泡

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?’從小數(shù)開始比較，如果小比第一個元數(shù)大就退出

tmpmin?=?tmpa(i)?'?取到比第一個元數(shù)大的數(shù)

Exit?For

End?If

Next

Return?tmpmin?'返回值

End?Function

End?Class

《vb.net程序設計》題目

1.目前.NET開發(fā)環(huán)境提供了那些程序設計語言的開發(fā)功能：visual C#和visual basic ，其實還有J#2.JIT是什么的縮寫：Just-In-Time3.對象的什么屬性在程序運行過程中，只能被引用，不能被修改：不記得了

4.要使某個控件在程序啟動后，能看見，但不能用，應使該控件的enabled屬性為：false

5.程序啟動后，要使某個控件獲得焦點，應使用該控件的 Focus 方法

6.checkbox控件的 Checked 屬性決定了該控件的狀態(tài)

7.要使textbox控件在程序啟動后，只能顯示只定內(nèi)容，不能修改，應使readonly屬性值為：true8.滾動條控件的 Value 屬性值，反映了滾動條滑快的當前取值

9.改變窗體的標題，應修改窗體的 Text 屬性

10.程序運行過程中，要向listbox控件中添加一項，應該使用 Items.Add 方法

我要才考不久的上海計算機二級等級考試vb.net真題，是vb.net不是vb?。?！在線等！

你好！

編程序不是背書，臨時抱佛腳是不行的。找個家教什么的，強化一下，還是有希望的。

那啥，我只知道VB6.0的，不知道對你有沒有用：

1.筆試+機試

2.有本

3.模擬題（機試），找 珊瑚蟲 版的，網(wǎng)上搜搜。筆試也可以搜得到。

4.買書就沒必要了，二級嘛，相當于入門級的，沒什么挑戰(zhàn)吶。

5.這個本本是全國的。

祝你好運！如有疑問歡迎追問，如果覺得我的解答對你有幫助，望采納，謝謝！

用VB.net模擬十字路口紅綠燈交通信號的切換

實在不難，就是不知道你寫了代碼沒有？

答案補充：

Dim xuhao As Integer

Const wenjianjia = "" '自己寫好了

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

xuhao = xuhao + 1

If xuhao = 4 Then xuhao = 1

Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")

End Sub