VB小程序代码

1、VB定时器'*************************************************************'新建一个窗体，放两个控件：label和timer'*************************************************************Public hor As LongPublic minu, sec As IntegerPrivate Sub Form_Load()'设置计时器时间间隔为1秒。

'考虑到Sub Timer1_Timer()中判断等操作要花时间，所以Timer1.Interval设为994 Timer1.Interval = 994Dim longTime, tmp As Long'********************************longTime = 65'时间值，要你自己从数据库取，我就不写了！'********************************'初始化显示时间hor = CLng(longTime / 3600 - 0.5)'小时数tmp = longTime - 3600 * hor '剩余秒数minu = CLng(tmp / 60 - 0.5) '分钟数tmp = tmp - 60 * minu'剩余秒数sec = tmp'秒数Label1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End SubPrivate Sub Timer1_Timer()If sec = 0 ThenIf minu = 0 ThenIf hor = 0 ThenExit SubElsehor = hor - 1End Ifminu = 59Elseminu = minu - 1sec = 59End IfElsesec = sec - 1End IfLabel1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End Sub2、VB倒计时Dim h, m, s As IntegerPrivate Sub Command1_Click()Label1.Visible = FalseText1.Visible = TrueIf Command1.Caption = "倒计时" Then Timer1.Enabled = TrueCommand1.Caption = "停止"Command2.Enabled = FalseElseTimer1.Enabled = FalseCommand1.Caption = "倒计时"Command2.Caption = "重设倒计时" Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = "重设倒计时" Then Call againCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()a = MsgBox("你确定要退出嗎")EndEnd SubPrivate Sub Form_Load()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseEnd SubPrivate Sub Timer1_Timer()If s > 0 Thens = s - 1End IfIf s < 1 And m > 0 Thenm = m - 1s = 60End IfIf m < 1 And s = 0 And h > 0 Thenh = h - 1m = 60End IfIf h < 0 Thenh = 0End IfIf m < 0 Thenm = 0End IfText1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")If h = 0 And m = 0 And s = 0 ThenText1.Text = "時間到了"Command1.Caption = "倒计时"Command1.Enabled = FalseTimer1.Enabled = FalseCommand2.Enabled = TrueEnd IfEnd SubSub again()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseLabel1.Visible = TrueEnd Sub3、VB应该怎样取得本机上网用的动态IP应该是电信局动态分配给宽带用户的那种动态IP。

数字排序小游戏Option ExplicitDim Label2X As Integer '记录标签控件数组中要移动的标签控件左上角X的位置Dim Label2Y As Integer '记录标签控件数组中要移动的标签控件左上角Y的位置'让标签数组中的每个标签控件上显示的数字是随机的，无重复的Private Sub Init()RandomizeDim a(7) As IntegerDim i As Integer, k As IntegerLabel1.Caption = ""For i = 0 To 7a(i) = iNextFor i = 0 To 7k = Int(Rnd * 8)Do While a(k) = -1 'a(k)=-1表示该数组元素对应的数字已经被使用过了k = Int(Rnd * 8) '重新生成k的值，直到a(k)的值不等于-1LoopLabel2(i).Caption = Trim(Str(a(k)))a(k) = -1 'a(k)的值已经使用了，不能再用，重新赋值为-1与其他的元素值相区别Next iEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As IntegerDim z As IntegerInitPicture1.Enabled = True'让空白标签Label1出现的位置随机Randomize'记录下空白标签Label1的位置x = Label1.Lefty = Label1.Topz = Int(Rnd * 8)'将空白标签Label1和标签控件数组任一控件交换位置Label1.Move Label2(z).Left, Label2(z).TopLabel2(z).Move x, yCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim i As IntegerPicture1.Enabled = False'在标签中显示游戏说明信息Label3.Caption = "如左图所示，将数字按0-7顺" & vbCrLf & vbCrLf & "序依次排列，即取得胜利。

VB小程序设计实例引言VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，它具有简单易学的特点，因此非常适合初学者入门。

本文将以一个实际的VB小程序设计实例为例，介绍如何使用VB语言进行简单的程序开发。

项目背景我们的目标是创建一个简单的VB小程序，用于管理学生信息。

该程序将允许用户添加、删除和修改学生的基本信息，例如姓名、年龄和班级。

此外，用户还可以根据特定条件检索学生信息，并显示学生列表。

设计步骤1. 创建VB项目首先，打开Visual Studio并选择“创建新项目”，然后选择“Visual Basic”作为项目类型。

