- Oct 15 Sun 2017 23:32
台中家商106學年度數學(三)第一次定期考試題
- Oct 15 Sun 2017 23:32
台中家商106學年度會計學(三)第一次定期考試題
- Oct 15 Sun 2017 22:51
Postcrossing-乘著明信片去旅遊
Postcrossing 乘著明信片環遊世界去 by huangangel on Scribd
- Oct 14 Sat 2017 13:21
VB_圖書館資訊系統
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim id, pw As String
id = TextBox1.Text
pw = TextBox2.Text
If id = "jack" And pw = "luck007" Then
MsgBox("歡迎進入圖書資訊系統", , "系統提示")
Else
MsgBox("帳號或密碼輸入錯誤", , "系統提示")
End If
End Sub
請注意：密碼欄要隱藏
- Oct 14 Sat 2017 09:04
文書處理快捷鍵應用 Word篇
CH1.
|
CTRL+SHIFT |
切換輸入法 |
|
CTRL+SPACE |
切換中英文輸入法 |
|
CTRL+ALT+， |
開啟標點符號小鍵盤 |
|
CTRL+S |
儲存檔案 |
|
CTRL+N |
新增空白文件 |
|
CTRL+O |
開啟舊檔 |
|
F12 |
另存新檔 |
|
CTRL+Z |
復原 |
|
CTRL+Y |
取消復原 |
|
CTRL+ALT+P |
切換至整頁模式 |
|
CTRL+ALT+O |
切換至大綱模式 |
|
CTRL+ALT+N |
切換至草稿模式 |
|
SHIFT+TAB |
提升層級 |
|
TAB |
降低層級 |
|
BACKSPACE |
刪除左方文字 |
|
DELETE |
刪除右方文字 |
|
CTRL+， |
， |
|
CTRL+. |
。 |
|
CTRL+； |
； |
|
CTRL+' |
、 |
|
CTRL+SHIFT+? |
？ |
|
CTRL+SHIFT+! |
！ |
|
CTRL+SHIFT+[ |
｛ |
|
CTRL+SHIFT+] |
｝ |
|
CTRL+SHIFT+( |
｢ |
|
CTRL+SHIFT+) |
」 |
|
CTRL+P |
列印文件 |
|
CTRL+單按句子任一處 |
一段句子 |
|
SHIFT+單案文字結尾處 |
連續範圍 |
|
CTRL+其他範圍 |
不連續範圍 |
|
ALT+拖曳 |
矩形範圍 |
|
SHIFT、CTRL長按 |
連續選取物件 |
|
CTRL+A |
全選 |
|
CTRL+C |
複製 |
|
CTRL+V |
貼上 |
|
CTRL+X |
剪下 |
|
CTRL+H |
尋找與取代交談窗 |
|
CTRL+SHIFT+> |
放大字型大小 |
|
CTRL+SHIFT+< |
縮小字型大小 |
|
CTRL+B |
粗體 |
|
CTRL+I |
斜體 |
|
CTRL+U |
底線 |
|
CTRL+SHIFT+C |
複製格式 |
|
CTRL+SHIFT+V |
貼上格式 |
|
CTRL+D |
開啟字型交談窗 |
|
ALT+PGUP |
移至表格最上邊儲存格 |
|
ALT+PGDOWN |
移至表格最下邊儲存格 |
|
ALT+HOME |
移至表格最左邊儲存格 |
|
ALT+END |
移至表格最右邊儲存格 |
|
CTRL+SHIFT+ENTER |
分割表格 |
|
SHIFT+ENTER |
手動換行 |
|
CTRL+ENTER |
換至下一頁 |
|
CTRL+E |
置中對齊 |
|
CTRL+SHIFT+ENTER |
分到下一欄 |
|
|
|
- Oct 01 Sun 2017 07:19
0723國立科大參訪之旅
- Sep 28 Thu 2017 15:09
Visual Studio
- Sep 26 Tue 2017 21:36
VB函數 春夏秋冬
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim M As Integer
M = Val(TextBox1.Text)
If M <= 3 Then
MsgBox("春天")
ElseIf M <= 6 Then
MsgBox("夏天")
ElseIf M <= 9 Then
MsgBox("秋天")
ElseIf M <= 12 Then
MsgBox("冬天")
Else
MsgBox("無解")
'當我輸入值為1-3時，產生答案為春天
'當我輸入值為4-6時，產生答案為夏天
'當我輸入值為7-9時，產生答案為秋天
'當我輸入值為10-12時，產生答案為冬天
'因為一年只有12個月份，當我輸入值超過13(含)時，產生答案為無解
End If
End Sub
- Sep 21 Thu 2017 22:05
世界機器人大賽(FRC)觀摩與培訓活動 分組競賽前3名結果出爐
世界機器人大賽(FRC)觀摩與培訓活動 分組競賽前3名結果出爐
中科實中、大里高中及慈明高中師生組成隊號1705勇奪第1名
2017/09/21
【勁報記者羅蔚舟／中科報導】
由中科管理局與台中市政府教育局共同舉辦的「世界機器人大賽(
「世界機器人大賽(FRC)觀摩與培訓」活動第2天的分組競賽，
分組競賽結束後，中科管理局陳銘煌局長特別感謝與會學校與師生，
第1名代表發言的是大里高中蕭同學，提到很驚訝得到第一名，
(圖由中科管理局提供／
- Sep 20 Wed 2017 08:45
Visual Basic 華氏轉攝氏及攝氏轉華氏數值轉換
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim h, s As Single
h = InputBox("請輸入華氏溫度", "華氏轉攝氏")
s = 5 / 9 * (h - 32)
MsgBox("攝氏溫度為" & s, , "華氏轉攝氏")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim h, s As Single
s = InputBox("請輸入攝氏溫度", "攝氏轉華氏")
h = 9 * s / 5 + 32
MsgBox("華氏溫度為" & h, , "攝氏轉華氏")
End Sub
End Class
{{ article.title }}
研究報告 (8)