(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

(ﾟДﾟ≡ﾟДﾟ)

**デフォルトの名無しさん** · NG

ドピュ

**前スレ990** · NG

もたもたしてる間に勃ってしまった……手を煩わせてスマソ>>1&ﾓﾂｶﾚｰ

一応前スレ
Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/

**デフォルトの名無しさん** · NG

　　　　　　　　　|　　　｜　　　　　　＼
　　　　　　　　　|　　￣|￣　　　　＼
　　　　　　　　　|　　＿|＿　　　　　｜　　　　　　　＼
　　　　　　　　　|／|／　　　　／　/　　＼　　　￣|
　　　　　　　　　　　　　　　　　　　　　　　　　　　/
　　　　　　　　　　　　　　∧ 　　　　　　　　　　　 ∧
　　　　　　　　　　　　　/　・　　　　　　　　　　　/　';,
　　　　　　　　　　　　. /　　';　　　　　　　　　　./　　';
　　　　　　　　　　　　/　　　；＿＿＿＿＿＿/　　　；
　　　　　　　　　　／　　　　　　　　　　　　　　　　　　＼
　　　　　　　　／　　　／　　　　　　　　　　＼　　　　　＼
　　　　　　　 /´　　　　　　　|＿＿＿＿|　　　　　　　　　　｜
　　　　　　　 | 　///// 　　 |　　　　　| 　　　/////　　　｜
　　　　　　　｜　　　　　　　 .| 　　　　|　　　　　　　　　　　｜
　　　　　　　 |　　　　　　　　 |　　　　|　　　　　　　　　　　｜
　　　　　　　　|　　　　　　　　'; 　　 /　　　　　　　　　　　／
　　　　　　　　＼　　　　　　　＼／　　　　　　　　..　／
　　　　　　　　　　ヽ　　　　　　　　　　　　　........:::::::＜

**デフォルトの名無しさん** · NG

VBの小ネタとかTipsとかもOK。前スレ1000は綺麗に終わったね。

**前スレ979** · NG

とりあえず、スレの最後だったので途中になってしまったみたいなので、
前スレでの質問を答えると同時に、もう一回載せます。
－－－－－－－－－－－－－－－－
A,B,C,Dという四つの変数(整数型)を作って、(1 ≦ A, B, C, D ≦ 100 )
それぞれを乱数にして
A>=B And A>=C And A>=D And A+B+C+D=100
の条件を満たすA,B,C,Dの値を作りたいのですが

Do While A>=B And A>=C And A>=D And A+B+C+D=100
A=int(rnd*100)+1
B=int(rnd*100)+1
C=int(rnd*100)+1
D=int(rnd*100)+1
loop
と書くと非常に効率が悪いです。
もっと効率のいいプログラムってあるでしょうか？
私にはどうしてもこれしか思いつきません…
－－－－－－－－－－－－－－－
是非とも知恵を貸してください

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15