怎样用vb编一个小程序

楼上的代码应该改成这样更人性化：

a=InputBox("请输入加数1","0")

b=InputBox("请输入加数2","0")

Text1Text=val(a)+val(b)

哈哈

Option Explicit

Private Sub Form_Load()

ShockwaveFlash1Movie = "D:\wwwroot\KuFang\images\1swf"

ShockwaveFlash1Menu = False

ShockwaveFlash1Playing = True

End Sub

Private Sub Timer1_Timer()

End

End Sub

建一个无边框窗体,复制上面代码进去就OK了

工程文件给你发过去了 后发的是修改过的 免去了需要修改路径的麻烦

'取得CPU序列号

Private Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String 128 ' Maintenance string for PSS usage

End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Const VER_PLATFORM_WIN32_NT = 2

Private Const VER_PLATFORM_WIN32_WINDOWS = 1

Private Const VER_PLATFORM_WIN32s = 0

Private Sub Form_Load()

Form1Hide

Dim len5 As Long, aa As Long

Dim cmprName As String

Dim osver As OSVERSIONINFO

'取得Computer Name

Open "cputxt" For Output As #1

cmprName = String(255, 0)

len5 = 256

aa = GetComputerName(cmprName, len5)

cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)

Computer = cmprName '取得CPU端口号

Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")ExecQuery("select from Win32_Processor")

For Each mycpu In CPUs

Print #1, mycpuProcessorId

Next

Close #1

End

End Sub

这是在你的基础上改的，还有把form1的visible的值改为false