VB编程及实例

合集下载

VB编程实例精讲(150例)

图 00-08：VBE 编辑器窗口(带有用户窗体) 在 VBE 编辑器中输入 VBA 代码
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 回车键后将会出现相关主题。用鼠标单击相应的主题即会出现详细的帮助信息。

vb教程编程实例详解

vb教程编程实例详解VB教程编程实例详解VB（Visual Basic）是一种面向对象的编程语言，它可以用于开发Windows应用程序。

在这里，我们将详细解释一些VB 编程实例，以帮助初学者更好地理解和掌握这门语言。

编程实例1：计算器首先，让我们创建一个计算器的VB程序。

我们将使用VB的窗体和按钮来实现这个功能。

首先，我们需要在窗体上添加一些按钮，如"1"、"2"、"+"、"="等。

然后，我们需要用一个文本框来显示计算结果。

在窗体上双击"+"按钮并添加以下代码：```Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = Integer.Parse(TextBoxNum1.Text)num2 = Integer.Parse(TextBoxNum2.Text)result = num1 + num2TextBoxResult.Text = result.ToString()End Sub```在这个代码中，我们首先定义了三个变量：num1、num2和result，用于存储计算结果。

然后，我们使用Integer.Parse方法将文本框中输入的文本转换为整数类型，并将其赋值给num1和num2。

接下来，我们将num1和num2相加，将结果赋值给result，并使用result.ToString()方法将结果转换为字符串类型并显示在结果文本框中。

编程实例2：学生成绩管理系统接下来，让我们创建一个学生成绩管理系统的VB程序。

Visual Basic编程100例

您更加惬意地控制 VCD；（8）屏幕可随意拖动，画面可任意放缩。 VCD 中的影像文件都在光盘的 MPEGAV 目录下，文件名只有两种：AVSEQ01.DAT
或 MUSIC01.DAT（如果是音乐版的卡拉 OK，则还有 MUSIC02.DAT 等。）。可视动画控件 ActiveMovie 是 Microsoft 公司的控件，从不成熟的 1.0、1.2 到 2.0，
巧用 VB 编程使 XMPLAYER 自动播放 VCD（缺少）
用 VB 5.0 实现多画面播放功能
2000-07-15· ·请作者与我们联系··学 vb 找王国荣
font size=2> 所谓动态画中画，指的是在大画面视频播放时，小画面在大画面中也播放另外的画
面，或者是两个画面都在做某种活动。笔者前段时间用 VB 5.0 开发了一个 VCD 播放程序，可以实现以下功能：（1）可以多屏播放，也就是画中画功能，可同时播放几个不同的画面；（2）可以同时播放 CD-ROM 中的视频音频文件（当然，在硬盘中播放速度会更快
我们再增加一个主菜单项：“屏幕”（SCREEN）及其子菜单项：“全屏 A” （FULLSCREENA），用来控制屏幕大小：
Private Sub FULLSCREENA_Click() On Error Resume Next ActiveMovie1.FullScreenMode = True ActiveMovie1.Run ActiveMovie1.MovieWindowSize = amvMaximized End Sub FullScreenMode 用来控制画面是否为全屏，当它为 TRUE 时则以全屏方式播放 VCD，为 FALSE 时则取消全屏方式。 MovieWindowSize 也是控制屏幕的大小：（1）全屏大小： ActiveMovie1.MovieWindowSize = amvMaximized；（2）正常大小： ActiveMovie1.MovieWindowSize = amvOriginalSize；（3）倍屏： ActiveMovie1.MovieWindowSize = amvDoubleOriginalSize；（4）1/2 屏： ActiveMovie1.MovieWindowSize = amvOneHalfScreen；（5）1/4 屏： ActiveMovie1.MovieWindowSize = amvOneFourthScreen；（6）1/16 屏： ActiveMovie1.MovieWindowSize = amvOneSixteenthScreen。我们可以随意控制屏幕，下面让我们再把声音控制一下吧！

vb项目开发案例全程实录

vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。

1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。

系统包括学生信息的录入、成绩的录入和查询等功能。

首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。

然后，用户可以输入学生的各科成绩，并计算出总分和平均分。

最后，用户可以通过学号或姓名查询学生的成绩。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。

