关于VB程序问候“早上好”“中午好”“晚上好”的代码

Case 6 To 9

advise.Text = "早晨好"

Case 10

advise.Text = "上午好"

Case 11 To 13

advise.Text = "中午好"

Case 14 To 18

advise.Text = "下午好"

Case 19 To 24

advise.Text = "晚上好"

Case Else

advise.Text = "凌晨了，还不去睡觉……"

Private Sub form_Click()

Print Tab(10) "**"

Print Tab(20) "**",

Print Tab(6) "*"

Print Tab(14) "*"

Print Tab(18) "*"

Print Tab(25) "*",

Print Tab(4) "*"

Print Tab(15) "*"

Print Tab(17) "*"

Print Tab(27) "*",

Print Tab(3) "*"

Print Tab(16) "*"

Print Tab(28) "*",

Print Tab(3) "*"

Print Tab(28) "*",

Print Tab(4) "*"

Print Tab(27) "*",

Print Tab(5) "*"

Print Tab(26) "*",

Print Tab(7) "*"

Print Tab(24) "*",

Print Tab(9) "*"

Print Tab(22) "*",

Print Tab(11) "*"

Print Tab(20) "*",

Print Tab(13) "*"

Print Tab(17) "*",

Print Tab(15) "*",

End Sub

'单击窗口看运行效果  看在我这么辛苦的份上 采纳吧

两种方案：

1.在客户端放置动态表情的文件，程序在运行时检测发过来的表情申请命令，比如你发送一个 /表情1 在程序中转义一下 把本地的表情显示出来就可以了

2.Winsock可以二进制传输的 你把本地表情文件当做比特流发送过去 让对方接受后在处理比特流转换成图片格式 进而显示

---