2. 计算机
  3. 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Priva

建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Priva

admin2010-03-30  57
问题 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
    Private Type PerData
        Name1 As String
        Phon As String *11
        Address As String *10
        PostCd As String *6
   End Type
   ______ ’定义PerData类型的变量xData
   Private Sub Form_Load()
        Open "C:\phonBook.txt" For Random As 1
   End Sub
   Private Sub Command1_Click()
        xDatA.Name1=Text1.Text
        xDatA.Phon=Text2.Text
        ______=TextText   ’地址
        xDatA.PostCd=TextText
        Put #1,1,xData
        Text1.Text="":Text2.Text=""
        TextText="":TextText=""
   End Sub
   Private 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
        Loop
   End Sub
选项
答案Dim, xData, As PerData
解析 声明用户定义类型的变量格式为：Dim变量名as用户定义类型名；定义了记录类型后，给该类型变量赋值时用“变量名.元素=要赋的值”的格式进行赋值。第3个空是引用变量的元素，应使用“变量名.元素”的格式。
转载请注明原文地址:https://kaotiyun.com/show/xZ1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)