vb实验七单选按钮、复选框、列表框和组合框实验报告

合集下载

VB实验报告

VB实验报告实验一、VB控制结构[实验目的]1.掌握选择语句的使用2.掌握循环语句的使用[实验内容]一、VB编程基础练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别会发生什么情况，为什么？①Private Sub Form_Click()I = 10Print IEnd Sub②Private Sub Form_Click()Dim I%I = 10Print IEnd Sub③Option ExplicitPrivate Sub Form_Click()I = 10Print IEnd Sub④Option ExplicitPrivate Sub Form_Click()Dim I%I = 10Print IEnd Sub第一个程序运行的结果是：点击一次窗体便会出现一个“10”第二个程序的运行结果是：也是点击一次窗体出现一个“10”第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？Private Sub Form_Click()Dim n As Integern = n + 1Print nEnd SubPrivate Sub Form_Click()Static n As Integern = n + 1Print nEnd Sub第一个程序运行结果是：第二个程序运行的结果是：二、选择语句程序1：创建应用程序。

要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。

Private Sub Text1_Change()Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,tempX1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框If X1 > X2 ThenTemp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换End IfIf X1 > X3 ThenTemp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换End IfIf X2 > X3 ThenTemp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换End IfPrint: PrintPrint "输出结果：" ’在屏幕上输出“输出结果：”PrintPrint x1,x2,x3 ’在屏幕上输出x1,x2,x3End Sub三、循环语句程序3：创建应用程序。

vb实验教案(第3次)

实验三常用控件和窗体【实验目的】掌握常用控件的主要属性、方法、事件。

【实验内容】1、单选按钮和复选框(1)Caption属性为单选按钮和复选框边上的文本标(2)Alignment属性表示标题（Caption）显示的位置，默认控件按钮在左边，标题显示在右边，值为0；反之值为1(3)Value属性用来检查单选按钮和复选框是否被选定。

对于单选按钮，属性值为True表示被选定，False是缺省值，表示未被选定；复选框用属性值0、1、2分别表示未选定、选定和灰色（不允许选）(4)单选按钮和复选框的主要事件是Click事件。

2、框架(1)主要作用是将其他控件组合在一起，对一个窗体中的各种功能进行分类，便于识别。

(2)当用框架将一个窗体上的单选按钮分组后，在一组中单选按钮进行的操作不会影响到其他组的选择。

(3)主要属性是Caption，当该属性为空时，为封闭框架。

(4)框架一般不需要编写事件过程。

3、列表框和组合框(1)列表框（对于初学者来说，使用起来不太顺手，这里简单说明一下）列表框控件，用于显示项目列表，用户可从中选择一个或多个项目。

1）属性A.List：字符型数组，存放列表框的项目，下标是从0开始的。

属性窗口添加选项，输入下一项时，按“Ctrl+Enter”；在程序中设置或引用时：列表框名.List（Index）。

例如：List1.List(0)=“北京”B.ListIndex：整数，表示执行时，选中的列表项的序号，没有项目选中时为-1 。

只能在程序中设置或引用。

例如：选择“北京”，显示在文本框中，则Text1.text=List1. List ( List1.ListIndex)C.ListCount：整数，表示项目的数量，ListCount-1是最后一项的下标。

只能在程序中设置或引用。

D.Selected 属性，该属性返回或设置列表框控件中的一个项目的选择状态，逻辑型，只能在程序中设置或引用。

例如：List1.Selected（0）=TrueE.Text：被选中的列表项的文本内容，只能在程序中设置或引用。

vb实验七单选按钮、复选框、列表框和组合框实验报告

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：单选按钮、复选框、列表框和组合框实验时间：班级：姓名：学号：一实验目的:1）掌握单选按钮和复选框的使用。

2）掌握列表框的使用。

3）掌握组合框的使用。

4）区别几种控件的使用场合。

二实验环境:Windows XPVisual 2003三实验内容过程及结果分析:一复选框与列表框、组合框联动1.创建界面创建一个工程，由一个窗体组成，界面如下图所示，选择任意一个爱好，将自动想listbox 和combobox中添加一个爱好。

选择一个样式表，将改变combobox 的dropdownstyle 属性。

