sStringEndTypeDimxDataAsPersDataPrivateSubForm_Load()Open“C:\phonBook.txt”For______As#mand1_Click()xData.Name=Text1.TextxData.Phon=Text2.TextxData.Address=Text3.TextxData.PostCd=Text4.Text______put#1,,xDataText1.Text=“”:Text2.Text=“”Text3.Text=“”:Text4.Text=“”mand2_Click()reno=LOF(1)/Len(xData)I=1DoWhileI<=reno______showDebug.PrintxData.Name,xData.Phon,xData.Address,xData.PostCdI=I+1LoopEndSub33.设窗体中已经加入了文件列表框(File1),目录列表框(Dir1),驱动器列表框(Drivel),完成下列程序使这三个控件可以同步变化.PrivateSubDrivel_Change()____Drivel.Drive=DrivelEndSubPrivateSubDirl_Change()____Dir1.path=Drive1.DriveEndSubPrivateSubFilel_Click()MsgBoxFile1.FileNameEndSub窗体中有两个命令按钮,“显示”(Name为CmdDisplay)和“测试”(Name为CmdTest)。单击“测试”按钮时,执行如下事件过程,此事件过程的功能是:当在窗体中出现消息框并选中“确定”按钮时,隐藏“显示”按钮,否则退出,请在空白处补充完整。PrivateSubCmdTest_Click()answer=Msgbox(“隐藏按钮”,65)
全文预览
