大学纪事程老师

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）
四
“各位，答很高兴这个学期由我来担任你们的应用文写作的老师，我是……”回头，刷刷刷写出四个大字“欧阳乐乐。”
“很高兴是来到小班教你们，你们都不知道啊，当我知道你们是小班时是多么的高兴，你们一定还不知道小班的学生是多么的可爱，在大班哪个人逃了，你不知道，可是在小班简直就是玩打地鼠，一个位置就一个洞啊，哈哈哈哈”不用回头古晓洛也知道班上的同学大概都捧着被吓掉的下巴了呆掉了，这个老师也太宝了吧。
“……现在我已经学会了不再详细介绍我自己了，还记得当初第一节课，我，热情洋溢的在台上洋洋洒洒地把我自己，结果在饭堂打饭时，后面排队的有两个我那节课的学生跟我说‘师姐，你打卡快点！’ -_-||，气死我了…………”
这位老师说话就像盐水蜂炮一样，噼哩啪啦一路放过去。不过上了那么多节老古董，装幽默的课之后，真是觉得耳目一新啊。
经过一顿口水洗礼后，下课铃声响了，在同学的欢呼中，终于下课了！
古晓……