1、
10年積累的成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有礦區(qū)免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
For j = 3 To 19 Step 4
m += 1
Next
為循環(huán)5次
For i = 1 To 15 Step 4
Next
為循環(huán)4次
則總共循環(huán)4*5=20,m沒循環(huán)一次+1，則m=20
2、從下面這段可以看出“*”與“#”是同步的(因為走else時，會繼續(xù)循環(huán))，有“*”肯定“#”，而輸出“*”只有當(dāng)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("$")
結(jié)果則為：*#*#$
如果需要講詳細(xì)一點,那就加我QQ531412815
第4題,潛在的錯誤,這里的錯誤不是常規(guī)錯誤,屬于那種只有在運(yùn)行是才知道的錯誤:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永遠(yuǎn)不會查找下面的錯誤
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)化錯誤處理永遠(yuǎn)達(dá)不到下面這里,因為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語言，不過這里需要該很多，
我就不用了，那么就稍微復(fù)雜一點，使用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是用來預(yù)處理字符的
全局變量:
BUSE：用來確定是否使用過這個元素
lSTR：用來保存字符元素
NCOUNT：用來限制遞歸函數(shù)的深度，換句話說，就是輸出元素組中的元素個數(shù)
實際測試成功，另外我對前三題很感興趣，希望能夠傳給我
這個問題看似簡單，實際上包含了三個問題：
1. 5/2 的結(jié)果是 Double 類型
2. dim aa as Integer = 5/2 將 Double 類型隱式轉(zhuǎn)換為 Integer 類型
3. 轉(zhuǎn)換過程將小數(shù)部分 Banker 舍入
因為你這兩個算式小數(shù)部分都是0.5，所以取最近的偶數(shù) aa = 2，bb = 4
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
'產(chǎn)生10個正整數(shù)
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，沒法調(diào)試
主要代碼如下：
for i= 1 to 11 step 2
print space((11-i)/2) string$(i,"*")
next i
明天給試試行不行
重慶分公司
重慶分公司