系统包括客房管理、客户管理、订单管理等功能。

首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。

然后，用户可以管理客户信息，包括添加、修改和删除客户信息。

最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。

系统包括商品管理、库存管理、销售管理等功能。

首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。

然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。

最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。

系统包括图书的录入、借阅和归还等功能。

首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。

然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。

最后，用户可以归还图书，并更新图书的借阅情况。

该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。

5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。

VB编程实例

一、导入到Xls文件并打印Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim a,fsoa=HMIRuntime.Tags("fileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Model.xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Model.xls"objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").readobjExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")objExcelApp.ActiveWorkbook.PrintOutobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "文件已经成功导出/Export Successful"ElseMsgBox "Excel模板文件不存在"End ifEnd Sub二、从Xls文件导入或者查询Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) Dim a,fsoa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("C:\Report\"&CStr(a)&".xls") ThenDim objExcelAppSet objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "C:\Report\"&CStr(a)&".xls"HMIRuntime.Tags("NewTag1_1").Write objExcelApp.Cells(2, 3).Value HMIRuntime.Tags("NewTag1_2").Write objExcelApp.Cells(4, 5).Value HMIRuntime.Tags("NewTag1_3").Write objExcelApp.Cells(6, 7).Value HMIRuntime.Tags("NewTag1_4").Write objExcelApp.Cells(8, 9).ValueHMIRuntime.Tags("NewTag1_5").Write objExcelApp.Cells(10, 11).Value objExcelApp.ActiveWorkbook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp = NothingMsgBox "导入数据成功/Import Successful"ElseMsgBox "文件不存在/file is not existing"End ifEnd Sub3、WinCC如何实现带确认的按钮操作网上多是介绍C脚本实现的方法,其实VB脚本的实现更简单,代码如下:Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) If MsgBox("提示内容",1,"提示标题")=1 ThenHMIRuntime.Tags("TestTag").Write 1ElseHMIRuntime.Tags("TestTag").Write 0End IfEnd Sub说明MsgBox("提示内容",1,"提示标题")中的1为消息窗口中按钮的类型0=vbOKonly1=vbOKCancel2=vbAbortRetryIgnore3=vbYesNoCancel4=vbYesNo一、将WinCC变量导出到TEXT文件Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim fso,FileDim aa=HMIRuntime.Tags("FileName").ReadConst ForWriting = 2Set fso = CreateObject("Scripting.FileSystemObject")Set File = fso.OpenTextFile("D:\Export&Import\"&CStr(a)&".txt", ForWriting, True) File.WriteLine(HMIRuntime.Tags("Var_1").read)File.WriteLine(HMIRuntime.Tags("Var_2").read)File.WriteLine(HMIRuntime.Tags("Var_3").read)File.WriteLine(HMIRuntime.Tags("Var_4").read)file.WriteLine(HMIRuntime.Tags("Var_5").read)File.CloseMsgBox "文件已经成功导出/Export Successful"End Sub二、从TXT文件中读取数据到WinCC变量Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)Dim fsoDim txtfileDim aa=HMIRuntime.Tags("FileName").ReadSet fso = CreateObject("scripting.filesystemobject")If fso.FileExists("D:\\Export&Import\\"&CStr(a)&".txt") ThenSet txtfile = fso.OpenTextFile("D:\\Export&Import\\"&CStr(a)&".txt") HMIRuntime.Tags("Var_1").Write txtfile.ReadLineHMIRuntime.Tags("Var_2").Write txtfile.ReadLineHMIRuntime.Tags("Var_3").Write txtfile.ReadLineHMIRuntime.Tags("Var_4").Write txtfile.ReadLineHMIRuntime.Tags("Var_5").Write txtfile.ReadLineMsgBox "导入数据成功/Import Successful"txtfile.CloseElseMsgBox "文件不存在/File is not existing"End ifEnd Sub。

VB编程实例讲解

实例53：获得拨号网络项目实例说明在本实例中，我们将制作一个能够取得本地计算机上的拨号网络的项目的应用程序。

程序运行结果如图53-1所示。

图53-1 运行结果技术要点●读取注册表内容●添加到列表框实现过程■新建项目打开Visual ，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“GetDialList”，然后选择保存路径。

单击“确认”。

■添加控件和设置属性向窗体上添加一个ListBox控件。

将窗体的Text属性改为“获得拨号网络项目”，其余属性都保持默认。

■添加代码Private Declare Function RegOpenKey Lib "advapi32.dll" Alias"RegOpenKeyA"(ByVal hKey As Integer, ByVal lpSubKey As String, ByRef phkResultAs Integer) As Integer中级篇 167 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Integer)As IntegerPrivate Declare Function RegEnumKey Lib "advapi32.dll" Alias"RegEnumKeyA"(ByVal hKey As Integer, ByVal dwIndex As Integer, ByVal lpName AsString, ByVal cbName As Integer) As IntegerConst HKEY_CURRENT_USER As Integer = &H80000001Const ERROR_NO_MORE_ITEMS As Short = 259Const ERROR_SUCCESS As Short = 0Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles MyBase.LoadDim hKey As IntegerDim i As IntegerDim astr As VB6.FixedLengthString = New VB6.FixedLengthString(256)If RegOpenKey(HKEY_CURRENT_USER, "RemoteAccess\Profile", hKey) =ERROR_SUCCESS ThenWhile RegEnumKey(hKey, i, astr.Value, 256) = ERROR_SUCCESSList1.Items.Add(astr.Value)i = i + 1End WhileRegCloseKey(hKey)End IfEnd Sub■运行程序单击菜单“调试|启动”或单击图标运行程序。

