VB大题代码.doc

1.题目： 编写窗体单击事件，求解百鸡问题： 已知公鸡每只3元，母鸡每只5元，每只小鸡0.5元。 用100元钱买100只鸡，问一共有多少种方案。程序中 定义的变量 x，y，z分别代表公鸡、母鸡、和小鸡的 数量，count代表组合方案的数量 For x = 0 To 33For y = 0 To 20For z = 0 To 100If 3 * x + 5 * y + 0.5 * z = 100 And x + y + z = 100 Thencount = count + 1End IfNext zNext yNext x 2.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：（1）窗体的标题为“健康称”，窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重，将两个文本框文字对齐方式均设置为右对齐；在文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。（2）单击标题为“健康状况”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。Private Sub Command1_Click() Dim SWeight, RWeight SWeight = Val(Text1) - 105 RWeight = Val(Text2) If RWeight = SWeight * 1.1 Then ElseIf RWeight = SWeight * 0.9 Then Label5 = 偏瘦，增加营养 Else Label5 = 正常，继续保持 End If End Sub 3.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：标签 名称“Label1” 标题“学号”；标签 名称“Label2” 标题“姓名”；标签 名称“Label3” 标题“性别”；标签 名称“Label4” 标题“出生年月”；标签 名称“Label5” 标题“专业”；文本框 名称“Text1” 用来显示表中的“学号”字段；文本框 名称“Text2” 用来显示表中的“姓名”字段；文本框 名称“Text3” 用来显示表中的“出生年月”字段；组合框 名称“Combo1” 用来显示表中的“性别”字段，并添加“男”和“女”两个项目；组合框 名称“Combo2” 用来显示表中的“专业”字段；数据表格控件 名称“DataGrid1”，用来显示“基本情况”表；框架 名称“Frame1” 标题“记录”，并在框架中添加如下5个按钮按钮 名称“Command1” 标题“上一条”按钮 名称“Command2” 标题“下一条”按钮 名称“Command3” 标题“首记录”按钮 名称“Command4” 标题“尾记录”按钮 名称“Command5” 标题“查找” （1）Student.mdb数据库中有两个数据表：基本情况、成绩表，在绑定控件中显示“基本情况”表中的数据，要求设置ADO控件的数据源时使用相对路径; （2）单击“上一条”、“下一条”、“首记录”和“尾记录”按钮分别移动记录指针到上一条记录、下一条记录、第一条记录和最后一条记录，其中如果移动记录指针到记录集的首记录之前则将其定位到首记录，如果移动记录指针到记录集的尾记录之后则将其定位到尾记录; （3）单击“查找”按钮弹出输入对话框要求输入学号，按学号进行查找，如找不到则弹出“查无此人！”的消息框并将记录指针定位到尾记录; Private Sub Command1_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command3_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command4_Click()