首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下列程序,程序运行后,单击“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
admin
2013-04-11
92
问题
有下列程序,程序运行后,单击“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/6oQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为a=1b=5Doa=a+bb=b+1LoopWhilea<10Printa:b
数据流的类型有【】和事务型。
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是______。
要利用通用对话框控件来显示“保存文件”对话框,需要调用控件的______方法。
语句print"25+32=";25+32的输出结果是【】。
为了把—个VisualBASIC应用程序装入内存,只要装入【】文件即可。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
面向对象的设计方法与传统的面向过程的方法有本质不同,它的基本原理是______。
软件工程三要素包括方法、工具和过程,其中,【】支持软件开发的各个环节的控制和管理。
随机试题
国家不承担赔偿责任的情形有()。
甲状腺功能亢进症的表现,哪项不是由于基础代谢率增高所引起
食用某一种毒蕈后,会引起体内大部分器官发生细胞变性,其毒素属细胞原浆毒,中毒后病情凶险,死亡率高,这种毒蕈为
湿性坏疽常发生在()
某建筑公司在试验吊具的过程中,由于操作工不慎,发生吊具坠落,造成1人死亡的生产安全事故。根据《企业职工伤亡事故分类》(GB6441—1986),该起事故的类别是()。
已知数列{an}的前n项和为Sn,满足an+Sn=2n.证明:数列{an一2}为等比数列,并求出an;
有经济学者不赞成政府对低收入人群的直接救助,主张政府对大企业家和富人采取优惠的财政和税收政策,认为大企业家和富人的投资与消费活动会促进经济发展,增加穷人的就业机会,将财富从社会上层传递到社会底层。如果以下各项为真,最能削弱上述理论的观点是(
颁布中国历史上第一部正式民法典的政权是()。(2010年单选34)
请编写函数fun,该函数的功能是:判断字符串是否为回文,若是,则函数返回1,主函数中输出“YES”,否则返回0,主函数中输出“NO”。回文是指顺读和倒读都一样的字符串。例如,字符串LEVEL是回文,而字符串123312就不是回文。注意:
A、She’llbeonthesameairplaneastheman.B、Shedoesn’ttakeverygoodnote.C、She’slookingforaridetotheairport.D、She
最新回复
(
0
)