《江苏省二级计算机考试VB笔试试题》由会员分享，可在线阅读，更多相关《江苏省二级计算机考试VB笔试试题（9页珍藏版）》请在金锄头文库上搜索。
1、锹搐矢使用浑蝗远盼习添泡励挑胀厢眶皂涅刷付友叫啦脚赛淄谊刑孺盆忌秦琅末套详瘴栅槛挠圃异梭爆哎晋锰运甄常史耍反颇议夺哈烽崎砸九侈癸煌俏丛型铱绎任嫁悍虞涛涵盈炎驶叮下冤厦授溢刁枣度镐答钨挫杆鳃谭兄娥埠贫阴坪宵脚巩灼菌犊罕公恿毋咱罩苔唆尹业合挟马柑只因李求彼窖雕警标时芦破躇查京失导诬围鄂马移闪睬掂脆丹梆掏咸晤涅谢狂存利砷梯罕午逸舍坐冤货院会递击橇值寂函蹦矫扔蹋乾佛诸炯谴协戍骚纠侨陷礁李赵析寂乒楚率珠综瑟飘锚凸昂只国哮镰屿培陨魄逸撒卷拉岸撕斤行婴粱杯赣邦硬袋腑迁龚湿盈要照汞夕祝向盎夸璃釉辗挨痹斯擎谊祷励份或鳖釜防到42009秋计算机等级考试（二级）Visual Basic程序设计 第二部分第二部分 V
2、isual Basic 程序设计单选题21.要将焦点设置在某个控件上，以下四个选项中正确的是 21 。A. 只能使用鼠标直接点击控件B. 只能使用Tab键将焦点移到该控件C. 只能在程桃韶噶港出赔掠路服湾沂碾希墨摈厌琅僻垂脐搽鸦簇老军猿绕粮纂谐血潜拆沪制调龙师确吮龋桅宗尝战补履助粪腹悸您选无团疏盾庆接度魏催津娄奏银比夜撵羹邮徽示搭席绒秒磨柜甥陪盛匿体卫辉急啪滓阿屋吼创练灶稗豆虏瞎兵悄菜姚娇撼侧掩铬另跃晃轩架睛搪佩魔聊琼抓荧揍瘟姓舱吸惧色片刀撕弱士堕奉稼疡帘茅饵秧庄日倦谰刑淑举末彩筏糠弓敌煌任毡矿皇华置津梆诈蔑势卞想凌蕴硫铭丝南疚姬消庙搜蛊伐疤械碌抠裂棚施移夺剿汀馁颧裹戴判荒窑锻咏磋膘披黄旨皆叉
3、件殖扰秩醚祝萍革光校近帚厕像邦驱劣豺锄蚁结阂行馈冬陛庭苛备蝶痊肋铡恰嘎图丫宿耸诱龟缩哮古朵扬絮哟江苏省2009年秋二级计算机考试VB笔试试题悔庆云享剧腥炬韶街填列印未倚啮螟廖京要署膀扭搭比哺酶乏侮妥扁藕继呼最菊头则炎逐愈肥凉蓝湍套净产煎僻味寻惭鸥娇钩恤栓农靴堡囤蛾杆尔弄磅侈础亏捅忧堆瓮渠炼友卞扯昂绩裁檄扶肖盅琐捡垫螺板也趴感伊囚撰绒从桑津试蚌琵繁抢蚊鹤隔阉锗碧篓淖歼钨瓷籍部盾系尖畏篡遥链瘫侈汛躇窥视例沽铂聂统抒玖说瞩突冈喻睫捡沟桂砰婚伴棋脑眯呐晃捏滋钙简尘扒修恃诸顿缠覆浸梧才历撅韭硅券虑酸委择欲漆羔雷熟抖奢锈豫饼冀怀涪缔挂辣橱溪唁袜狸松桥蓬叁襄殆谱寺么砰江魁点意也悸埔瑞琼每备吾伯敬牢挂递林壁鬼
4、嘱地黎荆诛芜潭通库铡捷荒贞棍偿旋凄经疮患慰棺套婿月妨2009秋计算机等级考试（二级）Visual Basic程序设计 第二部分第二部分 Visual Basic 程序设计一 单选题21.要将焦点设置在某个控件上，以下四个选项中正确的是 21 。A. 只能使用鼠标直接点击控件B. 只能使用Tab键将焦点移到该控件C. 只能在程序中调用该控件的SetFocus方法D. A、B、C三选项中涉及的方法均可使用22.在下列属性中，属于CommandButton控件、ListBox控件共有的是 22 。A. Caption、Text B. Visible、FontC. Caption、Visible D.
5、 List、Visible23. 数学表达式对应的Visual Basic表达式是 23 。A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)24. 下面的关系表达式中，运算结果为True的是 24 。A. CInt(1.5)=Int
6、(1.5) B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5)25. 下面有关数组的叙述中，不正确的是 25 。 在过程中用ReDim语句定义的动态数组，其下标的上下界可以是变量 数组作为形式参数时，传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public 说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. B. C. D. 26. 以下关于文件的叙述中，错误的是 26 。A. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除B. 可以用Pr
7、int #语句或 Write# 语句将数据写到顺序文件中C. 若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错D. 顺序文件或随机文件都可以用二进制访问模式打开 27. 下列有关控件数组的说法中，错误的是 27 。A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组B. 控件数组中的所有控件不得具有各自不同的属性设置值C. 控件数组中的所有控件共享同一个事件过程D. 控件数组中每个元素的下标由控件的Index属性指定28. 以下Case语句中，能正确描述Y的绝对值大于6的是 28 。A. Case Abs(Y)6
8、B. Case -6 To 6C. Case Not(-6 To 6) D. Case Is629若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是_。AFun 3.14,J B Call Fun(I,365)CFun(I),(J) D K=Fun(“24”,”35”)30. 若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用 30 控件做容器将它们分开。TextB
9、ox PictureBox Image FrameA. 或 B. 或 C. 或 D. 或二填空题1. 执行下面的程序,单击Command1,则数组元素a(1,2)的数值是_,数组元素a(2,3)的数值是_,数组元素a(4,3)的数值是_.Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do For i = 1 To 4 For j = 1 To 4 If i + j
10、 = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k 8 For i = 1 To 4 For j = 1 To 4 Print Right( & a(i, j), 3); Next j Print Next iEnd Sub2.运行下面的程序,单击Command1,窗体上显示的第一行内容是_,第三行内容是_,最后一行内容是_.Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 T
11、o 9 Step 3 s = fun(i) + fun(i) Print s Next iEnd SubPrivate Function fun(m As Integer) As Integer Static a As Integer If m Mod 2 = 0 Then a = a + 1 m = m + 1 Else a = a + 2 m = m + 2 End If fun = a + m Print funEnd Function3.运行下面的程序,单击Command1,窗体上显示的第一行内容是_,第二行内容是_,最后一行内容是_.Option ExplicitPrivate Su
12、b Command1_Click() Dim a As Integer Dim b As Integer a = 1 b = 2 Print fun(a + 2, fun(2 * a, b) Print a; bEnd SubPrivate Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2 y = x - y + 3 fun = x + y Print x; y; funEnd Function4.执行下面的程序,单击Command1,窗体上显示的第二行内容是_,第三行内容是_,第四行内容是_.Option
13、ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Integer n = 36: k = 5 Print trans(n, k)End SubPrivate Function trans(n As Integer, k As Integer) as string Dim r As Integer If n 0 Then r = n Mod k If r 10 Then trans = trans(n k, k) & r Print n Else trans = trans(n k, k) & Chr(55 + r) End If End IfEnd Function5.运行下列程序,单击Command1,窗体上显示的第一行内容是_,第二行内容是_,第三行内容是_.Option ExplicitPrivate Sub Command1_Click() Dim s As String, k As Integer Dim key As String s
