2024年3月15日发(作者：2022年组装台式电脑最佳配置)

《VB程序设计》实验报告

实验四 QQ登录应用程序

【实验时间】 周三 12节第一组 【报告人】 【组长】 张三

实

 掌握VB中多分支语句Select Case语句的使用

验

 掌握VB中多分支语句If ElseIf语句的使用

目

 掌握组合框控件的属性、事件和应用

的

QQ聊天软件是日常生活中使用较多的聊天工具，参照喜欢的QQ版本，设计不同风格的应用程

序，实现QQ登录、好友展示和聊天的功能。

总体要求：

1. 为每个事件过程添加注释

2. 将代码实现缩进

一、“QQ账号登录”界面如图1所示，功能要求：

1. 阴影效果文字提示

2. QQ图片展示

3. QQ账号密码输入，密码字符为*

4. 登录按钮，检测账号密码正确进入好友展示界面。

5. 如果账号输入有误，给出msgbox消息框

6. 具备查杀木马功能（可选）

7. 添加combo控件，实现登录状态（在线、隐身、离开）选择，使用public变量实现好友状

态显示

二、“QQ好友展示”界面如图2所示，应用框架、图片框等控件实现功能要求：

1. 本人名称具备随时变色功能（自己的在线状态颜色随机变幻）

2. 换肤功能，单击“换肤”，窗体背景色变换颜色

3. 分群组显示成员头像

4. 双击群组成员头像，打开QQ聊天界面

三、双击本人QQ头像，弹出“个人信息”窗体：

1. 显示个人信息：姓名、生日、电话、组号

你到已经快乐生活了多少天，其中学习用了多少小时，睡觉用了多少小时

提示：在文本框中显示的方法

x=date-#1990-1-1#

Text2=”我已经快了生活了” & x & “天”

2. 在本界面添加如下控件，实现个人收入所得税计算

实

验

内

容

a) 在组合框中Combo1中选择收入标准，Text1中显示相应的税率；组合框中的数据项可在属

1

任课教师：胡晓辉

中国海洋大学

《VB程序设计》实验报告

性窗口添加到list属性中，也可在窗体Load事件过程中用Additem方法添加；

b) 当在文本框中输入收入后，按回车键或者计算按钮，求出应缴税额，需在文本框的Keypress

事件过程中编写代码；

c) 使用多分支Select Case语句与多分支的If ElseIf…Then语句，并在实验总结其异同点

全月应纳税所得额（收入-3500元）

不超过1500元

超过1500元至4500元

超过4500元至9000元

超过9000元至35000元

超过35000元至55000元

超过55000元至80000元

超过80000元

税率

3%

10%

20%

25%

30%

35%

45%

速算扣除数(元)

0

105

555

1005

2755

5505

13505

注意：所得税是分段计税，如果收入为8500元

全月应纳税所得额=8500-3500=5000

计算方法一：分段计税

应交税款为 1500*3%+（4500-1500）*10%+(5000-4500)*20%=45+300+100=445

计算方法二：利用速算扣除数

应交税款为 5000*20%-555=445

四、 “QQ好友聊天”界面如图3所示，应用图片框、按钮等控件实现功能基本要求：

1. 窗体下方个人发言文本框，可以多行显示、带滚动条

2. “剪切”“复制”“粘贴”按钮能够实现对文本框内容的相应功能。

3. 显示 自己和对方头像

4. 单击“字体”按钮，将个人发言文本框中文字设置为“宋体”，“15号字”

5. 单击“颜色”按钮，将个人发言文本框中文字颜色设置为“蓝色”，“粗体字”

6. 单击“发送”按钮，将个人发言文本框中内容发送到上端的对话文本框

Text2=Text2 & vbcrlf & “张三说：”& text1 & “在” & time

【实验情况】

图1 QQ登录界面 图2 QQ好友展示界面 图3 好友聊天界面

2

任课教师：胡晓辉

中国海洋大学

《VB程序设计》实验报告

我的作业界面：

登录界面 好友展示界面 个人资料 聊天界面

作品功能介绍：

登陆界面功能，QQ图片展示QQ账号密码输入，密码字符为*登录按钮，检测账号密码正确进入

好友展示界面。具备查杀木马功能（可选如果账号输入有误，给出msgbox消息框。7. 添加combo

