Private Sub Form1_Load()
Label1.Text = "秒数を入力してください。"
Label2.Text = "秒は、"
Label3.Text = "時間と"
Label4.Text = "分、"
Label5.Text = "秒です。"
End Sub
Private Sub Button1_Click()
Dim Byo, Fun As Integer
Dim Hour, Minute, Second As Integer
Byo = Val(Textbox1.Text)
Fun = Byo \ 60
Hour = Fun \ 60
Minute = Fun Mod 60
Second = Byo Mod 60
Textbox2.Text = Hour
Textbox3.Text = Minute
Textbox4.Text = Second
End sub
Textbox2〜4が分からなくて困っています。
あなたの回答
tips
プレビュー