用VB怎样制作简单程序

1 用VB新建一个标准EXE程序

2 用 Lable 、TextBox 和 CommandButton 控件在窗体中设计界面如下：

3 双击“抽取”按钮，并在代码窗口中修改代码如下：

Private Sub Command1_Click()

  Dim v1 As Long, v2 As Long, v3 As Long

  v1 = Val(Text1)

  v2 = Val(Text2)

  v3 = Int(Rnd(1) (v2 - v1 + 1)) + v1

  Text3Text = v3

End Sub

4按F5运行，并进行测试即可

将下列代码复制到一个文本文件，并将文本文件命名为Form1frm，然后运行（我不知道你要取消按钮的用途）

VERSION 500

Begin VBForm Form1

Caption = "Form1"

ClientHeight = 4035

ClientLeft = 60

ClientTop = 450

ClientWidth = 5310

LinkTopic = "Form1"

ScaleHeight = 4035

ScaleWidth = 5310

StartUpPosition = 3 '窗口缺省

Begin VBTextBox Text1

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 465

Left = 1920

TabIndex = 3

Top = 240

Width = 2175

End

Begin VBCommandButton Command2

Caption = "取 消"

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 3000

TabIndex = 1

Top = 2400

Width = 1455

End

Begin VBCommandButton Command1

Caption = "确 定"

Default = -1 'True

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 720

TabIndex = 0

Top = 2400

Width = 1455

End

Begin VBLabel Label3

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1800

TabIndex = 5

Top = 1080

Width = 2295

End

Begin VBLabel Label2

Caption = "八位号"

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 480

TabIndex = 4

Top = 1080

Width = 1215

End

Begin VBLabel Label1

Caption = "姓 名"

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 480

TabIndex = 2

Top = 360

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()

If Text1 = "" Then

MsgBox "请输入名字！"

Text1SetFocus

Exit Sub

End If

Randomize

CF:

Label3 = LTrim(Str(Int(Rnd() 100000000)))

Label3 = String(8 - Len(Label3), "0") & Label3

Open "D:\花名册\花名册txt" For Input As #1

Do While Not EOF(1)

Input #1, strzc

If strzc = "" Then GoTo TG

k = Split(strzc, " ")

If k(1) = Label3 Then

Close #1

GoTo CF

End If

If k(0) = Text1 Then

w = MsgBox("输入的姓名已经存在，点“是”保存，点“否”放弃。", vbYesNo, "提示")

If w = 7 Then

Close #1

Exit Sub

End If

End If

Loop

TG:

Close #1

Open "D:\花名册\花名册txt" For Append As #1

Print #1, Text1 & " " & Label3 & " " & Format(Now, "yyyy年mm月dd日hh:nn:ss")

Close #1

Text1SelStart = 0

Text1SelLength = Len(Text1)

End Sub

Private Sub Form_Load()

If Dir(AppPath & "\MyTimeINI") = "" Then

MkDir "D:\花名册"

Open "D:\花名册\花名册txt" For Append As #1

Close #1

End If

A = WritePrivateProfileString("TIP", "START", Time$, AppPath & "\MyTimeINI")

Show

Text1SetFocus

End Sub

更多VB代码请参阅我的博客：>

Dim sec, min, h

Private Sub Command1_Click()

Timer1Enabled = True

h = Text1Text

min = Text2Text

sec = Text3Text

Timer2Enabled = False

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Form1BackColor = &HFFFF00

Timer1Enabled = False

Timer1Interval = 1000

Timer2Enabled = True

Timer2Interval = 1000

Text1Text = 2

Text2Text = "00"

Text3Text = "00"

Command2Caption = "退出"

Command1Caption = "开始倒计时"

End Sub

Private Sub Timer1_Timer()

If sec > 0 Then

sec = sec - 1

Else:

If (min > 0 Or h > 0) Then

sec = 59

End If

If min > 0 Then

min = min - 1

Else:

If h > 0 Then

min = 59

End If

If h > 0 Then

h = h - 1

Else: Timer1Enabled = False

CreateObject("SAPISpVoice")Speak "GAME OVER!"

Form1BackColor = &HFF

End If

End If

End If

Text1Text = h

Text2Text = min

Text3Text = sec

Label6Caption = Now

End Sub

Private Sub Timer2_Timer()

Label6Caption = Now

End Sub

Visual

Basic程序设计主要采用的是基于对象（主要是COM和ActiveX）和基于事件处理的可视化编程工具。在VB的IDE中通过可视化设计和布局窗口界面，并处理对象的事件代码。

VB可以编写任意Windows平台上的应用程序，但不包括Win32

Console

Application，到了NET以后就例外了。

总的来说，VB的特点是简单易学、入门简单、 *** 作方面、开发速度快等等。

以上就是关于用VB怎样制作简单程序全部的内容，包括:用VB怎样制作简单程序、VB语言 编写一个程序、如何使用VB编写一个简单的小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！