首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮,运行后的窗体外观如图所示: 设有如下的类型和变量声明: Private Type Person name AS STRING*8
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮,运行后的窗体外观如图所示: 设有如下的类型和变量声明: Private Type Person name AS STRING*8
admin
2012-12-08
73
问题
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮,运行后的窗体外观如图所示:
设有如下的类型和变量声明:
Private Type Person
name AS STRING*8
major As String*20
End Type
Dim P AS Person
设文本框中的数据已正确地赋值给Person类型的变量P,当点击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )。
选项
A、Open”c:\Test2.dat”For Output As#1
Put#1,1,P
Close#l
B、Open”e:\Test2.dat”For Random As#1
Get#l,1,P
Close#1
C、Open”e:\Test2.dat”For Random As#1 Len=Len(p)
Put#1,1,P
Close#1
D、Open”C:\Test2.dat”For Random As#1 Len=Len(p)
Get#1,1,P
Close#1
答案
C
解析
此题考查随机文件。要向随机文件中写入数据,首先这个文件须是以Random方式打开的,并且后面必须有随机文件的长度,另外,向随机文件中写文件使用的是Put,所以此题选C。
转载请注明原文地址:https://www.kaotiyun.com/show/Vthp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在算法正确的前提下,评价一个算法的两个标准是【】。
Sub过程与Function过程最根本的区别是
下列程序执行的结果为 x=25:y=20:z=7 Print"S";x+z*y;")"
下列程序的执行结果为PrivateSubCommand1_Click()DimFirStrAsStringFirSt="abcdef"PrintPat(FirStr)EndSubPrivateFunctionPat
下列不属于软件工程的3个要素的是
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。PrivateSubForm_click()Dimx,yAsSingleDimzAsInteger
下列程序段的执行结果为_________。A="abcd"B="bcde"E=Right(A,3)F=Mid(B,2,3)IfE<FThenPrintE+FElsePrintF+
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。 PrivateSubcmdCha
下面的过程定义语句中不合法的是
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftVisualBasicProgramming然后编写如下事件过程:PrivateSubCommandl_Click(
随机试题
男性,56岁,左颈部淋巴结肿大,伴发热,病理检查提示弥漫性混合性细胞淋巴瘤,左腹股沟淋巴结2cm×2cm大小,无压痛,脾肋下2cm。骨髓淋巴瘤细胞0.12,诊断属何期
甲状腺激素作用的主要机制是
下颌游离端局部义齿基托后缘应位于
治疗急慢性金黄色葡萄球菌骨髓炎的首选药物是
A.吡嗪酰胺B.利福平C.链霉素D.乙胺丁醇E.左氧氟沙星痛风患者慎用,可以杀灭组织细胞内停留的结核杆菌,最大限度减少结核病复发的灭菌活性抗结核药是()。
采用成本法核算长期股权投资,下列各项中会导致长期股权投资账面价值发生增减变动的是()。
尊重领队主要包括()。
简述法律义务与法律责任的区别和联系。(2006简64)
SowhyisGooglesuddenlysointerestedinrobots?That’sthequestioneveryone’saskingafteritemergedthismonththatthein
Whataretheytalkingabout?
最新回复
(
0
)