VB程序设计实验报告
(最新版)VB程序设计实验报告
湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; c End SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n / 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给ksxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
VB程序实验报告
End Sub
Private Sub Command3_Click()
Text3 = Len(Text1)
Text4 = Len(Trim(Text1))
End Sub
Private Sub Form_Load()
End Sub
4.2-2c代码是：
5.2-3a代码是：
Text2.ForeColor = RGB(0, 0, 0)
Text2.PasswordChar = "*"
End Sub
3．2-2b代码是：
Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub
Private Sub Command2_Click()
x = Text1: y = Text2
x = x + y
Text3 = x
Text4 = y
End Sub
Private Sub Command5_Click()
Dim x%, y%
x = Text1: y = Text2
x = y: y = x
Text3 = x
Text4 = y
End Sub
Private Sub Command6_Click()
Text1.ForeColor = RGB(255, 0, 0)
Text2.ForeColor = RGB(255, 0, 0)
Text2.PasswordChar = ""
Text1 = (Text1 = "2006000")
Text2 = (Text2 = "TJin1234")
VB上机实验报告详细易懂
VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
实验报告VB程序设计
Else
Label4.Caption = "方程无解"
End If
Else
x1 = (-c) / b
Label4.Caption = "方程有一个解：" & x1
End If
Else
d = b * b - 4 * a * c
t = Sqr(Abs(d))
If (d >= 0) Then
x1 = (-b + t) / (2 * a)
x2 = (-b - t) / (2 * a)
Label4.Caption = "方程有两个实数根： x1=" & x1 & " x2=" & x2
Else
x3 = (-b) / (2 * a)
x4 = t / (2 * a)
Text3.Text = ""
Label4.Caption = ""
End Sub
（4）保存工程，运行程序
3、调试过程及运行结果
4、实验心得
（1）要把求解过程中遇到的情况考虑全面。
（2）要善于利用系统提供的计算函数。
Label4.Caption = "方程有两个复数根： x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4 & "i"
End If
End If
VB实验报告格式
VB实验报告格式1.实验目的本实验旨在通过编写VB程序来熟悉VB的基本语法和应用，加深对VB的理解，并实践运用对话框、输入输出、控制流程等基本知识。
2.实验环境本实验使用的开发环境是Visual Studio。
VB是Visual Basic的简称，是一种用于Windows操作系统的事件驱动编程语言。
它以易学易用和可视化设计为特点，广泛用于Windows客户端应用程序开发。
3.实验内容及步骤本次实验的主要内容是开发一个简单的计算器程序，实现基本的数学运算和功能。
步骤如下：步骤一：创建一个新的VB项目，选择Windows Forms应用程序模板。
步骤二：通过拖放控件的方式在窗体上创建计算器的界面，包括数字按钮、运算符按钮和显示框等。
步骤三：为每个按钮的Click事件添加对应的处理函数，实现按钮点击后的相应操作，如数字按钮的输入、运算符按钮的操作、等号按钮的计算等。
步骤四：编写计算逻辑函数，将用户输入的表达式进行计算，并返回结果。
步骤五：在界面上显示计算结果。
4.实验思考在实验过程中，我遇到了一些问题，并进行了一些思考。
首先，我发现在进行运算时，用户可能会输入错误的表达式，如除数为零、表达式不完整、运算符错误等。
为了提高程序的容错能力，我在进行运算前添加了一些检测，如判断是否为零除法、判断表达式是否合法等。
其次，我也思考了如何将程序的功能和用户交互进行优化。
在这个计算器程序中，我添加了一些便捷的操作，如点击清零按钮可以清空当前表达式，点击删除按钮可以删除一个字符等。
5.实验结果经过编写代码和调试运行，我成功地实现了一个简单的计算器程序。
用户可以通过点击界面上的按钮输入表达式，然后点击等号按钮进行计算，最后显示计算结果。
6.实验总结通过本次实验，我更加深入地了解了VB语言的基本语法和应用。
通过实践编写了一个计算器程序，不仅加深了对VB的理解，还提高了编程能力和解决问题的能力。
同时，本次实验也让我体会到了软件开发的过程，包括需求分析、设计、开发和测试等。
VB实验报告(实验10)
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。
2）、熟练掌握使用File 和Directory 对象操作文件的方法。
3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。
4）、理解流的概念。
5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。
实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。
还要再添加一个OpenFileDialog 控件。
界面安排如图T10-1。
3、 编写程序代码引入System.IO 名称空间。
单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。
VB程序设计VB实验四 实验报告
实验报告四
实验目的
（1）掌握顺序文件的操作
（2）通过本次练习，完成具有一定难度的综合程序设计
（3）通过编写、调试、运行程序，进一步掌握VB程序设计的基本方法和编程技巧（4）巩固所学知识，提高分析问题和解决问题的能力
实验内容
【实验1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现简单的四则运算，包括优先级（例如可以计算1+2*3），参考界面如下图所示。
（80分）
要求：
1、将0~9的数字按钮做成控件数组
2、除可以用鼠标单击”=”按钮进行计算，还能实现当使用键盘，按下”=”号键也能完成输入式子的计算。
完成此功能，需要写窗体的键盘KeyPress事件（为使窗体能响应KeyPress事件，请设置窗体的KeyPreview属性为True）
Private Sub Form_KeyPress(KeyAscii As Integer)
'"="的ASCII码为61
'在此判断若KeyAscii=61,则调用“=”按钮的事件过程，完成计算End Sub
实验结果：
【实验1 代码】
【实验1 典型结果】
【选作1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现进制转换，参考界面如下图所示。
（20分）
实验结果：
【选作1 代码】
【选作1 典型结果】
实验小结
1.遇到的问题：
2.对课程的建议：
3.。
vb实验报告3
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号 2012118064姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>b t = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; c End SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n / 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给ksxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容；如果单击“结束”命令按钮，则结束程序的运行。
程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。
如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。
所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。
2、复选框、单选按钮及框架控件的使用程序3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜体），请建立应用程序。
3、列表框和组合框控件的使用程序4：编写程序。
要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左边列表框的10个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。
单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。
单击“退出”按钮或按ESC键，可退出程序。
窗体示意图如下。
程序5：建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按钮、一个文本框和一个标签。
要求：●单击“添加”按钮可将输入的内容添加到组合框中●单击“删除”按钮可删除组合框中选定的项目●单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框●单击“退出”或按ESC键退出程序4、滚动条和定时器控件的使用程序6：编写程序，运行时的界面如下图所示。
要求：无论是拖动滚动条上的滚动框，还是单击滚动箭头（数值递增或递减1）或滚动条（数值递增或递减10），均可以在相应的标签中反映当前数值，并动态计算出均值；单击“Reset”按钮，可将各滚动条上的滚动框复位。
程序7：利用定时器控件设计一个数字式时钟应用程序。
三、实验记录程序1如下：Private Sub Form_Load()Text1.Text = "文本框是一个多功能控件，可以显示或者接收用户输入的文本信息。
" '给文本框指定内容End SubPrivate Sub Command1_Click()Text2.Text = Text1.SelText '在Text1中选定文本赋给Text2 End SubPrivate Sub Command2_Click()End '程序结束End Sub程序2如下：Private Sub Command1_Click()If Text1 = "" Then'如果Text1没有输入，当前的激活文本区（焦点）在Text1Text1.SetFocusExit Sub '退出过程End IfIf Text2 = "" Then'如果Text2没有输入，当前的激活文本区（焦点）在Text2Text2.SetFocusExit Sub '退出过程End IfIf Text3 = "" Then'如果Text3没有输入，当前的激活文本区（焦点）在Text3Text3.SetFocusExit Sub '退出过程End IfIf Text4 = "" Then'如果Text4没有输入，当前的激活文本区（焦点）在Text4Text4.SetFocusExit Sub '退出过程End IfIf Text5 = "" Then'如果Text5没有输入，当前的激活文本区（焦点）在Text5Text5.SetFocusExit Sub '退出过程End IfEnd '退出程序End SubPrivate Sub Text2_LostFocus()If Text2.Text <> "" Then '如果Text2有输入If Text2.Text <> "男" And Text2.Text <> "女" Then'如果Text2输入的内容不是“男”和“女”Text2.Text = "" '则Text2不输出Text2.SetFocus '当前的激活文本区（焦点）在Text2End IfEnd IfEnd SubPrivate Sub Text4_LostFocus()If Text4.Text <> "" Then '如果Text4有输入If Len(Text4.Text) <> 6 Or Not IsNumeric(Text4.Text) Then '如果Text4输入的内容不是数值或者字符串的长度不为6 Text4.Text="" '则Text4不输出Text4.SetFocus '当前的激活文本区（焦点）在Text4End IfEnd IfEnd SubPrivate Sub Text5_LostFocus()If Text5.Text <> "" Then '如果Text5有输入If Len(Text5.Text) <> 8 Or Not IsNumeric(Text5.Text) Then '如果Text5输入的内容不是数值或者字符串的长度不为8 Text5.Text="" '则Text5不输出Text5.SetFocus '当前的激活文本区（焦点）在Text5End IfEnd IfEnd Sub程序3界面设计(程序设计界面和运行结果界面)：程序3如下：Private Sub Option1_Click()Text1.FontName = "宋体" 'Text1中的内容为宋体End SubPrivate Sub Option2_Click()Text1.FontName = "黑体" 'Text1中的内容为黑体End SubPrivate Sub Option3_Click()Text1.FontSize = 10 'Text1中的内容为字号大小为10号End SubPrivate Sub Option4_Click()Text1.FontSize = 12 'Text1中的内容为字号大小为12号End SubPrivate Sub Check1_Click()If Check1.Value = 1 Then '如果Check1被选中Text1.FontBold = True 'Text1中的内容变为粗体ElseText1.FontBold = False 'Text1中的内容不变End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then '如果Check2被选中Text1.FontItalic = True 'Text1中的内容变为斜体ElseText1.FontItalic = False 'Text1中的内容不变End IfEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量Last = List1.ListCount - 1'将List1.ListCount - 1 中被选中的内容赋給Last For i = 0 To Last '统计i大于Last 时停止循环List2.AddItem List1.List(Last - i)'将List2中被选中的内容添加到List1中 List1.RemoveItem Last - i '将List1中被选中的内容删除Last - i个 Next iCommand1.Enabled = False 'Command1按钮无效Command2.Enabled = True 'Command2按钮有效End SubPrivate Sub Command2_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量Last = List2.ListCount - 1'将List2.ListCount - 1 中被选中的内容赋給Last For i = 0 To Last '统计i大于Last 时停止循环List1.AddItem List2.List(Last - i)'将List1中被选中的内容添加到List2 List2.RemoveItem Last - i '将List2中被选中的内容删除Last - i 个Next iCommand1.Enabled = True 'Command1按钮有效Command2.Enabled = False 'Command2按钮无效End SubPrivate Sub Command3_Click()Unload Me '程序退出End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 9 '统计i大于9 时停止循环RandomizeList1.AddItem Int((90 * Rnd) + 10) '给List1中添加内容Next iEnd Sub程序5如下：Private Sub Combo1_Change()If Combo1.Text <> "" Then '如果Combo1输入内容不为空Command1.Enabled = True 'Command1按钮点击有效Command1.Default = True 'Command1为默认按钮ElseCommand1.Enabled = False '否则，Command1按钮点击无效，成灰色状态 End IfEnd SubPrivate Sub Combo1_Click()Command2.Enabled = True 'Command2按钮点击有效Command2.Default = True 'Command2为默认按钮Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command1_Click()Combo1.AddItem Combo1.Text '添加内容到Combo1中Combo1.Text = "" 'Combo1输入内容为空Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command2_Click()x = Combo1.ListIndex '将Combo1中的内容赋給xCombo1.RemoveItem x '将Combo1中的内容中的x删除If x < Combo1.ListCount Then '如果x小于Combo1.ListCount中的值Combo1.ListIndex = x '将x中的内容赋給Combo1ElseIf x > 0 Then '否则，如果x大于0Combo1.ListIndex = x - 1 'x-1赋给Combo1ElseCommand2.Enabled = False '否则，Command2按钮点击无效Command2.Default = False 'Command2不为默认按钮End IfEnd IfText1.SetFocus '赋焦点光标在停放text1里End SubPrivate Sub Command3_Click()Text1.Text = Combo1.ListCount '将Combo1中的内容赋給Text1Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command4_Click()End '程序结束End Sub程序6如下：Private Sub Command1_Click()HScroll1.Value = 0 '将数值0赋给滚动条HScroll1HScroll2.Value = 0 '将数值0赋给滚动条HScroll2HScroll3.Value = 0 '将数值0赋给滚动条HScroll3End SubPrivate Sub HScroll1_Change()Label5.Caption = HScroll1.Value'滚动条HScroll的数值显示在标签Label5上Average '求其平均值End SubPrivate Sub HScroll2_Change()Label6.Caption = HScroll2.Value'滚动条HScrol2的数值显示在标签Label6上Average '求其平均值End SubPrivate Sub HScroll3_Change()Label7.Caption = HScroll3.Value'滚动条HScrol3的数值显示在标签Label7上Average '求其平均值End SubPrivate Sub Average()Dim Temp As Double '定义双精度变量TempTemp = (HScroll1.Value + HScroll2.Value + HScroll3.Value) / 3 '将滚动条HScroll，HScroll2，HScroll3的平均值之和除以3,结果赋给TempLabel8.Caption = CStr(Temp) 'Temp的均值显示在标签Label8上End Sub程序7如下：Private Sub Form_Load()Label1.Caption = Time '在窗体上，将现在的时间赋给标签Label1End SubPrivate Sub Timer1_Timer()Label1.Caption = Time'在时间控件Time1把现在的时间显示在标签Label1上End Sub四、实验总结实验三、过程一、实验目的1．掌握过程的定义和调用的方法2．掌握典型问题的算法求解二、实验内容1、过程的定义和调用程序1：创建应用程序，要求对输入的非负整数m 和n ，如果m>=n ，则显示组合数n m C 的值，否则显示数据出错。