实验报告课程vb程序设计 实验项目 选择结构程序设计

《实验报告课程vb程序设计 实验项目 选择结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告课程VB程序设计实验项目选择结构程序设计成绩专业班级化学工程与工艺2班指导教师任馨姓名黄勇学号1004040231实验日期2011.5.3[实验目的]（1）掌握关系表达式和逻辑表达式的正确使用（2）掌握If语句实现程序分支（3）掌握SelectCase语句实现程序分支[实验内容]必做：完成实验指导书，实验三中[实验3-3],[实验3-6],[实验3-8]，并将程序源代码及程序运行结果窗体粘贴到实验结果处。选作：在窗体上创建一个标签，标题为“猜测密码”，一个初值为空的文本框，另外再添加两个命令按钮，标题为“确定”和“退出”。编写适当的程序代码，使得程序运行时

2、在文本框内输入猜测的密码信息，单击“确定”按钮，如果输入的为“12345”，则弹出一个输出对话框提示“恭喜，猜对了”，关闭对话框后将文本框禁用；若输入为其他信息，将弹出“遗憾，密码猜测失败”的对话框提示，并询问用户是否继续猜测，对话框包含“是”与“否”按钮，若用户选择“是”，则清空文本框原猜测的密码，并将焦点置于文本框，进行下次猜测，若选择“否”，则文本框被禁用。单击“退出”按钮时，程序终止运行。（程序界面及运行见附图）提示：通过MsgBox函数可以设置对话框的按钮类型，并可通过该函数的返回值判断用户单击的按钮名称为“是”还是“否”。[实验结果]（只粘贴程序源代码

3、和运行结果窗体界面）1.[实验3-3]代码PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(InputBox("请输入边长a"))b=Val(InputBox("请输入边长b"))c=Val(InputBox("请输入边长c"))Ifa+b>cAndAbs(a-b)

4、dSub结果2.,[实验3-6]代码PrivateSubCommand1_Click()a=Val(InputBox("请输入学生百分制成绩"))Ifa>=90ThenMsgBox"该生成绩：优秀"ElseIfa>=80ThenMsgBox"该生成绩：良好"ElseIfa>=70ThenMsgBox"该生成绩：中等"ElseIfa>=60ThenMsgBox"该生成绩：及格"ElseMsgBox"该生成绩：不及格"EndIfEndSub[实验3-8]代码PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.ForeCo

5、lor=RGB(255,0,0)ElseText1.ForeColor=RGB(0,0,0)EndIfEndSubPrivateSubCheck2_Click()Text1.FontBold=NotText1.FontBoldEndSubPrivateSubCheck3_Click()Text1.FontUnderline=NotText1.FontUnderlineEndSubPrivateSubOption1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"EndSubPrivateSubOption2_Cl

6、ick()IfOption2.Value=TrueThenText1.FontName="黑体"EndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenText1.FontName="幼圆"EndSubPrivateSubOption4_Click()IfOption4.Value=TrueThenText1.FontSize=12EndSubPrivateSubOption5_Click()IfOption5.Value=TrueThenText1.FontSize=18EndSubPrivateSubOpt

7、ion6_Click()IfOption6.Value=TrueThenText1.FontSize=24EndSub结果