vb实验报告范本docWord格式文档下载.docx

1、8循环结构程序设计及动态数组的应用9综合实例（一）10综合实例（二） 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 051893067 计算机号 67 实验时间： 2007、3、28 实验地点： 综南附307 指导教师签字： 黄红兵 实验一 Visual Basic环境和程序设计的初步一、实验目的和要求1、 了解Visual Basic系统对计算机软件、硬件的要求。2、 掌握启动与退出Visual Basic的方法。3、 熟悉Visual Basic的集成开发环境（IDE）。4、 掌握在窗体上添加控件的各种方法。5、 掌握建立、编辑、运行和保存一个简单的Vi

2、sual Basic应用程序的全过程。二、实验内容和原理1、 熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。2、 在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1） 编写适当事件过程，当单击命令按钮时，文本框内容消失。（2） 单击“文件”“生成工程”并退出。在windows环境下运行该工程。用户界面：实验代码：Private Sub Command1_Click（）Text1.Text = End Sub3、 创建一个“标准EXE”类型的应用程序。要求：程序运行时在屏幕上显示“欢迎您的到来

3、！”，并输入您的名字。当按回车键时弹出对话框如下所示：代码：Private Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii = 13 Then MsgBox 欢迎 + Text1.Text + 的到来 End If4、 创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。单击“退出”按钮则退出应用程序。Dim sum As Integersum = Weekday（Now）Text1.Text = DateSelect Case sumCase 1 Text2.Text = 日Case 2一Ca

4、se 3二Case 4三Case 5四Case 6五Case 7六End Select Private Sub Command2_Click（）End三、总结通过本次实验熟悉了Visual Basic的集成开发环境（IDE）。掌握在窗体上添加控件的各种方法。掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。 2007、4、4 实验地点：实验二 顺序程序设计1.掌握常用内部函数的使用2.掌握表达式赋值语句的正确书写规则3.掌握InpueBox和MsgBox的使用1.创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。Private Sub Form_click（

5、）Dim i As IntegerDim j As IntegerFor i = 1 To 9 For j = 1 To i If i = 9 Or j = 1 Or i = j Then Print ; Else Print Spc（2）; Next j Print Next i2.创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的字符串放大-倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。Dim xDim y y = Text1.FontSize x = Int（Rnd * 2 + 2） Text1.FontSize = x * y Text1.FontSize

6、= y3.创建如图的应用程序，要求：单击“确定”按钮后，弹出“是否继续”，若单击“是”，则文本框显示：“您按下的按钮是是”；若单击按钮“否”，则文本框显示：“您按下的是否”。单击“结束”，则退出应用程序。 Dim x As Integer x = MsgBox（是否继续, 20, MsgBox 信息显示窗口） If x = vbYex Then Text1.Text = 您按下的按钮是“是”您按下的按钮是“否” Text1.FontBold = True End通过本次实验掌握常用内部函数的使用，表达式赋值语句的正确书写规则以及InpueBox和MsgBox的使用 2007、4、11 实验地点

7、：实验三 选择结构程序设计1、掌握If条件语句的使用。2、掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。1、请编一程序用于在期未时根据学生总分情况给予奖励，条件如下：四门总分不低于360（含360分），特等奖；四门总分320分（含320分）360分（不含360分），优秀奖；单科成绩不低于95分，特别奖。Dim t1, t2, t3, t4, sumIf IsNumeric（Text1.Text） And IsNumeric（Text2.Text） And IsNumeric（Text3.Text） And IsNumeric（Text4.Text） Then t1 = Val（T

8、ext1.Text） t2 = Val（Text2.Text） t3 = Val（Text3.Text） t4 = Val（Text4.Text） sum = t1 + t2 + t3 + t4 Label3.Caption = sum If sum = 360 Then您获得了特等奖, 64, 获奖通知 ElseIf sum = 320 And sum = 95 Or t2 = 95 Or t3 = 95 Or t4 = 95 Then您获得了特别奖您要好好努力了！通知Else请输入数字, 16End IfText2.Text = Text3.Text = Text4.Text = Labe

9、l3.Caption = 2. 输入X，Y，Z三个数，按从小到大的次序显示出来，运行结果如图：程序中不得使用循环结构和转向语句；掌握两个数交换的方法程序界面：Dim x, y, z, t If KeyAscii = 13 Then x = Val（Trim（Text1.Text） Text2.SetFocus Text4.Text = xPrivate Sub Text2_KeyPress（KeyAscii As Integer） y = Val（Trim（Text2.Text） If x y Then t = x x = y y = t Text3.SetFocus Text5.Text =

10、 y End SubPrivate Sub Text3_KeyPress（KeyAscii As Integer） z = Val（Trim（Text3.Text） If z = x Then Text5.Text = z Text6.Text = y ElseIf z x Then Text4.Text = z Text5.Text = x Text6.Text = z通过本次实验掌握If条件语句的使用，情况语句的使用以及情况语句与多分支条件语句的使用。 2007、4、18 实验地点：实验四 循环结构程序设计及数组的运用1、 掌握FOR语句的使用。2、 掌握DO语句的各种形式的使用。3、 掌

