2. 计算机
  3. 有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是【 】和【 】，最后一行的结果是【 】。 Type type_a chr1 As String*1 num1 As Integer End Ty

有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是【 】和【 】，最后一行的结果是【 】。 Type type_a chr1 As String*1 num1 As Integer End Ty

admin2010-09-11  81
问题 有下列程序，程序运行后，单击“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
选项
答案a97 ,b98 ,6
解析 程序的前面部分用Chr函数产生了a～f字母，并写入到“data. txt”文件中，程序后面部分又将其读出来。Ubound()函数为指定的数组维可用的最大下标。
转载请注明原文地址:https://kaotiyun.com/show/gump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)