VB上机实验四
- 格式:doc
- 大小:68.50 KB
- 文档页数:4
《程序设计基础—VB程序实验》说明:实验1和实验2均为电子实验报告,后面8个实验是纸制实验报告。
实验1 计算机基本操作实验目的⑴熟悉计算机,能够正确进行开、关机操作。
⑵熟悉键盘,掌握键盘上所有字符的输入,掌握正确的指法,能够进行中、英文切换。
⑶理解操作系统概念,掌握Windows XP的基本操作,能够利用“控制面板”进行一些参数的设置。
⑷知道“回收站”的功能,学会有关文件、文件夹的基本操作。
⑸学会在计算机上搜索或查找相关的文件或文件夹,掌握通配符的使用。
实验内容⑴熟悉上机实验的计算机,熟悉键盘,学会中、英文输入方式的转换。
⑵学会用正确的指法进行输入,知道键盘上所有字符的输入。
⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。
⑷在桌面上新建一个文件夹,该文件夹以学生自己的名字+班级+学号的后3位命名。
⑸用文本方式或Word文档,写一段字数不少于300字的自我介绍,以1.doc命名并保存到上述文件夹中。
⑹将上述文件夹复制到ftp://10.10.9.222上。
实验2 常用软件的基本操作实验目的⑴了解Word功能,掌握Word的基本操作,包括页眉/页脚的设置、分栏、页面设置、添加底纹等。
⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等,能够在Word中插入图片、表格、艺术字、特殊符号等。
⑶了解Excel的功能,掌握Excel的基本操作,包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。
⑷掌握Excel的基本公式的使用,能够用公式进行基本计算。
掌握Excel中的图形制作方法,能够根据表格做出图形。
实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上,然后做如下处理:①将标题“自我介绍”居中;②将文章中第二段的内容进行分栏,要求中间有分割线;③插入一个4行4列的表格,内容为学号、姓名、某门课的成绩;④任意插入一张图片;⑤在文章中的任意位置加底纹。
将做好的文档以2.doc命名并保存。
实验一 VB环境和简单应用程序设计(4个学时)一、实验目的1.熟悉Visual Basic集成开发环境的使用。
2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。
3.掌握窗体对象的属性、事件和方法。
二、实验内容1. 在VB的集成开发环境中实现如下的操作:1)、将“标准”工具栏去掉后再添加上,将“编辑”工具栏添上再去掉。
2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”3)、将“窗体布局窗口“的”启动位置“设置成“手工”。
4)、在工具箱中任意添加一个Active X 控件。
5)、在工程1中增加两个窗体:Form1、Form26)、在工程1中增加两个标准模块:Module1 、Module27)、在工程1中增加一个类模块:Class18)、在工程资源管理器中将Form2、Module2 删除。
9)、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹10)、将代码窗口中的字体大小改为18号字。
2.设计一个窗体,窗体内有1个文本框和3个命令按钮控件。
要求:当按“显示”按扭时,在文本框内显示“欢迎来到青岛科技大学!”一串红色、四号、隶书字符串。
当按“清除”按钮时,清除文本框内全部信息;当按“退出”按钮时,结束程序运行。
1) 创建界面(将设计好的界面截下来粘贴在下面)2)以表格形式进行属性设置(写出所有非默认属性值的设置)3)代码设计4)调试过程记录(错误情况及改正方法,不得少于三条)3. 设计一个窗体,在窗体上添加一个文本框和三个命令按钮。
要求:当按“显示”按扭时,在文本框内显示“Visual Basic 程序设计”一串字符串。
当按“黑体”按钮时,文本框内的字符串的字体变为黑体;当按“隶书”按钮时,文本框内的字符串的字体变为隶书;1) 创建界面(将设计好的界面截下来粘贴在下面)2)以表格形式进行属性设置(写出所有非默认属性值的设置)3)代码设计4)调试过程记录(错误情况及改正方法,不得少于三条)4. 窗体的Click、DbClick、Load事件的使用,以及Print方法和相关属性的使用。
VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导实验一认识VB6.0[实验目的]1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序[实验内容]一、VB集成开发环境的启动和退出1.启动VB集成开发环境想一想:可以通过哪些方法启动VB集成开发环境。
2.在“新建工程”对话框中选择“标准EXE”注意:在“新建工程”对话框中有几个选项卡?它们各有什么作用?在“新建”选项卡中有哪些选项?3.熟悉VB集成开发环境4.退出VB集成开发环境想一想:可以通过哪些方法退出VB集成开发环境。
二、VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名称。
2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口;掌握打开和关闭这些窗口的方法。
想一想:可以通过哪些方法打开代码窗口。
3.掌握在窗体设计器窗口中添加控件。
4.学会设置窗体、命令按钮、文本框的最常用属性。
5.在代码窗口中找到窗体、命令按钮、文本框的主要事件,学会在对象事件过程中输入代码。
想一想:窗体、命令按钮、文本框的缺省事件是什么。
三、建立第一个VB应用程序程序功能:程序界面见下图,要求当按“显示内容”按钮时,文本框中出现红色的“Hello,Visual Basic!”的文字,按“清屏”按钮时,文本框中文字消失,按“结束”按钮后,程序结束。
实验一认识VB6.0Private Sub Command1_Click()Text1.Text = "Hello,Visual Basic!"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub想一想:怎样在窗体中添加控件,怎样改变窗体和控件的大小,怎样改变控件的位置。
实验题目总体要求:本学期的所有的实验题目,希望同学们按如下步骤认真做,(1)先画出处理界面(窗体);(2)再给出处理步骤,(3)写出程序代码:可参考下面的例题:例如:设计程序,求1+2+3+...+N 的和值。
其处理过程是:(一)设计界面(在纸上画出界面,并注明各控件的名称):(二)处理步骤:单击命令按钮,按以下步骤处理(1)定义3个变量:N ,s ,x ,分别用于存放:输入的数值,和值,控制循环(2)将文本框1的值,提供给变量N ;(3)s=0(累加前,将变量s 初始化为0);(4)X=1(设置循环的开始值)(5) 当X<=N 时 重复执行S=s+xX=X+1(5)在文本框2中显示和值S(三)编写有关的代码:Private Sub Command1_Click()Dim n%,s%,x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1:TEXT1 文本框2:TEXT21:Command1标签1:Label1 标签2:实验一:用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2!+3!+4!+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二:表达式及其运算的实现(1次)1.设计一个程序,完成利用文本框输入任意两个数的乘法运算,并显示计算结果。
2.进一步完善程序,完成利用文本框输入任意两个数的加法、减法、乘法、除法运算,并显示计算结果,3.再进一步,改进,完成,利用随机函数,产生任意两个100到200之间的整数,并完成两个数的加法、减法、乘法、除法运算,并显示计算结果。
4.求方程AX+B=0的解。
VB上机实验报告实验名称:程序设计语言(VB)实验日期:指导老师:实验地点:姓名:班级:学号:一、实验名称:实验5 顺序结构程序设计二、实验目的:(1)掌握基本的输入输出操作(Inputbox、Msgbox、Print使用)。
(2)掌握顺序结构的程序设计方法。
三、实验内容:1.课本的3.3、3.4、3.5、3.6、3.7、3.82.用图形、图像框控件实现图片切换和图片放大缩小。
3.根据提示,补充下列程序段,并在VB环境下调试:(1)鸡兔同笼问题。
(2)计算三角形的面积。
四、实验步骤及结果:1、3.3:Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s1 As String, s2 As Stringx = 2: y = 1s1 = x & "+" & y & "=" & x + ys2 = x & "-" & y & "=" & x - yMsgBox s1 & vbCrLf & s2, , "输出"End Sub3.4:Private Sub Command1_Click()Dim x As Integer, y As Integerx = InputBox("请输入第1个整数", "输入", 0) 'y = InputBox("请输入第2个整数", "输入", 0) ' Print "第1个数为:" & xPrint "第2个数为:" & yPrint "和=" & x + yPrint "差=" & x - yEnd Sub3.5:Private Sub Command1_Click()Dim r As Single, h As SingleDim area As Single, v As Singler = InputBox("请输入半径")h = InputBox("请输入高度")area = 2 * 3.14 * r * r + 2 * 3.14 * r * h v = 3.14 * r * r * hPrint "圆柱体的半径为:" & r; "高为:" & h Print "表面积为:" & areaPrint "体积为:" & vEnd Sub3.6:Private Sub Command1_Click()Dim a As Single, b As Single, c As Single ' Dim s As Single, area As Single 'a = Val(Text1)b = Val(Text2)c = Val(Text3)s = (a + b + c) / 2 'area = Sqr(s * (s - a) * (s - b) * (s - c)) Label2 = "三角形的面积为:" & area 'End Sub3.7:Dim a As Integer, b As Integer, t As Integera = Text1b = Text2t = aa = bb = tLabel2 = "交换后的值为:" & a & "," & b End Sub3.8:Dim x As Integer, s As IntegerDim a As Integer, b As IntegerDim c As Integer, d As Integerx = InputBox("请输入一个四位整数")a = x Mod 10b = x \ 10 Mod 10c = x \ 100 Mod 10d = x \ 1000s = a + b + c + dPrint x; "的各位数字之和为:"; sEnd Sub2、用图形、图像框控件实现图片切换和图片放大缩小:图片切换:Private Sub Command1_Click()Picture1.Picture = LoadPicture(App.Path + "\春.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(App.Path + "\夏.jpg") End SubPrivate Sub Command3_Click()Picture1.Picture = LoadPicture(App.Path + "\秋.jpg") End SubPrivate Sub Command4_Click()Picture1.Picture = LoadPicture(App.Path + "\冬.jpg") End SubPrivate Sub Command5_Click()Picture1.Picture = LoadPicture("")End Sub图片放大缩小:Private Sub Command1_Click() Image1.Stretch = TrueImage1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End SubPrivate Sub Command2_Click() Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2 End SubPrivate Sub Command3_Click() Image1.Stretch = FalseEnd Sub3、(1)鸡兔同笼问题:Private Sub Command1_Click() Dim h As IntegerDim f As IntegerDim x As Integerh = Val(Text1.Text)f = Val(Text2.Text)x = (4 * h - f) / 2y = (f - 2 * h) / 2Text3.Text = xText4.Text = yEnd Sub(2)计算三角形的面积:Private Sub Command1_Click()Dim b As SingleDim c As SingleDim s As SingleDim area As Singlea = Text1.Textb = Text2.Textc = Text3.Texts = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Text4.Text = areaEnd Sub五、实验分析及总结:(1)通过几次VB上机实验,我发现只要代码不写错,调试结果通常都会成功。
计算机上机实习(vb)大致思路:1.首先建一个文本文件“学生成绩”放在一个新建文件夹中,然后在此文件夹中输入二十个人的成绩及相关信息,包括学号,姓名,五门课程的名称。
2.再建一个文件夹叫做“课程学分”,在里面输入每个课程的编号,学时和名称并保存。
3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名,再把这班级成绩表保存在新建的文本文件“班级成绩表”中。
4.分别统计全班每门课的平均分,并计算每门课在60分以下,60~69,70~79,80~89,90分以上的人数,用vb创建一个叫“各分数段人数”的文本文件装此数据。
5.编程找出每门课中不及格的人,并在窗体上显示名单。
6.编程找出符合优等条件的人并在窗体上显示名单。
具体的流程:1.先编写如下程序使学生的每个信息的到保存,在自定义数组stu中有学生的姓名,学号,各科成绩。
再命名两个数组name和xf,让文本文件里的每一个信息调用起来方便简单。
2.求加权平均分,让每个学生的各科成绩分别乘以各成绩的学分,在除以总学分即为加权平均分。
有两个循环分别是20 个学生的循环和五门课的循环。
3.排名次,由于当两个人的成绩相等时要求名次一样,所以用书上常用的冒泡法和选择排序法是有些麻烦的,从而我用了把分数和每一位同学的分数比较来累计排名。
此时要在stu类型中加一个rank的分量。
从而有了下面的代码:4.统计分数段时,要求是统计每科的分数段人数,所以我先写了一个课程的分段程序,再把它复制四遍做适当的调整就得到了五门课的分段的程序:Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次,所以代码用只读打开文本文件。
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)保存窗体,保存工程。
(截止目前所有上机实验及代码。
不用画窗体界面,只写题目和代码.填写实验报告也是复习的过程,请务必认真!......)实验一:第二章⒈在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性值为1,可以根据标题自动调整大小;然后再画一个命令按钮,其名称和标题均为Command1,编写适当的事件过程。
程序运行后,界面如图所示,此时如果单击命令按钮,则标签消失,同时用标签的标题作为命令按钮的标题.Private sub command1_click()Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“输入信息”、一个文本框,名称为Text1,Text属性为空白、一个命令按钮,名称为Command1,标题为“显示”。
然后编写命令按钮的Click事件过程。
程序运行后,在文本框输入“计算机等级考试",然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框的内容。
要求程序中不得使用任何变量。
上机代码:Private sub command1_click()Label1。
visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,再画两个命令按钮,名称分别为Command1和Command2,标题分别为“复制"和“删除”。
程序运行时,在Text1中输入一串字符,并用鼠标拖曳的方法选择几个字符,然后分别单击“复制”按钮,则被选中的字符被复制到Text2中;若单击“删除"按钮,则被选中的字符从Text1中被删除.请编写两个命令按钮的Click过程完成上述功能.Private sub command1_click()Text2=text1。
《Visual Basic语言》上机实验四
实验名称:数据的输入输出(2学时)
一、实验目的
1.掌握Visual Basic中数据输入方法。
2.掌握Visual Basic中数据输出方法。
二、背景知识
1.InputBox函数
该函数产生一个对话框,在对话框中显示提示信息,等待用户输入正文或按下按钮,此时返回包含文本框内容的字符串。
2.MsgBox函数
MsgBox函数也产生一个对话框,在对话框中显示消息,等待用户单击按钮,并返回一个Integer数,告诉用户单击了哪一个按钮。
MsgBox函数根据所选定参数的不同,可以弹出不同形式的消息框供用户使用。
如果不需要返回值,只是用于显示一个简单的提示信息,采用MsgBox语句即可。
3.Print方法
Print方法用于在对象上输出表达式的值。
这里的对象可以是Form(窗体)、Debug(立即窗口)、Picture(图片框)、Printer(打印机)。
在窗体上Print方法的对象名可以省略。
与该方法经常搭配使用的两个函数是Spc(n)和Tab(n),其中Spc(n)用来在输出中插入空白字符(n为要插入的空白字符数),Tab(n)用来将插入点定位在绝对列号上(n为列号)。
Print方法后面的多个输出项之间采用“,”或“;”来分隔。
用“;”分隔时表示各项按紧凑格式输出,用“,”分隔时表示各项分区段输出。
如果在Print语句行末尾无分隔符,表示输出完本语句内容后换行。
三、实验举例
实例1 InputBox函数的不同用法。
Private Sub Form_Click()
Dim strName As String, strTitle As String
Dim strDefault As String, strMyValue As String
'设置提示信息
strName = "请输入数据"
'设置标题
strTitle = "InputBox函数使用举例"
'设置缺省值
strDefault = "2"
'第一种:显示提示信息、标题及缺省值
strMyValue = InputBox(strName, strTitle, strDefault)
'第二种:指定坐标:在1000,1000的位置显示对话框
strMyValue = InputBox(strName, strTitle, strDefault, 1000, 1000) '第三种:显示“帮助”按钮,使用帮助文件
strMyValue = InputBox(strName, strTitle, , , , "DEMO.HLP", 10) End Sub
观察运行结果。
说明:InputBox函数可以使用7个参数,其中第1个参数为必选参数,其余6个为可选参数。
上面的实例演示的是给出不同可选参数的值时InputBox函数的运行效果,以帮助读者理解该函数各个参数的含义。
实例1完成后,要求将窗体文件保存为Syjl41.frm,工程文件保存为Syjl41.vbp。
实例2 MsgBox函数和语句的使用。
Private Sub Command1_Click()
Dim r As Integer
MsgBox "最简单的MsgBox"
r = MsgBox("复杂的MsgBox", vbYesNo + vbCritical + vbDefaultButton2, "你看到了么?")
Print "你按的值为"; r
End Sub
观察运行结果。
实例2完成后,要求将窗体文件保存为Syjl42.frm,工程文件保存为Syjl42.vbp。
实例3 Print方法的使用。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Print "12345678901234567890"
Print Tab(3);10;Spc(3);20,Space$(3); "abc"
Print
Print "cde";
Print 30;Tab(5); "efg"
End Sub
提示:Space$(n)函数的功能是返回n个空格。
程序运行后,单击命令按钮,写出在窗体上显示的内容。
请先自己填写下面横线中的内容,然后与计算机的输出结果进行比较,看是否一致,如果不一致找出其中的原因,记录下正确的结果。
(1)数值10显示在第行的第列和列。
(2)数值20显示在第行的第列和列。
(3)字符串"abc"显示在第行的第列、列和列。
(4)字符串"cde"显示在第行的第列、列和列。
(5)数值30显示在第行的第列和列。
(6)字符串"efg"显示在第行的第列、列和列。
实例3完成后,要求将窗体文件保存为Syjl43.frm,工程文件保存为Syjl43.vbp。
四、实验内容
1.用Inputbox 函数输入原串与子串,若子串在原串中,用Msgbox 语句提示子串的起始位置。
在窗体上画一个名为Command1的命令按钮,单击命令按钮,在出现的两个对话框中分别输入原串“ASDFG ”和子串“DF ”后,程序运行界面如图4.1所示。
将下面命令按钮的Click 事件过程程序补充完整,请填空。
Private Sub Command1_Click()
Dim s As String, t As String
Dim p As Integer s = ' 输入原串 t = ' 输入子串 p = ' 利用Instr 函数查找子串在原串中的位置 MsgBox
End Sub
要求:窗体文件保存为Vbsy41.frm ,工程文件保存为Vbsy41.vbp 。
2.编写程序,首先从键盘输入两个变量值,然后根据选择进行变量值交换。
输入变量a 的值的对话框如图4.2所示(输入变量b 的值的对话框与变量a 相近),给出“是否交换”选择的对话框如图4.3所示。
据此将下面的程序补充完整,请填空。
提示:编程过程中需要考虑,如果用户在输入数据的过程中直接单击Inputbox 函数生成的对话框中的“取消”按钮或者在对话框中不输入任何内容直接单击“确定”按钮(此时Inputbox 函数返回值为一空字符串),程序应如何应对?
Private Sub Form_Click()
Dim a As Integer, b As Integer, temp As Integer
Dim choice As Integer a = b = choice =
If choice = vbYes Then ' 如果单击了“是”按钮
图4.2 变量a 的输入对话框
图4.3 提供选择的对话框
图4.1 程序运行界面
temp = a: a = b: b = temp '交换a和b的值
End If
Print "a="; a, "b="; b
End Sub
要求:窗体文件保存为Vbsy42.frm,工程文件保存为Vbsy42.vbp。