傅志勤vb实验报告.docxVIP

广东石油化工学院程序设计基础课程设计报告书题目:醋酸解离常数的测定院级：化学工程学院专业：高分子材料与工程班级:高分子14-1学号：14014240110姓名：傅志勤指导老师:李金瑞完成时间2015 年 6 月10 日至2015年 6月23日一、设计目的课程设计提供一个亲手动手、独立实践的机会，将课程所学的知识与专业知识有机地结合起来，锻炼学生分析问题，解决问题的能力，实现学以致用的教学目标。二、实验设备计算机；Visual Basic 6.0 中文版等实验内容综合运用课程所学的知识，编程解决一个与专业相关的问题。实验要求所解决的问题必须与专业知识结合；分组合作或自行设计，严禁抄袭。题目描述设醋酸溶液在半中和后的ph=4.64，求醋酸在此时的解离常数Ka。问题分析通过半中和法：在Ka=[H3O+]*[Ac]/[HAc]中，如果HAc被中和一半，则[HAc]=[Ac-],此时Ka=[H3O+],即pKa=pH,Ka=10^(-pKa)。从而求出醋酸解离常数Ka.算法设计1、登入界面Private Sub Command1_Click()Static n%Dim xm$, mm$xm = Combo1.Textmm = Text1n = n + 1If xm = 施练 And mm = 34567 Or xm = 施仁 And mm = 45678 Or xm = 施提 And mm = 56789 Theny = MsgBox(密码正确，身份验证通过！)Form2.ShowUnload MeElseIf n = 3 Then MsgBox Str(n) + 次密码错误，谢谢呵！: Endy = MsgBox(密码错误，再来一次)Combo1.Text = Text1 = End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem 施练Combo1.AddItem 施仁Combo1.AddItem 施提Text1.PasswordChar = *Text1 = End Sub2、原理界面Private Sub Form_Load()ShowForeColor = RGB(255, 0,255)FontSize = 30FontName = 宋体Print HAC溶液的解离常数的Print 测定（半中和法）End SubPrivate Sub 开始计算_Click()Form3.ShowEnd SubPrivate Sub 显示_Click()Text1 = Ka=[H3O+]*[Ac-]/[HAc],HAc被中和一半,则有[HAc] = [Ac-],此时ka=[H3O+],即pka=phEnd Sub3、计算Private Sub Command1_Click()Dim ph!, pka!ph = Text1If (0 = ph And ph = 14) Thenpka = phka = 10 ^ (-pka)Text2 = kaElseMsgBox 无意义End IfEnd SubPrivate Sub 关闭_Click()EndEnd SubPrivate Sub 计算_Click()Dim ph!, pka!ph = Text1If (0 = ph And ph = 14) Thenpka = phka = 10 ^ (-pka)Text2 = kaElseMsgBox 无意义End IfEnd Sub操作说明首先，在实验室中做一个醋酸解离常数的测定（半中和法）的实验；其次，在实验中获得半中和溶液的ph值；然后，登入界面接着，把数据填入运行软件所对应的地方；最后，运行，获得结果。运行结果十、总结通过这次实验，使我更加意识到了程序设计强大的功能，它也可以用来解决我们专业知识所遇到的一些问题，所以，学好程序设计非常重要，本次实验基本完成了我所设计的内容，但由于知识面有限，有些关于专业的更多想法无法表达，比如化学方程式；因此未能更加完美的完成任务。