VB编程标准例子

1.求累计应收款代码：截图：Option ExplicitDim ysk!Private Sub Command1_Click()Dim dj!, sl%dj = Val(Text1.Text)sl = Val(Text2.Text)ysk = ysk + dj * slText3.Text = yskText1.Text = 0Text2.Text = 0End SubPrivate Sub Command2_Click()Text1.Text = 0Text2.Text = 0Text3.Text = 0End SubPrivate Sub Command3_Click()EndEnd Sub2. 求一个数的平方数代码：截图：Private Sub Command1_Click()Dim srs!srs = Val(Text1.Text)pfs = Val(Text2.Text)pfs = srs ^ 2Text2.Text = pfsEnd SubPrivate Sub Command2_Click()EndEnd Sub3.打印1~100两个随机数以及和Private Sub Form_click()Dim a%, b%, c%a = Int(100 * Rnd + 1)b = Int(100 * Rnd + 1)c = a + bPrint "两个随机数："; a, bPrint "和", cEnd Sub4．双击输入一个二位数，打印其反过来的数。

Private Sub Form_DblClick()x = InputBox("请输入一个二位数")a = Left(x, 1)b = Right(x, 1)c = b & aPrint "生成后的结果"; cEnd Sub5.点击form后输入***，打印***，并让命令空间不可见同时再打印***。

VB编程案例(蝴蝶飞舞,计算器,加密,解密,矩阵转置,鸟巢,统计,文本编辑,小球跳动,学生信息录入窗口)

目录一、鸟巢绘制 (2)二、加密 (3)三、解密 (4)四、蝴蝶飞舞 (6)五、文本编辑 (6)六、统计 (9)七、小球跳动 (11)八、计算器（彩票摇奖） (12)九、学生信息录入 (16)十、矩阵转置 (17)一、鸟巢绘制Private Sub Form_Click()ClsDim r, xi, yi, xj, yj, x0, y0, aif As Singler = Form10.ScaleHeight / 2x0 = Form10.ScaleWidth / 2y0 = Form10.ScaleHeight / 2n = 16aif = 3.14159 * 2 / nFor i = 1 To nxi = r * Cos(i * aif) + x0yi = r * Sin(i * aif) + y0For j = i To nxj = r * Cos(j * aif) + x0yj = r * Sin(j * aif) + y0Line (xi, yi)-(xj, yj), QBColor(i - 1)PSet (xi, yi)Print i - 1Next jNext iEnd SubPrivate Sub Form_Load()Print "要求：";Print "1.将圆周等分成16份；"Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。

