大學紀事程老師

A. 《北京醫科大學孤獨紀事》txt全集下載

<p>北京醫科大學孤獨紀事
txt全集小說附件已上傳到網路網盤，點擊免費下載：
</p>
<p>內容預覽：
鍩
鏈
免費的，直接下載就行</p>

B. 跪求大學vb課程設計里的記事本程序 在線等！

'窗體代碼

Option Explicit
Dim filename As String
Dim FileType As String
Dim FiType As String
Dim sFind As String
Dim result As String
Dim bWrap As Boolean
Dim ask As Boolean
Dim msgtext As String
Dim Flag As String

Private Sub Form_Load()
ask = False
RichText.Text = ""
filename = "無標題-記事本"
Form1.Caption = "無標題-記事本"
RichText.Height = Form1.ScaleHeight
RichText.Width = Form1.ScaleWidth
StatusBar1.Visible = False
StatusBar1.Panels(1).Text = Time
mnu.Enabled = False
mnucut.Enabled = False
mnufound.Enabled = False
mnufoundnext.Enabled = False
mnudel.Enabled = False
mnucancel.Enabled = False
mnuwordwrap.Checked = True
mnugoto.Enabled = False
If Clipboard.GetText <> "" Then
mnuplaster.Enabled = True
Else
mnuplaster.Enabled = False
End If
App.HelpFile = App.Path & "\notepad.chm"
End Sub

Private Sub Form_Resize()
RichText.Height = Form1.ScaleHeight
RichText.Width = Form1.ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
msgtext = "文件" & filename & "的文字已經改變。" & Chr(10) & Chr(13) & "想保存文件嗎？"
If ask = True Then
Flag = MsgBox(msgtext, 35, "記事本") ' 35=32+3
If Flag = vbYes Then mnusave_Click '選擇了確定則保存之
If Flag = vbCancel Then Cancel = True
If Flag = vbNo Then Unload Me
End If

End Sub

Private Sub mnuabout_Click()
MsgBox "記事本", vbOKOnly, "關於"
End Sub

Private Sub mnuall_Click()
RichText.SelStart = 0
RichText.SelLength = Len(RichText.Text)
End Sub

Private Sub mnucancel_Click()
MsgBox "請點擊滑鼠右鍵撤銷！", vbOKOnly, "提示"
End Sub

Private Sub mnu_Click()
Clipboard.Clear
Clipboard.SetText RichText.SelText
End Sub

Private Sub mnucut_Click()
Clipboard.Clear
Clipboard.SetText RichText.SelText
RichText.SelText = ""

End Sub

Private Sub mnudel_Click()
RichText.SelText = ""
End Sub

Private Sub mnuedit_Click()
If RichText.SelText <> "" Then
mnuopen.Enabled = True
mnucut.Enabled = True
mnudel.Enabled = True
mnu.Enabled = True
End If
If Len(RichText.Text) <> 0 Then
mnufound.Enabled = True
mnufoundnext.Enabled = True
End If
If ask = True Then mnucancel.Enabled = True
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnufont_Click()
On Error Resume Next
CommonDialog1.flags = &H3 Or &H1 Or &H2 Or &H100
CommonDialog1.Action = 4
RichText.Font.Name = CommonDialog1.FontName
RichText.Font.Size = CommonDialog1.FontSize
RichText.Font.Bold = CommonDialog1.FontBold
RichText.Font.Italic = CommonDialog1.FontItalic
RichText.Font.Underline = CommonDialog1.FontUnderline
RichText.SelColor = CommonDialog1.Color

End Sub

Private Sub mnufound_Click()
sFind = InputBox("請輸入要查找的字、詞：", "查找內容", sFind)
RichText.Find sFind
End Sub

Private Sub mnufoundnext_Click()
RichText.SelStart = RichText.SelStart + RichText.SelLength + 1
RichText.Find sFind, , Len(RichText)

End Sub

Private Sub mnuhelptopic_Click()
SendKeys "{F1}"
End Sub

Private Sub mnunewfile_Click()
On Error Resume Next
Dim n As Integer
msgtext = "文件" & filename & "的文字已經改變。" & Chr(10) & Chr(13) & "想保存文件嗎？"
If Len(RichText.Text) <> 0 Then
If filename = "無標題-記事本" Then
Flag = MsgBox(msgtext, 35, "記事本") '給予提示
If Flag = vbYes Then
mnusaveas_Click
RichText.Text = ""
Form1.Caption = "無標題-記事本"
filename = "無標題-記事本"
End If
If Flag = vbCancel Then Exit Sub
If Flag = vbNo Then
RichText.Text = ""
Form1.Caption = "無標題-記事本"
filename = "無標題-記事本"
End If
End If
End If
End Sub

