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 x2.题目：请按照题目要求设计指定的窗体。建立如图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 Label5 = 偏胖，注意节食 ElseIf RWeight = SWeight * 0.9 Then Label5 = 偏瘦，增加营养 Else Label5 = 正常，继续保持 End IfEnd Sub3.题目：请按照题目要求设计指定的窗体。建立如图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.MoveFirstEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click() Dim mno As String mno = InputBox(请输入学号, 查找窗) Adodc1.Recordset.Find 学号= & mno & , , , 1 If Adodc1.Recordset.EOF ThenMsgBox 查无此人！4.题目：请按照题目要求设计指定的窗体。一、窗体设计窗体Form1，标题设置为“产品选购”，在窗体中添加如下控件：标签Label1；计时器Timer1，时间间隔1秒；按钮Command1，标题为“机型配置”；按钮Command2，标题为“订购下单”；按钮Command3，标题为“退出”；窗体Form2，标题设置为“计算机机型配置”，在窗体中添加如下控件：标签Label1，标题为“品牌”；组合框Combo1，添加图2所示的列表项；标签Label2，标题为“内存”；文本框Text1；框架Frame1，标题为“CPU”，并在框架中添加如下3个单选按钮：单选按钮Option1，标题为“奔腾D”；单选按钮Option2，标题为“奔腾4EE”；单选按钮Option3，标题为“赛扬D”。框架Frame2，标题为“其他设备”，并在框架中添加如下3个复选框：复选框Check1，标题为“声卡”；复选框Check2，标题为“显卡”；复选框Check3，标题为“无线网卡”。列表框List1；按钮Command1，标题为“确定”；按钮Command2，标题为“返回”；窗体Form3，标题设置为“订购单”，在窗体中添加如下控件：标签Label1，标题为“订购数量”；文本框Text1；标签Label2，标题为“运输方式”；组合框Combo1，添加图3所示的列表项；按钮Command1，标题为“确定”。二、事件代码（1）在窗体Form1中，用标签Label1显示当前日期和时间，要求窗体一运行即可显示，同时使用计时器每秒自动变化。单击“机型配置”按钮，显示窗体Form2，隐藏窗体Form1；单击“订购下单”按钮，显示窗体Form3，隐藏窗体Form1；单击“退出”，退出VB程序。（2）当窗体Form2显示时，进行机型配置，设置内存时要求必须以GB结尾，要求在Text1失去焦点时进行验证；当单击“确定”按钮时，所选择的机型配置情况显示在按钮上方的列表框中，如图2所示；单击“返回”按钮，隐藏窗体Form2，显示窗体Form1。（3）当窗体Form3显示时，输入订购数量，并且选择运输方式，单击“确定”按钮后，隐藏窗体Form3，显示窗体Form1。form1Private Sub Command1_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub Command2_Click() Form1.Hide Form3.ShowEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Label1 = 今天是 & & Date & & TimeEnd SubPrivate Sub Timer1_Timer() Label1 = 今天是 & & Date & & TimeEnd SubFrom2Private Sub Command1_Click() List1.AddItem Combo1.Text If Option1 Then List1.AddItem Option1.Caption If Option2 Then List1.AddItem Option2.Caption If Option3 Then List1.AddItem Option3.Caption List1.AddItem Text1 If Check1.Value = 1 Then List1.AddItem Check1.Caption If Check2.Value = 1 Then List1.AddItem Check2.Caption If Check3.Value = 1 Then List1.AddItem Check3.CaptionEnd SubPrivate Sub Command2_Click() Form2.Hide Form1.ShowEnd SubPrivate Sub Text1_LostFocus() Dim st$ st = UCase(Trim(Text1) If Right(Text1, 2) GB Then Text1 = Text1.SetFocus End IfEnd SubFrom3Private Sub Command1_Click() Form3.Hide Form1.ShowEnd Sub5. 题目： 编写窗体的单击事件，利用InputBox函数输入1个数， 判断该数的奇偶性，并在窗体上显示，如图1、图2所示。Dim n%n = InputBox(请输入一个数)If n Mod 2 = 0 ThenPrint n; 是偶数ElsePrint n; 是奇数End If-参考答案1： Dim n%n = InputBox(请输入一个数)If n Mod 2 = 1 ThenPrint n; 是奇数ElsePrint n; 是偶数End If6.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：（1）添加控件，并设置属性框架 名称“Frame1” 标题“餐点”复选框 名称“Check1” 标题“卤肉饭(20元)”文本框 名称“Text1”标签 名称“Label1”复选框 名称“Check2” 标题“鸡腿饭(15元)”文本框 名称“Text2”标签 名称“Label2”复选框 名称“Check3” 标题“排骨饭(10元)”文本框 名称“Text3”标签 名称“Label3”框架 名称“Frame2” 标题“自取/外送”单选框 名称“Option1” 标题“自取”单选框 名称“Option2” 标题“外送”按钮 名称“Command1” 标题“下一位”按钮 名称“Command2” 标题“确定”（2）选中某个餐点复选框后，光标自动移到其后的数量文本框中。（3）单击“确定”按钮后，根据点餐的品种和数量，计算总金额；如果是外送，加收20元。将点餐后的帐单金额用消息框给出。（4）单击“下一位”按钮后，清空所有复选框和文本框，作好下一位点餐的准备。Private Sub Check1_Click()Text1.SetFocusEnd SubPrivate Sub Check2_Click()Text2.SetFocusEnd SubPrivate Sub Check3_Click()Text3.SetFocusEnd SubPrivate Sub Command1_Click()Check1.Value = 0Check2.Value = 0Check3.Value = 0Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Dim a%a = 0If Check1.Value = 1 Thena = a + 20 * Val(Text1.Text)End IfIf Check2.Value = 1 Thena = a + 15 * Val(Text2.Text)End IfIf Check3.Value = 1 Thena = a + 10 * Val(Text3.Text)End IfIf Option2.Value = True Thena = a + 20End IfMsgBox 点餐金额为： & aEnd Sub7.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：（1）添加控件，并设置属性数据表格 名称“DataGrid1”框架 名称“Frame1” 标题“数据表选择”框架 名称“Frame2” 标题“记录”单选框 名称“Option1” 标题“基本情况”单选框 名称“Option2” 标题“成绩表”按钮 “Command1” 标题“上一条”按钮 “Command2” 标题“下一条”按钮 “Command3” 标题“首记录”按钮 “Command4” 标题“尾记录”（2）Student.mdb数据库中有两个数据表：基本情况、成绩表，初始状态为在DataGrid控件中显示“基本情况”表中的数据，要求设置ADO控件的数据源时使用相对路径；（3）单击“基本情况”命令按钮在DataGrid控件中显示“基本情况”表中的内容；（4）单击“成绩表”命令按钮在DataGrid控件中显示“成绩表”中的内容；（5）单击“上一条”、“下一条”、“首记录”和“尾记录”按钮分别移动记录指针到上一条、下一条、首记录和尾记录，其中如果移动记录指针到记录集的首记录之前则将其定位到首记录，如果移动记录指针到记录集的尾记录之后则将其定位到尾记录。Private Sub Command1_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLastEnd SubPrivate Sub Option1_Click() Adodc1.RecordSource = 基本情况 Adodc1.RefreshEnd SubPrivate Sub Option2_Click() Adodc1.RecordSource = 成绩表 Adodc1.RefreshEnd Sub8.在Form1中，将窗体标题设置为“俱乐部”，添加如下控件，如图1所示：标签Label1，标题为“欢迎加入科技俱乐部”；添加如图2所示的菜单项目。在Form2中，将窗体标题设置为“注册”，添加如下控件，如图3所示：标签Label1，标题为“欢迎注册科技俱乐部”；按钮Command1，标题为“返回”；按钮Command2，标题为“注册”；框架Frame1，标题为“请输入您的资料”；如下控件添加到框架Frame1中：标签Label2，标题为“姓名”；文本框Text1，内容为空；标签Label3，标题为“性别”；单选按钮Option1，标题为“男”；单选按钮Option2，标题为“女”；标签Label4，标题为“专业”；下拉列表框Combo1。框架Frame2，标题为“请选择您要加入的兴趣小组”；如下控件添加到框架Frame2中：单选按钮Option3，标题为“计算机”；单选按钮Option4，标题为“物理”；单选按钮Option5，标题为“化学”。在Form3中，将窗体标题设置为“信息查看”，添加如下控件，如图4所示：标签Label1，标题为“您的注册信息如下”；列表框List1；按钮Command1，标题为“返回”。二、事件代码1、点击窗体Form1的“注册会员”菜单后，显示窗体Form2，窗体加载时，在专业列表Combo1中添加“计算机”、“通信”、“数学”三项；在Form2中填写相应数据后，单击“注册”按钮，提示“注册成功”的信息。注册信息保存在Module1中设置的全局变量中。2、点击窗体Form2的“返回”按钮，返回Form1界面；点击窗体Form1的“查看信息”菜单后，显示窗体Form3，并将注册时输入的信息显示在列表框内。3、点击窗体Form3的“返回”按钮，返回主界面Form1。4、点击窗体Form1的“退出”菜单，结束程序运行。From1Private Sub Check_Click() Form3.Show Form1.HideEnd SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub zc_Click()Form1.HideForm2.ShowEnd SubFrom2Private Sub Command1_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Command2_Click() MsgBox 注册成功 xm = Text1.Text If Option1.Value = True Then xb = 男 Else xb = 女 End If zy = Combo1.Text If Option1.Value = True Then xq = 计算机 ElseIf Option2.Value = True Then xq = 物理 Else xq = 化学 End IfEnd SubPrivate Sub Form_Load() Combo1.AddItem 计算机 Combo1.AddItem 通信 Combo1.AddItem 数学End SubFrom3Private Sub Command1_Click() Form1.Show Form3.HideEnd SubPrivate Sub Form_Load() List1.AddItem 姓名： & xm List1.AddItem 性别： & xb List1.AddItem 专业： & zy List1.AddItem 兴趣： & xqEnd Sub9.题目： 编写窗体的单击事件，利用InputBox函数输入1个数， 判断该数的奇偶性，并在窗体上显示，如图1、图2所示。Dim n%n = InputBox(请输入一个数)If n Mod 2 = 0 ThenPrint n; 是偶数ElsePrint n; 是奇数End If10.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：（1）添加控件，并设置属性标签 名称“Label1” 标题“供选课程”供选课程列表框 名称“List1”标签 名称“Label2” 标题“已选课程”已选课程列表框 名称“List2”（2）左侧为待选课程，在窗体加载时在待选课程中插入如图1所示的项目，当单击某课程后，该课程加入到右侧列表框，并在左侧列表框中删除。当所选课超过5门时，不允许再选并给出图2所示的提示框。Private Sub Form_Load() List1.Clear List1.AddItem C程序设计 List1.AddItem Web设计 List1.AddItem 多媒体技术与应用 List1.AddItem 网络技术基础 List1.AddItem VB程序设计 List1.AddItem 数据库技术基础 List1.AddItem 硬件技术基础 List1.AddItem 软件件技术基础End SubPrivate Sub List1_Click() If List2.ListCount = 5 Then MsgBox 超过5门，不能再选, 48, 提示 Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End IfEnd Sub11.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：标签 名称“Label1” 标题“姓名”；标签 名称“Label2” 标题“性别”；标签 名称“Label3” 标题“学号”；标签 名称“Label4” 标题“出生年月”；标签 名称“Label5” 标题“专业”；文本框 名称“Text1” 用来显示表中的“姓名”字段；文本框 名称“Text2” 用来显示表中的“学号”字段；文本框 名称“Text3” 用来显示表中的“出生年月”字段；组合框 名称“Combo1” 用来显示表中的“性别”字段，样式为下拉式列表框，添加“男”和“女”两个项目；组合框 名称“Combo2” 用来显示表中的“专业”字段；ADO控件 名称“Adodc1”；框架 名称“Frame1”，在框架中添加如下4个按钮：按钮 名称“Command1” 标题“新增”；按钮 名称“Command2” 标题“删除”；按钮 名称“Command3” 标题“更新”；按钮 名称“Command4” 标题“放弃”。（1）试题文件夹中的Student.mdb数据库中有两个数据表：基本情况、成绩表，在绑定控件中显示“基本情况”表中的数据，设置ADO控件的数据源时要求使用相对路径;（2）单击“新增”按钮在记录集中增加一条空记录;（3）单击“删除”按钮在记录集中删除当前记录，要求在删除前进行提示，提示界面如图2所示;（4）单击“更新”按钮在记录集中保存记录的修改;（5）单击“放弃”按钮在放弃对记录的修改;Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = 当前记录/记录总数： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click() Dim ask% ask = MsgBox(删除否?, vbYesNo) If ask = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.CancelUpdateEnd Sub12.题目：请按照题目要求设计指定的窗体。一、窗体设计建立如图1、图2所示界面，在Form1上建立如图3所示的菜单，在Form1和Form2上建立如图4所示的控件。二、事件代码（1）“字体”菜单对显示“欢迎进入本系统”的标签Label1设置字体格式，单击“隶书”菜单项将Label1的字体设为隶书，单击“宋体”菜单项将Label1的字体设为宋体，单击“12号字体”菜单项将Label1的字体大小设为12，单击“16号字体”菜单项将Label1的字体大小设为16。（2）单击 “教师信息”菜单隐藏主窗体，进入“教师信息”窗体。（3）单击“退出”菜单结束程序的运行。（4）“教师信息”窗体的实现要求：编写Form_Load事件，将四个项目教授、副教授、讲师、助教添加到“职称”组合框中；单击“确定”按钮将姓名、年龄、职称、性别和兴趣信息添加到右边的列表框中；单击“返回”按钮隐藏“教师信息”窗体，返回到主窗体。From1Private Sub exit_Click() EndEnd SubPrivate Sub font1_Click() Label1.FontName = 隶书 Label1.font.Name = 隶书End SubPrivate Sub font2_Click() Label1.FontName = 宋体 Label1.font.Name = 宋体End SubPrivate Sub person_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub size12_Click() Label1.FontSize = 12 Label1.font.Size = 12End SubPrivate Sub size16_Click() Label1.FontSize = 16 Label1.font.Size = 16End SubFrom2Private Sub Command1_Click() List1.Clear List1.AddItem Text1 List1.AddItem Text2 List1.AddItem Combo1.Text If Option1 Then List1.AddItem 男 ElseIf Option2 Then List1.AddItem 女 End If If Check1 = 1 Then List1.AddItem 音乐 If Check2 = 1 Then List1.AddItem 旅游 If Check3 = 1 Then List1.AddItem 读书 If Check4 = 1 Then List1.AddItem 上网End SubPrivate Sub Command2_Click() Form2.Hide Form1.ShowEnd SubPrivate Sub Form_Load() Combo1.AddItem 教授 Combo1.AddItem 副教授 Combo1.AddItem 讲师 Combo1.AddItem 助教End Sub13.题目： 一张足够大的厚度为0.5毫米的纸，问至少折叠多少次 可以达到珠峰的高度（8848.13米）。x = 0.5n = 0Do While x = 8848130 注意此值影响得分x = x * 2n = n + 1LoopPrint n14.题目：请按照题目要求设计指定的窗体。建立如图1所示界面：（1）按照图1设计窗体：标签 名称 “Lable1” 标题 “字体”；组合框 名称 “Combo1” 窗体加载时添加如图1所示的列表项；标签 名称 “Label2” 标题 “字号”；滚动条 名称 “HScroll1” 要求：Min=0,Max=72,Smallchange=1,Largechange=4；框架 名称 “Frame1”，标题 “字型”；在框架中添加如下3个复选框：复选框 名称 “Check1” 标题 “粗体”复选框 名称 “Check2” 标题 “倾斜”复选框 名称 “Check3” 标题 “下划线”文本框 名称 “Text1”，文字要求居中对齐。（2）实现以下功能：对于下方文本框内的文字，单击组合框可以设置其字体，拖动滚动条可以设置其字号，单击复选框可以实现字形设置。Private Sub Check1_Click() Text1.FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click() Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Check3_Click() Text1.FontUnderline = Check3.ValueEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text End IfEnd SubPrivate Sub Form_Load() Combo1.Clear Combo1.AddItem 宋体 Combo1.AddItem 黑体 Combo1.AddItem 隶书 Combo1.AddItem 楷体_GB2312End SubPrivate Sub Combo1_Click() Text1.Font.Name = Combo1.TextEnd SubPrivate Sub HScroll1_Change() Text1.Font.Size = HScroll1.ValueEnd Sub15.题目：请按照题目要求设计指定的窗体。建立如图所示界面：（1）添加控件，并设置属性标签 名称“Label1” 标题“姓名”标签 名称“Label2” 标题“性别”标签 名称“Label3” 标题“学号”标签 名称“Label4” 标题“出生年月”标签 名称“Label5” 标题“专业”文本框 名称“Text1” 用来显示姓名文本框 名称“Text2” 用来显示学号文本框 名称“Text3” 用来显示出生年月组合框 名称“Combo1” 用来显示性别组合框 名称“Combo2” 用来显示专业ADO控件 名称“Adodc1”按钮 名称“Command1” 标题“首记录”按钮 名称“Command2” 标题“上一条”按钮 名称“Command3” 标题“下一条”按钮 名称“Command4” 标题“尾记录”（2）Student.mdb数据库中有两个数据表：基本情况、成绩表，该数据库位于当前试题目录中；在绑定控件中显示“基本情况”表的内容，要求设置ADO控件的数据源时使用相对路径。（3）单击“上一条”、“下一条”按钮分别移动记录指针到上一条、下一条；在单击“上一条”命令按钮时，如果记录指针指向记录集的首记录之前则将其定位到首记录；在单击“下一条”命令按钮时，如果记录指针指向记录集的尾记录之后则将其定位到尾记录。（4）单击 “首记录”和“尾记录”按钮分别移动记录指针到首记录和尾记录。Private Sub Command1_Click() Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click() Dim mno As String mno = InputBox(请输入学号, 查找窗) Adodc1.Recordset.Find 学号= & mno & , , , 1 If Adodc1.Recordset.EOF Then MsgBox 查无此人！ Adodc1.Recordset.MoveLast End IfEnd Sub16.一、窗体设