"End Sub附图：二、加密Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc%code = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc(c) + keyIf iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) + keyIf iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case Elsecode = code + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form11.HideForm1.ShowEnd SubPrivate Sub Jiami_Click()Text2 = code(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea)ProgressBar1.max = UBound(workarea)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.TextClose #1End Sub三、解密Function UnCode(ByVal s$, ByVal key%)Dim c As String * 1, iAsc%UnCode = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc("c") - keyIf iAsc < Asc("A") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) - keyIf iAsc < Asc("a") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case ElseUnCode = UnCode + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Jiemi_Click()Text2 = UnCode(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text2.TextClose #1End Sub四、蝴蝶飞舞Private Sub Form_Load()Print "蝴蝶飞出窗体后重新定位到左下方再向右上方飞" End SubPrivate Sub Timer1_Timer()Static PickBmp As IntegerIf PickBmp = 0 ThenImage1.Picture = Image2.PicturePickBmp = 1ElseImage1.Picture = Image3.PicturePickBmp = 0End IfCall mymoveEnd SubSub mymove()Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top <= 0 ThenImage1.Left = 0Image1.Top = 2325End IfEnd Sub图：五、文本编辑Private Sub Copy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub Exit_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4RichTextBox1.FontName = CommonDialog1.FontName RichTextBox1.FontSize = CommonDialog1.FontSize RichTextBox1.FontBold = CommonDialog1.FontBold RichTextBox1.FontItalic = CommonDialog1.FontItalic RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru RichTextBox1.FontUnderline = CommonDialog1.FontUnderline RichTextBox1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Form_Load()Print "注："Print "1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print "文件夹，将提供的xz.txt文件打开；"Print "2.要实现将选定的内容格式化，必须在工具箱中添加" Print "RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）" Print "并在帮助菜单中查阅其字体设置的相关属性。

用VB编写程序实例

vb程序实例(一)创建vb应用程序就是很简单的事。

有多简单？为回答这个问题,试着创建下面的Hello ,vb与Firstapp 应用程序。

您好,Visual Basic创建vb应用程序有三个主要步骤:1、创建应用程序界面2、设置属性3、编写代码为了说明这一实现过程,按照以下步骤创建一个简单应用程序,该应用程序由一个文本框与一个命令按钮组成。

单击命令按钮,文本框中会出现"Hello , world!" 消息。

创建应用程序界面窗体就是创建应用程序的基础。

通过使用窗体可将窗口与对话框添加到应用程序中。

也可把窗体作为项的容器,这些项就是应用程序界面中的不可视部分。

例如,应用程序中可能有一个作为图形容器的窗体,而这些图形就是打算在其它窗体中显示的。

建造vb应用程序的第一步就是创建窗体,这些窗体将就是应用程序界面的基础。

然后在创建的窗体上绘制构成界面的对象。

对于目前的第一个应用程序,您可使用工具箱中的两个控件。

用工具箱绘制控件1、单击要绘制的控件的工具——此时就是“文本框”。

2、将指针移到窗体上。

该指针变成十字线,如图2、3 所示。

3、将十字线放在控件的左上角所在处。

4、拖动十字线画出适合您要的控件大小的方框(拖动的意思就是按住鼠标左键用鼠标指针移动对象)。

5、释放鼠标按钮。

控件出现在窗体上。

在窗体上添加控件的另一个简单方法就是双击工具箱中的控件按钮。

这样会在窗体中央创建一个尺寸为缺省值的控件;然后再将该控件移到窗体中的其它位置。

调整大小、移动与锁定控件注意出现在控件四周的小矩形框称作尺寸句柄;下一步可用这些尺寸句柄调节控件尺寸。

也可用鼠标、键盘与菜单命令移动控件、锁定与解锁控件位置以及调节控件位置。

调整控件的尺寸,请按照以下步骤执行:1、用鼠标单击要调整尺寸的控件。

选定的控件上出现尺寸句柄。

2、将鼠标指针定位到尺寸柄上,拖动该尺寸柄直到控件达到所希望的大小为止。

角上的尺寸柄可以调整控件水平与垂直方向的大小,而边上的尺寸柄调整控件一个方向的大小。

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串口编程实例

VB串口编程实例介绍VB（Visual Basic）是一种基于对象的编程语言，可用于开发Windows应用程序。

串口编程是指通过串行通信接口与外部设备进行数据交互。

本文将介绍如何使用VB进行串口编程，以实现与外部设备的通信。