Private Sub mnuopen_Click()
msgtext = "文件" & filename & "的文字已經改變。" & Chr(10) & Chr(13) & "想保存文件嗎？"
On Error Resume Next
If ask = True Then
Flag = MsgBox(msgtext, 35, "記事本") '給予提示
If Flag = vbYes Then mnusave_Click '選擇了確定則保存之
If Flag = vbCancel Then Exit Sub
If Flag = vbNo Then GoTo L1
End If
ask = False

L1: CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichText.Text = "" '清空文本框
filename = CommonDialog1.filename
RichText.LoadFile filename
result = GetFileTitle(filename)
Me.Caption = "" & result & "-記事本"

End Sub

Private Sub mnupagesetup_Click()
psdlg.lStructSize = Len(psdlg)
psdlg.hwndOwner = hwnd
PageSetupDlg psdlg
End Sub

Private Sub mnuplaster_Click()
RichText.SelText = Clipboard.GetText(1)
End Sub

Private Sub mnuprint_Click()
Dim f As Integer, t As Integer
Dim i As Integer
CommonDialog1.CancelError = True
CommonDialog1.Max = 1000
CommonDialog1.Min = 1
On Error Resume Next
CommonDialog1.ShowPrinter

For f = CommonDialog1.FromPage To t = CommonDialog1.ToPage
Do While i < CommonDialog1.Copies + 1
Printer.Print RichText.Text
i = i + 1
Loop
Next
Printer.EndDoc
Cancel:
If Err.Number = 32755 Then
Exit Sub
End If
End Sub

Private Sub mnusave_Click()
CommonDialog1.Filter = "文本文檔(*.txt)|所有文件(*.*)|*.*"
On Error Resume Next
filename = CommonDialog1.filename '保存文件
If filename <> "" Then
RichText.SaveFile filename, rtfText
Else
mnusaveas_Click
End If
ask = False
End Sub

Private Sub mnusaveas_Click()
CommonDialog1.Filter = "文本文檔(*.txt)|所有文件(*.*)|*.*"
On Error Resume Next

CommonDialog1.ShowSave
filename = CommonDialog1.filename
RichText.SaveFile filename, rtfText

result = GetFileTitle(filename)
Me.Caption = "" & result & "-記事本"
ask = False
End Sub

Private Sub mnustatusbar_Click()
If mnustatusbar.Checked Then
StatusBar1.Visible = False
mnustatusbar.Checked = False
Else
StatusBar1.Visible = True
mnustatusbar.Checked = True
End If

End Sub

Private Sub mnutimedate_Click()
RichText.SelText = Format(Now, "h:mm ddddd")
End Sub

Private Sub mnuwordwrap_Click()
WrapTextLine RichText, bWrap
bWrap = Not bWrap
If mnuwordwrap.Checked = False Then
HScroll1.Enabled = True
mnuwordwrap.Checked = True

Else
HScroll1.Enabled = False
mnuwordwrap.Checked = False

End If

End Sub

Private Sub RichText_Change()
ask = True
End Sub

Private Sub Timer1_Timer()
If StatusBar1.Panels(1).Text <> CStr(Time) Then
StatusBar1.Panels(1).Text = Time
End If

End Sub

'模塊代碼

Option Explicit
Const WM_USER = &H400
Const EM_SETTARGETDEVICE = (WM_USER + 72)
Type POINTAPI
x As Long
y As Long
End Type
Type RECT
left As Long
right As Long
top As Long
bottom As Long
End Type
Public Type PageSetupDlg
lStructSize As Long
hwndOwner As Long
hDevMode As Long
hDevNames As Long
flags As Long
ptPaperSize As POINTAPI
rtMinMargin As RECT
rtMargin As RECT
hInstance As Long
lCustData As Long
lpfnPageSetupHook As Long
lpfnPagePaintHook As Long
lpPageSetupTemplateName As String
hPageSetupTemplate As Long
End Type
Public psdlg As PageSetupDlg
Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PageSetupDlg) As Long

Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim bWrap As Boolean '// 換行標記'// 自定義一個換行的過程
Public Sub WrapTextLine(ByRef RichText As RichTextBox, ByVal bWrapSwitch As Boolean)
On Error Resume Next
If bWrapSwitch Then '// 設置 RichTextBox 自動換行
SendMessage RichText.hwnd, EM_SETTARGETDEVICE, GetDC(RichText.hwnd), RichText.Width / 15
RichText.RightMargin = IIf(RichText.RightMargin = 0, 1, 0)
Else
'// 設置 RichTextBox 不自動換行
SendMessage RichText.hwnd, EM_SETTARGETDEVICE, 0, 1
End If
End Sub
Function GetFileTitle(OldStr As String) As String