设计界面2.设计各对象属性可以利用属性窗口给listbox 或combobox 的items 属性添加列表项，单击items 右边的按钮，将出现字符串集合编辑器，可以在其中预选定义列表项。

列表框和组合框的items属性设定界面3.设计各对象的事件代码设计checkbox的事件代码，使用户选择任意一个爱好时，向listbox和combobox中添加该爱好项，当用户不选择中某一爱好时，能移除该爱好。

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedIf CheckBox1.Checked ThenListBox1.Items.Add(CheckBox1.Text)ComboBox1.Items.Add(CheckBox1.Text)ElseListBox1.Items.Remove(CheckBox1.Text)ComboBox1.Items.Remove(CheckBox1.Text)End IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox2.CheckedChangedIf CheckBox2.Checked ThenListBox1.Items.Add(CheckBox2.Text)ComboBox1.Items.Add(CheckBox2.Text)ElseListBox1.Items.Remove(CheckBox2.Text)ComboBox1.Items.Remove(CheckBox2.Text)End IfEnd SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox3.CheckedChangedIf CheckBox3.Checked ThenListBox1.Items.Add(CheckBox3.Text)ComboBox1.Items.Add(CheckBox3.Text)ElseListBox1.Items.Remove(CheckBox3.Text)ComboBox1.Items.Remove(CheckBox3.Text)End IfEnd SubPrivate Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChangedIf CheckBox4.Checked ThenListBox1.Items.Add(CheckBox4.Text)ComboBox1.Items.Add(CheckBox4.Text)ElseListBox1.Items.Remove(CheckBox4.Text)ComboBox1.Items.Remove(CheckBox4.Text)End IfEnd SubPrivate Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChangedIf CheckBox5.Checked ThenListBox1.Items.Add(CheckBox5.Text)ComboBox1.Items.Add(CheckBox5.Text)ElseListBox1.Items.Remove(CheckBox5.Text)ComboBox1.Items.Remove(CheckBox5.Text)End IfEnd SubPrivate Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChangedIf CheckBox6.Checked ThenListBox1.Items.Add(CheckBox6.Text)ComboBox1.Items.Add(CheckBox6.Text)ElseListBox1.Items.Remove(CheckBox6.Text)ComboBox1.Items.Remove(CheckBox6.Text)End IfEnd SubPrivate Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChangedIf CheckBox7.Checked ThenListBox1.Items.Add(CheckBox7.Text)ComboBox1.Items.Add(CheckBox7.Text)ElseListBox1.Items.Remove(CheckBox7.Text)ComboBox1.Items.Remove(CheckBox7.Text)End IfEnd Sub设计radiobutton的事件代码，使用户选择样式时，能改变combobox的dropdownstyle属性。

VB实验报告材料(含问题详解)

MsgBox“除数为0.”
Else
Text4.Text = a / b
End If
End Select
End Sub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
List1.AddItem a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
End If
End Sub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
b = Val(Text3.Text)
c = Text2.Text
If c =“+”Then
Text4.Text = a + b
ElseIf c =“-”Then
Text4.Text = a - b
ElseIf c =“*”Then
Text4.Text = a * b
ElseIf c =“/”Then

VB综合实验项目

综合实验项目（一）上限6人项目名称：模拟QQ的登录窗口功能要求：1、界面设计参考如下：图1-1 主界面图1-2 登录界面图1-3 正在登录界面图1-4 QQ状态对话框图1-5 更换头像的对话框图1-1：图片框PictureBox、图像框Image、组合框ComboBox、标签Label、文本框TextBox、复选框CheckBox、按钮CommandButton、框架Frame、单选按钮OptionButton。

图1-3：标签、按钮图1-4：列表框ListBox、按钮图1-5：驱动器列表框DriveListBox、目录列表框DirListBox、文件列表框FileListBox、按钮（如果增加预览效果，还需要图片框或图像框）2、程序一运行如图1-2，有3个账号添加到账号组合框，输入密码后单击登录按钮可以实现3个账号的登录，转到图1-3的“正在登录界面”。

若账号组合框中输入了的是新账号，程序可以判断新账号，并将新账号和对应的密码存储起来，供下次程序运行时，添加到账号组合框中。

