VB实验任务7答案1.docVIP

实验任务7参考答案 课程名称：程序设计基础VB 实验名称——实验七 选择结构程序设计 一、实验目的： 1.进一步掌握输入输出函数的函数使用 2.掌握if语句的三种基本结构 3.掌握多分支语句select语句的使用 实验1编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？Private Sub Form_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = InputBox(鸡和兔的总头数H=:, 鸡兔同笼, 71) f = InputBox(鸡和兔的总脚数F=:, 鸡兔同笼, 158) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 MsgBox 笼中鸡数为 x vbCrLf 笼中兔数为 y End Sub 实验2实验书100页实验5-5-2 改错题窗体的界面设计如图所示。在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。发现一下程序代码出错，请修改。 实验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$(Text1.Text, 1) If ch = A And ch = Z Then Label1.Caption = LCase(ch) n = n + 1 ElseIf ch = a And ch = z Then Label1.Caption = n = n + 1 ElseIf ch = 0 And ch = 9 Then Label1.Caption = ch Else Label1.Caption = End If Label2.Caption = n End Sub 解法2：在输入时即对每一个输入的字符进行判断，还可放在文本框的KeyPress事件中，符合条件的字符进行处理，不符合条件的字符不予显示。自行完成编程。 实验4 教材120页第5题 编写一个程序，用户输入考试成绩，输出该学生的总评成绩。总评标准如下：60分以下为不及格，60~69为及格，70~79为中等，80~89为良好，90~100为优秀。自行设计界面。 Private Sub Command1_Click() Dim a As Integer, b As String a = Val(Text1.Text) If a 60 Then b = 不及格 ElseIf a = 60 And a 70 Then b = 及格 ElseIf a = 70 And a 80 Then b = 中等 ElseIf a = 80 And a 90 Then b = 良好 ElseIf a = 90 And a = 100 Then b = 优秀 Else b = 无此成绩 End If Label1.Caption = b End Sub 实验5 建立如下的两个窗体，实现以下功能： （1）窗体Form1中的用户名边的文本框要保证只能输入26个英文字母，若不是字母则弹出消息框提示“用户名只能输入字符”（参考书上104页例5-6），密码为“12345”，若输入的密码不是“12345”，则弹出消息框“密码错误！”，并将密码框清空，获得焦点。 （2）单击窗体Form1中的“确定”按钮，如果密码正确，隐藏窗体Form1，显示窗体Form2，单击“返回”按钮退出。 （3）窗体Form2中，单击“确定”按钮，在文本框中输出所选的课程名，单击“取消“按钮则取消所选内容，单击“返回”按钮，隐藏窗体Form2，显示窗体Form1。单击第一个滚动条改变文本框的文本字号大小（5－30），单击第二个滚动条改变文本框的文本颜色。 Private Sub Com