On Error Resume Next
Dim n As Integer, m As Integer '聲明字元串變數
Dim i As String, r As String
Dim p As Integer
i = "\" '要查找的指定字元
For n = 1 To Len(OldStr) '用Len函數計算已知字元串的位元組數
m = InStrRev(OldStr, i, -1) '"\"所在的位置(其中的-1是默認的)
Next n '找下去！

'截取最後一個"\"後面的字元串
r = right(OldStr, Len(OldStr) - m) '獲取Title
p = InStrRev(r, ".", -1) '"."所在位置
GetFileTitle = left(r, p - 1) '去掉後綴

End Function

C. 《大學記事》2894594txt全集下載

《大學記事》2894594 txt全集小抄說附件已上傳到襲網路網盤，點擊免費下載：

內容預覽：
懷揣著對未來大學生活的憧憬和迷茫在軍訓的前一天下午我住進了大學宿舍。認識了宿舍里幾個同學。我的寢室里的同學和我一個班會計A班，她們的名字分別是小霞、小悅、小萍。小霞為人處事很好跟她在一起很開心，而且她人長的也不錯。小悅是我們四個人里唯一一個來自外地的，人長的比較健壯，但為人很爽快，家底很豐厚哦！小萍為人也很好，像個小孩子！
軍訓對於大部分的大學生來說應該是很討厭的吧！偶自個是怎麼的認為的。瞧！我們幾個女生就討論起軍訓了，也說了說各自以前的軍訓經歷。
小霞：「我那個高中軍訓啊還好，就是上廁所的地方太惡心了，每次去都要鼓起很大的勇氣！其他還好。我們還摘水果吃！」
小萍：「我呢有一次拉肚子發燒，所以我那次軍訓7天我只是訓練了3天！」
小悅：「我高中軍訓還好，一般性，教官還叫我們打擒敵拳！，不過練得也蠻苦的！」
聽了她們的我不請感嘆到道：「你們的軍訓比起我的軍訓那是小巫見大巫啊！我高一的那次軍訓還好，只……

D. 《北京醫科大學孤獨紀事》txt全集下載

北京醫科大學孤來獨紀事 txt全集小說自附件已上傳到網路網盤，點擊免費下載：

內容預覽：
正文第五章 為什麼痛苦總是落不到實處
兩人來到了課堂上坐定，華浩檢了個後座，心想沒事做的時候可以在桌上趴會，顏明也只好跟著坐在後頭，學生陸陸續續進來，果然夾雜著一些漂亮女生，看來顏明說話還是比較實在的，華浩漫無目的的看著，到最後，已經到點了，教室的門正准備要關，華浩正准備收回視線的時候，突然，華浩驚得一骨碌從座位上站了起來，那不是耿蘇嗎？肯定不是別人，華浩敢剖開自己的肚子保證，就是那面容冷傲的耿蘇，可是華浩突然見到她，竟覺得她那麼可親可愛，耿蘇穿了個長可及小腿的羊絨大衣，仍難以掩飾她窈窕的身姿，她白玉般俊美的面孔讓華浩的每一個細胞都張開鼻孔愉悅地呼吸。華浩緊張不安地看著耿蘇走入，生怕她朝自己這邊走來，當耿蘇目光掃視整個教室尋找座位，視線投向華浩盪這邊時，華浩的心跳得砰砰直響，如果沒有胸壁阻擋早就彈出來了，最後耿蘇在教室最里邊一個座位坐好，離華浩很遠，華浩才鬆了一口氣，可是心裡立刻又湧上了無邊……

E. 《大學記事》txt全集下載

大學記事 txt全集小說抄附件已上傳到網路網盤，點擊免費下載：

內容預覽：
這實習~
外面溫度很低，又起了風，我倆互相攙扶著往學校走。
「我操，明天還得早起，七點就要在學院門口集合呢。」我說。
「不行，我得撒泡尿。」王峰突然說。
我倆來到路邊，看著王峰「嘩嘩」釋放著，我也來感覺了，於是也掏出了東西。
「我給你找個女朋友？」王峰完事兒拉上了拉鏈。
「算了，我目前不打算找。」我也收拾好褲子。
回到宿舍時門已經鎖了，我倆只好敲門。
「等一下！」
從值班室傳出來一聲。過了兩分鍾，阿姨披著軍大衣出來了。
「你倆干什麼去了？」阿姨很不高興。
「出去聊了一會，一高興就忘了時間了，打擾您了阿姨。」我一臉歉意。
「記住啊，以後早點回來。」阿姨一邊鎖門一邊說。
「一定一定。」王峰說。
「操蛋，趕緊起來！」
我看了一眼時間，還差十分鍾七點。
「啊～」王峰還在迷糊。
「快七點了，要遲到了！」
「我操！」王峰從床上竄了起來。
等我倆洗完臉刷完牙趕到學院門口時，正好七點。
「我沒刮鬍子。」我摸著下巴說。……

