くだすれVB6.0以前（超初心者向け）

1 名前：d mailto:age [2008/03/30(日) 09:01:59 ] このスレッドはVBについて、 他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 VB使いが優しくコメントを返しますが、 お礼はVBの布教はしなくてよいので、初心者の救済をお願いします 前スレ くだすれVB6.0以前（超初心者向け） pc11.2ch.net/test/read.cgi/tech/1165574205/ 309 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 15:55:59 ] >>307 コメント欄が荒れすぎなのでウィルスかなんかかと思ったけど、結局これ何なの？ 310 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 16:01:33 ] >>309 ウイルスに決まってんじゃんｗ 311 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 16:51:54 ] AVGは反応しなかった。 普通に起動した。 何かが起きたかどうかは知らん。 312 名前：デフォルトの名無しさん mailto:sage [2008/11/13(木) 10:54:38 ] US評価版だろ｡ USBメモリ起動に割ったやつ 313 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 16:07:09 ] ベーシックス 314 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 18:20:55 ] 社内の情報システム部のようなところで勤務していますが、プログラマーではありません。 そんな私が最近、VB6のコードを調べる必要がありました。 .NETのC++やC#のコードとよく似てるように見えるのですが VB6はオブジェクト指向ではないという理解で正しいでしょうか。 315 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 18:29:54 ] 何を持ってオブジェクト指向と定義するかで変わってくるが オブジェクト指向に必要な要素は持っている。 ただ一般的に社内システムレベルのソースがオブジェクト指向ではない可能性は高い。 316 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:02:54 ] VB6はオブジェクト指向の要素のうちカプセル化を不完全な形で持っているだけで、 継承、多態といった要素を持ちません。つまり>314の認識でほぼ合っていると思われます。 317 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:11:03 ] オブジェクト指向なんて考え方。Java使ったコボラーの プログラムなどをオブジェクト指向などと呼びたくない。 318 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:18:37 ] 委譲、包含、インターフェイスといった要素ではダメですか＞OOP 一口でオブジェクト指向といっても、オブジェクト指向プログラミングの他に オブジェクト指向デザイン、オブジェクト指向ユーザーインターフェイス、 オブジェクト指向開発などなどさまざまな概念がそろっております。 319 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:26:44 ] > 委譲、包含、インターフェイスといった要素ではダメですか＞OOP だめじゃね？ 全部 VB6 でできる。 320 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 19:28:07 ] とりあえず、VB6は、Cの構造的プログラミング＋モジュール分割　の書かれ方が多い。 が、フォームのコントローラ関係は、普通にOOだな。 あ、そうそう、下手にOOしてるVB6ひいちゃったら、しねるぞ。 321 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 20:10:59 ] OOの定義の問題は置くとしても愚問だね。 仮に結論が出たとして、それを>>314が知ったところでなんの意味があるんだろう。 322 名前：314 mailto:sage [2008/11/15(土) 21:13:10 ] 質問の仕方が下手ですみません。 VB6の言語使用を習得すれば、「オブジェクト指向も知ってます」と いえるのかどうかを知りたかったです。 オブジェクト指向についてはまた別に学習することを考えます。 しかし、オブジェクト指向とは何たるかについては、 本職ではない私にはちょっと難しそうですね・・・ とても参考になりました。 みなさん、ありがとうございました。 323 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 21:29:29 ] >>322 > VB6の言語使用を習得すれば、「オブジェクト指向も知ってます」と > いえるのかどうかを知りたかったです。 いえません 324 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 21:59:27 ] いくらOOが考え方だとはいえ、さすがにVB6でOO知ってますは無理があるだろ・・・。 VB6なんて最悪言語の代名詞なのに・・・。 325 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 22:05:14 ] かといって、Javaも不完全なんだよなー 326 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 22:43:44 ] >322 実装重視であれこれつまみ食いするのが結局一番いいんじゃね？ アカデミックに勉強してたらそれだけで一生終わる 327 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 13:17:41 ] なるほどオブジェクト指向を学ぶにはVBが最高なんですねー 328 名前：デフォルトの名無しさん mailto:sage [2008/11/18(火) 20:02:59 ] 反面教師としてはいいんじゃね？ 329 名前：デフォルトの名無しさん [2008/11/19(水) 14:51:36 ] はじめまして 早速ですが、現在、VB6.0でAccess97のmdbを使うプログラムを作成しているのですが、 実行時エラー　2147023170（800706be）オートメーションエラーです。リモートプロシャジーコールに失敗しました。 のエラーが、稀に発生します。 プログラムの一部 Public wrkJet As Workspace Public Rundb As Database Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet) Set Rundb = wrkJet.OpenDatabase("c:\xxxxx\xxxxxx.mdb", False) strSql = "" strSql = "Select * From 送信状況マスタ;" Set RecSet = Rundb.OpenRecordset(strSql, dbOpenDynaset) Call CloseRecSet(RecSet) ---------------------------------------------------------------------------------------------------------------------------- Public Sub CloseRecSet(ByRef RecSet As Recordset) On Error Resume Next If Not RecSet Is Nothing Then RecSet.Close <<<<<<<<<<<<<<<<<< この変でエラーになります。 Set RecSet = Nothing End If End Sub ライブラリにMicrosoft DAO 3.6 Object Library を使用しています。 support.microsoft.com/kb/825796/ja に、Access97は、DAO 3.5を推奨とあったのですが、上位互換で問題無いと思っていたのですが、 やはり、DAO 3.5を使用した方が良いのでしょうか？ ご指導をお願い致します。 330 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 15:30:25 ] >>329 3.6で出なくなるの？　試すのはわけないと思うが・・・ closeを別ﾙｰﾁﾝにせず同一ﾙｰﾁﾝにしてみるとか 試せることはいろいろあるよね。 331 名前：329 [2008/11/19(水) 16:05:05 ] 説明が少なく申し訳ありません。 現在までの流れは、 �@VB6.0 + DAO3.5 で新規開発 >>> スキャナやFAXソフトを使用でタッチパネルの反応が遅い現象発生 �AEXEを分割して、ActiveX.EXEを導入 >>> タッチパネルの件は解決。mdbが頻繁に壊れる現象発生 �BDAO3.6を導入 >>> mdb破損回数が軽減。エラーを吐いてEXEが落ちる現象発生 となっています。 332 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 19:01:55 ] On Error Resume Nextでごまかすのをやめたほうがいいと思うぞね 333 名前：デフォルトの名無しさん [2008/11/19(水) 23:15:35 ] すんません。 VB2008で教えて下さい。 ソリューションエクスプローラーのタブに 「データソース」が表示されなくなっちゃったんだけど どう設定すれば、また表示されますか？ 334 名前：デフォルトの名無しさん mailto:sage [2008/11/19(水) 23:16:58 ] >>333 スレタイ100回読み直せ 335 名前：デフォルトの名無しさん mailto:sage [2008/11/22(土) 21:25:45 ] >>331 じゃあ次はADO導入だな 336 名前：デフォルトの名無しさん mailto:sage [2008/11/23(日) 00:26:37 ] >331 ネットワークドライブにmdb置いて複数クライアントからアクセスしたりしてない? あとリンクテーブルとか。 337 名前：デフォルトの名無しさん [2008/11/24(月) 19:17:31 ] 質問です。 VB6.0でParadoxと言うデータベースを開きたいのですが、 エラーが出て開きません。 Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=Paradox 5.x;Persist Security Info=False" cn.Open rs.Open "ABC", cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect rs.AddNew rs.Close cn.Close End Sub 上記のコードを書いたんですが、rs.Openの行で 「外部テーブルのフォーマットが正しくありません。」 というエラーが出ます。 何が悪いのでしょうか？ よろしくお願いします。 338 名前：デフォルトの名無しさん mailto:sage [2008/11/24(月) 20:22:21 ] Data Sourceがディレクトリに見えるけど、 そういう話ではない？ 339 名前：３３７ [2008/11/24(月) 21:56:14 ] 返信ありがとうございます。 cn.Open までは進んでいるし、ファイル名まで指定すると 「パスが間違っています」と言うエラーが出るので、 Data Sourceはこれであっていると思われます。 340 名前：デフォルトの名無しさん mailto:sage [2008/11/24(月) 22:08:22 ] C:\で接続できる方が不思議じゃね？ 「Paradox　ConnectionString」で検索しる 341 名前：デフォルトの名無しさん mailto:sage [2008/11/24(月) 23:32:52 ] > rs.Open "ABC", cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect これを rs.Open "select * from ABC", cn みたいにシンプルにしてみたら？ 342 名前：３３７ [2008/11/25(火) 00:28:03 ] >>340 今回はC:\の直下にファイルをおいてあるので、これで いいと思います。 Paradoxは１ファイル１テーブルなので、こうしないと 接続出来ません。 >>341 試してみましたが、やはり「外部テーブルのフォーマットが正しくありません。」 のエラーが出てしまいます。 343 名前：デフォルトの名無しさん mailto:sage [2008/11/25(火) 08:50:02 ] 断言できるのか？ ネットの事例じゃ軒並みファイルしていしてるぞ？ 344 名前：デフォルトの名無しさん mailto:sage [2008/11/25(火) 09:03:22 ] 1ﾌｧｲﾙ1ﾃｰﾌﾞﾙと　ﾙｰﾄ指定とは次元が違いすぎるわな どのﾌｧｲﾙかを選択するのかは超能力的なﾊﾟﾜｰが必要なのかも試練 345 名前：329,331 [2008/11/25(火) 16:56:58 ] 回答有難う御座います。 返答が遅れた事をお詫び致します。 >>335 確かにADOは考えました。しかし、大きな修正はしないでとの営業の意向がありまして。 断念致しました。 >>336 ネットワークドライブは使用していません。 ｍｄｂのリンクは行っています。 346 名前：デフォルトの名無しさん mailto:sage [2008/11/25(火) 17:08:56 ] >>340 そのワードでググったらTOPのページにこんな記載が。 >Please note that you should only specify the folder where the database resides. >Not the database name itself. ttp://www.connectionstrings.com/?carrier=paradox >>337 Paradoxのバージョン5までしか読めないらしいけどそこは大丈夫？ 347 名前：デフォルトの名無しさん mailto:sage [2008/11/25(火) 17:24:07 ] >>346 へぇそうなんだ　ためになるねぇ　つかうことないだろうけど・・・ 348 名前：デフォルトの名無しさん mailto:sage [2008/11/25(火) 21:08:19 ] すみません、こちらで質問させて下さい Exceｌ VBAでwebページをIEオブジェクトで操作して、リンクをクリックさせると別窓でリンク先が表示されます 今後この別窓のIEオブジェクトを掴んでアクティブにして操作するにはどうすればいいのでしょうか？ 独学文系のなけなしの知識にて、ウィンドウハンドルを取得すればいいと思い当たり For Eachで各ウィンドウのそれの取得だけはできました(たぶん)が、使い方というかセオリーが全く分かりません… Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long (中略) hWnd = GetForegroundWindow Set objShell = CreateObject("Shell.Application") 　For Each objIE In objShell.Windows 　　Debug.Print objIE.hWnd 　Next ウィンドウハンドルの値は取得できても、アクティブにしたい(操作したい)ウィンドウのそれだと判別する 方法が解らないので、どなたかご教示＆ご解説お願いします 349 名前：デフォルトの名無しさん mailto:sage [2008/11/26(水) 21:43:48 ] >>348 ウィンドウの区別は基本的にはタイトル(タイトルバー)の文字列で行う。 同じアプリを複数開いて同じファイルを開くとタイトルバーの文字列がまったく同じになってしまうが、 この場合はウィンドウを区別するのは、不可能ではないが非常に難しい。 俺の知識で答えられるのはここまで。 350 名前：デフォルトの名無しさん mailto:sage [2008/11/26(水) 21:55:08 ] つか、LocationUrl でいいだろ？ その InternetExplorer の hWnd で、 SetForegroundWindow() すれ。 って、それだけだとアクティブにはならんけど。 351 名前：348 mailto:sage [2008/11/26(水) 22:12:32 ] >>349 ご回答ありがとうございます！となると、思いつきでは 1).新しいIE窓を開く前に全部のIE窓のタイトル又はハンドルを取得 2)上記を配列にでも入れる 3)新しいIE窓が開かれる 4)2で取得した配列の添え字と比較、大きかったらダウト 　(同じ内容であってもこちらを弄るようにする) 4の配列の添え字の比較って出来るのかな？ド素人なもので… って、窓数の増加だけならインデックスの上限値を見ればいいのか …こんな感じで行けるのかな？ 汎用化するにはIEのイベントを監視しなくちゃならなそうですが(;´Д｀) しかし用途を限定すれば何とかできる…と思いたいです 352 名前：デフォルトの名無しさん mailto:sage [2008/11/26(水) 22:23:49 ] 最初に聞いたExcelVBAスレの質問取り下げてないのでマルチだし しかもExcel総合スレにまでリンク形式でマルチしてる > ExcelやExcel VBAからは外れる質問とは承知しているのですが、 > 文系独学なうえ近くに教えを請える人も居ないので、 > 何方か親切な方、ご回答お願いします…(;´Д｀) > > ttp://pc11.2ch.net/test/read.cgi/tech/1206835319/348 もう、この子は放置の方向で 353 名前：デフォルトの名無しさん mailto:sage [2008/11/26(水) 22:29:05 ] >>352 取り下げも何も、誘導も無しにスレ違いの一言で一蹴されましたが… ご回答下さいました方々には改めてお礼申し上げます 354 名前：デフォルトの名無しさん mailto:sage [2008/11/26(水) 22:29:58 ] まだマルチが悪いとか思ってるウブな奴っているんだなw 俺的に言えばそんな奴こそいらん。 マルチが悪いって、それって他でもないお前が「人に感謝されたい威張りたがり屋」 なだけじゃんw むしろそのお前の幼児性こそ問題だよ。 普通は掲示板のやり取りなんて答える方も自分のためにやってるわけで、 その上回答者に感謝されたいなんて図々しいこと思わねえよ。 355 名前：デフォルトの名無しさん [2008/11/27(木) 01:17:14 ] ユーザー定義型の質問なのですが、 Public Type AAA b as Long c as Long End Type Public A(0 To 99) As AAA といったようなのをモジュールに書き、フォーム1でA(0).b = 100と書いたとします しかし、それをフォーム2で参照したところA(0).b = 0となっていました 配列化しなければ問題は起こらなかったのですが、原因は何なのでしょうか？ 356 名前：デフォルトの名無しさん mailto:sage [2008/11/27(木) 02:22:28 ] ふつうに動いてるが？ 357 名前：デフォルトの名無しさん mailto:sage [2008/11/27(木) 09:07:18 ] >>354 ボク、何か嫌なことでもあったの？ 358 名前：デフォルトの名無しさん mailto:sage [2008/11/27(木) 11:14:38 ] 使用するosをXPからVistaに移行したところ、矢印の「dumst」部分で インデックスが有効範囲にない、というエラーが出てしまいます。 アドバイスお願いします。 Private Sub Form_Load() Const DataFile1 As String = "emadr.txt" noTA = 0: noID = 0: noFA = 0: noSMTP = 0 fileNum = FreeFile Open DataFile1 For Input As #fileNum Do Until EOF(fileNum) Line Input #fileNum, dummy → dumst = Split(dummy, ",") If (dumst(0) = "TA") Then noTA = noTA + 1 emTA(noTA) = dumst(1) End If Loop Close #fileNum 359 名前：デフォルトの名無しさん [2008/11/27(木) 18:13:33 ] >>356 普通にいけました… 消したと思っていた変数定義が消えておらず、変数がリセットされていただけでした お騒がせしました 360 名前：デフォルトの名無しさん [2008/11/28(金) 22:55:15 ] VB6でFTPでの転送結果（スループット等）を取得する関数とかあるのでしょうか？ 361 名前：デフォルトの名無しさん mailto:sage [2008/11/28(金) 23:27:26 ] あると思うほうが不思議だが？ 362 名前：デフォルトの名無しさん mailto:sage [2008/11/28(金) 23:32:46 ] 絶対に無いと確信するほうが不思議 363 名前：360 mailto:sage [2008/11/28(金) 23:50:40 ] >>361-362 回答ありがとうございます。 やはり無いんですね・・・ ファイル転送量/時間で出そうと思います。 ありがとうございました。 364 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 12:43:32 ] >362 んなこたぁない。FTP(クライアント)はVBの機能じゃないんだぜ？エスパーすればINet系関数だろうが、 あれは腐ってるからな。 365 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 14:59:29 ] VB用のコンポーネントにあったって不思議じゃない 366 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 17:01:16 ] コンポーネントなら関数とかいわんだろ。 367 名前：デフォルトの名無しさん [2008/11/29(土) 18:20:45 ] お願いします。 構造体の入れ子を作りたいのですが、下記ではエラーになってしまいます。 Private Type ABC i As Integer j() As ABC End Type 動的なツリー構造を作りたいのですが、可能でしょうか。 368 名前：デフォルトの名無しさん [2008/11/29(土) 19:39:41 ] 皆さんよろしくお願いします。 upp.dip.jp/01/img/13337.jpg 実は↑のような流れのスクリプトを組みたいと思っているのですが if を使っての簡単なサンプルを書いていただけませんでしょうか？ 本当に簡単なもので結構ですので・・・。 369 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 19:49:37 ] ttp://blogs.yahoo.co.jp/naojuv/51637042.html 370 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 19:49:50 ] >>368 何だこのフローチャート もう少しルールに従って書けよｗ 371 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 19:53:05 ] フローチャートと呼んでいいのかｗｗ まあ>368がんばれ 372 名前：368 mailto:sage [2008/11/29(土) 19:59:04 ] た、たしかに 酷いことになってますね・・・ すいません・・・ 373 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 21:31:00 ] むしろ状態遷移図だな。 374 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 21:47:21 ] 無限ループ 375 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 22:23:29 ] start: if (isExist(a)) { 　goto start; } second: if (isExist(b)) 　goto start; else { 　goto second; } 376 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 23:22:22 ] VB4で作られたソフトウェアが動きません。 VB40032.dll、MCI32.ocx、grid32.ocx、comdlg32.ocxが必要なソフトなんですがＸＰでは入れても動かないんです。 「ファイルの読み込み中にエラーが発生しました」と出てしまいます・・・ MEでは正常に動きました。 上記4つのファイルはME、XP共に同じバージョンでした。 解決方法知っていたら教えて下さい。お願いします。 377 名前：デフォルトの名無しさん mailto:sage [2008/11/29(土) 23:27:06 ] >>376 スレ違い 378 名前：デフォルトの名無しさん mailto:sage [2008/12/04(木) 10:59:01 ] >>367 循環参照できないんですよねー。ケチケチしやがって。 可変長配列なら無限ループにならないから許可してほしいところです。 等価ではないがクラスモジュールでこう (CLASS ABC) Public I As Integer Public J As Collection あくまで等価ではないので使えなさそうですが。 379 名前：デフォルトの名無しさん mailto:sage [2008/12/07(日) 08:21:48 ] >>367 すまん、どんな場合それを使うのか教えてくれ・・・ 380 名前：デフォルトの名無しさん [2008/12/07(日) 13:33:33 ] いわゆる「自己参照構造体」ってやつを作りたいんだろうけど、 だったらVBの場合ユーザー定義型じゃないくてクラスを使わないと駄目だね。 仮にユーザー定義型に循環参照（余談ながら、この用語の使い方は本来不適切だと 思うんだが、MSDNがそうなってるんだね）が可能だとしても、ユーザー定義型は ドトネトでいう値型になるから無駄が多すぎる。 381 名前：デフォルトの名無しさん [2008/12/07(日) 13:57:04 ] Private Type ABC 　　i As Integer 　　j() As ABC* End Type Dim udtABC As ABC udtABC.j = &udtABC 夢のようだが、() は誰が実装すんのかね。 j() が自己参照にしては自己が配列であることは保障されてないし。 まぁ蛇足でしかないけど。 382 名前：デフォルトの名無しさん [2008/12/08(月) 03:32:56 ] >>381 そこまでなくても… 循環参照はメモリ確保がどこまでも終わらないから禁止なんだろうけど、 JはREDIMするまで要素数ゼロだから、それは許されるようにしてくれていても いいのにと思うんだが。 理解が違っていたらすまん。 早く寝なきゃ… 383 名前：デフォルトの名無しさん [2008/12/08(月) 03:36:40 ] そういえば>>377 スレ違いだっけ？ 384 名前：デフォルトの名無しさん [2008/12/11(木) 23:35:25 ] 30Hex + 30Hex + 30Hex + 30Hex + 30Hex + 33Hex +　30Hex + 30Hex +35Hex + 33Hex + 30Hex +30Hex +31Hex + 03Hex = 37Hex （+は排他的論理和、Hexは16進数） とｵﾑﾛﾝのﾏﾆｭｱﾙに書いてあるんですが これをVBで計算すると37なんて数字が出てきません。 val(hex(30)) xor val(hex(30))　xor ・・・ とかじゃぁ 根本的に何か間違ってるのかな。。 385 名前：デフォルトの名無しさん mailto:sage [2008/12/11(木) 23:41:40 ] 間違っています 386 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 00:08:30 ] 30h 387 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 00:13:39 ] &h30 xor &h30 xor … 388 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 00:14:36 ] 00h+33h+00h+02h+00h+02h 389 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 00:17:42 ] 00h+33h+00h+06h+00h+02h 390 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 00:43:38 ] Private Sub hoge() 　　Const hexList As String _ 　　　　= "30, 30, 30, 30, 30, 33, 30, 30, 35, 33, 30, 30, 31, 03" 　　Dim hexText As Variant 　　Dim result As Integer 　　result = 0 　　For Each hexText In Split(hexList, ",") 　　　　result = result Xor CInt("&h" & Trim(hexText)) 　　Next 　　MsgBox (hex$(result)) End Sub 391 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:02:04 ] リストボックスには、複数の学生の名前、教科、点数と その合計、平均などが表示されていて、 ボタンを押すと、ひとりひとりの学生の点数の合計と点数の表示をする プログラムを作成したいのですが、教えて下さい。 392 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:13:35 ] どんな表示されてんだよ 393 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:28:50 ] ああ、悪い。 氏名　　国語　　英語　合計　平均 Ａ　　　50　　　60　　110　　55 Ｂ　　　60　　　70　　130　　65 Ｃ　　　70　　　70　　140　　70 合計　　180　　210　　 平均　　60　　　70 こんな感じに表示されています。 ボタンの名前を「縦計　横計」と表示させ、 押すと、ひとりひとりの合計と平均を表示し、 最後に国語と英語の合計、ならびに平均を表示させたいのです。 394 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:31:18 ] ＞ああ、悪い。 なんだその態度は 氏ねばいいのに 395 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:33:29 ] select　case end select 396 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 01:58:37 ] 悪い印象を与えてしまったのなら謝るよ。 日本語って難しいな… 例えば「ああ、スマソ」って言ったらまた印象は違うだろうしね。 397 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 02:04:34 ] ドシロウトはエクセルでも使っとけ 398 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 02:19:54 ] 在日は国へ帰れ 399 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 06:28:24 ] >>396 他人に物を聞く態度じゃない ここにいるのは親しい友人じゃない 400 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 06:34:12 ] で、何がわからんの？ 足し算して割り算するだけだろ？ 401 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 09:14:50 ] >>393 excelのVBAで充分 そこで人間性を磨いて来い　 402 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 22:03:09 ] >>391ですが、今日までの課題だったので 情報科の人に教えてもらい、無事解決しました。 基礎なのでさすがに学校で聞くのは気が引けました。 403 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 22:04:35 ] 何も解決してないだろｗ 404 名前：デフォルトの名無しさん mailto:sage [2008/12/12(金) 22:17:35 ] continueがない！！gotoで代用した。 405 名前：デフォルトの名無しさん [2008/12/13(土) 01:30:41 ] >>404 お前はVBを知ってるのかと小一時間（ｒｙ 406 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 01:57:10 ] >>405 whileとかforのループのcontinueね。あんの？ 407 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 02:44:13 ] Continue Forとかのこと？ 408 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 03:31:59 ] 日本　 　 　 　 日本語でおｋ 英　 　 　 　 　 please in Japnese 独　 　 　 　 　 bitte auf japanisch 仏　 　 　 　 　 veuillez dans le Japonais イタリア 　 　 . prego nel giapponese ポルトガル　 . por favor no japones スペイン　 　 . por favor en japones オランダ　　　..Japanner gelieve in スウェーデン　behaga i japan ギリシア　　　 .παρακαλ? στα ιαπωνικ ロシア　　　 　 пожалуйста в японце トルコ　　　　 . Japoncata tamam. 中国　 　 　 　 請在日文 沖縄　 　 　 　 やまとぅぐちっしいい アイヌ　 　 　 . sisam itak ani ukoitak yan. 大阪民国　 　 日本語でおｋや 409 名前：デフォルトの名無しさん mailto:sage [2008/12/13(土) 09:34:26 ] >>408 日本語でおｋ

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef