在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As IntegerName As String * 20 End Type Private Sub Command1_Click()Dim MaxSize,NextChar,MyCharOpen"D:empfemale.txt"For Input As 1Max Size=LOF(1)For Next Ch
单选题
在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As IntegerName As String * 20 End Type Private Sub Command1_Click()Dim MaxSize,NextChar,MyCharOpen"D:empfemale.txt"For Input As 1Max Size=LOF(1)For Next Ch