visual basic 练习卷

《visual basic 练习卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、班级：姓名：座号：………………………………密…………………………………………封……………………………线………………………………2009-2010学年（下）高二年期末综合练习卷（二）一、选择题1.数学表达式sin25°写成VisualBasic表达式是（）。A)Sin25B)sin(25)C)Sin(25°)D)Sin(25*3.14/180)2.下面子过程语句说明合法的是（）。A)Subfl(ByValx（）AsInteger)B)Subfl(x％())AsIntegerC)Funcitionfl％(fl％)D)Functionfl％

2、(xAsInteger)3.表达式InStr("ABCDEFG"，"DE")+"100"的值是（）。A)4100B)1004C)104D)出错4.在VisualBasic中语句的续行符采用（）。A)空格与短线B)短线与空格C)空格与下划线D)下划线与空格5.下列哪个是满足要求的正确表达式：年龄在20到60之间（包括年龄20和60在内）或工资少于500的女职工（）A)20<=年龄<=60and工资<500or性别＝"女"B)20<年龄<=60and工资<500or性别＝"女"C)20<=年龄<=60and工资<500and性别＝"女"D

3、)(20<=年龄and年龄<=60or工资<500)and性别＝"女"6.InputBox函数返回值的类型是（）。A)数值B)字符串C)数值或字母串（视输入的数据而定）D)变体7.DoUntil...Loop循环命令的功能是（）A)先进入循环执行语句段落后，再判断是否再进入循环B)先进入循环执行语句段落后，再判断是否不再进入循环C)执行前先判断是否不满足条件，若不满足才进入循环D)执行前先判断是否不满足条件，若满足才进入循环8.子过程Sub...EndSub的形式参数可以是（）A)常数、简单变量、数组变量　和运算式B)简单变量、数组变

4、量和数组元素C)常数、简单变量、数组变量D)简单变量、数组变量和运算式9.下列描述错误的是（）A)某个子过程中声明的局部变量使用范围仅限定于该子过程内B)某个子过程中声明的局部变量使用的生命周期仅于该子过程被执行过程中C)不同子过程中的局部变量可以具有相同的名称D)不同子过程中具有相同的名称的局部变量指的是同一变量10.下列程序运行后，单击命令按钮三次后，窗体显示变量a1的值是（）Command1_ClickDima1AsIntegera1=a1+1Printa1EndSubA)2B)1C)0D)311.下列程序运行后，单击窗体，则在

5、窗体上显示的内容是（）PrivateSubForm_Click()ClsPrintForn=1to3Form=1tonPrintm;NextmPrintNextnEndSubA)1B)123C)3D)112122221231133312.下列程序段的执行结果为（）Dimm(10),n(10)I=3Fort=1to5M(t)=tN(I)=2*I+tNexttPrintn(I);m(I)A)311B)315C)113D)15313.下列程序运行时，两次单击窗体后，显示的结果是（）PrivateSubForm_ClickDimbAsInte

6、gerStaticcAsIntegerb=b+2c=c+2Print"b=";b;"c=";cEndSubA)b=2c=2b=2c=2B)b=2c=2b=4c=4C)b=2c=2b=2c=4D)b=2c=2b=4c=214.程序运行后，单击窗体，屏幕显示的结果是（）高二计算机专业，第7页共8页高二计算机专业，第8页共8页PrivateSubForm_Click()num1="乙"num2=76SelectCasenum1Case"甲"IfNum2>=80ThenPrint"德艺优秀"ElseIfnum2>=60ThenPrint"德艺

7、秀，艺普通"EndIFCase"乙"Ifnum2>=80ThenPrint"德艺双佳"ElseIfNum2>=60ThenPrint"德艺普通"EndIfEndSelectEndSubA)德艺双佳B)德艺普通C)德优秀，艺普通D)德艺优秀15.下列程序段中，能正常结束循环的是（）A)I=1DoI=I+2LoopUntilI=10B)I=5DoI=I+1LoopUntilI<0C)I=10DoI=I+1LoopUntilI>0D)I=6DoI=I-2LoopUntilI=116.在Activate事件过程中，写入下面的程序：Privat

8、eSubForm_Activate()DimSAsString,aAsString,bAsStringa="*":b="$"Fori=1to4Ifi/2=Int(i/2)ThenS=String(Len(a)+i,b)E