接下来，选择“Windows Forms应用程序”作为模板，并给项目命名。

点击“确定”按钮以创建新的VB项目。

2. 设计用户界面在VB中，用户界面是通过拖放控件来创建的。

在“工具箱”中选择所需的控件，例如按钮、文本框和标签，并将它们放置在窗体上。

使用控件的属性面板可以更改它们的外观和行为。

3. 编写代码现在，我们需要为各个控件添加相应的事件处理程序。

例如，当用户点击一个按钮时，我们需要执行特定的操作。

首先，选择要添加事件处理程序的控件，然后在属性面板中找到“事件”部分。

在相应的事件上双击以创建并打开处理程序。

4. 实现学生信息管理功能在代码中，我们需要定义学生类和学生信息管理类。

学生类包含学生的属性，例如姓名、年龄和班级。

学生信息管理类包含对学生信息进行增删改查的方法。

我们可以使用集合类来存储学生对象，并使用LINQ进行查询操作。

在事件处理程序中调用适当的方法以实现相应的功能。

5. 运行和测试程序在完成代码的编写之后，我们可以点击“运行”按钮来启动程序。

通过与程序交互，测试各个功能是否按预期工作。

如果发现问题，可以调试程序并对代码进行调整。

6. 部署和发布程序一旦我们满意了程序的功能和性能，我们可以将程序部署和发布给其他人使用。

在Visual Studio中，选择“生成”菜单并点击“发布”选项。

VB程序代码(简单小程序) Option Explicit
Private Sub btnCalculate_Click()
'按钮点击事件，计算两个数的和
'声明变量
Dim num1 As Double
Dim num2 As Double
Dim result As Double
'获取用户输入的数字
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
'计算和
result = num1 + num2
'将计算结果展示给用户
lblResult.Caption = "计算结果：" & result
End Sub
Private Sub Form_Load()
'窗体加载事件，初始化窗体
'设置窗体标题
Me.Caption = "简单计算器"
'设置标签的默认文本
lblNum1.Caption = "请输入第一个数："
lblNum2.Caption = "请输入第二个数："
lblResult.Caption = ""
如上所示，这是一个简单的VB程序，包含一个窗体和三个按钮，分别用于计算两个
数的和、清空所有输入框和标签的内容以及退出程序。

用户可以在两个文本框中输入数字，点击计算按钮后，程序会将两个数字相加并将结果展示给用户。

如果用户想重新计算，可
以点击清空按钮清除所有输入框和标签的内容，重新输入参数。

VB小程序代码VB小程序是使用Visual Basic语言编写的小型应用程序。

它可以在Windows操作系统上运行，并提供了丰富的图形用户界面和功能。

本文将详细介绍如何编写一个简单的VB小程序代码，并提供一些示例来帮助您更好地理解。

1. 程序结构一个VB小程序通常由以下几个部分组成：a) 引用：您可以引用其他程序集或库来扩展您的程序功能。

b) 命名空间：命名空间用于组织和管理程序中的类和对象。

c) 类：类是VB程序的基本构建块，它包含了变量、属性、方法和事件等成员。

d) 窗体：窗体是用户界面的容器，您可以在窗体上添加控件来实现交互功能。

2. 示例代码下面是一个简单的VB小程序代码示例，演示了如何创建一个窗体，并在窗体上添加一个按钮和一个文本框。

```vbImports System.Windows.FormsNamespace MyProgramPublic Class MainFormInherits FormPrivate WithEvents myButton As ButtonPrivate myTextBox As TextBoxPublic Sub New()myButton = New Button()myButton.Text = "点击我"myButton.Location = New Point(50, 50)myTextBox = New TextBox()myTextBox.Location = New Point(50, 100)Controls.Add(myButton)Controls.Add(myTextBox)End SubPrivate Sub MyButton_Click(sender As Object, e As EventArgs) Handles myButton.ClickmyTextBox.Text = "Hello, World!"End SubPublic Shared Sub Main()Application.Run(New MainForm())End SubEnd ClassEnd Namespace```3. 代码解析上述代码创建了一个名为`MainForm`的窗体类。

vb源代码vb小程序：摄像头视频图像的监控、截图、录像（改进：第二页）Private Sub SetDir()Dim nStr As StringIf Trim(ctDir) = &quot;&quot; Then ctDir = App.Path &amp; &quot;\videos&quot; '如果路径不存在，用默认文件名 C:\CAPTURE.AVInStr = &quot;设置录像保存的文件夹。

