admin管理员组文章数量:1534566
2024年5月10日发(作者：)
《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
任课教师：胡晓辉
中国海洋大学
版权声明：本文标题：vb qq 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1715305832a445459.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论