VB.NET程序題

1、

10年積累的成都網站建設、網站設計經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先網站設計后付款的網站建設流程，更有礦區免費網站建設讓你可以放心的選擇與我們合作。

For j = 3 To 19 Step 4

m += 1

Next

為循環5次

For i = 1 To 15 Step 4

Next

為循環4次

則總共循環4*5=20,m沒循環一次+1，則m=20

2、從下面這段可以看出“*”與“#”是同步的(因為走else時，會繼續循環)，有“*”肯定“#”，而輸出“*”只有當i=2,4時，則有2次，為*#*#

For i = 1 To 5

If i Mod 2 = 0 Then

Console.Write("*")

Else

ContinueFor

EndIf

Console.Write("#")

Next

在加上最後次輸出：Console.WriteLine("$")

結果則為：*#*#$

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經典問題(1)

這個問題看似簡單，實際上包含了三個問題：

1. 5/2 的結果是 Double 類型

2. dim aa as Integer = 5/2 將 Double 類型隱式轉換為 Integer 類型

3. 轉換過程將小數部分 Banker 舍入

因為你這兩個算式小數部分都是0.5，所以取最近的偶數 aa = 2，bb = 4

VB.NET 一道編程題 求助大家幫忙

Function func(ByVal x As Integer, ByVal y As Integer) As Integer

If x 5 Then

y = 3 * 5 + 6 * x - 1

ElseIf x = 5 And x = 20 Then

y = 5 * x - 5

ElseIf x 20 Then

y = 3 * 2 + 2 * x - 9

End If

func = y

End Function

VB.NET怎么作一題，產生10個100以內的隨機正整數，求最大，最小值，并顯示。

'產生10個正整數

Dim intArr(10) As Integer

For i As Integer = 1 To 10

intArr(i - 1) = Int(Rnd() * 99) + 1

Next

'取最小值

Dim intMin As Integer = intArr(0)

For j As Integer = 1 To UBound(intArr) - 1

If intMin intArr(j) Then intMin = intArr(j)

Next

'取最大值

Dim intMax As Integer = intArr(0)

For j As Integer = 1 To UBound(intArr) - 1

If intMax intArr(j) Then intMax = intArr(j)

Next

Dim strTemp As String = ""

For tempi As Integer = 0 To UBound(intArr) - 1

strTemp = strTemp intArr(tempi) ","

Next

MessageBox.Show(strTemp ControlChars.CrLf "min: " intMin.ToString ControlChars.CrLf "max: " intMax.ToString)

VB.NET作業 請求大神幫助 第(4)題

這個比較簡單，不過手頭沒有Vb.net，沒法調試

主要代碼如下：

for i= 1 to 11 step 2

print space((11-i)/2) string$(i,"*")

print

next i

明天給試試行不行

新聞名稱：vb.net上機題 vb上機題庫
網站URL：http://vcdvsql.cn/article8/hehpip.html

成都網站建設公司_創新互聯，為您提供虛擬主機、網站改版、網頁設計公司、搜索引擎優化、軟件開發、建站公司

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