控件，实现登录状态（在线、隐身、离开）选择，使用public变量实现好友状态显示

2.好友展示界面功能，自己的在线状态颜色随机变幻；换肤功能，单击“换肤”，窗体背景色变换颜色；

双击群组成员头像，打开QQ聊天界面分组显示成员头像；单击个人头像显示个人资料；

3.个人资料功能，显示跟人资料；计算工资所得税；你到已经快乐生活了多少天，其中学习用了多少

我

小时，睡觉用了多少小时；

4.聊天窗口功能，复制，粘贴，剪切。发送消息；改变字体颜色；

的

„„

实验代码 '查杀木马

作

Private Sub Timer1_Timer()

'单击登陆，界面转换

Private Sub Command1_Click() = + 1

业

If = 0 Then

End Sub d = True

'输入账号密码，如果正确界面切换到好友展示

Else

界面，否则出现提示窗口msgbox“重试”“取

If >= 100 Then

d = False

消”

Private Sub Command2_Click()

Dim x As String End If

zt = End If

If = "123" And = End Sub

"456" Then

'快乐生活了多少天

Private Sub Form_Load()

Text2 = Date - #8/29/1991#

Else Text5 = (Date - #8/29/1991#) * 8

x = MsgBox("您输入的账号或密码有误

Text6 = (Date - #8/29/1991#) * 10

End Sub

", vbRetryCancel, "密码出错")

End If Dim a As String

End Sub

'单击发送将文本2中文本发送到文本框1中

Private Sub Command1_Click()

'如果text1获得焦点，则text1清空

Private Sub Text1_GotFocus()

Text1 = Text1 & vbCrLf & "窗边的小豆豆：" &

3

任课教师：胡晓辉

中国海洋大学

《VB程序设计》实验报告

= ""

End Sub

'输入账号按回车键即跳到输入密码的框中

Private Sub Text1_KeyPress(KeyAscii As

Integer)

If KeyAscii = 13 Then

us

End If

End Sub

'输入密码的显示*

Private Sub Text2_Click()

rdChar = "*"

End Sub

'当text2获得焦点时text2 清空

Private Sub Text2_GotFocus()

= ""

End Sub

'单击换肤命令，则好友展示界面背景色改变

Private Sub Command1_Click()

Dim x

x = Int(Rnd * 16)

lor = QBColor(x)

End Sub

'好友界面家人，朋友之间切换

Private Sub Command2_Click()

e = True

e = False

End Sub

'点击朋友，出现朋友好友

Private Sub Command3_Click()

e = False

e = True

End Sub

'状态显示

Private Sub Form_Load()

= zt

End Sub

'单击头像，则出现个人资料展示

Private Sub Picture1_Click()

End Sub

'单击好友头像，出现聊天界面

Private Sub Picture2_Click()

mm = "与没没聊天中"

Time & " " & vbCrLf &

Text2 = ""

End Sub

'关闭窗口

Private Sub Command2_Click()

End Sub

'剪切

Private Sub Command3_Click()

a = t

t = ""

d = False

d = False

d = True

End Sub

'复制

Private Sub Command4_Click()

a = t

d = False

d = False

d = True

End Sub

'粘贴

Private Sub Command5_Click()

t = a

End Sub

'与没没聊天中标题

Private Sub Form_Load()

n = mm

End Sub

'剪切，复制，粘贴都可用

Private Sub Text2_Change()

d = True

d = True

d = True

End Sub

'单击回车具有则发送功能

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text1 = Text1 & vbCrLf & "窗边的小豆豆："

& Time & " " & vbCrLf &

Text2 = ""

4

任课教师：胡晓辉

中国海洋大学

《VB程序设计》实验报告

End Sub

'状态为在线时qq昵称随机变色

Private Sub Timer1_Timer()

Dim x As Integer

If = "在线" Then

x = Int(Rnd * 16)

lor = QBColor(x)

End If

End Sub

实

验

经

验

End If

End Sub

本次实验错误信息和解决方案

问题1：“&”和“+”有何区别？

方案1：“+”只能连字符串，而“&”可连接两个任意类型的数据，但是数据与&符号之间要有一个

空格。

实

描述你对本次试验的心得、体会和掌握知识等

通过这次实验，我们学会了。

验

总

结

5

任课教师：胡晓辉

中国海洋大学