实验任务7
课程名称：程序设计基础VB
实验名称——实验七 选择结构程序设计 一、实验目的：
1.进一步掌握输入输出函数的函数使用 2.掌握if语句的三种基本结构
3.掌握多分支语句select语句的使用
实验1编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？
提示 根据数学知识，可以写出如下的联立方程式： X+Y=H （1） 2X+4Y=F （2）
（2）式 ? 2 ?（1）式：2Y=F?2H 故 Y=（F?2H）/2 4 ?（1）?（2）式： 2X=4H?F 故 X=（4H?F）/2
可按上式编写程序，输入H和F的值，用Inputbox函数，输出结果用MsgBox函数。设H=71，F=158，运行结果如图所示。
实验1运行结果
实验2实验书100页实验5-5-2 改错题
窗体的界面设计如图所示。在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。发现一下程序代码出错，请修改。
Private Sub Command1_Click() If Option1.Value = True Then Text1.FontName = \宋体\ If Option2.Value = True Then Text1.FontName = \黑体\ If Check1.Value = 1 Then
Text1.FontUnderline = True If Check2.Value = 1 Then Text1.FontItalic = True End Sub
实验3实验书101页实验5-7(注意If语句的使用格式) 建立一个文本框，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写形式显示在Label1中，若是数字字符，则把该字符直接显示在Label1，其他字符不予显示。输入的字母总数显示在标签Label2中，如图7-4所示。
解法1的程序代码如下。
Dim n As Integer '模块级变量 Private Sub Text1_Change() Dim ch As String*1
ch = Right$( ) If ch >= \ Label1.Caption = LCase(ch) n = n + 1
ElseIf Then Label1.Caption = n = n + 1
ElseIf Then Label1.Caption = Else
Label1.Caption = End If
Label2.Caption = End Sub
解法2：在输入时即对每一个输入的字符进行判断，还可放在文本框的KeyPress事件中，符合条件的字符进行处理，不符合条件的字符不予显示。自行完成编程。
实验4 教材120页第6题
编写一个程序，用户输入考试成绩，输出该学生的总评成绩。总评标准如下：60分以下为不及格，60~69为及格，70~79为中等，80~89为良好，90~100为优秀。自行设计界面。
实验5 建立如下的两个窗体，实现以下功能：
（1）窗体Form1中的用户名边的文本框要保证只能输入26个英文字母，若不是字母则弹出消息框提示“用户名只能输入字符”（参考书上104页例5-6），密码为“12345”，若输入的密码不是“12345”，则弹出消息框“密码错误！”，并将密码框清空，获得焦点。
（2）单击窗体Form1中的“确定”按钮，如果密码正确，隐藏窗体Form1，显示窗体Form2，单击“返回”按钮退出。
（3）窗体Form2中，单击“确定”按钮，在文本框中输出所选的课程名，单击“取消“按钮则取消所选内容，单击“返回”按钮，隐藏窗体Form2，显示窗体Form1。单击第一个滚动条改变文本框的文本字号大小（5－30），单击第二个滚动条改变文本框的文本颜色。
窗体Form1初始状态 用户名输入不是英文字母时窗体的状态
窗体Form2的运行界面