提示：（1）将3个账号和密码存放在文件中，程序运行时读取文件（2）输入的账号要与组合框中的已有账号进行对比，才能判断为新账号。

3、主界面上记住密码和自动登录的复选框被选中时，在程序的下一次运行时有效，“记住密码”的功能是在下一次运行时，在密码文本框中自动显示对应账号的密码，“自动登录”的功能是直接跳过主界面到图1-2。

提示：（1）程序下一次运行时若要使用本次运行时的一些设置，可以在本次结束时把对象的属性等值写到文件中，供下一次运行时使用。

（2）结束时的事件可以考虑使用Form_UnLoad4、单击主界面上的设置，可以调整窗体的高，显示|隐藏换肤和网络设置功能区，显示QQ状态对话框图1-4。

（1）QQ状态对话框也是一个窗体，只是修改窗口样式为只有关闭按钮；（2）要显示其他窗体，可以使用show方法。

5、换肤可以对主界面中的背景图片进行修改。

VB实验报告7

台州学院《VB程序设计》实验报告实验七：常用控件班级： 10 物理 2学号：姓名：实验日期： 2011一、实验目的和要求1．掌握基本控件的重要属性、事件；2．熟练掌握在窗体上建立上述控件的操作方法；3．熟练掌握事件过程代码的编写；4．初步掌握建立基于图形界面的应用程序的过程。

二、实验主要仪器和设备计算机一台，Windows XP 操作系统， Visual Basic 环境。

三、实验内容实验 7.1 设计一个字体修饰的程序，界面如图7-1 所示。

要求：框架 1 中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架 2 中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签 Label1 的文字内容为“ Visual Basic 程序设计”，宋体，常规，三号；文字对齐方式为居中。

图 7-1 字体修饰实验 7.2 设计一个点菜的程序，界面如图7-2 所示。

要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；图7-2 点菜实验 7.3 设计一密码修改程序，要求。

1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“ admin”，则继续执行步骤 2；否则弹出消息框，提示用户出错，并让用户重新输入。

