有下列程序 程序运行后 单击“Command1”按钮 在列表框List1中显示的第一行和第二行的结果
有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是【 】和【 】，最后一行的结果是【 】。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As type_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open "d:/data. txt" For Random As f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put f1, , testdata Next I Seek f1, 1 For I=1 To UBound(c) Get f1, , testdata List1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***264
2023-07-22 14:26:53
正确答案：a97 b98 6
程序的前面部分用Chr函数产生了a～f字母，并写入到“data.txt”文件中，程序后面部分又将其读出来。Ubound()函数为指定的数组维可用的最大下标。
相似问题
在窗体上画一个文本框和一个图片框 然后编写如下两个事件过程： Private Sub Form_Lo
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load( ) Text1 Text="计算机" End Sub Private Sub Text1_C
在窗体上建立一个单选按钮组Option1和一个图片框Picture1 如图所示。当选择不同的单选按钮
在窗体上建立一个单选按钮组Option1和一个图片框Picture1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整
设有如下程序 Private Sub Search(a( )As Variant ByVa1 key
设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Th
下列程序的输出结果为______ Sub Prin() Dim B As String A=1 B=
下列程序的输出结果为______ Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub请帮忙给出正确答案和分析，谢谢！
在窗体上画一个列表框 一个命令按钮和一个标签 其名称分别为List1 Commandl和Label1
在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个
