累加题型.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 新的比賽模式？ 請指教！ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * S96-7交換幾次？ Dim swapN As Integer = 0 For k As Integer = 1 To lineArray(i) - 1 For j As Integer = 0 To (lineArray(i) - 1) - 1 If columnArray(j) columnArray(j + 1) Then Dim tem = columnArray(j) columnArray(j) = columnArray(j + 1) columnArray(j + 1) = tem swapN = swapN + 1 End If Next j Next k S95-5密碼分析 Dim i As Integer For i = 1 To Len(str1) n(Asc(Mid(str1, i, 1))) = n(Asc(Mid(str1, i, 1))) + 1 Next For i = 0 To 25 n(65 + i) = n(65 + i) + n(97 + i) a(65 + i) = Chr(65 + i) Next ‘排序 Dim j As Integer For i = 65 To 65 + 25 - 1 For j = i + 1 To 65 + 25 If n(i) n(j) Or (n(i) = n(j) And a(i) a(j)) Then tem1 = n(i) n(i) = n(j) n(j) = tem1 tem2 = a(i) a(i) = a(j) a(j) = tem2 End If Next Next 機率統計題型 s94-2 (購買花朵10分) 20 s96-5 (最小距離 14%) 20 s94-4 (最小離差16分) 20 s94-6 (相關係數，18分) 20 s96-3 (積木方塊 13%) 20 s96-6 (排列組合 17%) 20 s93-2 (模擬不公平骰子) 20 S94-2購買不同價格花朵 q50 = 0 If n = 50 Then q50 = 1 n = n - 50 End If q10 = 0 While n = 10 q10 = q10 + 1 n = n - 10 Wend q5 = 0 If n = 5 Then q5 = 1 n = n - 5 End If q1 = n S96-5相鄰二數最小距離 Dim minD As Integer = Math.Abs(columnArray(0) - columnArray(1)) For j As Integer = 1 To lineArray(i) - 1 - 1 If Math.Abs(columnArray(j) - columnArray(j + 1)) minD Then minD = Math.Abs(columnArray(j) - columnArray(j + 1)) End if Next j S94-4最小離差 For i = 1 To n - 1 For