VB实验任务7答案(1)

实验任务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 Command1_Click()

If Option1.Value = True Then

Text1.FontName = "宋体"

Else

Text1.FontName = "黑体"

End If

If Check1.Value = 1 Then

Text1.FontUnderline = True

Else

Text1.FontUnderline = False

End If

If Check2.Value = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

End Sub

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()

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），单击第二个滚动条改变文本框的文本颜色。