トップページ⇒tech
34コメント6KB

これ教えろや！！　ゴルァ！！

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
a:\test.rndというファイルから、すべてのレコードを読みこんで、リストボックスに
表示するプログラムを作成しなさい。

レコード型の定義
TYPE　Person
Name　As　String*20
Age　As　Integer
Sex　As　String*2
End　Type

レコード型変数の宣言
Public　Per　As　Person

これできるかな？
0002デフォルトの名無しさんNGNG
最近単発質問スレが異常に多いが？
頼むからこれ以上糞スレたてないでくれ

http://pc.2ch.net/test/read.cgi?bbs=tech&key=1000523122
0003デフォルトの名無しさんNGNG
せっかくだから一体どこの宿題なのか推測してみよう。
00041NGNG
糞スレ最高！！　誰か教えてくれYO
0005デフォルトの名無しさんNGNG
9++9
0006デフォルトの名無しさんNGNG
そんなん自分で考えれよー。
0007デフォルトの名無しさんNGNG
こんなもん宿題にするぐらいだから、相当レベル低いね。
中学の技術家庭の時間かな。
00081NGNG
いや幼稚園の宿題でちゅ！！　教えてちょ〜だい♪
0009デフォルトの名無しさんNGNG
>>７　わからんやつは必要なし！！
00101NGNG
学校の宿題なんでこれできないと、卒業危ないんです。
どうか、お願いします、
0011デフォルトの名無しさんNGNG
>>1　氏ね　逝ってよし
00121NGNG
なんだ-！！誰もわからないのか--------。
0013デフォルトの名無しさんNGNG
お前は馬鹿かっっ！！そんなもん位自分で考えろや。！！！！
0014デフォルトの名無しさんNGNG
そんなもん位、自分で自分で考えろや。
0015デフォルトの名無しさんNGNG
>>1
test.rndの中身がわからん
0016デフォルトの名無しさんNGNG
いま、>>15 がいいことを言った。
00171NGNG
>>15　中身はなんでもよし！！　「うどん」ということにしときまふ(藁
0018デフォルトの名無しさんNGNG
うどんじゃねーよ、ボケ。
00191NGNG
それは自分たちで考えてくれ（藁
それも宿題！！
0020デフォルトの名無しさんNGNG
こういうスレ全く相手にしないってのはどーよ
2にこのスレでききやがれとか書いてそれ以降はなんもなし
00211NGNG
うどんがだめなら、そばでもいいよ。
思い切ってスパゲティーにでもする？？
0022デフォルトの名無しさんNGNG
うざい。氏ね。逝ってよし。
00231NGNG
>>22　わからん奴はこんでええ！！　厨房は帰れヴォケ！！
0024デフォルトの名無しさんNGNG
大丈夫か？？？
逝ってね−か？？こんなやつらが今の日本をだめにするんだろ−名。
世も末だよ。。。。
00251NGNG
>>24　おめ〜もだめ人間の一人だろ〜が！！
はよ逝ってこい！！
ママのおっぱいでも飲んで出直してこいヴォケ！！
0026デフォルトの名無しさんNGNG
>>20
激しく賛成。
2以降は全くレスなし、もしくは1の一人レスのみ。
（・∀・）イイ！
0027デフォルトの名無しさんNGNG
あんましageであばれると>>1の家族来ちゃうYO
0028デフォルトの名無しさんNGNG
Private Sub Command1_Click(index As Integer)
Select Case index
Case 0 '終了
Close #1
End
Case 1 '書き込み

Get #1, Val(Text1(0).Text), per
per.name = Text1(1).Text
per.age = Text1(2).Text
per.sex = Val(Text1(0).Text).per
txtclr

End Select

Case 2 '読み込み
For n = 1 To LOF(1) \ Len(per)
per.name = ""
per.sex = ""
Get #1, n, per
List1.AddItem n & ":" & per.name & ":" & per.age & ":" & per.sex
Next n
End Select
End Sub



Private Sub Form_Load()
Open "a:\test.rnd" For Random As #1 Len = Len(per)
txtclr
End Sub


Private Sub txtclr()
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
End Sub
教えてやるよ！！
標準モジュールにこれも追加しろYO

Public Type person
name As String * 20
age As Integer
sex As String * 2
End Type
Public per As person
00291NGNG
ありがとう　先生！！
もう１問お願いします
ランダムファイルを用いて４拓の問題に解答を入力していくプログラム教えて〜〜
0030デフォルトの名無しさんNGNG
>>1=29
ランダムファイルって何？
0031デフォルトの名無しさん NGNG
＊ランダムファイル
バリ島の魔女ランダ
http://www.athenee.net/DATABASE/director/s/s-h.html
0032デフォルトの名無しさんNGNG
終了
0033デフォルトの名無しさんNGNG
鬼女ランダなら仲魔になる。
0034デフォルトの名無しさんNGNG
てすと
■ このスレッドは過去ログ倉庫に格納されています