设有如下记录类型: Type student Number As String*10 Name As
设有如下记录类型: Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据题意,请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:/file, dat" For Random As 1 Len=Len(【 】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【 】1, i, stu Next i Close【 】 End Sub
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:stu Put #1
对于用随机访问方式打开的文件,用Len(记录类型变量)计算记录的长度。随机文件的写操作通过Put语句来实现,其格式为:Put#文件号,[记录号,变量文件的读写操作结束后,应将文件关闭,这可以通过Close语句来实现,其格式为:Close[[#文件号[,[#文件号…
相似问题
以下程序计算自然数e的值 要求精确到1015 阅读下列程序。已知e的计算公式为:e=1+1/1!+1
以下程序计算自然数e的值,要求精确到1015,阅读下列程序。已知e的计算公式为:e=1+1 1!+1 2! + …+1 n!。请在【 】和【 】处填上正确内容。 Privat
下列程序实现的功能是:当在窗体上单击时 将输出a1.txt 文件中的数字字符的个数。 Private
下列程序实现的功能是:当在窗体上单击时,将输出a1.txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim
假设有以下程序段: For i= 1 To 3 For j=5 To 1 Step -1 Print
假设有以下程序段: For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next j Next i 则语句Print i*j的执行次数是______,i的值为______,j的值为______。请帮忙给出正确答案和分析,谢谢!
程序运行后 单击窗体 则在文本框中显示的内容是______ 而在图片框中显示的内容是______。请
程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。请帮忙给出正确答案和分析,谢谢!
下列这个Sub过程的功能是:统计字符串中“a”的个数 请在空白处填上合适的代码 将程序补充完整。 P
下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。 Private Sub numCount() Dim num As Integer
