一、打开程序：
点击桌面上的 Visual Basic 图标，在弹出的如图一的窗口中选择“创建标准 EXE”按钮。
确定后的状态如图二
这就是创建了一个新的“标准 EXE”文件了。
二、工作界面简介：
默认的 VB 工作界面由标题栏（1）、菜单栏（2）、工具栏（3）、工具箱面板（4）、程序设计区（5）、项目窗口（6）、属性窗口（7）、布局窗口（8）组成，至于它们具体有什么作用，我们将在以后的实例学习中接触，这里就不予以说明。
三、编写我的第一个应用程序：
＜1＞、应用程序要产生的效果：
创建的应用程序要有什么样的功能？这是开发每一个应用程序必须最先想到的。
我们的第一个应用程序非常简单，使用者只需点击程序上的一个按钮，程序界面上就会显现“跟我来学 VB 神童教程”字样。
＜2＞、开发思路：
根据应用程序要实现的功能，那么我们至少需要制作一个按钮、一个程序界面，为了让应用程序更规范，我们还需要创建一个用来显示“跟我来学 VB 神童教程”字样的容器。
＜3＞、具体制作过程：
1、创建一个新的“标准 EXE”文件，如第一步所做。
需要指出的是，这个以 Form1 为标题栏的程序界面就是我们需要的“程序界面”，也是用户首先看到的对象，所以尽可能将其做得美观一点。
当然，对应用界面的美化问题我们将在以后探讨。
2、根据开发思路，现在我们来制作按钮。
双击工具箱面板上的命令按钮（Command Button）图标，如图三：
然后你会发现程序界面上多了一个命令按钮，如图四：
用鼠标拖动新建的按钮到适当位置，如图五：
再创建一个标签按钮，双击如图六的图标：
完成后程序界面如图七：
用鼠标拖动标签按钮到合适位置，如图八：
将鼠标放在标签按钮左右边缘任意一处，当鼠标呈左右键头时横向拖动，把标签按钮拖长，最后的程序界面如图九：
3、对按钮属性进行设置：
开发任何应用程序，在完成界面布局后，应该就每一个元素进行属性设置以达到自己的要求。当然，也可以在元素布局的过程中进行属性设置。首先点选箭头状的“选择”图标以便进行选择，如图十：
选中程序界面上的命令按钮，然后找到属性面板，如图十一：
其中，“名称：Command1”是此按钮的名称，主要用于程序引用，所以不要用中文名字。此处，可以不修改按钮的名字，但为了程序更规范，我们将其名字改成“CmdShow”，如图十二：
“Caption：Command1”是命令按钮的标题，也就是显示在命令按钮上的字样，
我们将其改成“显示”，如图十三：
用上面的方法，我们将标签按钮的名字改为“LblShow”，如图十四：
将标签按钮的标题改成空字符串，也就是没有任何文字，如图十五：
4、输入程序代码：
我们前面讲到的元素布局、属性设置只不过是对应用程序操作界面的定制，要让程序实现功能，关键还得输入程序代码。选中命令按钮 CmdShow ，然后双击它，弹出如图十六的程序代码输入窗口：
在光标闪烁处输入代码：LblShow.Caption = "跟我来学 VB 神童教程"（这句程序是什么意思？以后我们讲述）。如图十七：
输入完毕，点击右上角的“X”回到对象窗口，然后点击工具栏上的“启动”按钮（快捷键：F5），可以看最终结果了！
四、知识点：
1、我们的第一个程序确实非常简单，但它道出了程序设计的基本方法：首先，应用程序要用来做什么？也就是开发应用程序的目的；其次，应用程序大体上由哪些元素组成？也就是应用程序的操作界面如何，如果可能，最好先用笔把程序界面画出来；然后是对程序界面中每一个元素的属性进行设置；最后输入程序代码和调试。
2、前面我们所谈到的“命令按钮”、“标签按钮”，其实它们准确的说法是“命令按钮控件”、“标签按钮控件”，无论是这些控件，还是刚才作为应用程序界面的“窗体”，都是“对象”，因此， VB 是一门面向对象的编程语言，每一个对象都具有很多属性，如大小、位置、标题等等。属性的设置通过属性窗口完成。
3、这一点的内容不需强记，在以后的控件讲述中将会涉及。
除了“命令控钮控件”、“标签按钮控件”，默认的工具箱面板上还有“指针”工具（用来选择程序设计窗口中的对象）、图片控件（在界面上添加图片）、文本框控件（在界面上显示文本或用来输入文本）、选项框控件（主要用来作为区域划分的控件，一般把相同类型的控件放置在一个选项框中，把其他类型的控件放在其他选项框中）、复选控件（用来制作复选按钮）、单选控件（制作单选按钮）、组合框控件（用来制作功能更为强大的列表框，既有文本框控件的功能，还有列表框控件的功能）、列表框控件（制作各种列表）、滚动条控件（共有横向与竖直两种）、时钟控件（一般用来添加时间触发）、文件操作控件（共有磁盘列表框控件、文件夹列表框、文件列表框三种），另外，还有绘图控件、图像框控件、日期控件。
4、VB 提供了丰富的控件选择，除了默认的工具箱面板上的控件外，还有很多控件没有罗列出来，我们可以通过“工程‖部件”命令或在工具箱面板上单击鼠标右键，在弹出的快捷菜单中选择“部件”命令，弹出如图十八的窗口：
本窗口罗列了当前系统中所有的控件，只需选中所需控件前面对应的复选框就行了。
5、编写程序应该养成好习惯，在给每一个对象命名时首先要保证规范，其次要能“望文生义”，也就是看见一个对象的名字就能知道它是做什么的，如前面我们给命令按钮控件起名为“CmdShow”，一看就知道是用来 Show 的 Command 类型控件。
6、我们最初进入的程序设计界面是对象界面，进入代码界面的办法很简单，前面用到的双击控件是一种办法，另外还可以通过点击项目窗口中的“查看代码”按钮进入，如果点按旁边的“查看对象”按钮就会又回到原来的对象界面。如图十九：
7、在前面的例子：LblShow.Caption = "跟我来学 VB 神童教程"中，“＝”并不是数学中的等号，而是一种赋值符号，表示：将“跟我来学 VB 神童教程”这个字符串赋值给 LblShow ，并作为它的标题。
另外如：X = X+6 ，在数学中，这种表达式不存立，而在 VB 中，是指在 X 本来的基础上加 6 ，然后把结果重新赋给 X ，这时 X 的值不再是原来的数字，而是加上 6 后的值。
8、程序的保存：
在 VB 中进行保存，常常用“保存工程”命令，而在保存过程中，必须保存两次，一次是以 .frm 为扩展名的文件保存，另一次是以 .VBP 为扩展名的文件保存。前者是保存应用程序的窗体文件，后者是保存应用程序的工程文件。如图二十与图二十一：
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。
五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/0015823705.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
自测1 程序代码 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = False
End Sub 初始窗口： 单机放大之后窗口： 单机下划线之后窗口：
单击加粗之后窗口： 单击还原之后窗口：
自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：
单击显示之后窗口：
单击交换之后的窗口： 自测题3 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End Sub Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub
湖北文理学院 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的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量
P178 五 1 Private Sub Form_DblClick() '双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n Dim n As Integer n = InputBox("输入n的值：") For i = 1 To n s = s + 1 / 2 ^ i Next Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub P185五 Dim a(9) As Integer Private Sub Command1_Click() '在文本框显示10个两位随机整数，逗号分隔 Text1.Text = "" For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & "," Next i Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command2_Click() '消息框显示最小值 m = a(0) For i = 1 To 9 If a(i) < m Then m = a(i) Next MsgBox "10个数的最小值为：" & m End Sub Private Sub Command3_Click() '消息框显示最大值 m = a(0) For i = 1 To 9 If a(i) > m Then m = a(i) Next MsgBox "10个数的最大值为：" & m End Sub Private Sub Command4_Click() '消息框显示平均值 For i = 0 To 9 m = m + a(i) Next MsgBox "10个数的平均值为：" & m / 10 End Sub P169 2 P169 3 Private Sub Command1_Click() Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2 Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2 Label1.FontSize = Label1.FontSize * 2 End Sub P169 4 Private Sub VS1_Change() Text1.Text = VS1.V alue End Sub Private Sub VS1_Scroll() Text1.Text = VS1.V alue End Sub P169 5 Private Sub Command1_Click() For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i) Next i List1.Clear End Sub
河南工业大学计算机上机实习报告 姓名:张翼飞 序号：11 学号:201048060413 班级:食工 1004班 指导老师: 任老师张老师 日期:2011-03-05
目录 一：系统名称:学生成绩管理系统的设计与实现 二：设计目的 三：程序摘要 四：系统设计流程 五：相关数据列表 六：小结 七：程序代码 （1）模块代码 （2）窗体代码
一.系统名称:学生成绩管理系统的设计与实现 二.设计目的 1. 熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程 序的设计过程,掌握有关编辑和调试程序的方法和技巧; 2. 主要掌握VB语言中的结构体﹑指针及文件操作等内容 3. 了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告. 三.程序摘要 先在记事本中创建2个文本文档,分别输入本班24名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能: 1．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放班级的成绩表. 2．分别统计全班每门课的平均分和标准差,并计算各分数段(90分以上;80～90;70～79;60～69;60分以下)的学生数 3．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格. 4．打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB语言,物理,化学 5．屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩) 6．屏幕显示优等生名单(含学号,N门课成绩,平均分,名次),优等生条件: a) 平均分>=90分 b) 名次在本班位于前三名 c) 平均分>=85分,并且至少有一门课的成绩>=95 四、系统设计流程
VB程序设计实验 实验一 Visual Basic环境和程序设计初步 一、实验目的 1．了解Visual Basic系统对计算机软、硬件的要求。 2．掌握启动与退出Visual Basic的方法。 3．掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 4．掌握常用控件（文本框、标签、命令按钮）的应用。 二、实验内容 实验1.1 联系将教学篇第一章重的例题自己建立一个工程，并运行程序，体会效果。 实验1.2 启动Visual Basic6.0，创建一个“标准EXE”类型的应用程序，要求在屏幕上显示“欢迎您使用Visual Basic”，并“请输入您的姓名”。 实验1.3 Move方法练习、移动具有浮雕效果的文字和插入图片。 在窗体插入心形图片，窗体上有以浮雕效果显示的字符串“新年快乐”，还有两个命令按钮。按钮上分别有左右指向图案，要求当单击左指向按钮时，字符串“新年快乐”向左移动50个单位，单击右指向按钮时，向右移动50单位。 实验1.4 若将上题改为上下移动，同时命令按钮的图标也相应改变，程序如何改写？若用Move方法实现，会出现什么问题，如何使用？ 实验1.5 Print方法练习，显示字符图形。 实验1.6 字号、按钮、随机函数练习 在文本框输入一字符串，对字号进行放大和缩小，缩放比例由随即函数产生。 实验二顺序程序设计 一、实验目的 1．掌握表达式、赋值语句的正确书写规则。
2． 掌握常用函数的使用。 3． 掌握InputBox 与MsgBox 的使用。 二、实验内容 实验 2.1 编一个华氏温度与摄氏温度之间转换的程序。所用公式为：325 9+=C F )32(9 5?= F C ，要求用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度，同样，单击“摄氏转”按钮，则将华氏温度转换为摄氏温度。 实验2.2 输入半径，计算圆周长和圆面积。 实验2.3 窗体上有2个命令按钮，第一个按钮显示“文字处理”，第2个按钮显示“VB6.0”,要求单击命令按钮，，利用shell 函数执行对应的应用程序。 实验2.4 窗体上有2个命令按钮，第一个按钮显示“计算器”图标，第二个按钮显示”MsDos ” 图标，要求单击命令按钮， 利用shell 函数执行对应的应用程序。 实验2.5 利用计算机解决古代数学问题“鸡兔同笼”问题。即在同一笼子里有总数为m 只鸡和兔，鸡和兔的总脚数为n 只，求鸡和兔各多少只？ 实验2.6 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 实验三 选择结构程序设计 一、实验目的 1． 掌握好逻辑表达式的正确书写形式。 2． 掌握单分支与双分支条件语句的使用。 3． 掌握多分支条件语句的使用。 4． 掌握情况语句的使用及与多分支语句的区别。 二、实验内容 实验 3.1 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以
实 验 报 告 一 课 程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学 时) 成 绩 专业班级土木工程1306班指导教师 姓 名学 号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序 （3）掌握常用函数的使用方法 （4）掌握常用输入、输出语句 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（20分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Baidc 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动
实验结果： 【请将你的代码粘贴到下面】 Private Sub Command1_Click() Cls Form1.Caption = "你好" Text1.Text = "欢迎使用visual basic" End Sub Private Sub Command2_Click() Cls Text1.Text = "" Form1.Caption = "" End Sub Private Sub Command3_Click() End End Sub 【请将你的典型结果的截图粘贴到下面】
【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。（20分） 通过该程序掌握变量的定义、变量名与变量值的含义。
实验一小学生四则运算测试器 一、实验目的 1．掌握面向对象程序设计语言的开发思想； 2．掌握结构化程序设计方法； 3．掌握标签、文本框、按钮的属性、事件和方法； 4．掌握常用的运算符、函数和表达式。 二、实验环境 Windows XP 操作系统 Visual Basic 6.0 编程环境 三、实验内容 参考如下图所示，编制一个适合小学生练习的四则运算测试题程序。 具体要求如下： （1）窗体的标题为“小学生四则运算测试器”。
（3）窗体的从上到下，从左到右分别为标签1，文本框1，按钮1，按钮2，标签2。其中标签1，标签2默认标题内容为空，文本框文本内容为空，按钮1,按钮2默认标题内容分别为“统计”和“结束”。 （4）标签2设置有边框线，背景颜色为白色。 （5）程序运行时，标签1自动产生小学生四则运算题目，其中操作数为1~9之间的随机整数，运算符为+、-、*、/四种符号之一。 （6）文本框1接受用户输入答案，输完答案后按键盘中的回车键，系统将题目和用户回答答案显示在标签2中，并在后面给出对或错的评判标志（注意：评判标志对齐在同一列输出）。同时产生新的题目，清空文本框1，以便用户继续回答新题目。 （7）单击按钮1，结束回答，标签1和文本框1变为灰色不可用状态，同时标签2显示“一共做了几题，作对几题，得分为多少”的提示；单击按钮2，结束程序。 （8）提高与拓展：每次运行程序，让产生的题目是真正的随机数据；为适合小学生练习，避免产生两数相减结果为负数的题目。 （9）运行效果如下图所示： 提示： 1.产生题目的算法思路： Private Sub Form_Load()
实验6-2习题3 程序 Dim a%(10), i%, b%(10) Private Sub Command1_Click() For i = 1 To 10 a(i) = Int(Rnd * 26) + 65 Picture1.Print Chr(a(i)); " "; Next i End Sub Private Sub Command2_Click() For i = 1 To 10 b(i) = a(11 - i) Picture2.Print Chr(b(i)); " "; Next i End Sub 截图
习题4 程序 Dim a%(1 To 4, 1 To 5), i%, j% Private Sub Command1_Click()
For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Dim sum%, c%, b% sum = 0 c = 0 b = 0 For i = 1 To 4 For j = 1 To 5 If a(i, j) > sum Then sum = a(i, j) c = i b = j End If Next j
Print "最大元素是第"; c; "行第"; b; "列的"; sum End Sub 截图
程序 Dim a%(1 To 10, 1 To 10), i%, j% Private Sub Command1_Click() For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Dim n%, b%(9) For n = 1 To 9 b(n) = 0 Next n For i = 1 To 10 For j = 1 To 10 Select Case a(i, j) Case 10 To 19 b(1) = b(1) + 1
上海立信会计学院本科实验报告 班级：学号：姓名：指导教师： 系部：专业：实验时间： 实验6 列表框、组合框与过程 一、实验目的 1．掌握列表框和组合框的使用 2．掌握自定义函数过程和子过程的定义和调用方法 3．掌握形参和实参之间的对应关系 4．掌握值传递和地址传递的传递方式 二、实验要求 1．在C:\下建立子文件夹“VB实验6”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(61.vbp)、窗体文件(61.frm) 及可执行文件（61.exe），本实验中的第二题，需保存的文件有：工程文件(62.vbp)、窗体文件(62.frm) 及可执行文件（62.exe），其余实验依此类推。 2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、实验内容： 1.设计一个选课的运行界面，如图6-1（a）所示。它包含2个列表框，左边为可供选择的 课程名称，通过Form_Load事件加入，并按拼音字母顺序排序；当单击某门课程名称后，将该课程加入到右边的列表框中，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入并出现如图6-1（b）所示的提示。窗体及所有控件字体默认、大小均为小四。 图6-1 (a) 图6-1 (b)
2.在窗体上建立一个简单组合框，在组合框的文本区输入数字字符，按回车键后加入到组 合框的列表区内（非数字则不加入），然后清空文本区，如图6-2（a）所示；单击“交换”按钮后，可将组合框列表区中最小值项目和第0个项目交换；最大值项目与最后项交换, 如图6-2（b）所示。窗体中所有控件字体默认大小。 图6-2（a）图6-2（b） 3.设计一个点菜程序，当单击“添加到我点的菜单中”按钮时，将组合框“饭店菜单”中 选中的菜添加到列表框“我点的菜”中，当单击“添加到饭店菜单中”按钮时，可以将文本框中输入的菜单名添加到组合框“饭店菜单”中，如已存在将不重复添加。要求：设计窗体界面，窗体中所有控件字体默认、大小为小四，并设计代码，初始时文本框、列表框、组合框内容均为空。 图6-3
《VB程序设计》实验单元 实验报告 专业班级：新闻班姓名：学号：指导教师：完成时间：2013.5 、实验题目 数组和自定义类型 、实验环境 Visual Basic6.0 程序软件 、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、 最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、60-69、 70~79、80~89、90-100,并显示结果。 五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面
3.属性窗口控件对象属性设置 4.编写程序代码 5.运行程序及调试 6.程序建立，保存工程文件 六、实验结果 第1题: 0 Foi rnl
70 53 57 最大值81 4 41 86 最大值96 52 76 5 最大值76 82 82 58 最大值98 28 30 77 最小值1 79 37 96 最小值4 59 46 29 最小值5 98 91 22 最小值22 87 62 69 10 76 81 平均值 5 94 平均值 64 26 平均值 70 54, 3 36 56? 98 24 53 平均值67.7 79 28 4 99 1 平均值36. 5 29 38 30 94 97 40 27 16 16 64 最大值97 最小值 16 平均值45. 1 41 41 71 32 63 20 18 58 8 45 Q Forml L 70 53 57 28~~77 1 76 81~70 最大值81 最小值1 平均值54, 3 最小值 平均值39. 7 8 最大值71
广西工学院鹿山学院 《VB语言程序设计》实验报告 系别： 专业班级： 姓名： 学号： 指导教师： 二〇一三年六月六日
一. 实验目的 了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。 二. 实验内容 请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中各窗体功能包含如下： 1.首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口； 2.个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点 击成绩统计按钮可以跳转至成绩统计窗口； 3.成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分 和最低分。 三. 程序设计界面 1.首页登录窗口： 2. 个人信息录入窗口
3.成绩统计 四. 程序实现代码 1.首页登录窗口代码： Private Sub Command1_Click() If Text2.Text = 123456 Then cao2.Show Else MsgBox "请重新输入密码" Text2.Text = " " Text2.SetFocus End If End Sub Private Sub Command2_Click() End End Sub 2.个人信息录入 Private Sub Command1_Click() If Text1.Text = " " Then Exit Sub End If Dim strAdd As String strAdd = Text1.Text & " " & Text2.Text & " " & Combo1.Text & " " & Combo2.Text & " " List1.AddItem strAdd End Sub Private Sub Command2_Click() If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex End If
一、目的与要求 1、目的： （1）要求达到熟练掌握VB语言的基本知识和技能； （2）基本掌握程序设计的基本思路和方法； （3）能够利用所学的基本知识和技能，解决简单程序设计问题。 2、基本要求： （1）要求利用函数调用的方法以及VB语言的编程思想来完成系统的设计； （2）要求在设计的过程中，建立清晰的层次结构； 3、创新要求： 在基本要求达到后，可进行创新设计。 4、写出设计说明书 二、课程的主要内容 （1）选题 （2）进行系统分析 （3）程序设计实现 （4）系统测试 （5）编写、上交课程设计报告 四、设计方法和基本原理
1.系统概述 随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量，需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。 2.功能要求 要求完成以下功能： （1）系统有良好的安全性，需要用户登录和密码的保密等等。 （2）从屏幕上读出若干个学生的信息（包括姓名、学号、电话等等）。 （3）能够添加新信息源并记录在案。 （4）能将指定的个人信息删除。 （5）能按学号直接查询个人信息。 （6）系统过程间的衔接与提示要明确。 3.系统的窗体以及各模块的功能 系统开发的总任务是实现学生信息关系的系统化、规范化和自动化。 系统主要由五部分组成：系统用户的管理、学生信息的管理、学生学籍信息的管理、信息的查询，其中还包括登录界面。 3.1各窗体如下： ?Form1: 登录界面，需要有效的用户名和登录密码。 ?Form2：信息管理，信息的浏览、信息的修改、信息的添加以及删除等主功能。
实验1 简单VB程序设计 【实验目的】 1 学习怎样启动和退出VB，熟悉VB的工作环境。 2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。 3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。 4 基本掌握用VB开发应用程序的一般步骤。 【实验环境】 VB6.0 奔腾586 【实验内容】 1. 启动和退出VB 2. 打开和关闭窗口 3. 设置窗体属性 4. 设置控件属性 5. 设计简单界面 6. 开发一个简单的应用程序 【实验步骤】 1. 启动和退出VB （1）可用以下方法启动VB 法1 用“开始”菜单的“程序”命令。 法2 用“开始”菜单的“运行”命令。 （2）可用以下方法退出VB 法1 单击主窗口右上角的“关闭”按钮。 法2 执行“文件”菜单的“退出”命令。 2. 打开和关闭窗口 （1）打开工程资源管理器窗口 法1 单击工具栏上的“工程资源管理器”按钮。 法2 执行“视图”菜单中的“工程资源管理器”命令。 法3 CTRL+R （2）打开窗体设计器窗口 法1 执行“视图”菜单中的“对象窗口”命令。 法2 SHIFT+F7 法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。（3) 激活属性窗口 法1 按F4键 法2 单击工具栏上的“属性窗口”按钮。 法3 执行“视图”菜单中的“属性窗口”命令。 （4) 关闭窗口 法1 单击窗口右上角的关闭按钮。 法2 ALT+F4 3. 设置窗体属性 （1）激活窗体，打开属性窗口。 （2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。 （3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中
实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一
A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16 三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j
VB程序设计》实验报告 实验二顺序结构程序设计 Text3 = Len(Text1) Text4 = Len(Trim(Text1)) End Sub
Private Sub Form_Load() End Sub 计算机技术基础（VB）实验报告——实验二 四、思考并回答1．写出实验中的代码：⑴2-1a 代码是：Private Sub Command1_Click() Text2.Text = 2 * 3.14 * Val(Text1) End Sub Private Sub Command2_Click() Text3.Text = 3.14 * Val(Text1) ^ 2 End Sub Private Sub Form_Load() End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then i = MsgBox("输入了非法字符！", 64, "提示") Text1 = "" Text1.SetFocus End If Text2 = "" Text3 = ""
End Sub ⑵2-1b 代码是： Private Sub Command1_Click() Const pi = 3.14159 Dim r As Single, l As Single, s As Single r = InputBox(" 请输入半径:", " 输入半径") s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 & r Label3 = Label3 + Str(l) label4 = label4 + Str(s) End Sub 2．2-2a 代码是： Private Sub Command1_Click() Text1.ForeColor = RGB(255, 0, 0) Text2.ForeColor = RGB(255, 0, 0) Text2.PasswordChar = "" Text1 = (Text1 = "2006000") Text2 = (Text2 = "TJin1234") End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Text1_GotFocus() Text1 = "" Text1.ForeColor = RGB(0, 0, 0) End Sub Private Sub Text2_GotFocus() Text2 = "" 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() Text2 = LCase(Text1) End Sub