F. 世界上年齡最大的人是誰

前蘇聯共抄和國喬治亞襲當局有一位居住在偏僻山村裡一位名為Antisa的老婦人已經活到130歲了，她是世界上最長壽的人。Antisa於1880年7月8日出生於喬治亞西部，1965年，當時她85歲，她退休，之前她是採茶者，現在她和40歲的孫子住在一起。「我現在很健康，我的一生都在工作，不管是在農場上還是在家裡。」做在藤椅上，Antisa拿著她的拐杖，現在她說話還是很清楚，因為她沒有上過學，所以她只會說當地的語言。

拓展資料：

長壽幾乎是世界各民族的追求。中國歷史上，秦始皇、漢武帝等強大的帝王，也不能免俗地求仙、服用靈丹妙葯，以求長生。美國加利福尼亞理工學院的科學家發現，百歲以上老人有一種共同的基因突變，科學家表示這一發現有助於找到減緩人類老化的方法。

G. 《大學記事》txt全集下載

大學記事 txt全集小說附件已上傳到網路網盤，點擊免費下載：

內容預覽：
下午李內昂打電話叫我出去容吃飯時，我正睡醒躺在床上目光渙散，蚊帳上趴了兩只飽食肚圓的蚊子，我沒有像平時一樣考慮我們全體舍友都會思考的問題，所謂的是讓它們自動撐死，還是一巴掌解決。
我問李昂：「你哪呢？」
他說我在圖書館門口，正准備過去。我說那你急個屁，過來再叫我不就行了?他說小屁你丫又剛睡醒吧？我說你怎麼知道，他說你看你這口氣，和糞坑似的。我說滾，合上手機快速的下床沖向衛生間。
「你要嚇死我，怎麼沒聲啊？」我一頭撞開衛生間的門，差點沒剎住車倒向正蹲在我直奔那個位置的王陽。
王陽睡眼惺忪，披頭散發，兩眼皮耷拉著，抬起頭相當茫然的看著我，然後薄薄的小嘴裂向兩邊咯咯微笑，似乎剛明白怎麼回事。
我回首用胳膊啪的一聲關上門，擰開外面的水龍頭粗魯的洗臉。王陽在裡面懶洋洋慢聲慢氣的說，章禾，考考你，《獻給愛斯美的故事》中牆和牆說了什麼？
我拿起毛巾擦臉，說啥愛斯美，模仿貴州方言說么聽過啥子東西。王陽說就是一外國……

H. 大學紀事 穆悠悠txt 有的求發

直接買個錦書在線看就是了 有很強的查詢功能 只要輸入文章名字就可以隨時瀏覽自己喜歡的小說書籍了 很方便哦！

I. 《新生的大學紀事(GL)》最新txt全集下載

新生的大學紀事(GL) txt全集小說附件已上傳到網路網盤，點擊免費下載：回

內容預覽：
新生的大學紀事（GL）
四
「各位，答很高興這個學期由我來擔任你們的應用文寫作的老師，我是……」回頭，刷刷刷寫出四個大字「歐陽樂樂。」
「很高興是來到小班教你們，你們都不知道啊，當我知道你們是小班時是多麼的高興，你們一定還不知道小班的學生是多麼的可愛，在大班哪個人逃了，你不知道，可是在小班簡直就是玩打地鼠，一個位置就一個洞啊，哈哈哈哈」不用回頭古曉洛也知道班上的同學大概都捧著被嚇掉的下巴了呆掉了，這個老師也太寶了吧。
「……現在我已經學會了不再詳細介紹我自己了，還記得當初第一節課，我，熱情洋溢的在台上洋洋灑灑地把我自己，結果在飯堂打飯時，後面排隊的有兩個我那節課的學生跟我說『師姐，你打卡快點！』 -_-||，氣死我了…………」
這位老師說話就像鹽水蜂炮一樣，噼哩啪啦一路放過去。不過上了那麼多節老古董，裝幽默的課之後，真是覺得耳目一新啊。
經過一頓口水洗禮後，下課鈴聲響了，在同學的歡呼中，終於下課了！
古曉……