2）比较“新密码 (N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。

否则弹出错误消息，并让用户重新输入。

3）当单击“取消”按钮后，程序终止执行。

图7-3密码修改实验 7.4（选做）设计一个拨号盘的程序。

界面如图成数字键，单击数字键按钮，将拨号的内容显示在文本框现原来的拨号过程；（提示：再现过程由定时器实现）定时器的时间间隔为个字符。

7-4 所示。

要求：命令按钮数组构Text1 中；单击“重拨”按钮，再0.5 秒；设置文本框最多接受10图7-4 拨号盘四、实验原始纪录实验 7.1程序的界面设计。

VB-实验试做情况

实验五：数组与字符串
要注意二维数组的输出格式，在内循环中的Print方法的最后一定要有逗号或分号，在内外循环之间一定要有一个空的Print 方法；要注意题目的要求使用冒泡法排序，不能使用选择法排序的方法来补充程序代码。掌握常用字符操作函数的使用，特别注意Mid函数的使用。
实验六：子程序过程与函数过程
实验十一：综合实验一
相结合的知识点有1.各种控件使用的结合 2.菜单和鼠标事件的结合
实验十二：综合实验二
相结合的知识点有1.过程与选择结构的结合 2.函数与循环结构的结合 3.多窗体程序设计和读写文件的结合。
要注意子过程的定义格式与调用方法，理解参数的按值传递和按地址传递的区别，数组参数只能按地址传递。要注意递归函数程序代码的编写方法，一定要有边界条件，否则就是无穷递归。
实验七：简单应用
综合练习基本操作，加强计算机等级考试的练习操作，能达到等级考试第一项操作题的基本突破。
实验八：菜单、键盘与鼠标事件
要掌握菜单的制作方法，理解和区别下拉菜单和弹出式菜单的制作和使用方法，要掌握键盘的KeyDown、KeyPress和KeyUp事件的使用和字符输出顺序，要掌握菜单和鼠标事件的结合使用。
实验三：选择结构
要注意If语句与Select Case语句的区别与联系，理解条件语句的逻辑表达式的逻辑意义，然后结合历年全国计算机等级考试试题操作练习。
实验四：循环结构
要注意循环的正常出口与非正常出口问题，正常出口中循环控制变量的值一定超过终值X，非正常出口中循环变量的值一定不超过终值，所以循环结束后应，循环控制变量I>X-1或I=X。
Visual Basic 实验试做情况
实验一：常用标准控件（一）
要注意属性窗口中的名称与程序代码中的对象名的一致性，保存时要注意至少有两个文件：窗体文件和工程文件。注意标签、文本框和命令按钮的使用方法。实验二：常用 Nhomakorabea准控件（二）

05VB实验报告_常用控件

Visual Basic程序设计实验报告
题目：常用控件
院（部）：管理工程学院
专业：工程管理
班级：工管082
姓名：焦亚辉
学号：2008021054
指导教师：刘夏
实验目的：
1、掌握窗体、命令按钮、标签和文本框的常用属性、方法和事件的应用。

2、掌握单选按钮、复选框、框架、滚动条、列表框、组合框和时钟控件的常用属性、方法和事件的应用。

实验任务：
1、设计一个个人资料输入窗口，使用单选按钮选择“性别”，组合框列表选择“民族”和“职业”，检查框选择“爱好”。

当单击“确定”按钮，列表框列出个人资料信息；单击“重选”按钮，恢复原始状态；单击“退出”按钮，结束程序执行；单击“删除列表项”按钮，可删除“个人资料”列表框中选中项的信息。

程序运行界面如下图所示：
实验要求：
1、上机完成以上实验任务，在实验报告中加入程序运行后的界面截图。

2、实验任务中的窗体标题为设计界面中的内容加下划线加各自姓名，例如：实验任务2中设计界面中标题内容为：“个人资料”，修改后为“个人资料_张三”。

3、将实验中的详细事件过程（即代码窗口的代码）手写到实验报告中。

实验内容：
事件过程：。

VB实验报告1-9

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

VB实验报告教案（4-7）

VB实验报告教案（4-7）第一篇：VB实验报告教案(4-7)实验四：题目：Visual Basic常用控件目的：1、掌握命令按钮、单选钮、检查框、框架常用属性与事件2、掌握滚动条、列表框、组合框、时钟的常用属性与事件日期：1班为10月18日，2班为10月14日,3班为10月16日内容：要求界面用铅笔画出来。

Private Sub Command1_Click()List1.AddItem Text1If Option1 ThenList1.AddItem “男”ElseList1.AddItem “女”End IfList1.AddItem Text2List1.AddItem Combo1List1.AddItem Combo2List1.AddItem “爱好：”If Check1 ThenList1.AddItem “上网”End IfIf Check2 ThenList1.AddItem “篮球”End IfIf Check3 ThenList1.AddItem “音乐”End IfIf Check4 ThenList1.AddItem “交友”End If End Sub Private Sub Command2_Click() List1.Clear End SubPrivate Sub Command3_Click()End End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenText2.SetFocusEnd If End SubPrivate Sub Form_Load()Form1.Caption = “电子钟”Form1.BorderStyle = 3Timer1.Enabled = TrueTimer2.Enabled = FalseTimer1.Interval = 1000Timer2.Interval = 1000Label1.Caption = Time()'显示系统时间Label1.Alignment = 2Label1.BorderStyle = 1Label2.Caption = “闹钟时间:”Text1.Text = “" End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '按下回车开始闹钟If KeyAscii = 13 ThenTimer2.Enabled = TrueText1.Enabled = FalseEnd If End SubPrivate Sub Timer1_Timer()Label1.Caption = Time()'显示系统时间 End SubPrivate Sub Timer2_Timer()Static i As Int gerIf Label1.Caption >= Text1.Text Then'利用静态变量产生背景交替效果If i = 0 ThenLabel1.BackColor = vbRedi = 1ElseLabel1.BackColor = vbWhitei = 0End IfEnd If End Sub 实验五：题目：对话框、菜单、工具栏和图形程序设计目的：1、掌握菜单的设计方法；学会应用通用对话框控件2、掌握在Visual Basic环境中的绘图方法，显示图片3、对话框、菜单、工具栏和图形程序设计的综合应用日期：1班为11月3日，2班为11月4日，2班为11月6日内容：要求界面用铅笔画出来。

大一计算机VB程序设计实验要求及报告7

实验7 用户界面设计一、实验目的1．掌握常用控件、通用对话框。

2．掌握菜单设计、多重窗体。

二、实验要求三、在C:\下建立子文件夹“VB实验7”, 按照题目要求, 在该文件夹下为各题保存相应的文件, 如本实验中的第一题, 需保存的文件有: 工程文件(71.vbp)、窗体文件(71.frm) 及可执行文件（71.exe）, 本实验中的第二题, 需保存的文件有: 工程文件(72.vbp)、窗体文件(72.frm) 及可执行文件（72.exe）, 其余实验依此类推。

四、撰写实验过程中出现了哪些问题、错误, 你是如何解决的, 做一个小结。

实验内容:设计如图7-1所示的应用程序。

它能利用LostFocus事件过程对输入的内存大小进行合法性检查, 确保最后2个字符是“MB”, 其余的都是数字字符。

当用户单击“Ok”按钮后, 在右边的文本框中显示所选择的信息。

要求：窗体显示字体、大小默认。

图7-1答案：Private Sub Command1_Click()Text2 = ""Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLfIf Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLfIf Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLfIf Option3.Value Then Text2 = Text2 + Option3.Caption + vbCrLfIf Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLfIf Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLfIf Check3.Value Then Text2 = Text2 + Check3.CaptionEnd SubPrivate Sub Text1_LostFocus()Dim a$, b$a = Left(Text1.Text, Len(Text1.Text) - 2)b = Right(Text1.Text, 2)If Not IsNumeric(a) Or b <> "MB" ThenMsgBox "请重新输入内存", , "71"Text1 = ""Text1.SetFocusEnd IfEnd Sub设计如图7-2所示的计算程序, 要求: 窗体显示字体、大小默认, 参数输入用文本框, 结果显示用标签框。

实验7 循环结构与列表框、组合框_Visual Basic程序设计_[共4页]

Visual Basic程序设计
132
实验7 循环结构与列表框、组合框
一、实验目的
1．掌握For语句的使用。

2．掌握Do语句的各种形式的使用。

3．掌握循环的规则及其执行过程。

4．掌握如何控制循环条件，防止死循环或不循环。

5．掌握循环嵌套的使用。

6．掌握列表框、组合框的基本属性、方法和事件的使用。

二、实验内容
1．显示1～100之间所有能被3或者7整除的数。

2．利用随机函数产生20个50～100范围内的随机数，显示它们的最大值、最小值和平均值。

3．编写程序，使窗体上显示图4-40所示的有规律的图形。

提示：可只用一层循环结构，使用Tab函数确定打印位置，可使用的函数还有String、Str、Right。

4．设计一个运行界面如图4-41所示的程序。

在“主食”组合框中选择一种食品（不可输入），单击“添加主食”按钮即可将该项内容添加到右边的列表框中；在“饮料”组合框中选择或输入一种食品，单击“添加饮料”按钮即可将该项内容添加到右边的列表框中。

在列表框中选择某项并单击“不要这个”按钮即可从列表框中清除该项；单击“我不吃了！”即可清除列表框中的全部内容。

图4-40 第3题运行结果图4-41 第4题运行结果
5．“百元买百鸡”问题。

设有100元钱，需购买100只鸡，其中公鸡5元1只，母鸡3元1只，小鸡1元3只，试求有几种购买方式。

编写程序，当鼠标单击窗体时，计算结果，并在窗体上显示所有的组合方式。

提示：本题题设要求是购买公鸡、母鸡、小鸡的总数及总支出均为100，通过三重循环用穷举法完成程序的设计。

VB单选钮和复选框列表框组合框多窗体和菜单

为“退出”项目增长click事件，然后输入代码:end
多窗体程序设计
在一种工程中添加新窗体旳措施
1、选择窗体
多窗体程序设计
多窗体设计范例：按下图设计外观
1、设置标题： 2、设置背景： 3、设置borderstyle为1 4、设置窗体显示位置为屏幕中心： startupposition:设置为2 5、设置controlbox为false
多窗体程序设计
Label4.FontItalic = False Case 2: LabeΒιβλιοθήκη 4.FontBold = False
Label4.FontItalic = True Case 3: Label4.FontBold = True
Label4.FontItalic = True End Select End Sub
Private Sub Option3_Click() Label1.FontSize = Option3.Caption End Sub
Private Sub Option4_Click() Label1.FontSize = Option4.Caption End Sub
单项选择按钮与复选框
功能4：实现框架frame2中字型设置功能。
list1.selected(2)=true
列表框与组合框
列表框（ListBox）
Private Sub Form_Load() Dim i As Integer Label1.Caption = "" List1.ListIndex = 2 For i = 0 To List1.ListCount - 1 Label1.Caption = Label1.Caption + List1.List(i) Next End Sub

VB实验报告

学号：姓名：班级：实验时间：实验编号 VB05 实验名称常用控件
实验目的和要求 1. 单选框
2. 复选框
3. 框架控件的使用和列表框的使用
实验内容 1.单选框、复选框的主要属性
2.框架及列表框的方法
一、实验题目
1.单击民族所选内容出现在文本框中，选择爱好，爱好接在民族后出现在文本框内。

具体功能运行“选框与框架”文件。

代码编写：
Visual Basic 程序设计实验（训）报告
.
2.界面如下图，左侧为列表框，运行后选择列表框中的球星，在右侧的标签中出现该球星属于哪个国家。

（两种）
代码编写：
3. 已知李明的工资为2200元，每年可加工龄工资1%，多少年后小明的工资超过2500元？只要代码：
4. 输入x,y,z三个数，按从大到小的次序显示，如图所示。

代码：
截图：
5. 在歌手大奖赛中，有10名评委为选手打分，分数为1到100的整数，选手最后得分为，去掉一个最高分和一个最低分后其余8个分数的平均分，编程实现求一名选手的最后得分。

（最后得分小数点后保留两位有效数字）。

如输入：94，91，93，94，90，99，97，92，91，95
则输出：
Cancle max score:99
Cancle min score:90
Average score:92.88
(请用循环的方法编程)
只要代码：
二、实验感受(包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等)。

VisualC++应用程序设计实验报告之编辑框、列表框和组合框

VisualC++应用程序设计实验报告之编辑框、列表框和组合框实验步骤与调试过程1.创建工作文件夹2.按照要求设计“学生成绩对话框”3.添加CstudentRec类代码在Ex_InputDlg.h文件的class CEx_InputDlg:Public Cdialog语句前面添加下列类代码：class CStudentRec{public:CStudentRec(CString name,CString id,float s1,float s2,float s3) {strName=name;strID=id;fScore[0]=s1;fScore[1]=s2;fScore[2]=s3;}CStudentRec(){};~CStudentRec(){};CString strName;CString strID;float fScore[3];}；4.添加控件变量及初始代码在OnInitDialog中添加下列代码：m_spinScore1.SetRange(0,100);m_spinScore2.SetRange(0,100);m_spinScore3.SetRange(0,100);//设置组合框的内容CString str;for(int i=0;i<=50;i++){str.Format("2105101%2d",i);m_comboNO.InsertString(i-1,str);}m_comboNO.SetCurSel(0);5.完善代码实验结果程序成功运行，并能完成要求的功能。

疑难小结利用列表框(ListBox)可以选择所需要的选项，达到与用户对话的目的，如果有较多的选项而不能一次全部显示时，VB会自动加上流离颠沛滚动条，其最主要的特点是只能从其中选择但不能直接修改其中的内容。

而组合框是组合了文本框和列表框的特性而形成的一种控件，组合框在列表框中列出了可供用户选择的选项，当用户选定某项后，该项内容自动装入文本框中。

vb实验报告

试验报告（1）
院（系）：课程名称：日期：
图1-2 界面
图1-3
试验报告（2）
院（系）：课程名称：日期：
试验报告（3）
院（系）：课程名称：日期：
试验报告（4）
院（系）：课程名称：日期：
试验报告（5）
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：
其中：
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到
了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
试验报告
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：注意：绘制的线段应该有颜色、粗细长短的变化。

VB实验报告(实验7)

电子信息工程学系实验报告
课程名称：面向对象程序设计
实验项目名称：实验7 单选按钮、复选框、列表框和组合框实验时间2011-11-14
班级：姓名：学号：
实验目的:
1）、掌握单选按钮和复选框的使用
2）、掌握列表框的使用
3）、掌握组合框的使用
4）、区别几种控制的使用场合
实验环境:
Windows XP
Visual 2003
实验内容及过程:
一、复选框与列表框、组合框联动
1、创建界面
界面设计：
在窗体Form1上放置两个组合框，并
在其中分别放置七个复选框和三个单选按
钮；在窗体上放置一个列表框、一个组合
框和一个文本框。

2设计各对象的属性如图T7-1所示。

3、编写程序代码
CheckBox 事件代码：图 T7-1 设计界面
Radiobutton事件代码：
Combobox事件代码：
4、保存和运行
图T7-2 运行结果
二、将文本框内容添加到列表框
1）、创建如图T7-3界面如下
图T7-3 界面设计
2）、添加代码如下：
3）、保存和运行
图7-4 运行结果
实验心得：
通过这次实验，让我对单选按钮和复选框的使用有一个比较深入的了解。

也让我对组合框还有列表框的使用场合更加清楚，更让我对的编程更加熟悉。

VB实验报告(含答案)

实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

3.了解和使用VB集成开发环境各窗口、菜单的一般功能。

4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。

二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。

程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。

2．掌握用Visual Basic的各种运算符及表达式。

3．学习使用Visual Basic内部函数和数据输入、输出方法。

4．掌握命令按钮、文本框和标签。

5．设计顺序程序。

二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。

vb第六章常用控件(二)(答案)

第六章常用控件实验作业（二）一、实验目的结合实例，掌握单选按钮、复选框、框架、列表框和组合框控件的基本属性、事件和方法，了解框架的作用和基本使用，重点理解单选按钮和复选框的Value 属性的作用，掌握列表框和组合框的List、ListCount、ListIndex、Text属性的用法，掌握列表框和组合框的AddItem、RemoveItem和Clear方法。

二、实验要求1、将作业1的确定按钮Command1的Click事件代码书写在实验报告上。

Private Sub Command1_Click()End Sub2、写出作业2程序中“星期”单选按钮Option2的Click事件代码。

3、分别写出作业3中添加、删除、修改和修改确定四个命令按钮的Click事件代码。

4、写出作业4除法单选按钮Option4的Click事件代码。

5、写出作业5所有命令按钮的Click事件代码。

三、实验内容作业1：设计一个程序，用户界面由四个单选按钮、一个框架、一个标签和一个命令按钮组成，程序开始运行后，用户单击某个单选按钮，就可将它对应的内容（星期、日期、月份或年份）显示在标签框中。

作业2：对列表框进行项目添加、修改和删除操作要求：1、点击添加按钮时检查列表框，已有条目不允许添加。

2、只有选定列表框内容才可以进行删除。

3、点击修改按钮将列表框中选定内容送到文本框中，同时无法继续进行添加、删除、修改操作。

（Enabled属性设置为False）4、点击修改确定按钮，用文本框中的内容替换列表框中选定内容，同时可以继续进行添加、删除、修改操作。

Dim t As IntegerPrivate Sub Command1_Click()Dim i As Integer, d As Integeri = 0d = 0Do While i <= List1.ListCount - 1If List1.List(i) = Text1.Text Thend = 1End Ifi = i + 1LoopIf d = 0 ThenList1.AddItem Text1.TextEnd IfEnd SubPrivate Sub Command2_Click()Dim i As Integer, d As Integeri = 0Do While i <= List1.ListCount - 1If List1.Selected(i) = True ThenList1.RemoveItem iEnd Ifi = i + 1LoopEnd SubPrivate Sub Command3_Click()Text1.Text = List1.Textt = List1.ListIndexEnd SubPrivate Sub Command4_Click()List1.RemoveItem tList1.AddItem Text1.Text, tEnd SubPrivate Sub Form_Load()List1.AddItem "大学外语"List1.AddItem "计算机应用基础"List1.AddItem "方剂学"List1.AddItem "医古文"List1.AddItem "中药学"List1.AddItem "中药化学"List1.AddItem "中药药理学"End Sub作业3：计一个程序，在列表框和组合框之间进行信息的移动，没有选择项时给出相应的提示。