加油吧0,0''....................
語文: 改簽默書(合格:錯字6個,唔合格成課抄2次,0分抄3次)
數學: p58 (2)
英文: 背u17 (18~29)行 抄u17詞組15個(1中3英)
地理: 明天小測 上李sir個blog抄筆記
生物:
化學: 預習書3個表(上堂檢查)
物理: p56 (5),(6) 要畫圖
電腦: p176 第2題編程碼交係e-class(明晚9:30前交) 並做流程同敍述在功課簿
歷史:
語文閱讀:
一,
1.兒童...
ans:無憂無慮
2.孩子...
ans:無拘無x
3.孤零零...
ans:無聲無息
二,
1.文章舉...
ans:正確
2.文中的[神秘...
ans:正確
3.文中第五自然...
ans:錯誤
挑戰題
1.無拘無x地飛行...
ans:牠們的....0.2-0.4之間
2.科學家...
ans:砍兩者皆是
3.[神秘的運動...
ans:三者皆是
英文閱讀:
一陣有
電腦功課
尼條係小弟ge= =''..絕對唔好直接copy!!改反宣告名稱,inputbox同msgbox!!!!
仲有if 0~61 同埋220以上哥個係我自己加上去...希望唔好抄足..一係抄220以上就好啦!~
Public Class Form1
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Dim win As Single
win = InputBox("請輸入你要查詢的風速的風球", "風球檢測器")
If win <= 61 Then
MsgBox("別說颱風了,就這一點點風也沒有", , "沒事")
Else
If win >= 62 And win <= 117 Then
MsgBox("有輕度颱風哦,小心為上", , "準備逃跑")
Else
If win >= 118 And win <= 183 Then
MsgBox("哇!好大風吧!?,都中度颱風了,小心哦", , "汁搭東西吧")
Else
If win >= 184 And win <= 220 Then
MsgBox("強烈颱風了,做好防禦措施沒有?", , "呆在家中吧")
Else
If win > 220 Then
MsgBox("巨風來了,只能求神保佑你", , "呀呢魯爺")
End If
End If
End If
End If
End If
End
End Sub
End Class
版本二!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Public Class Form1
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Dim win As Single
win = InputBox("請輸入你要查詢的風速的風球", "風球檢測器")
If win <= 61 Then
MsgBox("玩野??", , "唔幫你測了")
Else
If win >= 221 Then
MsgBox("玩野??", , "唔幫你測了")
Else
If win >= 62 And win <= 117 Then
MsgBox("有輕度颱風哦,小心為上", , "準備逃跑")
Else
If win >= 118 And win <= 183 Then
MsgBox("哇!好大風吧!?,都中度颱風了,小心哦", , "汁搭東西吧")
Else
If win >= 184 And win <= 220 Then
MsgBox("強烈颱風了,做好防禦措施沒有?", , "呆在家中吧")
End If
End If
End If
End If
End If
End
End Sub
End Class
