vb实验任务7答案(1)

《vb实验任务7答案(1)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验任务7参考答案课程名称：程序设计基础VB实验名称——实验七选择结构程序设计一、实验目的：1.进一步掌握输入输出函数的函数使用2.掌握if语句的三种基本结构3.掌握多分支语句select语句的使用实验1编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？PrivateSubForm_Click()DimhAsInteger,fAsInteger,xAsInteger,yAsIntegerh=InputBox("鸡和兔的总头数H=:","鸡兔同笼",71)f

2、=InputBox("鸡和兔的总脚数F=:","鸡兔同笼",158)x=(4*h-f)/2y=(f-2*h)/2MsgBox"笼中鸡数为"&x&vbCrLf&"笼中兔数为"&yEndSub实验2实验书100页实验5-5-2改错题窗体的界面设计如图所示。在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。发现一下程序代码出错，请修改。PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.FontName="宋体"ElseText1.FontName="黑体"

3、EndIfIfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub实验3实验书101页实验5-7(注意If语句的使用格式)建立一个文本框，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写形式显示在Label1中，若是数字字符，

4、则把该字符直接显示在Label1，其他字符不予显示。输入的字母总数显示在标签Label2中，如图7-4所示。解法1的程序代码如下。DimnAsInteger'模块级变量PrivateSubText1_Change()DimchAsString*1ch=Right$(Text1.Text,1)Ifch>="A"Andch<="Z"ThenLabel1.Caption=LCase(ch)n=n+1ElseIfch>="a"Andch<="z"ThenLabel1.Caption=n=n+1ElseIfch>="0"Andch<="9"ThenLabel

5、1.Caption=chElseLabel1.Caption=""EndIfLabel2.Caption=nEndSub解法2：在输入时即对每一个输入的字符进行判断，还可放在文本框的KeyPress事件中，符合条件的字符进行处理，不符合条件的字符不予显示。自行完成编程。实验4教材120页第5题编写一个程序，用户输入考试成绩，输出该学生的总评成绩。总评标准如下：60分以下为不及格，60~69为及格，70~79为中等，80~89为良好，90~100为优秀。自行设计界面。PrivateSubForm_Click()a=Val(Text1.Text)Sel

6、ectCaseaCaseIs<60b="不及格"Case60To69b="及格"Case70To79b="良好"Case80To89b="良好"Case90To100b="优秀"CaseElseb="无此成绩"EndSelectLabel1.Caption=bEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsStringa=Val(Text1.Text)Ifa<60Thenb="不及格"ElseIfa>=60Anda<70Thenb="及格"ElseIfa>=70Anda<80Thenb="中等"El

7、seIfa>=80Anda<90Thenb="良好"ElseIfa>=90Anda<=100Thenb="优秀"Elseb="无此成绩"EndIfLabel1.Caption=bEndSub实验5建立如下的两个窗体，实现以下功能：（1）窗体Form1中的用户名边的文本框要保证只能输入26个英文字母，若不是字母则弹出消息框提示“用户名只能输入字符”（参考书上104页例5-6），密码为“12345”，若输入的密码不是“12345”，则弹出消息框“密码错误！”，并将密码框清空，获得焦点。（2）单击窗体Form1中的“确定”按钮，如果密码正确，隐藏窗体Fo

8、rm1，显示窗体Form2，单击“返回”按钮退出。（3）窗体Form2中，单击“确定”按钮，在文本框中输出所选的课程名，单