小雅的電腦科資訊網更版計畫

感謝畢業學長韓佳志 巫文翔 幫忙更版為Drupal系統，更新後的網址將會是http://web2.ctsh.hcc.edu.tw/drupal
大家可以體驗看看哦!!

原來粉紅色調的網站http://web2.ctsh.hcc.edu.tw/bcc/仍然會存在，只是不再更新。

doc檔轉為 pdf

PDF ReDirect 免費 PDF 文件生成器
PDF ReDirect 提供了簡易的 PDF 文件製作功能，程式安裝後就好比在作業系統中多了一台虛擬的 PDF 印表機，任何供列印的文件，均能直接輸出成 PDF 格式文件，無需經由額外的轉檔工作

資料來源：http://toget.pchome.com.tw/intro/business_wordprocessing/21816.html

又到了學期末要交網頁的時候了

111~114班的同學大家好：

因為這學期的期末考是排在星期五、一、二，所以網頁繳交截止日期才會訂在6/25(四)，很擔心大家的網頁沒有做完就放棄了，所以再次提醒大家，加緊製作，24小時只要你有空都可以在家製作，把更新完成的網頁上傳到主機。

星期一上課的班級111, 113兩班只剩一次的上課機會了，所以在6/9~6/21這期間都沒辦法看到你們，同學們千萬不要把網頁這個作業忘掉了，有任何問題在這裡留言，只要我能夠上網就會來看一下大家有沒有遇到問題，加油！

PS: 有看到這篇公告的同學請幫忙轉給其他同學。

擔心到很怕大家學期末會因此被當掉的電腦老師留^^

Windows 7 有多酷?!

看看官網的介紹，體驗一下2009年10月22日即將上市的Windows 7有哪些新功能吧！

Windows 7 新功能

觀看影片示範

下載Window 7 RC版 ：在這下載

第五章 隨堂練習二程式

Public Class Form1
'計算鈕
　Private Sub Bt_com_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_com.Click

　Dim i, j, ans As Double
　j = Val(Tx_num.Text)
　ans = 1
　For i = 1 To j
　　ans = ans * i
　Next i
　lb_result.Text = j & "!" & "=" & ans

　End Sub
'清除鈕
　Private Sub Bt_clear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_clear.Click
　　Tx_num.Text = ""
　　lb_result.Text = ""
　　Tx_num.Focus()

　End Sub
'結束鈕
　Private Sub Bt_end_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt_end.Click
　　End
　End Sub
End Class