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=:\鸡兔同笼\ f = InputBox(\鸡和兔的总脚数F=:\鸡兔同笼\ x = (4 * h - f) / 2 y = (f - 2 * h) / 2

MsgBox \笼中鸡数为\笼中兔数为\End Sub

实验2实验书100页实验5-5-2 改错题

窗体的界面设计如图所示。在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。发现一下程序代码出错，请修改。 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

实验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 >= \ Label1.Caption = LCase(ch) n = n + 1

ElseIf ch >= \ Then Label1.Caption = n = n + 1

ElseIf ch >= \ 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()

Private Sub Form_Click() Dim a As Integer, b As String

a = Val(Text1.Text) a = Val(Text1.Text)

Select Case a If a < 60 Then

Case Is < 60 b = \不及格\

b = \不及格\ElseIf a >= 60 And a < 70 Then

Case 60 To 69 b = \及格\

b = \及格\ElseIf a >= 70 And a < 80 Then

Case 70 To 79 b = \中等\

b = \良好\ElseIf a >= 80 And a < 90 Then

Case 80 To 89 b = \良好\

b = \良好\ElseIf a >= 90 And a <= 100 Then

Case 90 To 100 b = \优秀\

b = \优秀\Else

Case Else b = \无此成绩\

b = \无此成绩\End If

End Select Label1.Caption = b

Label1.Caption = b End Sub

实验5 建立如下的两个窗体，实现以下功能： （1）窗体Form1中的用户名边的文本框要保证只能输入26个英文字母，若不是字母则弹出消息框提示“用户名只能输入字符”（参考书上104页例5-6），密码为“12345”，若输入的密码不是“12345”，则弹出消息框“密码错误！”，并将密码框清空，获得焦点。

（2）单击窗体Form1中的“确定”按钮，如果密码正确，隐藏窗体Form1，显示窗体Form2，单击“返回”按钮退出。

（3）窗体Form2中，单击“确定”按钮，在文本框中输出所选的课程名，单击“取消“按钮则取消所选内容，单击“返回”按钮，隐藏窗体Form2，显示窗体Form1。单击第一个滚动条改变文本框的文本字号大小（5－30），单击第二个滚动条改变文本框的文本颜色。

Form1: Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < Asc(\ KeyAscii = 0: MsgBox \只能输入字母字符\End If End Sub Private Sub Command1_Click() If Text2.Text <> \ MsgBox \密码错误！\ Text2.Text = \Form2: Text2.SetFocus Private Sub Chksx_Click() Else If Chksx.Value = 1 Then Form1.Hide txtsx.Enabled = True: txtsx.SetFocus Form2.Show Else End If txtsx.Enabled = False: txtsx.Text = \End Sub End If End Sub Private Sub Chkyw_Click() …… End Sub Private Sub Chkyy_Click() …… End Sub Private Sub Command1_Click() Dim sum As Integer, n As Integer If Chkyw.Value = 1 Then sum = sum + Val(Txtyw.Text): n = n + 1 If Chksx.Value = 1 Then sum = sum + Val(txtsx.Text): n = n + 1 If Chkyy.Value = 1 Then sum = sum + Val(txtyy.Text): n = n + 1 If Opttotal.Value Then '如果选择了“总分”按钮 Text1.Text = n & \门课总分:\ Else '如果选择了“平均分”按钮 If n <> 0 Then Text1.Text = n & \门课平均分:\ End If End Sub Private Sub Command2_Click() Text1.Text = \ Checksx.Value = 0: Checkyw.Value = 0: Checkyy.Value = 0: Check4.Value = 0 Opttotal.Value = False: Optavg.Value = False HScroll1.Value = 5: HScroll2.Value = 0 End Sub Private Sub Command3_Click() Form1.Show Form2.Hide End Sub Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub Private Sub HScroll2_Change() Text1.ForeColor = QBColor(HScroll2.Value) End Sub

本文来源：https://www.bwwdw.com/article/vi0o.html