资源描述：
《安徽大学vb教学资料第三套第四套》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、第二套选择题1.CVisualBasxc中可以用类型说明符来标识变里的类型，其中表示货币型的是%表示整型；@表示货币型；$表示宇符串型5#表示双精度型。VisualBasic日期常里的定界符是。A.##B.fi,C.()D.{}4.B设有如下的记录类型TypeStudGritnumberAsStringnameAsStringageAsIivteger则正确引用该记录类型变里的代码是EndTypeB.DimsAsStudentS.name=^红"D.DimsAsTypes.name=^红"C.DimsAsTypeStuerits.name=^红"
2、5.C运行以下程序后，输出结果为。x%=l/4y%=ll/4PRINTx%;y%ENDA.0.250.75B.02C.03D.136.D窗体里有两个对象，分别是图片框Picturel和标签Labello那么下面关于Print方法的使用中，错误的一条旱。A.Picturel.Print147C.Printer.Print147B.Print147D.Labell.Print1474.B如果%是一个正实数，对x的第3位小数四舍五入的表达式是0.005)*(x+0.005))*(x+0.05))0.05)Int(x+Ini(100Int(100Int(
3、x+A.0.01B.0.01C.0.01D.0.015.C使用下列语句:Dimx(lto10,3)AsSingle,贝9数组占用内存空间的字节数是扎132B.80C.160D.1206.C以下程序段执行后，变Isxz的值分别为。DimsAsInteger,xAsIntegers=10：X=1DoWhilex<10s=s+2x=x+2LoopFrints,xA.5011B.2010C.2011D・100107.A以下程序段的执行结果是。Fori=lTo4x=2Forj=lTo3x=lFork=lTo2x=x+3HextkHextjNextiPrin
4、txA.7B.6C.56D.72ll.C定义敎组Array(1to5,5)后，下列哪一个敎组元素不存在A.Array(1,1)B・Array(1?0)C.Array(0,1)D・Array(5,5)12.B反下程序段的运祁结果是。Functionabc(nAsIn/teger)AsIivtegerabc=n*5+10EndFunctionPrivateSubForm_Click()DimxAsIivtegerX=abc(234)+109*abc(10)PrintxEndSubA.7700B.7720C.2340D.777013.A下列程序运行后显
5、示的结果是PublicSubFl(n%?ByVaim%)n=nMod10m=m10EndSubA.234B.1234FrivateSubCommandl_C1ick()Dimx%?y%x=12：y=34CallFl(x,y)Printx,yEndSubC.23D.123在形羞列表的羞数名前加ByRef或省略不写，系统认为是按地址传递，若羞数名前加ByVai,系统认为是按値传递。14.A在窗体上添加一个文本框,然后编写如下事件过程:PrivaSubForm_Load0Textl.Text=Fori=1To10Sum=Sum+iNwxtiTextl
6、.Text=SumEndSub上述程序的运行结果是。A.在文本框Textl中输出55B-在文本框Textl中输出0C.出错A.在文本框Textl中输出不定值12.C在窗体上添加一命令按钮Commandl,并将其Caption^性设置为cmdAAx名称厲性设置为cmdBB,则关于该控件的下列语句是正确的。A.Commandl.Le£t=100B.cmdAA.Left=100C.cmdBB.Left=100D・以上语句都不对16.D下列哪个不是写文件语句oA.PutB・PrintC.WriteD.Output向顺序文件中写入敎据的语句：Print#x
7、Write#■石随机文件中写入敎据的语句：Put#；向二进制文件中写入数据的语句：Put#；从顺序文件由读取数据的语句：Input#XLineInput#xInput()函数；从随机文件中读取数扌居的语句：Get#；从二进制文件中读取数掳的语句：GW17.B在窗体上添加一个命令按钮Commandl和一个文本框Textl,然后编写如下事件过程:FrivateSubCommandl_C1ick()DimsAsString*20s=Textl.TwxtEndSub该程序的功能是当单击按钮Commandl时，把变里S的内容写入一个顺序文件htl.dat中
8、，正确的程序段是。扎B.C.D.Open^datl.dat"Write轧sClose#1Open^datl.dat"Write轧sClo
