题目内容

建立一个通讯录的随机文件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 ______=Text3.Text ’地址 xData.PostCd=Text4.Text Put #1,1,xData Text1.Text="":Text2.Text="" Text3.Text="":Text4.Text="" 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

查看答案

搜索结果不匹配？点我反馈

更多问题

在表单的数据环境中可以编辑关系，其中关系的______属性用于指定基于主表的关联表达式。

下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; End Sub

A. 15
B. 16
C. 20
D. 25

[听力原文] 女：你对这套服装的设计风格满意吗？男：我对服装样式比较满意，但颜色上最好能做一些调整。问：男的主要是什么意思？（）

A. 想买下这套服装
B. 不喜欢服装样式
C. 建议改变颜色
D. 想看别的设计

男性，62岁，突然出现剧烈头痛和呕吐8小时。无发热，否认高血压史。体检:神清，体温36.9℃，血压16.5/10kPa，右侧瞳孔直径3.5mm，对光反应消失，上睑下垂，眼球向上、下及内侧运动不能。颈项强直，克氏征阳性。CT示脑正中裂及右大脑外侧裂、枕大池呈高密度影。该患受累的颅神经是

A. 右侧滑车神经
B. 右侧三叉神经
C. 右侧动眼神经
D. 右侧外展神经
E. 右侧面神经