くだらない質問でもべっちょ偉そうに聞いていいスレ

このエントリーをはてなブックマークに追加
408406
調べた結果.Captionでなくて.Textぽいです

そして次なる問題を投下してみる

次のプログラムコードを説明に従って完成させなさい
    秒 ==> 時間 ・分・秒 
Private Sub Command1_Click()
  Dim nyu As Long,jikan As integer '入力秒、時間数
    Dim fun As Integer,byo As Integer,amari As Integer '分数、秒数、時間で割ったあまり
    ’入力処理
    nyu = _____________________________________  ’Text1から数値を変数nyuへ入力する
    jikan = ____________________________________  ’入力秒を3600で割った商という式
   amari = ___________________________________  ’入力秒を3600で割ったあまりという式
    fun = ______________________________________  ’あまりを60で割った商という式
    byo = _____________________________________  ’あまりを60でわったあまりという式
    ’出力処理
    _____________________________________________  ’Label1に時間数を表示
_____________________________________________  ’Label2に分数を表示
_____________________________________________  ’Label3に秒数を表示
End Sub
409406:04/02/26 16:22
Private Sub Command2_Click()
'Text1,Label1,Label2,Label3 をブランクにする。
    _______________
    _______________
    _______________
    _______________
End Sub

Private Sub Command3_Click()
_____________________________________________ '終了処理
End Sub

長くてごみんなさい_| ̄|○