500円で宿題やってあげるよ
116 ：デフォルトの名無しさん：03/01/01 19:57
１０６、１０８です。下のＶＢのプログラムを元にするのですが、
その際、プログラミング中に書き込んだ数字をソートするのではなく、
テキストボックスに任意に入力した数字を昇順にソートするプログラム
を作りたいのです。お願いします。
Const N = 10
Private Sub quick(a() As Variant, L As Variant, R As Variant)
If L < R Then
s = a((L + R) \ 2)
i = L - 1: j = R + 1
Do While 1
Do
i = i + 1
Loop While a(i) < s
Do
j = j - 1
Loop While a(j) > s
If i >= j Then Exit Do
t = a(i): a(i) = a(j): a(j) = t
Loop
quick a(), L, i - 1
quick a(), j + 1, R
End If
End Sub
その際、プログラミング中に書き込んだ数字をソートするのではなく、
テキストボックスに任意に入力した数字を昇順にソートするプログラム
を作りたいのです。お願いします。
Const N = 10
Private Sub quick(a() As Variant, L As Variant, R As Variant)
If L < R Then
s = a((L + R) \ 2)
i = L - 1: j = R + 1
Do While 1
Do
i = i + 1
Loop While a(i) < s
Do
j = j - 1
Loop While a(j) > s
If i >= j Then Exit Do
t = a(i): a(i) = a(j): a(j) = t
Loop
quick a(), L, i - 1
quick a(), j + 1, R
End If
End Sub
117 ：デフォルトの名無しさん：03/01/01 19:57
Private Sub Command1_Click()
Dim a(N)
a(0) = 41: a(1) = 24: a(2) = 76: a(3) = 11: a(4) = 45
a(5) = 64: a(6) = 21: a(7) = 69: a(8) = 19: a(9) = 36
quick a(), 0, N - 1
Picture1.Cls
For k = 0 To N - 1
Picture1.Print a(k);
Next k
End Sub
Dim a(N)
a(0) = 41: a(1) = 24: a(2) = 76: a(3) = 11: a(4) = 45
a(5) = 64: a(6) = 21: a(7) = 69: a(8) = 19: a(9) = 36
quick a(), 0, N - 1
Picture1.Cls
For k = 0 To N - 1
Picture1.Print a(k);
Next k
End Sub
118 ：デフォルトの名無しさん：03/01/02 21:56
誰か〜お願いします〜！助けてください〜！
119 ：デフォルトの名無しさん：03/01/05 21:34
あげ
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
http://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
121 ：デフォルトの名無しさん：03/01/09 02:27
>>589
わーお。うち横須賀だしなー・・
わーお。うち横須賀だしなー・・
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
http://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
123 ：デフォルトの名無しさん：03/01/09 03:11
>>251
辞退します
辞退します
124 ：デフォルトの名無しさん：03/01/09 03:21
2が立っちゃったのね。。。
ひろは帰ったし、1000取りも終わったし、存在意義低い気もするけど。。。
ひろは帰ったし、1000取りも終わったし、存在意義低い気もするけど。。。
125 ：デフォルトの名無しさん：03/01/09 12:09
どこでしゃべってんのひろゆき？
126 ：デフォルトの名無しさん：03/01/09 18:20
======2==C==H======================================================
２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
127 ：デフォルトの名無しさん：03/01/10 00:08
128 ：デフォルトの名無しさん：03/01/10 08:58
>>589
ちょっと違うが今までがそんな感じだったんよ。
「（善意であろうが悪意であろうが）確認できない以上利用者が真偽を判断すべきであり、
要請があっただけで全て削除するべきではない。」
というのがひろゆきの主張。
嘘を嘘と〜の名言もこれに繋がる。
これに対して動物病院訴訟における地裁・高裁の判断は、
「外部から確認できない以上当事者が中傷だと主張し削除の要請をした場合は、管理人は削除すべき。」
今後はこれに倣い当事者側が中傷だと主張さえすればIP公開する必要が出るかもしれない。
（もちろん警察なり裁判所の正式な提出要請があってからになるだろうけど）
なお、書き込んだ者はその書き込みに対し責任を負うべし、ってのは賛成だが。
いずれにしろ善意の告発は難しくなると思われ。
ちょっと違うが今までがそんな感じだったんよ。
「（善意であろうが悪意であろうが）確認できない以上利用者が真偽を判断すべきであり、
要請があっただけで全て削除するべきではない。」
というのがひろゆきの主張。
嘘を嘘と〜の名言もこれに繋がる。
これに対して動物病院訴訟における地裁・高裁の判断は、
「外部から確認できない以上当事者が中傷だと主張し削除の要請をした場合は、管理人は削除すべき。」
今後はこれに倣い当事者側が中傷だと主張さえすればIP公開する必要が出るかもしれない。
（もちろん警察なり裁判所の正式な提出要請があってからになるだろうけど）
なお、書き込んだ者はその書き込みに対し責任を負うべし、ってのは賛成だが。
いずれにしろ善意の告発は難しくなると思われ。
129 ：デフォルトの名無しさん：03/01/10 10:19
130 ：デフォルトの名無しさん：03/01/10 10:57
fDUMwxQmをヲチすればいいんれすか？
131 ：デフォルトの名無しさん：03/01/10 11:27
スロ板にいけねー・・
132 ：デフォルトの名無しさん：03/01/10 12:14
仮に子供が殺されたとしましょうか
それでひろゆきに何かデメリットでもあるの？
ないよね
あるように思わせよう、見せようとしてる人のやってる事は
おいらにはこじつけて叩こうとしてるようにしか見えませんが何か？
それでひろゆきに何かデメリットでもあるの？
ないよね
あるように思わせよう、見せようとしてる人のやってる事は
おいらにはこじつけて叩こうとしてるようにしか見えませんが何か？
133 ：デフォルトの名無しさん：03/01/10 12:43
一番俺が恐れているのは名無しさんが萎縮してしまうこと。
本音が聞けるってのがここのひとつの売りであると思うから
本音が聞けるってのがここのひとつの売りであると思うから
134 ：デフォルトの名無しさん：03/01/10 13:38
135 ：デフォルトの名無しさん：03/01/10 15:38
宿題で困ってるバカ学生いない?
136 ：デフォルトの名無しさん：03/01/10 15:56
削除依頼板作業所に貼ったほうが良い予感
137 ：デフォルトの名無しさん：03/01/10 16:19
バイト始めたんだよ。宅急便の荷分け。
138 ：デフォルトの名無しさん：03/01/10 22:44
＞ひろゆき
全鯖投入を決断したのはいつ？
全鯖投入を決断したのはいつ？
139 ：デフォルトの名無しさん：03/01/10 22:51
>>705
これは祭りﾈﾀになりそうですかねぇ？
これは祭りﾈﾀになりそうですかねぇ？
140 ：デフォルトの名無しさん：03/01/11 00:09
拳銃をつきつけられたら
ボブ・サップでも土下座すると思われ。
ボブ・サップでも土下座すると思われ。
141 ：デフォルトの名無しさん：03/01/11 00:16
そうか、どうもです。
知らないこと多すぎ・・・
知らないこと多すぎ・・・
142 ：デフォルトの名無しさん：03/01/11 09:39
誰か
IDにIPを出すことを要求します
ってスレ立てておながい
IDにIPを出すことを要求します
ってスレ立てておながい
143 ：デフォルトの名無しさん：03/01/11 09:40
tmp鯖は前からログ取ってたと思ってたんだがな。板が板だけに。
144 ：デフォルトの名無しさん：03/01/11 10:13
======2==C==H======================================================
２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
145 ：デフォルトの名無しさん：03/01/11 11:06
ＩＰ取られて困るような奴はとっととどっか行け
146 ：デフォルトの名無しさん：03/01/11 11:37
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
さようなら２ちゃんねる ありがとう２ちゃんねる
147 ：デフォルトの名無しさん：03/01/11 12:40
具体的に
今後はどんな
書き込みをしてるとまずいんでしょうか？
今後はどんな
書き込みをしてるとまずいんでしょうか？
148 ：デフォルトの名無しさん：03/01/11 13:10
これからは 誉め殺しを採用しよう
149 ：デフォルトの名無しさん：03/01/11 15:59
2chをはけ口にしていた人はどこで憂さ晴らしをするのか少し興味ある
150 ：デフォルトの名無しさん：03/01/12 00:05
151 ：デフォルトの名無しさん：03/01/12 00:15
＞どこまでＯＫなのかわかってたら訴訟で負けたりしません(^_^;)
訴えられなきゃOKと思えば良いのですかな？
兎も角セクハラ発言には気を付けよ・・・
訴えられなきゃOKと思えば良いのですかな？
兎も角セクハラ発言には気を付けよ・・・
152 ：デフォルトの名無しさん：03/01/12 02:53
暫定管理人 ：
153 ：デフォルトの名無しさん：03/01/12 02:57
（・・；）IP取るんですか・・・。
（・・；） 「 ・・・。」
（−−；）これからは、アグレッシブな事は書けませんねー。
（・・；）私のような国家公務員のエリート もとい
（＾＾；）カリスマは、何か言うと
（・・；）目をつけられますからねー。
（・・；）嫉妬する気持ちはわかるんですが・・・。
（−−；）ｙ−~ ふっー。
（・・；） 「 ・・・。」
（−−；）これからは、アグレッシブな事は書けませんねー。
（・・；）私のような国家公務員のエリート もとい
（＾＾；）カリスマは、何か言うと
（・・；）目をつけられますからねー。
（・・；）嫉妬する気持ちはわかるんですが・・・。
（−−；）ｙ−~ ふっー。
154 ：デフォルトの名無しさん：03/01/12 10:25
ｽﾄｰｶｰ教師か・・・
155 ：デフォルトの名無しさん：03/01/12 10:28
皆も早くほかのことに興味を持とうな。
156 ：デフォルトの名無しさん：03/01/12 21:05
どうでもいいよべつに みんな何で必死なの？
157 ：デフォルトの名無しさん：03/01/12 21:07
「なんで消さないんだよﾊﾞｰﾔ」訴訟にISP責任法はほとんど無意味ですわな。
158 ：デフォルトの名無しさん：03/01/12 21:18
ﾎﾋﾞｰまだなおんないの〜？
Fortran90/95の宿題教えてください！！
問題１ ２つの３次元空間のベクトルaとbの各成分を標準入力装置から読み込み、
これらのベクトルaとbのなす角度を度（°：degree）で計算して出力するプログラム
を作成せよ。ただしベクトルの成分の入力と結果の出力はメインプログラム中
で処理し角度の計算は副関数プログラムおよびサブルーチン副プログラムを
用いるものとする。
入力データ a＝（1.0,0.0,1.0）b=(0.0,1.0,1.0)
問題２ 標準入力装置から実数値のデータ｛xi:(i=1,2,…,n<=500)}を入力し入力された
データの最大値と最小値を求め、さらにその最大値と最小値が何番目に入力され
たデータであるのかを求めるプログラムを作成せよ。ただしデータ{xi}の入力お
よび結果の出力はメインプログラムで処理しデータの最大値、最小値およびそれ
らの入力番号はサブルーチン副プログラムにおいて処理するものとする。
入力データ｛xi}={6.5,0.0,3.0,-4.2,5.1,6.6,7.0}
ですお願いします！！
問題１ ２つの３次元空間のベクトルaとbの各成分を標準入力装置から読み込み、
これらのベクトルaとbのなす角度を度（°：degree）で計算して出力するプログラム
を作成せよ。ただしベクトルの成分の入力と結果の出力はメインプログラム中
で処理し角度の計算は副関数プログラムおよびサブルーチン副プログラムを
用いるものとする。
入力データ a＝（1.0,0.0,1.0）b=(0.0,1.0,1.0)
問題２ 標準入力装置から実数値のデータ｛xi:(i=1,2,…,n<=500)}を入力し入力された
データの最大値と最小値を求め、さらにその最大値と最小値が何番目に入力され
たデータであるのかを求めるプログラムを作成せよ。ただしデータ{xi}の入力お
よび結果の出力はメインプログラムで処理しデータの最大値、最小値およびそれ
らの入力番号はサブルーチン副プログラムにおいて処理するものとする。
入力データ｛xi}={6.5,0.0,3.0,-4.2,5.1,6.6,7.0}
ですお願いします！！
（＾＾）
161 ：デフォルトの名無しさん：03/01/13 23:02
国だろうと神だろうと郷に（２ちゃんねる）入ったんなら郷に（削除ルール）従え
しゃしゃり出て２ちゃんに口出しすんな
以上！
しゃしゃり出て２ちゃんに口出しすんな
以上！
（＾＾）
163 ：デフォルトの名無しさん：03/01/23 14:34
失敗。
164 ：NANASI：03/01/23 14:44
はじめまして。
現在、VB6proとACCESS2000を使用しデータベースの
検索システムを製作しています。
検索一覧をグリッドに表示し、情報を選ぶと次の画面へ移り
詳細情報が表示されるというものです。
問題は詳細情報の印刷をさせているのですが、データベース
にあるデータを1から印刷してしまいます。
すべてを印刷するわけではなく選択した（表示している）デ
ータのみを印刷するようにしたいのです。
なんども手直しをしましたが直りません。
どのようなコーディングをすればよいか皆様に教えていただ
けたら幸いです。
Set DataReport1.DataSource = frm検索.rs
' レポートを表示（プレビュー）する
DataReport1.Show
という風にコーディングしています。
よろしくお願いします。
現在、VB6proとACCESS2000を使用しデータベースの
検索システムを製作しています。
検索一覧をグリッドに表示し、情報を選ぶと次の画面へ移り
詳細情報が表示されるというものです。
問題は詳細情報の印刷をさせているのですが、データベース
にあるデータを1から印刷してしまいます。
すべてを印刷するわけではなく選択した（表示している）デ
ータのみを印刷するようにしたいのです。
なんども手直しをしましたが直りません。
どのようなコーディングをすればよいか皆様に教えていただ
けたら幸いです。
Set DataReport1.DataSource = frm検索.rs
' レポートを表示（プレビュー）する
DataReport1.Show
という風にコーディングしています。
よろしくお願いします。
（＾＾）