前提条件在开始编写VB串口程序之前，需要确保以下条件已满足： - 安装了Visual Studio开发环境，可以选择最新版本的Visual Studio Community免费版。

- 确保计算机上有可用的串口（如COM1、COM2等）或USB转串口适配器。

步骤1. 创建新项目打开Visual Studio，选择创建一个新的VB Windows应用程序项目。

2. 添加控件在窗体上添加以下控件： - 一个ListBox控件用于显示接收到的数据。

- 两个Button控件分别用于打开和关闭串口。

- 一个ComboBox控件用于选择串口号。

- 一个TextBox控件用于输入要发送的数据。

- 一个Button控件用于发送数据。

3. 设置串口属性在窗体代码中添加如下代码：Imports System.IO.PortsPublic Class Form1Dim serialPort As New SerialPort()Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Lo ad' 获取可用的串口号并添加到ComboBox中Dim ports As String() = SerialPort.GetPortNames()ComboBox1.Items.AddRange(ports)End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click' 打开串口TryserialPort.PortName = ComboBox1.SelectedItem.ToString()serialPort.BaudRate = 9600serialPort.Parity = Parity.NoneserialPort.DataBits = 8serialPort.StopBits = StopBits.OneserialPort.Open()Button1.Enabled = FalseButton2.Enabled = TrueCatch ex As ExceptionMessageBox.Show("无法打开串口：" + ex.Message)End TryEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button 2.Click' 关闭串口TryserialPort.Close()Button1.Enabled = TrueButton2.Enabled = FalseCatch ex As ExceptionMessageBox.Show("无法关闭串口：" + ex.Message)End TryEnd SubEnd Class4. 接收数据和发送数据在窗体代码中添加如下代码：Imports System.IO.PortsPublic Class Form1Dim serialPort As New SerialPort()Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Lo ad' 获取可用的串口号并添加到ComboBox中Dim ports As String() = SerialPort.GetPortNames()ComboBox1.Items.AddRange(ports)End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button 1.Click' 打开串口' 省略部分代码...AddHandler serialPort.DataReceived, AddressOf DataReceivedHandlerserialPort.Open()Button1.Enabled = FalseButton2.Enabled = TrueEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button 2.Click' 关闭串口' 省略部分代码...RemoveHandler serialPort.DataReceived, AddressOf DataReceivedHandler serialPort.Close()Button1.Enabled = TrueButton2.Enabled = FalseEnd SubPrivate Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedE ventArgs)' 接收数据并显示在ListBox中Dim data As String = serialPort.ReadLine()ListBox1.Invoke(Sub() ListBox1.Items.Add(data))End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button 3.Click' 发送数据If serialPort.IsOpen ThenDim dataToSend As String = TextBox1.TextserialPort.WriteLine(dataToSend)TextBox1.Clear()ElseMessageBox.Show("请先打开串口")End IfEnd SubEnd Class5. 运行程序点击运行按钮，程序将打开一个窗口，其中包含串口选择、打开/关闭串口、接收数据和发送数据的功能。

40个Visual Basic 编程简单实例

目录实验题目1：设计窗体。

参考界面如下： (2)实验题目2：设计一个计算器。

参考界面如下： (3)实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。

参考界面如下： (4)实验题目4：设计界面，编写程序计算圆的周长和面积。

参考界面如下： (4)实验题目5：设计界面，编写程序验证算术运算符的功能。

参考界面如下： (5)实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。

参考界面如下： (6)实验题目7：输入一个三位数，将它按逆序输出。

参考界面如下： (7)实验题目8：输入两个数，将这两个数交换。

(8)实验题目9：设计文本编辑窗体。

(8)实验题目10：编写程序计算某个学生三门课程的平均成绩。

(10)实验题目12：编写程序计算长方体的体积。

(10)实验题目13：编写程序求出四个数中的最小数。

(11)实验题目14：编写程序判断某个数是否是水仙花数。

(11)实验题目15：编写程序，实现数字和英文单词的对应。

(12)实验题目16：设计程序，判断从键盘上输入的某个字符为哪类字符。

（大写字母、小写字母、数字字符或其他字符） (12)实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。

(13)实验题目18：编写程序输出图形，运行界面如下： (15)实验题目19：编写程序求n！。

(15)实验题目20：编写程序，求出某班所有同学某门课程的平均成绩。

