下载文档原格式
《程序设计基础—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实现多媒体播放器实验方案学时：6学时实验性质：验证性一、实验目的1.通过实验学习多媒体技术有关知识，增进对多媒体技术的熟悉和体会。
2.掌握VB处理中经常用到的全然概念和名词。
3.学习使用VB编写多媒体播放器。
二、实验内容和要求1.掌握VB中需要经常接触的全然概念。
2.练习使用VB，尝试它的各项功能。
要求掌握全然处理功能，学会使用控件制作播放器。
三、实验环境〔硬件环境和软件环境〕1.带有声卡、麦克风、音箱或耳机的多媒体计算机。
2.WindowsXP以上操作系统。
3.工具软件VB。
四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处理、实验结果分析、体会质疑建议。
具体请参阅实验报告模板。
五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。
〔注重不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理〕六、实验讲义实验1API_音频播放器本节要紧介绍了利用API函数制作WAV音频播放器，首先来介绍一下PlaySound()函数。
它的声明形式如下所示：PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVal lpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteg er字符串lpszName为声音文件的全名。
长整型hModule为程序模块的句柄，通常设置为0。
长整型dwFlags标志设置，在使用文件名时设置为&20000。
•添加控件新建一个工程，在工程里添加windows窗体“form1〞，把它的“Text〞属性改为“API_音频播放〞。
在“form1〞上添加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为名目列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为标识。
电力电子仿真实验实验报告院系：电气与电子工程学院班级：电气1309班学号： 17学生姓名：王睿哲指导教师：姚蜀军成绩：日期：2017年 1月2日目录实验一晶闸管仿真实验........................................ 错误!未定义书签。
实验二三相桥式全控整流电路仿真实验.......................... 错误!未定义书签。
实验三电压型三相SPWM逆变器电路仿真实验..................... 错误!未定义书签。
实验四单相交-直-交变频电路仿真实验.......................... 错误!未定义书签。
实验五 VSC轻型直流输电系统仿真实验.......................... 错误!未定义书签。
实验一晶闸管仿真实验实验目的掌握晶闸管仿真模型模块各参数的含义。
理解晶闸管的特性。
实验设备：MATLAB/Simulink/PSB实验原理晶闸管测试电路如图1-1所示。
u2为电源电压，ud为负载电压，id为负载电流，uVT 为晶闸管阳极与阴极间电压。
图1-1 晶闸管测试电路实验内容启动Matlab，建立如图1-2所示的晶闸管测试电路结构模型图。
图1-2 带电阻性负载的晶闸管仿真测试模型双击各模块，在出现的对话框内设置相应的模型参数，如图1-3、1-4、1-5所示。
图1-3 交流电压源模块参数图1-4 晶闸管模块参数图1-5 脉冲发生器模块参数固定时间间隔脉冲发生器的振幅设置为5V，周期与电源电压一致，为（即频率为50Hz），脉冲宽度为2（即º），初始相位（即控制角）设置为（即45º）。
串联RLC分支模块Series RLC Branch与并联RLC分支模块Parallel RLC Branch的参数设置方法如表1-1所示。
表1-1 RLC分支模块的参数设置元件串联RLC分支并联RLC分支类别电阻数值电感数值电容数值电阻数值电感数值电容数值单个电阻R0inf R inf0单个电感0L inf inf L0单个电容00C inf inf C 在本系统模型中，双击Series RLC Branch模块，设置参数如图1-6所示。
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验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程序设计》实验单元一实验报告专业班级：姓名学号 2指导教师：王云侠完成时间： 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。
对文本框计数：Text1=Val(text1)+1 。
2、命令按钮、字号、内容和格式的复制练习。
按钮1：使得Text1中的文本按要求改变。
按钮2：将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大，但要下功夫学习才能学好。
” （每个同学文本框中内容可以不同） Text2 Command1 Command2 四、实验步骤1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox，Label的caption改为“你单击窗体的次数”，TextBox 的text改为空，然后编写代码如图点击运行即可。
2、命令按钮、字号、内容和格式的复制练习。
从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton，Label的caption改为“输入内容”和“复制效果”，TextBox的text改为“任意文字”和“空”，CommandButton的caption改为“隶书25磅”和“复制=>”。
实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。
用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。
它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。
4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。
对象——是类的一个实例，继承了类的属性、方法。
控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。
事件——响应对象的动作，它发生在用户与程序交互时。
如单击控件、鼠标移动、键盘按下。
过程——指附在该对象上的程序代码，是事件的处理程序。
6、答：参考课本12页到17页。
实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答标签label是用来显示信息的，不具有输入功能。
属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据，编辑文本。
属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。
3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。
4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题：2.Private Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题：1.方法一：Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub方法二：Option ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：Private Sub Command1_Click() x = Val(InputBox("请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二：Private Sub Command1_Click() Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。
实验一：设计简单的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的基本使用方法。
；二、实验类型综合三、实验时间：2013-3-22。
四、实验任务1、运算符与表达式实验：在立即窗口显示下列表达式的值（先定义Amt变量为字符型，值为"a"；Bmt变量为整型，其值为3）。
（要写出打开立即窗口的步骤及运行结果）①Bmt3 ②Bmt+23 ③- Bmt ④Bmt-12⑤Bmt*Bmt ⑥ 10/Bmt ⑦ 10\Bmt ⑧ 9 Mod Bmt⑨Amt & Bmt ⑩ Amt > Bmt2、常用内部函数实验：在立即窗口显示下列函数的运行结果（要写出函数及运行结果）①cos45°②e3③|-5|④字符"b"对应的ASCII码值⑤系统日期和系统时间3、思考如下程序的输出结果Private Sub Form_Click()Dim str As String, i As Integerstr = "hello"i = 100Print 2 & 3Print 2 + 3Print 2 + "3"Print str & "nihao"Print str + "nihao"Print str & iPrint str + iPrint i & "nihao"Print i + "nihao"End Sub先思考，然后可以在计算机中测试，查看自己的思考结果与计算机输出的结果是否相同4、编程：输入圆的半径，计算并输出圆的面积和球体积，按下列要求实现。
（1）界面设计尽可能美观、大方。
（2）单击命令按钮，调用InputBox函数输入数据，通过MsgBox显示计算结果。
五、实验要求写出实验报告，内容是：1).程序的界面设计。
2).程序主要代码。
3).运行结果。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)实验三：选择结构程序设计一、实验目的1、掌握逻辑表达式及关系表达式的正确书写形式。
2、掌握单行IF 语句和块IF 书写格式及其正确使用（尤其注意ELSE 和ELSE IF ）。
3、掌握多分支情况的控制（使用Select CASE 语句）的使用及与多分支条件语句的区别。
二、实验类型综合三、实验时间：2013-4-7四、实验任务1、设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了，还是小了，否则提示正确。
运行界面如图3-1所示。
（思考：如何限制用户猜数字的次数？）2、有函数：⎪⎩⎪⎨⎧≥-<≤-<=)10(124)101(23)1(x x x x x x y写一个程序，输入x 值后，则输出相应y 值。
要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。
3、输入一年份，判断它是否为闰年，并显示相关信息五、实验要求写出实验报告，内容是：1).程序的界面设计。
2).程序主要代码。
3).运行结果。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)实验四：循环结构程序设计一、实验目的1、掌握For 语句的使用。
2、掌握Do{While|Until}…Loop 与Do …Loop{While|Until}两种形式的使用。
3、掌握如何控制循环条件，防止死循环或不循环。
4、熟练掌握循环条件设置及循环的控制方法。
二、实验类型综合三、实验时间：2013-4-19四、实验任务1、编一程序，显示出所有的水仙花数。
所谓水仙花数是指：一个三位数的各位数字立方和等于该数字本身。
如：153=333351++，因此153是一个水仙花数。
2、编写程序，求1+2+3+...+100的和，将结果打印在窗体上。
思考：用Do ... Loop While 循环和Do While ... Loop 循环应该怎样实现？进一步地，要用Do ... Loop Until 循环或Do Until ... Loop 循环又该如何实现？（写在实验报告中）3、计算222214131211n S +++++= 的值，当第i 项52101-≤i 时结束。
4、求整数m 、n 的最大公约数、最小公倍数五、实验要求1、做好实验预习，提前设计程序。
2、写出实验报告，内容是：1). 程序主要代码2).运行结果。
3).实验总结。
实验五：常用控件一、实验目的1、掌握常用控件的重要属性、方法和事件，熟悉它们的使用。
2、熟悉面向对象的可视化编程的框架。
3、掌握Visual Basic 容器坐标系的设计方法。
二、实验类型综合三、实验时间：2013-5-5四、实验任务1、如图5-1所示，用列表框、框架、单选按钮、复选框等控件实现对文本框中文字的字体、字号和粗斜体属性的设置。
2、 在实验5-1的基础上，用计时器控件实现在窗体的标题栏上显示当前系统的日期和时间信息，刷新周期为1秒种。
3、 使用滚动条实现如图5-2所示的程序，要求在拉动任意滚动条时，立即就能体现色块的颜色变化，且在窗口标题栏中标示出当前的RGB 颜色分量。
其中色块的颜色由3个滚动条的值做为参数用RGB （）函数合成。
【提示】滚动条的Value 值应该介于0～255之间。
4、 如果用LoadPicture （）函数装载一幅图像，并且要求图片大小要自动适应给定的矩形区域，应该怎样实现？反之，如果要让图片按照其原始尺寸显示，又有几种控件可以适用，怎样使用？请用实例说明五、实验要求写出实验报告，内容是：1、第1、2、3题的程序主要代码；4题的回答及验证情况2、实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1 实验5-1程序运行界面图2 实验5-3程序运行界面一、实验目的1、掌握数组的声明、数组元素的引用。
2、掌握静态数组和动态数组的使用差别。
3、掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。
二、实验类型综合三、实验时间：2013-5-17四、实验任务1、用数组保存随机产生的10个介于20到50之间的整数，求其中的最大数、最小数和平均值，然后将10个随机数和其最大数、最小数以及平均值显示在窗体上。
2、随机产生10个介于0到100之间的整数，分别用选择法和冒泡法对其进行排序。
3、生成5×5矩阵Mat，计算并输出（1）最大值与最小值，以及它们所在的行号和列号；（2）。
每一行的和；（3）总和；（4）输出交换1、3列后的矩阵4、已知数组A＝Array(7,6,5,1,8,5,3,9,4)，编写一程序，删除数组中值为x（例如为3）的第一个元素。
要求用户可以输入x。
【提示】（1）首先要查找待删除的元素，没有则返回。
（2）如果找到待删除的元素，则从下一个元素到最后元素依次往前移位。
（3）最后利用ReDim Preserve语句将数组大小减1。
五、实验要求1、做好实验预习，掌握，并熟悉本实验中所使用的VB6.0企业版环境及相应的控件。
2、写出实验报告，内容是：1).程序的界面设计。
2).程序主要代码。
3).运行结果。
4).实验总结。
六、注意事项1、注意VB集成开发环境各部分的应用和控件的使用。
2、注意VB程序编码方式及书写习惯。
一、实验目的1、掌握函数、过程的定义和调用方法。
2、掌握形参与实参的对应关系。
3、掌握值传递和地址传递的传递方式。
4、掌握变量、函数和过程的作用域。
5、熟悉程序设计中的常用算法。
二、实验类型综合三、实验时间：2013-5-31四、实验任务1、编写一个求三个数最大值的函数max(x，y，z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c三个数，然后单击“计算”按钮，在文本框中输出表达式的值m。
表达式为：),,max(),,max(),,max(cbbacbbacbam+⨯+=。
运行界面如图7-1所示。
图7-12、分别编写一个判断素数的子过程以及函数过程。
要求输入一个整数，就能够通过该子过程或函数过程求得该整数是否为素数。