11、握如何控循环条件，防止死循环或不循环。4、 掌握数组的声明以及数组元素的使用差别。5、 掌握静态数组和动态数组的使用差别。6、 应用数组解决与数组有关的常用算法问题。1、 编程计算1-2+3-4+5-6+n的值，其中n由文本框输入，要求掌握FOR语句的正确使用。Option ExplicitDim n As IntegerDim i, s As IntegerDim k As Integerk = 1s = 0If KeyAscii = n = Val（Trim（Text1.Text） For i = 1 To n s = s + i * k k = -k Next Label1.Captio

12、n = 1-2+3-4+.- + Str（n） + = + Str（s）2随机产生10个110的正整数（包括1，10），求最大值、最小值和平均值，并显示整个数组的值。Dim x As IntegerDim a（10） As IntegerDim i As Integer, max As Integer, min As Integer For i = 1 To 10 a（i） = Int（Rnd * 10） + 1 Print Spc（3）; a（i）; max = a（1） min = a（1） If max min = a（i） sum = sum + a（i） Text1.Text = m

13、ax Text2.Text = min Text3.Text = sum / 104.在窗体上显示给定行的杨辉三角形。Private i As Integer, j As IntegerPrivate x As Integer, n As IntegerPrivate a（） Sub funct（）For i = 1 To n For j = 1 To n If i = j Or j = 1 Then a（i, j） = 1 a（i, j） = a（i - 1, j - 1） + a（i - 1, j）Next iPrint Spc（n - i）; Print a（i, j）;Private

14、Sub Form_Click（） n = CInt（InputBox（请输入行数） ReDim a（n, n） Call funct通过本次实验掌握循环语句的使用，数组的声明以及数组元素的使用。掌握了静态数组和动态数组的使用差别。 2007、4、25 实验地点：实验五 过程1、 掌握自定义函数过程和子过程的定义和调用方法。2、 掌握形参和实参的对应关系。3、 掌握值传递和地址传递的传递方式。4、 掌握递归的概念和使用方法。1. 编程计算1+X+X2+Xn的子过程和函数过程，并分别调用。其中X和N的值由用户给定。Private Function f（n, x） As Long Dim i As

15、Integer, sum As Long For i = 0 To n sum = sum + x i f = sumEnd FunctionSub FormClick（）Label1.Caption = 1+ & x & + 2 &+ n &Text1.Text = f（n, x）Private Sub Form_Load（）x = CInt（InputBox（请输入底数Xn = CInt（InputBox（请输入指数nFormClick2. 编写函数S（M AS Integer，N AS Integer ）as Long ,此函数返回m+mm+mmm+mmm（n个m）的值。Dim m As

16、 Integer, n As Integern = InputBox（请输入个数nm = InputBox（请输入mLabel1.Caption = m & （m * 10 + m） &+.+ m &.Text1.Text = s（m, n）Function s（m As Integer, n As Integer） As LongDim i As Integer, k As Long, sum As Longk = msum = 0 sum = sum + k k = k * 10 + ms = sum通过本次实验掌握了自定义函数过程和子过程的定义和调用方法，掌握值传递和地址传递的传递方式以

17、及递归的概念和使用方法。 2007、5、9 实验地点：实验六 窗体和常用控件（一）掌握窗体与常用控件的重要属性、事件和方法。1、在窗体上建立3个文本框和一个命令按钮。程序运行后，单击命令按钮，在第一个文本框中显示由Command1_click事件过程设定的内容，同时在第二、第三个文本框中分别用大写字母和小写字母显示第一个文本框中的内容。Text Command ImageText2.Text = UCase（Text1.Text）Text3.Text = LCase（Text1.Text）3. 设计一个界面程序，要求程序能实现界面上所指示的编辑操作和字体设置功能。Private Sub Che

18、ck1_Click（Index As Integer） If Check1（0）.Value = vbChecked Then Text1.FontName = 黑体宋体 If Check1（1）.Value = vbChecked Then Text1.FontItalic = True Text1.FontItalic = False If Check1（2）.Value = vbChecked Then Text1.FontUnderline = True Text1.FontUnderline = FalsePrivate Sub Option1_Click（Index As Inte

19、ger）Dim k As Stringk = Text1.TextIf Option1（0）.Value Then Clipboard.Clear Clipboard.SetText kIf Option1（1）.Value ThenIf Option1（2）.Value Then Text1.Text = Text1 + Clipboard.GetText2、设计一个界面程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。Private Sub Combo1_Click（）Dim exp1 As Stringexp1 = 我的兴趣爱好是 + Combo1.TextMsgBox

20、 exp1, , 兴趣爱好Combo1.AddItem 音乐美术体育上网旅游3、在窗体上画一个名称为HIS的水平滚动条和三个名称分别为c1,c2,c3，标题分别为“左端”、居中、右端的命令按钮。请编写适当的事件过程，使得在运行后，如果单击“左端”，命令时则滚动框位于滚动条最左端处；如果单击“右端”则滚动框位于滚动条最右端处；如果单击“居中”则滚动框位于滚动条中间处 HScroll1.Value = 0 HScroll1.Value = 50Private Sub Command3_Click（） HScroll1.Value = 100通过本次实验掌握了窗体与常用控件的重要属性、事件和方法。 2007、5、16 实验地点：实验七 常用控