2009年07月02日 星期四 19:04
1. 红豆不长南国，长我脸上了，真相思！
2. 做梦梦见吃意大利面，早上醒来发现鞋带没了！
3. 左边脑袋是面粉，右边脑袋是水，一想问题，就满脑袋糨糊！
4.逃课太多，昨天想去上课，见到教授，教授惊讶地说，这么长时间不见，长这么大了。
5.天天吃稀饭，不甘心，昨天去菜市场绕了一圈，我想我还是继续吃稀饭吧。
6.每当我错过一个女孩，我就在地上放一块砖，于是便有了长城。
7.留了青山在，还是没柴烧。
|
2009年06月21日 星期日 10:13
Option Explicit
Private C13 As String
Private Sub Command1_Click()
C13 = Chr(13) & Chr(10)
Dim C13pos As Integer
C13pos = InStr(1, Text1, C13)
Text2 = Mid(Text1, 1, C13pos - 1)
Text3 = Mid(Text1, C13pos + 1, Len(Text1) - C13pos)
End Sub
Private Sub Form_Load()
Text1 = "123" & vbCrLf & "456"
End Sub |
2009年06月16日 星期二 22:13
Const Nums = 100
Dim max As Long, laptime As Single, result() As String
Dim i, j As Long, d As Long, t, g, r, k As Long, f()
Dim s As String
max = 10 * (Nums \ 5)
ReDim f(1 To max)
ReDim result(Nums \ 5)
result(0) = vbCrLf
For i = 1 To max
DoEvents
f(i) = 30000
Next
For j = max To 1 Step -10
t = 0
DoEvents
For i = j To 1 Step -1
|
2009年06月15日 星期一 20:20
人生若只如初见，何事秋风悲画扇。等闲变却故人心，却道故人心易变。
道路交通事故处理程序规定
|
2009年06月14日 星期日 21:36
2009年06月13日 星期六 20:33
<?php
$user_name = "张哈哈";
echo mb_substr($user_name,0,1,'utf-8').str_repeat("*",(strlen($user_name)/2-1));
?> |
2009年06月13日 星期六 17:13
<?php
//产生随机变形随机码
session_start();
$authnum=random(4);
Header("Content-type: image/PNG");
$im = imagecreate(55,18); //imagecreate() 新建图像，大小为 x_size 和 y_size 的空白图像。
$red = ImageColorAllocate($im, 52,24,128); //设置背景颜色
$white = ImageColorAllocate($im, 65,223,224);//设置文字颜色
$gray = ImageColorAllocate($im, 0,0,0); //设置杂点颜色
imagefill($im,55,18,$red);
for ($i = 0; $i < strlen($authnum); $i++) |
2009年06月08日 星期一 13:18
台北一男子身份证号123456789，多次被怀疑是假证。
北京一饭店为尽早打烊，冬天开冷风轰客。
四川两10岁孩童网上私订终身，欲徒步200公里见在重庆打工的“丈母娘”。
海南一老板白天发工资民工，晚上派人去抢。
郑州一男子高级皮带解不开，两天不敢吃东西。
成都一女子用数万硬币买了一辆汽车。
北京一男子为听轿车报警声，连续划伤22辆车。
西安，一对夫妻婚礼录象带被偷，要求再婚一次。
江苏一夫妇离婚，用竞价方式分配共有财产。
南京狗主人为 |
2009年06月05日 星期五 08:42
当初打听学车要多少钱，同事含蓄地告诉我：原则上交3200元，包教包会，保证 拿到证。等交了3200元，才知道什么叫原则上，原来还有许多非原则上的零打碎敲。 先是合伙给科目二教练送了一条好烟，凑钱请教练吃了一顿好饭，然后合伙给科目三教练送烟，再次请吃。本以为已经功德圆满，谁知道临到路考，教练又来通知我们：该给考官准备准备，到时候好请人家高抬贵手，一人200元。我问少交点，不行吗？教练哼了一声：求人办个事，那么容易吗？ 回到家里，跟太太申请资金，把教练的话原样复述，太太勃然大怒，说：绝对不行，已经一而 |
2009年06月02日 星期二 09:16
Dim px, py
Private Sub Form_Activate()
Timer1.Enabled = True
Timer1.Interval = 100
px = Image1.Width
py = Image1.Height
Image1.Left = -px
Image1.Stretch = True
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\p2.JPG")
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 100
Image1.Width = Image1.Width + 30
Image1.Height = Image1.Height + 30
If Image1.Left > Me.ScaleWidth - 30 T |
|
|
|
加为好友
送他礼物
发送消息
