module1.bas

office ppt考试系统 通过vb界面调用office接口进行ppt模拟考试的系统

Attribute VB_Name = "Module1"
Option Explicit

Public i As String
Public fso As New FileSystemObject
Public path As String
Public txtfile

 Public username As String
  Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function