A. 求助，用VB编写小程序
程序代码： Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long Const FONTS = &H14& '字体 Private Sub form_load() Dim sTmp As String * 200 '存放结果的固定长度的字符串 Dim pidl As Long '某特殊目录在特殊目录列表中的位置 SHGetSpecialFolderLocation 0, FONTS, pidl SHGetPathFromIDList pidl, sTmp If Dir(Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\SIMSUN.TTC") <> "" Then 'SIMSUN.TTC 是宋体的文件名，你可以右键查看那些字体的属性，获得某字体的文件名 MsgBox "字体已存在" '此处放文件存在时要执行的代码 Else MsgBox "字体不存在" FileCopy App.Path & "\Simsun.ttc", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\SIMSUN.TTC" '文件不存在，复制此程序所在目录下的字体文件到系统字体目录 End If End Sub 要自动执行，只需在EXE文件所在目录建立一个autorun.inf文件，然后写入以下内容，放入可移动存储介质即可 [autorun] open=程序.exe
B. 用VB写一个小程序
Private Sub Form_Load()
Form1.Visible = False
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
Open "d:\cpu.txt" For Output As #1
Print #1, a
Close
End Sub
C. 使用VB编一个小程序
Private Sub Timer1_Timer()
SendKeys Chr(32)
End Sub
D. vb 编写小程序
题主你好，CF有腾讯的TP保护机制（运行时右下角有个TP的进度条题主可以看一看），会屏蔽包括keyevent、winio.sys在内的模拟按键功能，并对驱动级进程注入有监控和防范（所以题主可以看到那些外挂需要天天更新甚至一天更新几次来过免杀）。
另外模块级别是什么意思？
VB 写底层是一件非常困难的事情，建议题主使用 C / C++ 写自己的免杀驱动，然后用 VB 调用。
E. 用vb编一个小程序
'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花
'画2个COMMAND按钮
Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像
Dim curX As Long, curY As Long '当前打印位置
Randomize '开始参数随机数
curX = Rnd() * Me.ScaleWidth
curY = Rnd() * Me.ScaleHeight
Me.PaintPicture Picture1.Picture, curX, curY '打印图片到窗体
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.ScaleMode = 3 '窗体以像素为单位
Command2.Cancel = True '按ESC时执行Command2_Click（退出运行）
End Sub
F. 用vb编写小程序
你的规划太乱了！
看你的要求应该是很简单的东西
G. 用vb编写一个简单的程序
新建一个窗体,画2个文本框 Text1和,代码放在窗体里面...
Option Explicit
Dim arrPY
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 2
Text2.Text = ""
Text2.Locked = True
arrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")
End Sub
Private Sub Text1_Change()
'只有一位数字
If Len(Text1) = 1 Then
'校验是否为数字
If IsNumeric(Text1) = False Then Exit Sub
Text2.Text = arrPY(Text1)
Else
'两个数字
'校验数据是否正确
If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub
'10就是shi 不能是 yi shi
If Text1 = 10 Then
Text2.Text = arrPY(10)
'以0结尾
ElseIf Right$(Text1, 1) = 0 Then
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)
'其它情况 x shi y
Else
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))
End If
End If
End Sub
H. 用VB编写一个小程序
这还不简单：
Private Sub Form_Load()
Text1.Text = "Visual Basic程序设计"
Command1.Caption = "结束"
End Sub
Private Sub Form_Resize()
Dim W, H
W = Me.ScaleWidth: H = Me.ScaleHeight
Text1.Move 0, 0, W * 0.5, H * 0.5
Command1.Move W - Command1.Width * 1.1, H - Command1.Height * 1.1
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
I. VB编写一个小程序
Private Sub Command1_Click(Index As Integer)
这句的（）里面变成空
J. 如何使用VB编写一个简单的小程序
打开vb，选择新建工程，标准exe，点击运行启动，就看见一个窗体。
这就是最简单的vb程序。
然后点击运行结束，视图，代码窗口，粘贴如下代码：
Private Sub Form_Load()
MsgBox ("你好！")
End Sub
点击运行启动，就看到一个新的效果
祝你成功！