首页 > 计算机 > 计算机考试 正文

[填空题] 建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮command1时,将文本框数据写入文件,单击“显示”按钮Comm

时间:2021-07-20 18:17:57 解答: 83 次

[填空题] 建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 Posted As String * 6 End Type ___________________________’定义PerData类型的变量xDataPrivate Sub Form_Load() Open "C:phonBook.txt"For Random As 1End SubPrivate Sub Command1_Click() xData. Name1=Text1.Text xData. Phon=Text2.Text ________=Text3.Text ’地址 xData. PostCd=Text4.Text Put #1, 1, xData Text1.Text=" ":Text2.Text="" Text3.Text="":Text4.Text=""End SubPrivate Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i<= reno Get #1, i, xData Debug.Print xData.Name 1,______, xData. Address, xData. PostCd i=i+1 LoopEnd Sub

正确答案:

Dim xData As PerData

参考解析:

xData.Address xData.Phon 声明用户定义类型的变量格式为:Dim变量名as用户定义类型名:定义了记录类型后,给该类型变量赋值时用“变量名.元素-要赋的值”的格式进行赋值。第3个空是引用变量的元素,应使用“变量名.元素”的格式。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-01 02:24:31

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-01 02:24:31

←请使用微信扫码支付