&quot; &amp; vbCrLf &amp; &quot;输入“&lt;&gt;”表示使用默认文件夹：&quot; &amp; vbCrLf &amp; App.Path &amp;&quot;\videos&quot;nStr = Trim(InputBox(nStr, &quot;录像保存的文件夹&quot;, ctDir))If nStr = &quot;&quot; Then Exit SubctDir = nStrIf ctDir = &quot;&lt;&gt;&quot; Or ctDir = &quot;&lt;默认&gt;&quot; Then ctDir =&quot;&quot;End SubPrivate Sub SetFile()Dim nStr As String, nF As StringnF = String(255, &quot; &quot;)SendMessage ctCapWin, WM_Cap_File_Get_File, Len(nF), ByVal nFnF = GetStrLeft(nF, vbNullChar)If Trim(ctF) = &quot;&quot; Then ctF = &quot;&lt;默认&gt;&quot; '如果路径不存在，用默认文件名 C:\CAPTURE.AVInStr = &quot;设置录像保存的文件名(不带路径)。

人人都会用的VB游戏小程序代码人人都会用的 VB 游戏小程序代码3. 球来回弹在窗体上添加一shape 空间, shape 为circle ,计时器空间inteval=10 通用Dim bzPrivate Sub Timer1_Timer(If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0If bz = 0 Then Shape1.Left = Shape1.Left + 10If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意:bz 的使用(bz 为一临时标志,用于判断移动方向2. 六角星Dim i%, j%, k%For i = 1 To 10If i < 4 Or i > 6 ThenPrint Space(20 - i;For j = 1 To iPrint "○ ";Next jElsePrint Space(6 + i;For k = 14 - i To 1 Step -1 Print "○ ";Next kEnd IfPrintNext iFor i = 3 To 1 Step -1 Print Space(20 - i;For j = 1 To iPrint "○ ";Next jPrintNext i1. 空心三角形Dim i%, j%Print Space(20; "*"For i = 2 To 9Print Space(21 - i; "*"; Space(2 * i - 3; "*"NextPrint Space(10;For i = 1 To 10Print Space(1; "*";Next扩展程序Const n = 15Dim a(1 To n As IntegerDim i%, j%, t%RandomizeFor i = 1 To na(i = Int(100 * Rnd ' 生成 15个 0~100的随机整数存入数组 Next Print "排序前:"For i = 1 To nPrint a(i;NextPrintFor i = 1 To n - 1For j = i + 1 To nIf a(j < a(i Then t = a(j: a(j = a(i: a(i = tNextNextPrint "排序后:"For i = 1 To nPrint a(i;Next3. 球来回弹在窗体上添加一shape 空间, shape 为circle ,计时器空间inteval=10 通用Dim bzPrivate Sub Timer1_Timer(If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0If bz = 0 Then Shape1.Left = Shape1.Left + 10If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意:bz 的使用(bz 为一临时标志,用于判断移动方向4. 从大到小再从小到大变化在窗体添加一标签label1, autosize=true, caption="★ ", 添加一计时器空间timer1, inteval=100 通用:Dim bzPrivate Sub Timer1_Timer(If Label1.FontSize >= 72 Then bz = 1If Label1.FontSize <= 8 Then bz = 0If bz = 0 Then Label1.FontSize = Label1.FontSize + 2If bz = 1 Then Label1.FontSize = Label1.FontSize - 2End Sub5. 在 VB 中用画圆Dim x, y, i As SingleClsScale (-15, 15-(15, -15 ' 定义笛卡儿坐标系For i = 0 To 6.28 Step 0.05y = 10 * Sin(ix = 10 * Cos(iCurrentX = xCurrentY = yPrint "*"Next6. 四周循环移动创建一个窗体,在上面添加“开始”和“停止”两个按钮,添加一个计时器控件timer1 在窗体上添加一个 shape 控件,设置背景不透明,红色,调整大小程序代码如下:Option ExplicitDim bz%Private Sub Command1_Click( '开始按钮Timer1 = TrueEnd SubPrivate Sub Command2_Click( ' 停止按钮Timer1 = FalseEnd SubPrivate Sub Form_Load(Shape1.Left = 0Shape1.Top = 0Timer1 = FalseTimer1.Interval = 10End SubPrivate Sub Timer1_Timer(If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1If Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then bz = 2If Shape1.Left <= 0 Then bz = 3If Shape1.Top <= 0 And Shape1.Left <= 0 Then bz = 0Select Case bzCase 0Shape1.Left = Shape1.Left + 10Case 1Shape1.Top = Shape1.Top + 10Case 2Shape1.Left = Shape1.Left - 10Case 3Shape1.Top = Shape1.Top - 10End SelectEnd Sub。

VB小程序代码实例VB小程序是一种基于Visual Basic语言开发的应用程序，它可以在Windows 操作系统上运行。

本文将为您提供一个VB小程序代码实例，帮助您了解如何编写和运行一个简单的VB小程序。

代码实例如下：```vbImports SystemPublic Class HelloWorldPublic Shared Sub Main()Console.WriteLine("Hello, World!")Console.ReadLine()End SubEnd Class```上述代码是一个经典的“Hello, World!”程序，它会在控制台输出一条问候语，并等待用户按下回车键。

下面是代码解释：- `Imports System`：这个语句告诉编译器我们将使用System命名空间中的类和方法。

- `Public Class HelloWorld`：这是一个公共类的声明，类名为HelloWorld。

- `Public Shared Sub Main()`：这是程序的入口点，它是一个公共静态方法，程序从这里开始执行。

- `Console.WriteLine("Hello, World!")`：这行代码会在控制台输出一条问候语。

- `Console.ReadLine()`：这行代码会等待用户按下回车键，以便程序暂停执行。

您可以将上述代码复制到一个文本编辑器中，并将文件保存为`.vb`扩展名。

然后，使用VB编译器将其编译为可执行文件，并在Windows操作系统上运行。

这个简单的VB小程序只是一个入门示例，您可以根据自己的需求和兴趣编写更复杂的VB小程序。

VB语言具有丰富的特性和功能，可以用于开发各种类型的应用程序，包括图形用户界面（GUI）应用程序、数据库应用程序、Web应用程序等。

希望这个VB小程序代码实例能够帮助您入门VB编程，并为您今后的学习和开发提供一些参考。

在FORM的LOAD事件加入：shell "shutdown -s -t 15"a=inputbox("输入爷爷可以解除关机","输入爷爷")if a="爷爷" thenshell "shutdown -a"msgbox "算你识相！"elseshell "shutdown -a"shell "shutdown -s -t 0" '马上关机end if新建一个工程，添加一个模块（可以把Form1这个窗体删去，这里不用窗体）。

工程属性里设启动对象为Sub Main在模块里输入：Sub Main()Dim A As StringShell "shutdown.exe -s -t 120" '120是指120秒后关机，自己可以改A = InputBox("快叫声爷爷，不叫就关你机！") '文字你可以自己改，这里给你做个参考If A = "爷爷" ThenShell "shutdown.exe -a"End IfEnd Sub1。

是百钱买百鸡一百无买公鸡5元一只，母鸡3元一只，小鸡一元3只.x代表公鸡，Y代表母鸡。

z代表小鸡PRIV ATE SUB form1_click()ldim x,y,z as longfor x = 1 to 20for y = 1 to 33z= 100-x-yif 5*x+3*y+1/3z= 100 thenprint x,y,zend ifnextynextxend sub2.是画50个不同大小的圆，色彩也不同private sub from1_click()for i = 1 to 50randomizea= int(255*rnd+1)b = int(255*rnd +1)c= int(255*rnd+1)form1.forecolor= rgb(a,b,c)circle(3000,3000)i*100next iend sub。

今天的灵感：
最近学会计，看到同事用计算器算数，总是用一个数除以1.03（算税的）就有这么个灵感，不知道编出来会不会有用！
主要实现的功能就是输入一个数字，将这个数字除以1.03在第二个文本框中输出，然后将输入数减去文本框二里的数字的值输出在第三个文本框中，再放二个按钮，一个是退出按钮，一个是清除按钮。

程序设计起来很简单，如果有人需要，我把他写出来供大家参考。

输入数字：
N=val(text1.text)
T ext2.text=n/1.03
T ext3.text=n-text2.text
清除按钮：
T ext1.text=””
T ext2.text=””
T ext3.text=””
关闭按钮：
End
大家觉得怎么样呢？呵呵！
但是中间有错误，清除不了，请高手指导一下！
请教高人后，清除钮下的程序改了一下就可以实现了！！
N=val(text1.text)
T ext2.text=n/1.03
T ext3.text=n-text2.text
如果想把输出的数四舍五入到二位小数点，请用format（数字，“0.00”）语句完成。