资源描述：
《安徽大学vb教学资料第一套第二套》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、第一套选择题:以下关于窗体的描述中，错误的是。A.执行UnloadForml语句后，窗体Form1消尖，但仍在内存中B.窗体的“显事件在加载窗体时发生C.当窗体的Enabled^性为Fal^e时，通过鼠标和键盘对窗体的操作都彼禁止D.窗体的Height、Width厲性用于设置窗体的高和宽下面对语句Open，vRizhi.dat"ForOutputAs#1的功能描述错误的是。A.以顺序输出模式打开文件"RiHhi.ht"B.如果文件"RiMhi.ht"不存在，则建立一个新文件C.如果文件"Rirhi.ht"已存在，则打开该文件，新写入的的数据将添加到文件末尾D.如果文件"RiH
2、hi.ht"已存在，则打开该文件，新写入的的数据将覆盖原来的数据以下程序运行后，al.dat^件的内容是。PrivateSubForm_Click()DimflAsInteger,f2AsInteger,f3AsIntegerOpen"d:al.dat"ForOutputAs#1fl=2f2=3f3=f2+flWrite#1,fl*f2?f2?f3Close#1EndSubA.2,3,3B.6,3,5c・2,5,6D.无内容以下程序段的运行结果是PrivateDima=n=SubForm_Click()x()AsString"Howareyou!"Len(a)ReDimx(
3、1Ton)Fori=nTo1StepTx(i)=Mid(a?i,1)NextIFori=1TonPrintx(i);NextiEndSubA.!uoyerawoHB.!uoyerawohC・Howareyou!D.howareyou!第二套选择题下面台法的常里是。1A.1/2B.GbccTC.1.2*5D.False1在VisualBasic中，InputBox函数的默认返回值类型为宇符串，用InputBox函数输入数值型数据时，下列换作中可以有效防止程序出错的換作是OA.一承疋茹要接收的变重定义为数值型B.在函数InputBox前面使用Str函敎进行类型转换C.在函数Inp
4、utBox前面使用函数进行类型转换D.在函数InputBox前面使用String函数进行类型转换阅读程序：Subsubp(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(lTo4)AsIntegera(l)=5:a(2)=6:a(3)=7:a(4)=8subpaFori=1To4Printa(i):NextiEndSub程序运行时，单击命令按钮得到的结果是。A・2468氏5678C・10121416D.出错将数据项"Chin『添加到列表框L“t1中，成为第一项应使用语句。A・Lis
5、t1・Additem"China",0B・List1.Addltem"China",1C・List1.Addlteni0,"China"D・List1.Addltem1,"China"执行语句Open"Saniple.dat"ForRandomAs#1Len二50后，对文件Sample,d祇“中的数据能够进行的燥作是。A.只能写不能读B.只能读不能写C.即可以读，也可以写D.不能读，也不能写Open件名〉ForRandomAs[#]牛号〉'ForRandom表示打开—个随机文件,奇同时对文件进行读、写換作；Open件名〉ForOutPutAs[#]OJ件号〉,ForOutPu
6、t表示打开_个顺序文件,白打开的文件写数据；Open件茗〉ForInPutAs[#]件号〉，ForInPut表示打开一个顺序文件，从所打开的文件中读取数据。Open件名〉ForAppendAs[#]OJ件号〉‘ForAppend表示打拜_个顺序文件,白打开的文牛写数据'且添加在文件尾部，文件中原有数据几然保留。17.为了使Drivel驱动器列表框、Dirl目录路径列表框和Fi"l文件列表框同步协调工作，需要。A.Drivel的Change事件过程中加入Dirl.Path=Drivel.Drive>在Dili的Change事件中加入Filel.Path=Dirl.Path代码B
7、.Drivel的Change事件过程中加入Dirl.Path=Dirl.Path，在Dirl的Change事件中加入Filel,Path=Drivel.Drive代码C.Dirl的Change事件过程中加入Dirl.Path=Drivel.Drive>在Drivel的Change事件中加入Filel.Path=Filel.FileName代码D.Dirl的Change事件过程中加入Dirl.Path=Drivel.Drive，在Drivel的Change事件中加AFilel.Path=Dirl.Path
