注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不

admin2009-02-25  28

问题 注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
   在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。
   本题描述如下:
在名称为Form1的窗体上有五个Labe1控件和两个命令按钮,数据文件stud1.dat存放考生的考号、姓名、成绩。自定义一个数据类型stu,字符型数据定长为10;按“开始”按钮后,能从考生文件夹下的stud1.dat中读出所有数据并写入考生文件夹下的stud.dat文件中;执行完毕,“开始”按钮变成“完成”,且无效 (变灰)。程序运行界面如图13-6所示。

选项

答案单击按钮触发其Click事件,标题由Caption属性设置;标签的标题也是由Caption属性设置;文件的操作一般按照如下步骤进行:打开或建立文件、进行读或写操作、关闭文件。 自定义数据类型通过Type语句来实现,形式如下: Type 自定义类型名 元素名[(下标)]As类型名 …… [元素名[(下标)]As类型名] End Type 对于字符串变量类型,根据其存放的字符串长度是否固定,其定义方法有两种: Dim 字符串变量名 As String Dim 字符串变量名 As String*字符数 程序中用到了App对象的Path属性。Path属性返回或设置当前路径,在设计时是不可用的,对于App对象,在运行时是只读的。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Type stu num As Long ’ nam As String ? score As Single ’End Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() ’Dim rec As Dim i As Integer ’myfile1=App. Path & "\" & ? ’myfile2=App. Path & "\" & ? Open myfilel For Input As #1 Open myfile2 For Output As #2 For i=1 To 8 ’ Input ?, rec.num, rec.nam, rec.score ’ Write ?, rec.num, rec.nam, rec.scbre Next i Close ’COMSTART.Caption=? ’COMSTART.Enabled=? End Sub 参考代码: Private Type stu num As Long nam As String * 10 score As Single End Type Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim rec As stu Dim i As Integer myfile1=App.Path & "\" & "stud1.dat" myfile2=App.Path & "\" & "stud.dat" Open myfile1 For Input As #1 Open myfile2 For Output As #2 For i=1 To 8 Input #1, rec.num, rec.nam, rec.score Write #2, rec.num, rec.nam, rec.score Next i Close COMSTART.Caption="完成" COMSTART.Enabled=False End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/qh1p777K
0

最新回复(0)