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
點擊運行啟動，就看到一個新的效果
祝你成功！