Question

用VB写MP4的程序

Answer 1

Set d = CreateObject("Scripting.FileSystemObject")
For i& = 68 To 90
If d.DriveExists(Chr(i)) Then
If (d.GetDrive(Chr(i)).DriveType = 1) Then MsgBox "发现可移动磁盘：" & Chr(i), 64
End If
Next 这个是简单的。还有个，比较复杂。太多写不下~~

Answer 2

n=1 for i=1 to 100 N=N*i next dim sum as single dim i as integer Private Sub Command1_Click() sum=1 for i=1 to 100 sum=sum*