考试报名须知 第一步:了解考试政策 您可以通过以下方式了解全国计算机技术与软件专业技术资格（水平）考试的最新政策和消息： 1.通过省软考办网站(www.shaanxirk.com) 、国家软考办网站（www.ceiaec.org) 以及国家在各省的实施机构等官方主办的网站获取相关信息； 2. 通过报纸、媒体以及省软考办对外散发的各种宣传材料； 3. 通过省软考办的对外咨询电话：029-85523927 85520377； 4. 通过省软考办举办各种现场咨询会； 5. 通过省软考办设在当地的正规授权考试报名点； 第二步:疑问咨询 您可...

'读取MP3文件的标题Public readmp3title(filename As String) As String Dim cells(127) As Byte Dim head(29) As Byte Dim i As Integer Dim j As Integer Dim filenum As Integer filenum = FreeFile Open filename For Binary As filenum Get filenum, LOF(filenum) - 128 + 1, cells j = 0 F...

资源文件相关函数 1 LoadResString函数函数功能：从资源文件中加载文本字符串资源格式： s=LoadResString(文本编号)2 LoadResPicture函数函数功能:用以从资源 (.res) 文件装载位图、图标或光标格式：LoadResPicture(index, format) 用于 format 的设置值有： 常数 值 描述 vbResBitmap 位图 0 位图资源 vbResIcon 图标 1 图标资源 vbResCursor 2 光标资源 3 LoadResData函数函数功能:用以从资源...

'约束用户输入的信息:只能为正整数(放在Text_Change中)Public Sub checkinput(obj As TextBox) Dim i As Integer If Left(obj.Text, 1) = "0" Then obj.Text = "" MsgBox "仅能输入正整数!", 0, "注意" Exit Sub End If For i = 1 To Len(obj.Text) If Asc(Mid(obj.Text, i)) > 57 Or Asc(Mid(obj.Text, i)) < 48 Then...

'************************************API函数声明****************************************************Private Declare ReleaseCapture Lib "user32" () As LongPrivate Declare SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As L...