(16)实验题目21：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。

并输出这些整数的和。

（用for语句实现） (16)实验题目21：编写程序，统计输入的一个字符串中各类字符的个数。

（用for语句实现）.17 实验题目22：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12......数字，并以顺序和逆序两种方式输出各元素值。

. (17)实验题目23：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。

vb数据库编程实例

vb数据库编程实例VB数据库编程实例：实现学生信息管理系统在计算机编程中，数据库是一项关键技术，用于有效地存储和管理数据。

VB（Visual Basic）是一种广泛使用的编程语言，可以轻松地与数据库进行交互。

本文将详细介绍如何使用VB进行数据库编程，以一个学生信息管理系统的实例为例。

第一步：建立数据库首先，我们需要建立一个数据库来存储学生的信息。

在本实例中，我们将使用Microsoft Access数据库。

打开Microsoft Access并创建一个新的数据库文件。

然后，创建一个新的数据表，其中列的字段如下：- 学生ID（StudentID）：主键，唯一标识一个学生- 姓名（Name）：学生的全名- 年龄（Age）：学生的年龄- 专业（Major）：学生所在的专业- 成绩（Grade）：学生的总评成绩保存数据库并记录其路径，以便在VB中进行引用。

第二步：创建VB项目打开Visual Studio或任何其他VB开发环境，创建一个新的VB 项目。

命名为“学生信息管理系统”或其他适当的名称。

第三步：连接数据库在VB中连接数据库需要使用。

首先，我们需要导入System.Data和System.Data.OleDb命名空间。

然后，在VB代码中添加以下代码片段来连接到数据库：vbDim connStr As String ="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<数据库路径>"Dim conn As New OleDbConnection(connStr)将`<数据库路径>`替换为第一步中保存的数据库文件路径。

第四步：加载学生信息接下来，我们将在VB中加载学生信息。

添加一个按钮控件到窗体上，并将其命名为“加载”。

然后，为该按钮的Click事件添加以下代码：vbPrivate Sub LoadButton_Click(sender As Object, e As EventArgs) Handles LoadButton.ClickDim selectQuery As String = "SELECT * FROM Students"Dim adapter As New OleDbDataAdapter(selectQuery, conn)Dim dataSet As New DataSet()adapter.Fill(dataSet, "Students")DataGridView1.DataSource =dataSet.T ables("Students")End Sub在此代码中，我们执行一个简单的查询，从数据库中检索所有学生的信息。

VB初学者实例50例

If Msg <> WM_CONTEXTMENU Then
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程序设计实例

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编程实例.

实验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。

2024版VB程序设计应用程序开发实例[1]

通过VB中的加密算法和函数，实现对文件的加密和解密功能，保护文件内容的安全性和隐私性。
2024/1/28
17
05
数据库应用与集成
2024/1/28
18
数据库概述及连接方式
2024/1/28
数据库基本概念数据库是长期存储在计算机内、有组织的、可共享的数据集合，具有数据结构化、数据独立性、数据冗余度小等特点。
数据计算
利用VB中的算术运算符和函数，对数据进行各种计算，如加、减、乘、除、求余等运算，以及使用数学函数进行复杂的数学计算。
2024/1/28
03
数据排序与查找
通过VB中的数组、列表等数据结构，实现对数据的排序和查找功能，
如冒泡排序、选择排序等排序算法，以及线性查找、二分查找等查找算
法。
15
图形图像处理功能
使用Command对象执行 SQL命令，如查询、插入、更新、删除等，可以通过参数化查询来防止SQL注入攻击。
使用DataReader对象读取查询结果，可以通过循环遍历逐行读取数据，也可以使用DataSet对象将数据加载到内存中进行处理。
2024/1/28
使用Transaction对象对数据库操作进行事务管理，确保数据的完整性和一致性。
03
7
VB编程环境
2024/1/28
01
VB编程环境包括集成开发环境（IDE）和运行时环境。
02
IDE提供代码编辑器、窗体设计器、调试器等开发工具，方便程序员进行应用程序开发。
03
运行时环境提供VB程序运行所需的库文件和解释器，确保程序能够正确执行。
8
VB基本语法
VB基本语法包括变量、数据类型、运算符、控制结构等。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

