陋博

首先新建一个.exe工程，然后在窗体中加入timer控件，设置timer的interval＝1，双点timer控件，输入以下代码Private Sub Timer1_Timer() Dim files As StringDim nr As StringDim c As StringStatic count As Long  ‘声明变量，其中“count”为静态变量，以便生成不同的文件c = "c:\Program Files\" ’定义要把生成的文件存放在那个目录文件下nr = "哈哈，被黑的感觉的不错吧"  ’生成文件的内容files = FreeFileIf a = a ...

下面是一个关于VB的农历算法´日期数据定义方法如下´前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，´第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月´份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表´示，即使用16进制。最后4位为当年家农历新年-即农历1月1日所在公历´的日期，如0131代表1月31日。´GetYLDate函数使用方式如下tY...

模块代码 Option Explicit Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long...

哥姐文化-简介 哥姐文化是指网络上以“哥、姐”著称的新网络红人如雨后春笋般冒出。一些人搏出位的捷径是搞怪献丑，这反映一些人为成功而选择极端或不择手段的社会风潮。 哥姐文化-形成背景 鲁迅说过，中国人爱凑热闹。或许是这样的民族特性，推动着人们追捧新奇事物、搞怪人物、低俗文化等。网络红人并不是社会主流，但由于它满足了大众窥探他人隐私并从中得到快感的欲望而提升为主流，成为娱乐事件。  今天在中国，要出名...

高阳公主：李世民的第十七女，性聪慧，备受宠。嫁给宰相房玄龄次子房遗爱，夫妻不谐。后与会昌寺僧人、玄奘高足辩机私会。数年后，事发，辩机被腰斩，高阳公主身边的侍女均被处死。后来李治登基，高阳公主开始与僧人寻欢作乐。三位僧道怂恿高阳公主推翻李治^造**，被赐死，年仅二十七岁。 天下没有白吃的午餐。公主本是世界上最好混的一个职位，既不用像王子们一样，为了争权夺利，不是你吃了我就是我吃了你；也不用像嫔妃们一...

世上三件事无法掩饰：一是喷嚏，一是贫穷，一是爱上一个人。将喷嚏排在第一，足以说明喷嚏之无足轻重。喷嚏之事，既不会像贫穷那样令人难以忍受，也不会像爱上一个人那样令人茶饭不思——无所谓掩不掩饰，至多有些不雅罢了。 　　然喷嚏毕竟突如其来，所以从古至今说法众多，最常见的，便是“说我”之说。宋洪迈《容斋随笔》中说：“今人喷嚏不止者，必噀唾祝云：‘有人说我’，妇人尤甚。”宋马永卿《懒真子》中说：“俗说以人嚏喷为人...