资源描述：
《安徽大学vb教学资料第六套》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、第六套1.A可十六进制表示VisualBasic的整型當数时，前面要加上的符号是0AHB）他C）KD）0整型常数前加ax符号，夷示十六进制整数，整型常数前加朗符号，夷示丿瞇制整数。2.A勺了给戮珀工三个变星赋初值1，下面正确的赋值语句是I）x=l:y=l:z=l〕）x二l,y=l,z=l：）x=y=z=l））xyz=l3.D设则执行x二口:F(a>5,-l?0)后异的值为A)5B)6C)0D)-1［咋礫件表达式，值切值2）函数的功能：当条牛表达式值为True丿函数返回结果为值1，否则，函数返回结果为值2。4.D8MSGB0X函数显示的对话框，以下叙述正确的是。J该对话框有一个“确定
2、汀按钮0该对话框有“是肆，“否污两个按钮：）该对话框有“是S“否S“取消污三个按钮»该对话框通过选择蚩数可以得到以上不同的的按钮组台5.B关于MSGB0X函数、以下叙述正确的是°C该函数没有返回值3）该函数的返回值反映了用户在对话框命令按钮中所作的选择：）该函数的返回值反映了对话框在窗体上的位羞〕）该函数的返回值反映了对话框的标题内容6.D斌值语句&=123+Mxdn234563,2)执行后，变里&中的值是一J"12334"B)123C)12334D)157MxdC1234563,2)豳返回值为“34J而123+”34“数宁字符会自动箱瓠为数值型・结果为157。7.AMszBox
3、函埶的饭回值的类別呈。A）整数B）宇符串C）逻辑值D）日期8.C下列程序段的循坏结构执行后，i的输出值是DimyasIntegerFori=1To10Step2NextiPrintiA)25B)10C)11D)因为y初值不知道，所以不确定DimytxInly叫则说明/St认值为0。1.D下面分别是求两个数中的夫教的四个程序段，不正确。A)Maxellf(x/百y)B)Ifx>yThenMax=xElsellax二yC)Mtx=xD选项中的IF语句对最大逋的到断并不起作用。2.D以下程序运行的结果是Dim&a=Array(1,3,4,5,6,7)Fori=LBound(a)ToUBo
4、und(a)t(i)=・(i)♦・(i)NextiPrinta(i)A)49B)0B)0C)不确走D)下标越畀LBound(a)函数返回教组最小下标,UBound(t)函教jg回数组谢最大下标。3.B在窗体上固一个命令按fflCommandl,然后编写如下代码:PrivateSubCommandl_C1ick()Dimarrl(10),arr2(10)AsIntegern=3Fori=1To5arrl(i)=iarr2(n)=2*n+iNextiPrintarrl(n),arr2(n);EndSub程序运行后，单击命令按钮，输出结果是A)113B)311C)133D)3134.BI
5、nteger^ByVaibAsInteger)&2EndSubPrivtitSubx=4y=4Call玄2(x,y)Printx+yEndSubA)0Commtndl^ClickOB)8C)12工形盏列表的羞数名前加ByRe£或省略不写，系疥认为是按地址传递，若怠数名前加ByVal，系D)14诫认为是披值传递。在窗体上添加一个命令按钮commandl和两个名称分别为LJel1和LJel2的标签，在通用声明段声明变里X,并编写如下事件过程和SUB过程：PrivateXAsIntegerPrivateSubCommandl_C1ick()X=5:y=3Callproc(X,y)Labe
6、ll.Caption=XLabel2.Caption=yEndSubSubprocOByValaAsTnteger?ByVaibAsTnteger)X=a*ay=b+bEndSub程序运行后，单击命令按钮，则两个标签中显示的內容分别是。5和3B)25和3C)25和6D)5和6王形参列表的参数名前加ByR。徴省昭不与，系克认为是按地址传递，若参数名前加ByVai,系克认为是按值传谨。1.C以下程序的运行结果是。DimxAsInteger^yAsInteger^zAsIntegerSubs2(aAs&=2♦2.A改娈驱动器列克框的Drivel性将魅牙事件。A)ChangeB)Scrol
7、lC)KeyDownD)KeyUp3.D在窗体上画一个名称为Li航1的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。在Li航1的单击事件过程中能正确实现上述功能的语句是。A)Labell.Caption=Listl.ListindexB)Labell.Name=Listl.ListindexC)Labell.Name=Listl.TextD)Labell.Caption=Listl.Text
