ナビゲーション
FrontPage
FreeBSD
Linux
Citrix XenServer
VMware ESXi
Unixコマンド
MySQL
PostgreSQL
Windows
CMS/CRM
クラウド
用語
PHPスクリプト
Bashシェルスクリプト
Rubyスクリプト
開発日記
検索
ツールボックス
新しいページの作成
バックアップの表示
外部のリンク元
最近更新したページ
全ページ
ヘルプ
凍結
アップロード
ページ名の変更
最新の40件
2016-08-17
Linux/NagiosQL
Linux/CentOSチューニング
2016-02-23
Linux/ソフトウェアRAID復旧手順
2016-02-18
FreeBSD/DHCP
FreeBSD/squid
2016-02-15
Unixコマンド/file
2016-02-05
FreeBSD/DynaBook
FreeBSD/Linux compatibility
2016-01-21
PHPスクリプト/PEAR DBインストールできない
PHPスクリプト/PEAR DB
2016-01-20
PHP/フレームワーク/Zend Framework
PHP/フレームワーク
FreeBSD/Postfix+amavisd+clamav
2016-01-15
FreeBSD/sl
2015-12-04
Unixコマンド/dig
Unixコマンド/nslookup
Unixコマンド/traceroute
Linux/rsync
FreeBSD/rsync
Unixコマンド/vipw
2015-11-25
Linux/Postfix+MySQL+Postfix AdminによるバーチャルSMTPサーバの構築
Linux/Postfix + postgrey
2015-11-24
Linux/Postfix + amavisd + clamav
2015-05-25
Unixコマンド/ifconfig
2015-05-23
Unixコマンド/netstat
Unixコマンド/route
Unixコマンド/lsof
Unixコマンド/disown
Unixコマンド/time
Unixコマンド/crontab
2015-05-22
Unixコマンド/nohup
Unixコマンド/fgとbg
Unixコマンド/nice
Unixコマンド/kill
Unixコマンド/jobs
Unixコマンド/restor
Unixコマンド/dump
Unixコマンド/uncompress
Unixコマンド/compress
Unixコマンド/zcat
total:
912
today:
1
yesterday:
0
now:
1
本文
ノート
?
編集
差分
一覧
AccessVBA/クイックソート の編集
*AccessVBA/クイックソート [#e834992c] クイックソート '配列の要素を交換 Private Sub AcSwap(tAy() As Long, ni1 As Integer, ni2 As Integer) Dim nTemp As Long nTemp = tAy(ni2) tAy(ni2) = tAy(ni1) tAy(ni1) = nTemp End Sub 'クイックソート Sub AcQsort(tAry() As Long, nLeft As Integer, nRight As Integer) Dim i As Integer Dim j As Integer Dim nmid As Long Dim npivot As Long If nLeft < nRight Then i = nLeft j = nRight '配列の中央 nmid = (nLeft + nRight) \ 2 '基準値 npivot = tAry(nmid) Do Do While tAry(j) > npivot j = j - 1 Loop Do While tAry(i) < npivot i = i + 1 Loop If i <= j Then AcSwap tAry(), i, j i = i + 1 j = j - 1 End If Loop Until i > j If j > nmid Then AcQsort tAry(), i, nRight AcQsort tAry(), nLeft, j Else AcQsort tAry(), nLeft, j AcQsort tAry(), i, nRight End If End If End Sub
タイムスタンプを変更しない
*AccessVBA/クイックソート [#e834992c] クイックソート '配列の要素を交換 Private Sub AcSwap(tAy() As Long, ni1 As Integer, ni2 As Integer) Dim nTemp As Long nTemp = tAy(ni2) tAy(ni2) = tAy(ni1) tAy(ni1) = nTemp End Sub 'クイックソート Sub AcQsort(tAry() As Long, nLeft As Integer, nRight As Integer) Dim i As Integer Dim j As Integer Dim nmid As Long Dim npivot As Long If nLeft < nRight Then i = nLeft j = nRight '配列の中央 nmid = (nLeft + nRight) \ 2 '基準値 npivot = tAry(nmid) Do Do While tAry(j) > npivot j = j - 1 Loop Do While tAry(i) < npivot i = i + 1 Loop If i <= j Then AcSwap tAry(), i, j i = i + 1 j = j - 1 End If Loop Until i > j If j > nmid Then AcQsort tAry(), i, nRight AcQsort tAry(), nLeft, j Else AcQsort tAry(), nLeft, j AcQsort tAry(), i, nRight End If End If End Sub
テキスト整形のルールを表示する
ログインまたはアカウント作成