VB简单的程序

Private Sub Form_Load()

Timer1Interval = 1000

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Cls

Static a

Print Spc(10);

Select Case a

Case 0

Print "欢"

a = 1

Case 1

Print "迎"

a = 2

Case 2

Print "光"

a = 3

Case 3

Print "临"

a = 0

End Select

Print Now

End Sub

你只要将以下代码复制到 "记事本"中另存为"成绩管理frm",再打开即可(不用添加控件,代码包含)谢谢,给分!

代码如下:

VERSION 500

Begin VBForm Form1

BorderStyle = 1 'Fixed Single

Caption = "成绩管理系统 V10"

ClientHeight = 3270

ClientLeft = 45

ClientTop = 435

ClientWidth = 4320

Icon = "成绩管理frx":0000

LinkTopic = "Form1"

MaxButton = 0 'False

ScaleHeight = 3270

ScaleWidth = 4320

StartUpPosition = 1 '所有者中心

Begin VBListBox List2

Height = 2760

ItemData = "成绩管理frx":0442

Left = 120

List = "成绩管理frx":0444

TabIndex = 15

Top = 360

Width = 1695

End

Begin VBTextBox KeMu

Height = 270

Index = 2

Left = 2040

Locked = -1 'True

TabIndex = 13

Top = 1680

Width = 855

End

Begin VBTextBox KeMu

Height = 270

Index = 1

Left = 2040

Locked = -1 'True

TabIndex = 11

Top = 1080

Width = 855

End

Begin VBTextBox KeMu

Height = 270

Index = 0

Left = 2040

Locked = -1 'True

TabIndex = 9

Top = 480

Width = 855

End

Begin VBTextBox Text2

Height = 270

Left = 2040

Locked = -1 'True

TabIndex = 8

Top = 2880

Width = 2055

End

Begin VBTextBox Text1

Height = 270

Left = 2040

Locked = -1 'True

TabIndex = 6

Top = 2280

Width = 2055

End

Begin VBCommandButton Command3

Caption = "修改(&S)"

Height = 375

Left = 3000

TabIndex = 4

Top = 1560

Width = 1215

End

Begin VBCommandButton Command2

Caption = "删除(&D)"

Height = 375

Left = 3000

TabIndex = 3

Top = 960

Width = 1215

End

Begin VBCommandButton Command1

Caption = "添加(&A)"

Height = 375

Left = 3000

TabIndex = 2

Top = 360

Width = 1215

End

Begin VBListBox List1

Enabled = 0 'False

Height = 2760

ItemData = "成绩管理frx":0446

Left = 120

List = "成绩管理frx":0448

TabIndex = 0

Top = 360

Visible = 0 'False

Width = 1695

End

Begin VBLabel Label2

AutoSize = -1 'True

BackStyle = 0 'Transparent

Height = 180

Left = 3240

TabIndex = 16

Top = 0

Visible = 0 'False

Width = 930

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "政 治:"

Height = 180

Index = 5

Left = 2040

TabIndex = 14

Top = 1440

Width = 630

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "数 学:"

Height = 180

Index = 4

Left = 2040

TabIndex = 12

Top = 840

Width = 630

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "语 文:"

Height = 180

Index = 3

Left = 2040

TabIndex = 10

Top = 240

Width = 630

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "平均分:"

Height = 180

Index = 2

Left = 2040

TabIndex = 7

Top = 2640

Width = 630

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "总 分:"

Height = 180

Index = 1

Left = 2040

TabIndex = 5

Top = 2040

Width = 630

End

Begin VBLabel Label1

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "学生列表:"

Height = 180

Index = 0

Left = 120

TabIndex = 1

Top = 120

Width = 810

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

'本程序由幻影工作室编写 >

这很简单啊！

Private Sub Command1_Click()

Text2Text = Text2Text & Text1Text & vbNewLine

Text1Text = ""

End Sub

Option Explicit

Private Sub Command1_Click()

If Text1text = "" Or Text1text = "c" Then

Text1text = "a"

Else

Text1text = Chr(Asi(Text1text) + 1)

End if

End Sub

Private Sub Form_Load()

Text1text = ""

End Sub

以上就是关于VB简单的程序全部的内容，包括:VB简单的程序、我要个简单的VB程序、VB简单程序怎么写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！