vb实用案例50例
VB实例
Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = "请输入您的名字: "msg2$ = "输入后按回车键"msg3$ = "或单击“确定”按钮"msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$name$ = InputBox(msg$, "InputBox 函数示例", "张三")Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()msg$ = "请确认此数据是否正确"Title$ = "数据检查对话框"x = MsgBox(msg$, 19, Title$)If x = 6 ThenPrint x * xElseIf x = 7 ThenPrint "请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print: PrintFontName = "隶书"FontSize = 16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";Print Tab(24); "单位"; Tab(32); "籍贯"PrintPrint "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"End Sub【例3-6】Private Sub Form_Click()X = InputBox("请输入成绩", "学生成绩录入", "00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。
7.3 VB实用开发案例[9页]
![7.3 VB实用开发案例[9页]](https://img.taocdn.com/s3/m/a1f6eb81eefdc8d377ee3282.png)
酒店管理系统 汽车4S店管理系统 小区物业管理系统 员工管理系统 钢铁公司仓储管理系统 测量程序系统
7.3 小区物业管理系统
1．系统的需求分析
模
分析小区物业管理系统的全部需求。
块
2．系统功能总体设计
二
系统功能总体设计结构图如图7-3-1所示。
第 七 单 元
图7-3-1 系统功能总体设计结构图
辽宁科技学院曙光大数据
3．数据库设计 (1)E-R图 小区、房屋、收费的E-R图，如图7-3-2～图7-3-4所示。
模 块 二
第
七
单
元
图7-3-2 小区E-R图
图7-3-3 房屋E-R图
图7-3-4 收费E-R图
辽宁科技学院曙光大数据
(2)连接数据库
数据库采用Microsoft Access 2003或Microsoft
'标记连接对象
第
然后在子程序中，用如下的语句打开数据库：
七
Dim connectionstring As String
单
connectionstring = "Provider =
元
Microsoft.Jet.oledb.4.0;" & _
"DataSource = db_wygl.mdb"
conn.Open connectionstring
Access 2007，用ADO控件作为连接数据对象。
建立所需要的表格，如图7-3-5～图7-3-9所示。
模
本项目采用ADO对象访问数据库的技术，在VB中选择“
块
工程→引用”命令，在弹出的对话框中勾选“Microsoft
VB编程实例精讲(150例)
6
如前所述，您可以选择 VBE 菜单“插入——用户窗体/模块/类模块”来插入模块或 用户窗体以及相应的代码窗口。此外，您也可以在“工程资源管理器”中单击鼠标 右键，从弹出的菜单中选择“插入——用户窗体/模块/类模块”来实现上面的操作。 在获取相应的代码模块窗口后，就可以输入 VBA 代码了。 在 VBE 编辑器的代码模块中输入 VBA 代码，通常有以下几种方法： ■ 手工键盘输入； ■ 使用宏录制器，即选择菜单“工具——宏——录制新宏”命令，将所进行的操作 自动录制成宏代码； ■ 复制/粘贴代码，即将现有的代码复制后，粘贴到相应的代码模块中； ■ 导入代码模块，即在 VBE 编辑器中选择菜单“文件——导入文件”或在“工程资 源管理器”的任一对象上右击鼠标选择菜单“导入文件”，选择相应的代码文件导入。 如果不想要某个模块了，可以选择菜单“文件——移除模块”，也可以在相应的模 块上单击鼠标右键，从弹出的菜单中选择“移除模块”。此时，会弹出一个警告框， 询问在移除模块前是否将其导出，可以根据需要进行选择。 也可以选择菜单“文件——导出文件”或在相应的模块上单击鼠标右键后，从弹出 的菜单中选择“导出文件”，将移除的模块保存在相应的文件夹中。这样，以后可 以对其进行导入，从而加以利用。 调试 VBA 代码 在 VBE 编辑器的菜单中，有两项与调试运行有关的菜单项，即“调试”菜单和“运 行”菜单，它们提供了各种调试和运行的手段。在我现阶段进行代码调试时，常 用到的有以下几个： ■ 逐语句。可以按 F8 键对代码按顺序一条一条语句运行，从而找出语句或逻辑 错误。 ■ 设置断点。在可能存在问题的语句处设置断点(可通过在相应代码前的空白部 位单击，将会出现一个深红色的椭圆即断点)，当程序运行至断点处时，会中止 运行。 ■ 在语句的适当部位设置 Debug.Print 语句，运行后其结果会显示在“立即窗口” 中，可以此测试或跟踪变量的值。 ■ 在“立即窗口”中测试。对值的测试或跟踪，也可以以“？”开头，在“立即窗口” 中输入需要测试值的语句，按 Enter 回车键后将立即出现结果；对执行语句的测 试，可直接在“立即窗口”中输入，按 Enter 回车键后将执行。 ■ 可以按 F5 键直接运行光标所在位置的子程序。 在执行程序后，必须在 Excel 工作表中查看所得到的结果。可以用鼠标单击 VB E 编辑器左上角的 Excel 图标或者是按 Alt+F11 组合键切换到 Excel 界面。 (当然，对程序代码的调试有很多方法和技巧，留待以后对 VBA 进一步研究和理 解更透彻后一并讨论。) 利用 VBA 帮助系统 如果遇到疑问或错误，可以利用 Excel 自带的 VBA 帮助系统。 ■ 可以在如图 00-09 所示的部位输入需要帮助的关键词，按 Enter 回车键后将会 出现相关主题。用鼠标单击相应的主题即会出现详细的帮助信息。
18个VB经典例题
1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。
Dim x As Integer，y As Integer, z As IntegerDim c As Single，s As Singlex = Int(Rnd * 201 + 100）y = Int（Rnd * 201 + 100）z = Int（Rnd ＊201 + 100）If x + y > z And x + z 〉y And y + z 〉x Thenc = (x + y + z) / 2s = Sqr(c ＊(c — x）＊(c — y) ＊（c — z）)Print ”三角形面积是：”＆sElsePrint ”构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人数。
100,Dim a％，b％, c％, d％，e％，f%，g％, h%, i%, j％Dim x As SingleFor m = 1 To 60 ’产生60名学生的分数x = Rnd ＊101 ’产生0－100的分数Print x；If x >= 90 Thena = a + 1ElseIf x 〉= 80 Thenb = b + 1ElseIf x 〉= 70 Thenc = c + 1ElseIf x 〉= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x 〉= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a，b，c，d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8％计算，多少年以后我国人口超过26亿。
7.1 VB实用开发案例[9页]
![7.1 VB实用开发案例[9页]](https://img.taocdn.com/s3/m/e37a3d4259eef8c75fbfb372.png)
图7-1-8 投诉管理表
辽宁科技学院曙光大数据
本项目采用ADO对象访问数据库的技术，在VB中选择
“工程→引用”命令，在弹出的对话框中勾选
模 块 二
“Microsoft ActiveX Data Objects 2.0 Library” 选项。 在程序设计的公共模块中，先定义ADO的连接对象：
Option Explicit
模
行切换，菜单设计如图 7-1-10所示。
块
二
第 七 பைடு நூலகம் 元
图7-1-9 用户登录界面
图7-1-10 菜单设计
辽宁科技学院曙光大数据
模
5．各窗体属性设计及各模块代码设计
块
二
扫描教程上的酒店管理系统源代码二维码
第
(用户名：11，密码：11)。
七
单
元
辽宁科技学院曙光大数据
辽宁科技学院曙光大数据
3．数据库设计
(1)E-R图 无预约入住、团队预约入住、值班管理的E-R图，如图7-1-2～ 模 图7-1-4所示。
块 二
第 七 单 元
图7-1-2 无预约入住E-R图
辽宁科技学院曙光大数据
模 块 二
第 七 单 元
图7-1-3 团队预约入住E-R图
图7-1-4 值班管理E-R图
第
Public conn As New ADODB.Connection '标记
七
连接对象
单
然后在子程序中，用如下的语句打开数据库：
元
Dim donnectionstring As String
connectionstring = "Provider =
Microsoft.Jet.oledb.4.0;" & _
VB典型例题
传统的I/O语句（一）
传统的文件I/O语句(二)
传统的文件I/O语句(三)
传统I/O语句（四）
传统的文件I/O语句（五）
FSO对象模型二
Do…Loop While语句
Do Until…Loop语句
循环的嵌套
循环控制程序应用（穷举一）
循环控制程序应用（穷举二）
循环程序控制应用（穷举三）
循环程序控制应用（迭代一）
循环程序控制应用（迭代二）
循环程序控制应用（迭代三）
循环程序控制应用（迭代四）
默认数组
多维数组的输出
数组元素的复制
Erase语句
对象变量示例
枚举变量示例
数值型之间的转换
字符串类型和数值类型的转换
Tab函数
输入对话框
信息窗口
窗体输出实例
块形式的条件语句
嵌套选择语句
If函数
GoTo语句
Select Case语句
On…GoTo语句
选择结构应用
选择结构的应用
用If语句与GoTo语句实现循环
While语句和Wend实现循环
Dowhile…Loop语句
控件参数
第六章
窗体的创建与加载状态
窗体的生命周期
窗体的Print方法
文本控件
选择控件
列表框
组合框
滚动条
滚动条的应用
计时器
图片框控件
图片框与图像框的特别属性
形状控件
框架
控件数组
常用的绘图方法（一）
常用绘图方法（二）
常用绘图方法（三）
常用绘图方法（四）
绘图常用方法（五）
鼠标的拖动与放下（一）
鼠标的拖动与放下（二）
vb项目开发案例全程实录
vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。
1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。
系统包括学生信息的录入、成绩的录入和查询等功能。
首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。
然后，用户可以输入学生的各科成绩，并计算出总分和平均分。
最后，用户可以通过学号或姓名查询学生的成绩。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。
系统包括客房管理、客户管理、订单管理等功能。
首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。
然后，用户可以管理客户信息，包括添加、修改和删除客户信息。
最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。
系统包括商品管理、库存管理、销售管理等功能。
首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。
然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。
最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。
系统包括图书的录入、借阅和归还等功能。
首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。
然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。
最后，用户可以归还图书，并更新图书的借阅情况。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。
2018-2019-visualbasic201X范例-实用word文档 (14页)
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==visualbasic201X范例篇一：Visualbasic教学项目案例库Visualbasic实训项目案例一、程序设计基础部分(一)条件选择结构：【1.1.01】计算分段函数，程序运行效果如图所示。
【1.1.02】已知字符型变量strChar中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符，程序运行效果如图所示。
【1.1.03】已知x、y、z三个数，比较它们的大小并排序，使得x>y>z。
程序运行效果如图所示：【1..1.04】已知输入某课程的百分制成绩Score，要求显示对应五级制的评定，评定条件见表。
程序运行效果如图2.24所示。
【1.1.05】输入一个年份，判断该年是否为闰年。
程序运行效果如图所示。
说明：s = InputBox("请输入年份：")n = Val(s)If n Mod 400 = 0 Or (n Mod 4 = 0 And nMod 100 <> 0) ThenMsgBox s + "是闰年！"End If【1.1.06】求一元二次方程的根。
要求：当用户在“a=”、“b=”和“c=”对应的文本框中输入a,b,c的值后，单击【计算】按钮，则从“x1=” 和“x2=”对应的文本框中输出计算结果。
程序运行效果如图所示。
【1.1.07】运输公司对用户计算运费。
路程（s）越远，每公里运费越低。
标准如下：S＜250km 没有折扣250≤S＜5002%折扣500≤S＜1000 5%折扣1000≤S＜201X 8%折扣：201X≤S＜3000 10%折扣S≥3000 15%折扣设每公里每吨货物的基本运费为P，货物重为W，距离为S，折扣为d，则总运费F的计算公式为：F=P*W*S*（1-d）。
【7A版】43个典型ExcelVBA实例
43个典型EGcelVBA实例目录例1.九九乘法表（Print方法的应用） (3)例2输入个人信息（InputboG函数的应用） (3)例3退出确认（MsgboG函数的应用） (5)例4突出显示不及格学生 (7)例5从身份证号码中提取性别 (8)例6评定成绩等级 (9)例7计算个人所得税 (11)例8密码验证 (13)例9求最小公倍数和最大公约数 (15)例10输出ASCII码表 (16)例11计算选中区域数值之和 (17)例12换零钱法（多重循环） (18)例13数据排序 (21)例14彩票幸运号码 (22)例15用数组填充单元格区域 (24)例16判断单元格是否包含公式 (25)例17自动填充公式 (26)例18锁定和隐藏公式 (28)例19将单元格公式转换为数值 (29)例20删除所有公式 (29)例21用VBA表示数组公式 (30)数据查询 (31)例22查找指定的值 (31)例23带格式查找 (33)例24查找上一个/下一个数据 (34)例25代码转换 (36)例26模糊查询 (37)例27网上查询快件信息 (38)例28查询基金信息 (40)例29查询手机所在地 (41)例30使用字典查询 (43)数据排序 (45)例31用VBA代码排序 (45)例32乱序排序 (46)例33自定义序列排序 (47)例34多关键字排序 (49)例35输入数据自动排序 (50)例36数组排序 (51)例37使用Small和Large函数排序 (52)例38使用RANK函数排序 (54)例39姓名按笔画排序 (56)例40用VBA进行简单筛选 (59)例41用VBA进行高级筛选 (61)例42筛选非重复值 (62)例43取消筛选 (63)：例1.九九乘法表（Print方法的应用）1．案例说明在早期的Basic版本中，程序运行结果主要依靠Print语句输出到终端。
在VB中，Print作为窗体的一个方法，用来在窗体中显示信息。
(完整版)vb实用案例50例
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
VB编程题经典案例
1输入3个数，输出最大的数X=val(text1)y=val(text2)z=val(text3)if x>=y thenif x>=z then print xelse print zend ifelse if y>=z then print yend if2有一元二次方程：aX2+bX+c=0,依次输入a, b, c,判断此方程是否有实根a=val(text1)b=val(text2)c=val(text3)If b*b-4*a*c>=0 then print “有实根”else print “无实根”end if3输入一个成绩，若大于等于60,则用消息框显示“恭喜！成绩通过！”，若小于60,则弹出消息框显示“抱歉！成绩没有通过！”N=val (textl)if n>=60 then msgbox”恭喜！成绩通过!”else msgbox “抱歉！成绩没有通过！”end if4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除)y=val(text 1)if y mod 4 =0 and y mod 100 = 0 then print “y 是闰年”else print y "不是闰年’”end if5输入学生的百分制成绩，转换输出为五级制成绩，90〜100分转换为优秀，80〜89转换为良好，70〜79转换为中等，、60〜69转换为及格，0〜60转换为不及格。
If mark >=90 then grade= ‘优’else If mark >=80 then grade =‘ 良’else If mark >=70 then grade =‘ 中’else If mark >=60 then grade ='及格’else grade="不及格”6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
vb实用案例例
实验报告11实验报告2:实验题目1:设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗口设置标签格式：Caption :字体格式Alig nment :2—Center （居中）BorderStyle : 1 —Fixed Si ngle （有边框）Backstyle : 0—Tan spare nt （背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30;单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Comma nd1_Click（）=30End SubPrivate Sub Comma nd2_Click（）=trueEnd SubPrivate Sub Comma nd3_Click（）=TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能;2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Comma nd1_Click()=Val + ValEnd SubPrivate Sub Comma nd2_Click()=Val - ValEnd SubPrivate Sub Comma nd3_Click()=Val * ValEnd SubPrivate Sub Comma nd4_Click()=Val / ValEnd Sub实验题目3:设计一个能够统计某学生三门课程成绩总分和平均分的程序。
参考界面如下:要求：没有计算岀总分前，计算均分的命令按钮不可用，计算岀总分后，计算均分的命令按钮才可用说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：Private Sub Comma nd1_Click()=Val + Val + Val=TrueEnd SubPrivate Sub Comma nd2_Click()=Val / 3End SubPrivate Sub Comma nd3_Click()End Sub实验题目4:设计界面，编写程序计算圆的周长和面积。
VB案例集锦
案例集锦在前面的章节中讲述了使用VB创建数据库应用程序的几个范例，其实作为编程语言来说，VB易于掌握和提高，可以极为迅速和简洁的创建Windows应用程序，非常适合普通的用户来编写符合自己需要的实用小程序。
在接下来的内容中将向读者介绍几个用VB开发实用小程序的方法，并且结合实例向读者介绍VB编程中的许多技巧。
案例一我的桌面小闹钟一、概述在本例中将创建一个可以自动跟随鼠标移动的小闹钟，实时地显示当前计算机的时间，并且允许用户添加、删除和修改定时任务，这些任务将被保存在一个Access数据库中，在设置的时间到达时，闹钟将用音乐警报，并弹出消息框来提示用户。
其功能模块图如图1.1所示。
图1.1系统的功能模块图二、数据库的准备通过Access或者VB可视化数据管理器创建一个Access数据库，在其中添加一个名为“任务列表”的数据表。
该数据表的结构如表1.1所示。
表1.1 “任务列表”数据表的结构三、应用程序的编写在VB中创建一个新的“标准EXE”工程，将其命名为“我的小闹钟”。
在工程默认的窗体Form1中添加一个图片控件，两个标签控件，一个时间控件，依表11.2至表11.5所示的内容设置窗体和控件的属性。
2案例集锦表1.2窗体Form1的属性表1.3图片控件的属性表1.4标签控件的属性表1.5时间控件的属性在控件箱窗体的空白部分右键单击，在弹出的菜单中选择“部件”，将打开“部件”对话框，如图1.2所示。
图1.2“部件”对话框在“部件”对话框中选择“控件”选项卡，在其列表中找到“Microsoft Multimedia Control 6.0”，在其前方的复选框中打勾，单击“确定”按钮，向工程中添加对Mutimedia MCI控件的引用。
在控件箱的最后将出现Mutimedia MCI控件的图标，选中其图标，在Form1中绘出其实例，如图1.3所示，其属性将在代码中设置。
案例一 我的桌面小闹钟3图1.3 添加Mutimedia MCI 控件的Form1在工程中添加一个普通窗体Form2，如表1.7和表1.8所示为其设置属性并添加菜单。
VB程序设计 实例 (1)
【例】用InputBox函数输入10个数于数组A中，输入后将这10个数显示在某文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。
用Print 方法将结果打印在窗体上，设计界面如下图a所示，运行界面如下图b所示。
a)设计界面b)运行界面图数据统计程序源码：Private Sub Form_Click()Dim Number(1 To 10) As IntegerDim ZSCount As Integer, FSCount As IntegerDim ZSSum As Integer, FSSum As IntegerFor I = 1 To 10Number(I) = Val(InputBox("请输入第" & I & "个数", "数据统计")) ' 接收数并保存在Number数组中Text1.Text = Text1.Text & Number(I) & " " ' 将数显示于文本框Text1中If Number(I) > 0 Then ' 统计正数的个数和正数的和ZSCount = ZSCount + 1ZSSum = ZSSum + Number(I)ElseIf Number(I) < 0 Then ' 统计负数的个数和负数的和FSCount = FSCount + 1FSSum = FSSum + Number(I)End IfNext ICurrentX = 500: CurrentY = 1100Print "正数的个数=" & ZSCount & " 正数的和=" & ZSSumCurrentX = 500: CurrentY = 1400Print "负数的个数=" & FSCount & " 负数的和=" & FSSumEnd Sub【例】生成包含0～10之间的随机整数的两个矩阵，求两个矩阵的积。
VB初学者实例50例
SubClass_WndMessage = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp)
Exit Function
End If
SubClass_WndMessage = True
As String) As Long
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Else
Text1.Text = "This is a readonly text box." '文本窗口是可读写窗口,设置为只读窗口
l = SendMessage(Text1.hwnd, EM_SETREADONLY, True, vbNull)
Text1.BackColor = vbInactiveBorder '将背景设置为灰色
Private Sub Command2_Click()
SetOnTop 0
End Sub
7.只容许运行一个程序实例（利用互斥体）
选择启动对象为sub main()
module:
Public Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" _ (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName _
VB高级编程100例
浅谈用VB6.0编写木马程序现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构，目前也有一些开始向B/S结构转变，在这里暂且不对B/S结构进行详谈，本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。
因此如果能够启动服务器端（即被攻击的计算机）的服务器程序，就可以使用相应的客户端工具客户程序直接控制它了。
下面来谈谈如何用VB来实现它。
首先使用VB建立两个程序，一个为客户端程序Client，一个为服务器端程序systry。
在Client工程中建立一个窗体，加载WinSock控件，称为tcpClient，协议选择TCP，再加入两个文本框，用以输入服务器的IP地址或服务器名，然后建立一个按钮，按下之后就可以对连接进行初始化了，代码如下：Private Sub cmdConnect_Click()If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 ThenMsgBox ("请输入主机名或主机IP地址。
")Exit SubElseIf Len(Text1.Text) > 0 ThentcpClient.RemoteHost = Text1.TextElsetcpClient.RemoteHost = Text2.TextEnd IfEnd IftcpClient.ConnectTimer1.Enabled = TrueEnd Sub连接建立之后就可以使用DataArrival事件处理所收到的数据了。
在服务器端systry工程也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，在Form_Load事件中加入如下代码：Private Sub Form_Load()tcpServer.LocalPort = 1999tcpServer.ListenEnd Sub准备应答客户端程序的请求连接，使用ConnectionRequest事件来应答户端程序的请求，代码如下：Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)If tcpServer.State < > sckClosed ThentcpServer.Close…检查控件的State属性是否为关闭的。
VB实例操作举例
Declare Function SendMessage Lib “user32” Alias “SendMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As Long
这两个函数的功能几乎是一样的，只是SendMessage是直接调用Windows函数来发送消息，只有这个消息完全被处理后此函数才返回，而PostMessage则给窗体的消息队列增加一个消息，这个消息将在未来某个时候进行正常事件处理时得到处理。以下仅以SendMessage为例。
函数中虽然有四个参数，但关键的是前两个：hwnd 和wMsg。Hwnd是句柄，Microsoft Windows应用程序中的每个窗体和控件都拥有一个句柄，通过句柄可以指明函数的操作对象；wMsg是一个十六进制数，代表了函数要发送的具体消息。
总之，优化程序要从自己、从用户等多方面考虑，使程序开发周期短，且高效易用。
5、如何在Windows操作系统中改变文件打开方式
在Windows 95／NT／98操作系统中改变文件打开方式的问题，又可称为改变文件类型关联的问题，即把某类型（扩展名）的文件与某应用程序关联，例如通常当双击＊.txt文件时系统自动调用Notepad.exe。本文介绍利用Windows注册表编辑器Regedit.exe手工或编程改变文件打开方式的方法，并提供程序实例。
"by copyright law,so don't copy "
frmsplash.show
doevents
initialize
VB程序设计实例
VB程序设计实例在当今的数字化时代，程序设计成为了一项重要的技能。
Visual Basic（简称 VB）作为一种相对容易上手的编程语言，在众多领域都有着广泛的应用。
接下来，我将为您展示几个 VB 程序设计的实例，帮助您更好地理解 VB 编程的魅力和实际应用。
实例一：简单的加法计算器这是一个非常基础的 VB 程序，用于实现两个数的加法运算。
首先，打开 VB 集成开发环境，创建一个新的 Windows 应用程序项目。
在窗体上，添加两个文本框（Textbox）用于输入要相加的数字，一个标签（Label）用于显示提示信息，如“请输入第一个数字”和“请输入第二个数字”，再添加一个按钮（Button）用于触发计算操作。
在按钮的点击事件中，我们通过代码获取两个文本框中输入的数字，并将它们转换为数值类型。
然后，进行加法运算，将结果存储在一个变量中。
最后，将结果显示在另一个标签或文本框中。
以下是相关的代码示例：｀｀｀vbPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1ClickDim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 ＝ CDbl(TextBox1Text)num2 ＝ CDbl(TextBox2Text)result ＝ num1 ＋ num2Label3Text ＝＂结果为：＂＆ resultEnd Sub｀｀｀通过这个简单的实例，我们初步了解了如何在VB 中获取用户输入、进行计算并显示结果。
实例二：学生成绩管理系统这个实例稍微复杂一些，用于管理学生的成绩信息。
在窗体设计方面，我们需要添加用于输入学生姓名、学号、各科成绩的文本框，以及添加用于保存、查询、修改、删除等操作的按钮。
在代码实现上，我们需要创建一个数据库来存储学生的成绩信息。
VB程序设计经典案例
VB程序设计经典案例'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)我国现有人口为13亿，设年增长率为1%，' 计算多少年后增加到20亿。
并将结果输出' 在窗体上。
将结果存入变量year中。
' 使用do while ...loop语句完成程序。
'-------------------------------------------------Private Sub Form_Click()Dim year As Integer, sum As Single'***************** Begin **************Dim p as doubleDim r as singleP=1300000000r=0.01Do while p<2000000000P=p+p*rn=n+1LoopPrint “n=”,nYear=n'*************** End *************************'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求从100到1000之间所有是3的倍数的数之' 和，当和大于3000时，停止计算并输出和。
请将结果输' 出到窗体上,并存入所给变量SUM中。
使用for...next语' 句完成程序'-------------------------------------------------Private Sub Form_Click()Dim sum As Integer'***************** Begin **************sum = 0Dim i As IntegerFor i = 100 To 1000If i Mod 3 = 0 Thensum = sum + iIf sum > 3000 Then Exit ForEnd IfNext iPrint sum'*************** End *************************1题目（事件）点击窗体（响应）求1！+2！+3！+…………………+10!的值，并在窗体上输出，结果存入变量L中Private sub form –click()Dim l as longDim p as longP=1Fori=1to10P=p*il=l+pnextprint lend sub3题目点击窗体求100以内偶数的和，并将结果输出在窗体上，将结果存入变量sum 中Private sub form –click() 如果是奇数的和，则Dim sum as integer …………………….For i=0 to 100 step2 for i=1 to 100 step 2Sum=sum+i………………Next ……….Print sumEnd sub ………………………..题目：单击窗体求1+2+3+4+5+……………….+100的值并将结果输入在窗体上，结果存入变量sum 中Private sub form –click()Dim sum as integerFor i=0 to 100Sum=sum+iNextPrint sumEnd sub题目双击窗体求1+5+10+15+……………..+500的和，并将结果输出在窗体上，将结果存入变量sum 中Private sub form-click()Dim sum as longSum=0For i=0 to 500 step 5Sum=sum+iNextPrint sumEnd sub'题目：求两个数m,n的最大公约数p和最小公倍数q'-------------------------------------------------'注意：请在指定的事件内编写代码。
(整理)vb编程实例.
实验30(1)Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Singlea = InputBox("输?入?A", "输?入?数簓据YY", , 500, 500)b = InputBox("输?入?B", "输?入?数簓据YY", , 500, 500)c = InputBox("输?入?C", "输?入?数簓据YY", , 500, 500)x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / ax2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim x As SingleDim y As Singlex = InputBox("输?入?x")y = Math.Log(20) + Math.Abs(x - 16)MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)End Sub计算落体Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickConst g As Single = 9.81Dim v As Single, o As Single, t As Single, s As Singlev = InputBox("输?入?初?速ù度è")o = InputBox("输?入?角?度è")t = 2 * v * Math.Sin(o * Math.PI / 180) / gs = v * Math.Sin(2 * o * Math.PI / 180) / gMsgBox("落?地?所ù需è时骸?间?" & t & " 落?地?时骸?运?动ˉ的?射?程ì" & s) End SubEnd Class实验30 (2)随机产生奇偶数并输出Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As Integerx = Int(Rnd() * 100)If x Mod 2 = 0 ThenMsgBox(x & "是?偶?数簓")ElseMsgBox(x & "是?奇?数簓")End IfEnd Sub比较三个数的大小并输出Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a As Single, b As Single, c As Single, x As Single, y As Singlea = InputBox("请?输?入?a")b = InputBox("请?输?入?b")c = InputBox("请?输?入?c")If a > b Thenx = ay = bElsex = by = aEnd IfIf c > a Thenx = cElseIf c < b Theny = cEnd IfEnd IfMsgBox("最?大洙?数簓" & x & " 最?小?数簓" & y)End Sub计算当T<120时的计算（循环语句）Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim t As Single, f As Singlet = InputBox("请?输?入?t")If t < 120 Thenf = 0.06 * t + 2MsgBox("f = 0.06 * t + 2=" & f)Elsef = 0.06 * t * 0.85MsgBox("f = 0.06 * t * 0.85=" & f)End IfEnd Sub判断成绩等级Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Stringx = InputBox("请?输?入?成é绩¨")If x >= 90 Theny = "A"ElseIf x >= 80 Theny = "B"ElseIf x >= 70 Theny = "C"ElseIf x >= 60 Theny = "D"Elsey = "E"End IfMsgBox("成é绩¨" & x & "等台?级?为a" & y)End SubCase选择Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button5.ClickDim x As Single, y As Singlex = InputBox("请?输?入?x")Select Case xCase Is <= -1y = x - 1Case Is <= 2y = 2 * xCase Is <= 10y = x * (x + 2)Case Elsey = 0End SelectMsgBox("y=" & y)End Sub计算算数根Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Single, x As Singlea = InputBox("输?入?A", "输?入?数簓据YY", , 500, 500)b = InputBox("输?入?B", "输?入?数簓据YY", , 500, 500)c = InputBox("输?入?C", "输?入?数簓据YY", , 500, 500)x = b ^ 2 - 4 * a * cIf x >= 0 Thenx1 = -b + Math.Sqrt(x) / 2 / ax2 = -b - Math.Sqrt(x) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) Elsex1 = Math.Sqrt(-x) / 2 / ax2 = -Math.Sqrt(-x) / 2 / aMsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i") End IfEnd Sub循环语句实验31Public Class Form1Dim a(19) As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim n As IntegerDim s As Singles = 0n = InputBox("请?输?入?n")For i = 1 To ns = s + 1 / (i * (i + 1))NextMsgBox("s=" & s)End Sub求下标是奇偶数的代码Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a(10) As IntegerDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0For i = 1 To 10InputBox("请?输?入?第台? & i & "个?数簓")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下?标括?为a奇?数簓的?元a素?和í为a" & y & "下?标括?为a偶?数簓的?元a素?和í为a" & x)End Sub画星星图Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As Stringys = ""r = 1Do While r <= 4c = 10 - r : s = 1y(r) = y(r) & Space(c + s)Do While s <= 2 * r - 1y(r) = y(r) & "*"s = s + 1Loopr = r + 1LoopFor j = 1 To 4ys = ys & y(j) & Chr(10)NextMsgBox(ys)End Sub画图Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, ys As Stringys = ""r = 4Do While r >= 1c = 10 - r : s = 1ys = ys & Space(c + s)Do While s <= 2 * r - 1ys = ys & "*"s = s + 1Loopr = r - 1ys = ys & Chr(10)LoopMsgBox(ys)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEnd Sub随机产生几个数并输出相关条件的个数Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim s As StringDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0s = ""For i = 0 To 19a(i) = Int(Rnd() * 100)s = s & a(i) & ","If a(i) > 50 Thenx = x + 1ElseIf a(i) < 10 Theny = y + 1End IfNextMsgBox(s & vbCrLf & "50?元a以?上?的?业唉?务?人?数簓为a" & x & ",10?元a 以?下?的?业唉?务?人?数簓为a" & y)End Sub随机产生并排序Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click'Dim a(19) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim x As StringDim y As Stringx = ""y = ""'For i = 0 To 19' a(i) = Int(Rnd() * 100)' x = x & a(i) & ","'NextFor i = 0 To 19For j = 19 To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i) & ","NextMsgBox(x & vbCrLf & y)End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim a As IntegerDim b(9) As IntegerDim s As IntegerDim u As StringDim i As IntegerRandomize()a = Int(Rnd() * 90000000 + 10000000)For i = 0 To 7s = Mid(a, i + 1, 1)b(s) = b(s) + 1Nextu = "8位?数簓为a：阰(" & a & ")" & vbCrLfFor i = 0 To 9u = u & i & "出?现?次?数簓：阰" & b(i) & vbCrLfNextMsgBox(u)End SubPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim b(19) As IntegerDim i As IntegerDim s As Strings = ""For i = 0 To 19b(i) = Int(Rnd() * 90000000 + 10000000)s = s & b(i) & vbCrLfNextMsgBox(s)End Sub循环语句Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim i As IntegerDim t As SingleDim s As Integeri = 1t = 1 / (i * (i + 1))s = 0Do While t >= 0.000001s = s + ti = i + 1t = 1 / (i * (i + 1))LoopMsgBox("s=" & s)End SubPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim i As IntegerDim t As SingleDim s As Singlei = 1t = 1 / (i * (i + 1))s = 0Dos = s + ti = i + 1t = 1 / (i * (i + 1))Loop While t >= 0.000001MsgBox("s=" & s)End SubPrivate Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim a() As IntegerDim i As IntegerDim n As IntegerDim x As IntegerDim y As Integerx = 0y = 0n = InputBox("请?输?入?数簓组哩?的?数簓量?")ReDim a(n)For i = 1 To na(i) = InputBox("请?输?入?第台? & i & "个?数簓")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下?标括?为a奇?数簓的?元a素?和í为a" & y & "下?标括?为a偶?数簓的?元a素?和í为a" & x)End SubPrivate Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim s As StringDim y As StringDim t As StringDim a() As StringDim i As IntegerDim j As IntegerDim l As Integert = ""y = ""s = InputBox("请?输?入?要癮排?序ò的?字?符?串?")l = Len(s)ReDim a(l)For i = 1 To la(i) = Mid(s, i, 1)NextFor i = 1 To lFor j = l To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i)NextMsgBox(s & vbCrLf & y)End SubPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim n As IntegerDim i As IntegerDim j As IntegerDim s As StringDim t As StringDim i_0 As IntegerDim j_0 As IntegerDim mfz_bz(9, 9) As StringDim mfz(9, 9) As Stringn = InputBox("请?输?入?魔§方?阵ó阶×数簓 N")If n < 3 Or n > 9 Or n Mod 2 <> 1 ThenMsgBox("您ú输?入?的?魔§方?阵ó阶×数簓 N 不?在ú范?围§内ú，?请?输?入?3-9之?间?的?奇?数簓")Exit SubEnd If'初?始?化ˉFor i = 1 To 9For j = 1 To 9mfz_bz(i, j) = 0mfz(i, j) = ""Next jNext imfz(1, n \ 2 + 1) = 1mfz_bz(1, n \ 2 + 1) = 1i_0 = 1j_0 = n \ 2 + 1For ysz = 2 To n * nIf mfz(i_0, j_0) > n And (mfz(i_0, j_0) Mod n = 0) Then i = i_0 + 1j = j_0ElseIf i_0 = 1 Theni = nj = j_0 + 1ElseIf j_0 = n Theni = i_0 - 1j = 1Elsei = i_0 - 1j = j_0 + 1End IfIf mfz_bz(i, j) = 1 Theni = i_0 + 1j = j_0End Ifmfz(i, j) = yszmfz_bz(i, j) = 1i_0 = ij_0 = jNext yszMsgBox("魔§方?阵ó排??毕?")s = ""For i = 1 To 9For j = 1 To 9t = mfz(i, j)s = s & Format(t, "{0,4}")Nexts = s & vbCrLfNextEnd SubEnd Class实验33Public Class Form1计算油钱Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim t As Integer, f As Single, x As Stringt = Val(TextBox1.Text)f = 7.69 * tx = Str$(f) + "元a"Label2.Text = xTextBox1.Focus()End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadTextBox1.Text = ""Label2.Text = ""End SubEnd Class判断身体健康Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As IntegerIf TextBox1.Text = ""ThenTextBox1.Focus() '在ú文?本?框ò1输?入?身Θ?高?MsgBox("请?输?入?身Θ?高?")Exit SubIf TextBox2.Text = ""ThenTextBox2.Focus() '在ú文?本?框ò2输?入?体?重?MsgBox("请?输?入?体?重?")Exit SubEnd If'选?择?性?别纄If RadioButton1.Checked = False And RadioButton2.Checked = False Then'此?种?情é况?不?会á发ぁ?生Θ?MsgBox("请?选?择?被?检ì测a者?性?别纄")Exit SubEnd IfIf RadioButton1.Checked = True Thenx = Val(TextBox1.Text) - 100 '计?算?男D性?体?重?ElseIf RadioButton2.Checked = True Thenx = Val(TextBox1.Text) - 105 '计?算?女?性?体?重?End If'判D断?体?重?是?否?超?标括?，?并￠显?示?If Val(TextBox2.Text) > x ThenLabel3.Text = "体?重?超?标括?，?请?注痢?意癮饮?食?与?运?动ˉ！?"ElseLabel3.Text = "体?重?正y常￡"End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'清?除y计?算?体?重?和í超?标括??示?Label3.Text = "" : TextBox1.Text = "" : TextBox2.Text = ""RadioButton1.Checked = False : RadioButton2.Checked = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd'结á束?工¤程ì运?行DEnd SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadMe.Show()TextBox1.Focus()End SubEnd ClassPublic Class Form1Dim x As Integer, varstring As StringPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox3.Enabled = FalseButton1.Enabled = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Regular)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd Sub调整字体Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickSelect Case TrueCase CheckBox1.Checked = True And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Bold)Case CheckBox2.Checked = True And CheckBox1.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Italic)Case CheckBox1.Checked And CheckBox2.CheckedTextBox3.Font = New Font("宋?体?", 10, FontStyle.Bold Or FontStyle.Italic) Case CheckBox1.Checked = False And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋?体?", 10, FontStyle.Regular)End SelectEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox3.Enabled = TrueTextBox3.Text = TextBox1.Text & TextBox2.TextIf RadioButton1.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton1.TextElseIf RadioButton2.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton2.TextEnd IfEnd Sub输入病例Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocusx = Len(TextBox1.Text)If x <> 6 ThenBeep()TextBox1.Text = ""TextBox1.Focus()TextBox3.Clear()TextBox3.Text = "病?历え?号?为a6位?数簓字?"ElseTextBox3.Clear()Button1.Enabled = TrueEnd IfEnd SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ShownEnd SubEnd ClassPublic Class Form1图书馆借书Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf ListBox1.SelectedIndex = -1 ThenMsgBox("请?选?择?要癮删?除y的?书酣?")Exit SubEnd IfListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内ú科?学§"Or ListBox1.Items(i) = "外猘科?学§"Then MsgBox("您ú已?经-借è阅?了?一?本?期ú刊ˉ,不?能ü再ù借è阅?期ú刊ˉ!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内ú科?学§")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外猘科?学§")End IfEnd SubEnd Class开病方Public Class Form1Dim Var As String, Hx As Integer, Vx As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickVar$ = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text + ComboBox4.Text Select Case Var$Case Is = "?轻á度è38度è干é咳è"TextBox1.Text = "咽ê炎×"Case Is = "化ˉ脓§中D度è39度è早?起e咳è"TextBox1.Text = "?体?发ぁ?炎×"Case Is = "化ˉ脓§重?度è40?TextBox1.Text = "肺?炎×"Case ElseTextBox1.Text = "重?选?"End SelectEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClickListBox2.Items.Add(ListBox1.Text)End SubPrivate Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick'首骸?先è判D断??框ò中D的?项?是?否?大洙??If (ListBox2.Items.Count > 0) Then'移?出?选?择?的?项?()'ListBox2.Items.Remove(ListBox2.SelectedItem)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End IfEnd SubEnd ClassPublic Class Form1选图Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadComboBox1.Items.Add("一?")ComboBox1.Items.Add("二t")ComboBox1.Items.Add("三▂")ComboBox1.Items.Add("四?")ComboBox1.SelectedIndex = 0End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedSelect Case ComboBox1.SelectedIndexCase 0'PictureBox1.Load("xiamen1.jpg")PictureBox1.Image = My.Resources.xiamen1Case 1'PictureBox1.Load("xiamen2.jpg")PictureBox1.Image = My.Resources.xiamen2Case 2'PictureBox1.Load("xiamen3.jpg")PictureBox1.Image = My.Resources.xiamen3Case 3'PictureBox1.Load("xiamen4.jpg")PictureBox1.Image = My.Resources.xiamen4End SelectEnd SubEnd ClassPublic Class Form1计算正弦和余弦Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text = ""'初?始?化ˉ输?入?文?本?框òLabel2.Text = ""'初?始?化ˉ输?出?标括?签?框òEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b As DoubleDim c As String'定¨义?一?个?可é存?放?部?分?输?出?结á果?的?字?符?串?变?量?c = ""If TextBox1.Text = ""ThenTextBox1.Focus() '如?果?没?有瓺输?入?任?何?时骸?间?,则ò强?制?返う?回?文?本?框ò等台?待鋣输?入?MsgBox("请?输?入?计?算?数簓据Y") '?示?用?户§输?入?时骸?间?Exit Sub'控?制?如?果?没?有瓺输?入?时骸?间?,不?进?行D下?面?的?计?算?,直±接ó结á束?“°计?算?”±按恪?钮￥的?Click事?件t过y程ìEnd IfIf RadioButton4.Checked = True Thenb = Val(TextBox1.Text) * Math.PI / 180 '判D断?是?否?输?入?角?度è?若?是?,进?行D弧?度è转羇换?,否?则ò不?转羇换?ElseIf RadioButton5.Checked = True Thenb = Val(TextBox1.Text)End If'判D断?进?行D何?种?计?算?,并￠进?入?对?应畖的?计?算?If RadioButton1.Checked = True Thena = Math.Sin(b)c = "Sin(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?ElseIf RadioButton2.Checked = True Thena = Math.Cos(b)c = "Cos(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?ElseIf RadioButton3.Checked = True Thena = Math.Tan(b)c = "Tan(" & TextBox1.Text & ")="'将?显?示?何?种?计?算?的?内ú容╕转羇换?为a字?符?串?End Ifa = Math.Round(a, 6) '结á果?四?舍Θ?五?入?a = Format(a, "0.000000") '保馈?证¤纯?小?数簓输?出?前°面?有瓺"0."符?号?显?示?,注痢?意癮a是?变?体?变?量?Label2.Text = c & aEnd SubEnd Class让图片不断转换Public Class Form1Dim i As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = Truei = 0End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf i = 0 ThenPictureBox1.Image = PictureBox2.Imagei = 1ElsePictureBox1.Image = PictureBox3.Imagei = 0End IfIf Label1.Left < 0 ThenLabel1.Left = Me.WidthElseLabel1.Left = Label1.Left - 30End IfEnd SubEnd Class选图调控比例Public Class Form1Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadButton4.Enabled = FalseButton2.Enabled = FalseButton3.Enabled = FalseButton1.Image = My.Resources.CRDFLE12Button2.Image = My.Resources.EYEButton3.Image = My.Resources.ARW09RTButton4.Image = My.Resources.KEY06End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickPictureBox1.SizeMode = PictureBoxSizeMode.ZoomPictureBox1.Image = My.Resources.R1Button4.Enabled = TrueButton2.Enabled = TrueButton3.Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickForm2.PictureBox1.Image = My.Resources.R1Form2.Show()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickPictureBox3.Image = PictureBox1.ImagePictureBox3.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As Integerx = Val(InputBox("设Θ?置?缩?小?比括?x="))PictureBox2.SizeMode = PictureBoxSizeMode.CenterImagePictureBox2.Image = PictureBox1.ImagePictureBox3.SizeMode = PictureBoxSizeMode.StretchImagePictureBox3.Height = PictureBox1.Image.Height / xPictureBox3.Width = PictureBox1.Image.Width / xPictureBox3.Image = PictureBox1.ImageEnd SubEnd Class。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
参考界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：Private Sub Command1_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text5.Text = Val(Text4.Text) / 3End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End Sub实验题目4：设计界面，编写程序计算圆的周长和面积。
参考界面如下：要求：①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目4源程序代码：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi = 3.1415926r = Val(Text1.Text)s = pi * r * rc = 2 * pi * rText2.Text = Str(c)Text3.Text = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub实验题目5：设计界面，编写程序验证算术运算符的功能。
参考界面如下：要求：①设置窗体的标题为“验证算术运算符”。
②“计算”命令按钮的功能：计算两个数的除、整除和取余。
③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目5源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)Text4.Text = Val(Text1.Text) \ Val(Text2.Text)Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。
参考界面如下：要求：①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目6源程序代码：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Text4.Text = Str(a \ 100)Text3.Text = Str((a Mod 100) \ 10)Text2.Text = Str(a Mod 10)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub实验题目7：输入一个三位数，将它按逆序输出。
参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。
实验题目7源程序代码：第一种解法：Private Sub Command1_Click()Dim a As String, b As String, c As String, d As Stringa = Trim(Text1.Text)b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text2.Text = d & c & bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub第二种解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(Text1.Text)b = a \ 100c = (a Mod 100) \ 10d = a Mod 10Text2.Text = Str(d * 100 + c * 10 + b)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub实验题目8：输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。
实验题目8源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = aa = bb = cText1.Text = Str(a)Text2.Text = Str(b)End Sub实验题目9：设计文本编辑窗体。
复制按钮的功能：移动按钮的功能：提示：文本框的SelText属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的multiline属性设置为true。
实验题目9源程序代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = ""End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验报告3：实验题目1：编写程序计算某个学生三门课程的平均成绩。
要求：（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。
（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))（2）单击“结束”命令按钮结束程序运行。
界面如下：实验题目1源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox("请输入第一门成绩"))b = Val(InputBox("请输入第二门成绩"))c = Val(InputBox("请输入第三门成绩"))d = (a + b + c) / 3Text1.Text = dEnd Sub实验题目2：编写程序计算长方体的体积。