2．vb .net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3．vb .net 中使用ado .net来访问数据库，ado .net是.NET Framework的一部分。在 vb .net 中实现数据访问的方法主要有两种：其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。
大到Windows整个系统，天天在身边的手机，手机上各式各样的应用程序，还有网络世界中络绎不绝的游戏等等。
新VB语言
Visual Basic .NET(vb .net) 是新一代的 VB 语言，并不只是 VB 6.0 的简单升级， vb .net 与 VB (泛指 VB 6.0 之前的版本) 之间有非常大的区别。vb .net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
双击左键command，出现编程对话框开始输入程序代码。加法：Private Sub Command1_Click()
Dim x As Integer Dim y As Integer x = Text1.Text y = Text2.Text Text3.Text = x + y End Sub
优点：可视化界面，操作简单，易学
缺点：隐藏了许多 Windows 内部和底层的知识，也就是说，VB 的许多功能是靠调用已经编辑好的 Windows 模块或 dll 实现的，VB 本身无法编辑这些东西，对底层操作极其不便。另外，运行速度较 C 或其他语言慢。
VB编程的事例有哪些？
小到日常windows应用软件。如QQ ，Word文档，酷狗音乐，看图截图工具等等。
3、企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 Back Office 工具，例如 SQL Server、Microsoft Transaction Server、Internet Information Server、 VisualSourceSafe、SNA Server等。企业版包括的印刷文档包括 Visual StudioEnterprise Features 手册以及包含全部联机文档的 Microsoft DeveloperNetwork CD。
5．vb .net 已经成为完全的面向对象的编程语言，并且新增更多语言特性。 Visual Basic .NET有提供转换精灵，协助开发者将 VB 6.0 的程序代码转换为
vb .net 相对应之程序代码。
Vb操作
1建立一个标准exe工程（里面会含多个exe），后会出现一个form窗口，首先在form中建立一个模型：我们拿计算器exe来操作
除法：Private Sub Command6_Click() Dim x As Integer Dim y As Integer x = Text1.Text y = Text2.Text Text3.Text = x / y End Sub
清除：Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub
VB编程的版本
Visual Basic 有三种版本，可以满足不同的开发需要。
1、Visual Basic 学习版使编程人员轻松开发 Windows 和 Windows NT(r)的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有 Learn VB Now CD 和包含全部联机文档的 Microsoft Developer Network CD。
减法运算：Private Sub Command4_Click() Dim x As Integer Dim y As Integer x = Text1.Text y = Text2.Text Text3.Text = x - y End Sub
乘法：Private Sub Command5_Click() Dim x As Integer Dim y As Integer x = Text1.Text y = Text2.Text Text3.Text = x * y End Sub
这样一个简单的计算器就做好了最后生成exe文件，点击文件，找到生成工程1.exe选择位置（建议桌面）
完成。在属性中也有一些更改外形的设置如 appearance，backColor等等。
选择程序外观更改图标，可先点击整体框架，而后找到Icon
选择图标。
VB还有很多奥秘等着我们去探索
什么是VB编程？
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱
动为机制的可视化程序设计语言。从任何标准来说， VB都是世界上使用人数最多的语言——仅是盛赞 VB的开发者还是抱怨VB的开发者的数量。它源自于 BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、 RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及ActiveX控件、 Internet Information ServerApplication Designer、集成的Visual Database Tools 和 DataEnvironment、 Active Data Objects和Dynamic HTML Page Designer。专业版提供的文档有Visual Studio Professional Features手册和包含全部联机文档的Microsoft Developer Network CD。
4．在 vb .net 中是使用asp .net技术来编写 Web 页面的。在asp .net中使用的也不是脚本语言，而是真正意义的编程语言。凭借asp .net的 Web 应用程序、 XML Web Services 等基于 Web 的功能，使得 vb .net 开发 Web 页面与开发 Windows 应用程序很相似，Web 页面代码也显得有条有理了。
运用label建立3个文件名框，而后用textbox建立输入框，用commandbutten建立命令框，一个简单的模型就做好了，如下图所示。
接下来点击lable1 .2 .3将他们的名称更改点击lable右键属性在当中找到caption后即可更改点击text1.2.3在属性中找到text，即可更改而后开始编程