填空题

设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String10
telNum As String20
End Type
在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。请在【14】中填入适当的内容，将程序被补充完整。
Private Sub Command1_Click( )
Dim B As 【14】
Open"c：\person.txt"For Output As #1
B.Name=Input Box(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#I，B，Name，B.TelNum
Close #1
End Sub

【参考答案】

Books

<上一题目录下一题>

热门试题

填空题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【15】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( ) Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val( 【15】 ) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

填空题

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private 【12】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【13】 Else Text1.Text= End lf Print“程序运行完毕，可再双击窗体” End Sub

相关试题