高中信息技术习题vb部分

宁溪中学信息技术（VB）练习题班级 姓名 一、选择题：1.下列各组控件都具有Caption属性的是A.窗体、文本框B.标签、定时器C.窗体、标签D.文本框、定时器2.下列每个控件都具有的属性是A.NameB.CaptionC.FontD.Interval3.下列运算结果中，值最大的是A.34B.3/4C.4mod3D.3mod4/表示除,表示整除,mod表示求余数4.以下哪个是合法的变量名ALenBTestqwC6cost_1Dcount2s5.在VisualBasic代码中，将多个语句合并在一行上的并行符是A.撇号（）B.冒号（：）C.感叹号（！）D.问号（?）6.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该是A5000B500C50D57下列控件中可设置滚动条是A.计时器B标签C文本框D按钮8下面程序执行的结果是PrivateSubForm_Click()A=123:B=456C=Val(A)+Val(B)val是把字符转化为数值的函数PrintC100EndSubA.123B.3C.5D.5799下列逻辑运算结果为true的是A.flaseornottrueB.flaseandnottrueC.trueornottrueD.trueandnottrue10下列控件中可用于接受用户输入文本，又可用于显示文本的是ALabel控件B.TextBox控件C.Timer控件D.CommandButton控件11.以下程序段执行后，整型变量n的值为year=2001n=year4+year400-year100A.495B.505C.500D.48512.下列关于CommandButton控件的叙述正确的是A.CommandButton控件的Caption属性决定按钮上显示的内容B.单击VB应用程序中的按钮，则系统激活按钮控件对应的Change事件C.CommandButton控件的name属性决定按钮上显示的内容D.以上都不对13.以下程序段执行后整型变量n的值为n=0fori=1to20step5n=n+inextiA.50B.34C.15D.21014.如果要改变窗体的标题,需要设置窗体对象的属性。A.NameB.CaptionC.BackColorD.BorderStyle15.窗体的BackColor属性用于设置窗体的A.高度B.宽度C.背景色D.前景色16.VisualBasic提供的标签控件（LABEL）可具有功能是A.输入文本B.显示文本C.计时D.显示时间17.VisualBasic规定窗体文件的扩展名是A.forB.frmC.vbpD.bas18下列关于算法的叙述不正确的是A算法是解决问题的有序步骤B算法具有确定性、可行性、有限性等基本特征C一个问题的算法都只有一种D常见的算法描述方法有自然语言、图示法、伪代码法等19下列关于添加控件的方法正确的是A单击控件图标，将指针移到窗体上，双击鼠标B双击工具箱中的控件，即在窗体上出现该控件C单击工具箱中的控件，将指针移到窗体上，再单击D用鼠标左键拖动工具箱中的某控件到窗体的适当位置20以下选项中，不是VisualBasic控件的是A.文本框B.定时器C.窗体D.命令按钮21双击窗体中的对象后，VisualBasic将显示的窗口是A.项目（工程）窗口B工具箱C代码窗口D属性窗口22若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为ifa5thenifb3thenc=a*belsec=amodbendifA2B.-1C.1D.623下列逻辑表达式中能完全正确表示条件year是闰年的是A.yearmod4=0B.yearmod400=0C.(yearmod400=0)or(yearmod4=0)and(yearmod1000)D.(yearmod400=0)and(yearmod4=0)or(yearmod1000)24.若要设置定时器控件的定时时间，需设置的属性是AIntervalBvalueCEnabledDText25.下列关于For.next语句的说法正确的是A.循环变量、初值、终值和步长都必须为数值型B.step后的步长只能为正数C.初值必须小于终值D.初值必须大于终值26.下列程序执行后，整型变量n的值为n=0forI=1to100ifImod4=0thenn=n+1nextIA.5050B.25C.26D.3327若要设置文本框中所显示的文本颜色，使用的属性是A.BackColorB.FillColorC.ForeColorD.BackStyle28VisualBasic程序设计的完整的步骤是A.可视性程序设计B代码程序设计C可视性程序设计和代码程序设计D界面设计29在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是A.编写代码B新建一个工程C打开属性窗口D进入VB环境30VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是A属性、事件、方法B控件、属性、事件C窗体、控件、过程D窗体、控件、模块31只能用来显示字符信息的控件是A.文本框B.标签框C.图片框D.图像框32能够改变复选框中背景颜色的属性是AvalueBFontcolorCBackcolorDFont33.系统日期的函数是A.data$B.time$C.date$D.gettime$34.设计一个计算器时，必须要使用的控件是A.滚动条B图片框C文本框D单选框35.VisualBasic规定工程文件的扩展名是A.forB.frmC.vbpD.bas36下列关于事件的叙述中不正确的是A事件是系统预先为对象定义的能被对象认别的动作B事件可分为用户事件与系统事件两类CVB为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写DVB中所有对象的默认事件都是Click37下列各组变量声明正确的是ADimabcasinteger,numassingleBDimI%,N$asintegerCDima%,b%,c%,a$Dpublicdimn%变量名的默认类型：%为整型、$为字符型、!为单精型、#为双精型38下列各赋值语句，语法不正确的是Ax+y=5BBiNumber=15CLabell.caption=timeDsLength=x+y39如果x=4，那么以下运算结果为True的表达式是A(x=6)B(x=4)Or(x=6)C(x=4)Xor(x=6)Dnot(x4)40如果想在程序中反复使用一个数据“01/01/2000”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用A将这个数据声明为字符串型常量，用一个常量标识符代表它。B将这个数据声明为字符串型变量，用一个变量标识符表示它。C将这个数据声明为日期型常量，用一个常量标识符代表它。D将这个数据声明为日期型变量，用一个变量标识符表示它。二填空题41有如下程序段：x5y=6x=yy=xprint y该程序段运行后，y的值为_ _（逐句分析变量值的变化）42有如下程序段：x=5y=20if Not x0 thenxy3elseyx+3endif该程序段运行后，x的值为_ 43有如下程序段： e0：f1For i=1 to 3 e=e+f f=f+eNext i该程序段运行后，f的值为_ 44将数学表达式（x的单位：弧度）写成相应的Visual Basic表达式后为 45在计算器中编写相乘按钮的Click事件过程中，具体代码如下，请填空：(1)将两个输入文本框中的数据转换成double型数，并分别赋值给num1,num2;(2)计算乘积，并用变量chenji表示；(3)将chenji转换成字符串数据，在TextBox1中输出。PrivateSubcommand2_click()num1=(text2.text)num2=(text3.text)chenji= Text1.text= EndSub46. 某算法的流程图及其编写中的Visual Basic代码如下图所示。分析流程图，在代码窗口中处应填写的代码正确的是：Do While a = n = n + 1 Loop47有如下VB程序段，执行完计算其结果是 s = 0i = 0Do While i = 10 If i Mod 2 = 0 Then s = s + i i = i + 1 Else i = i + 1 End IfLoopPrint s48若s=1*2*3*4*n，下列VB程序的功能是求s不大于1000时的最大n值，请将程序中横线处补充完整。Dim s As Integer, n As Integers = 1n = 1Do While n = n + 1 s = LoopPrint n=; n 149.如果一个正三位整数等于它的每个数字的立方和，则称次数为“水仙花数”（如：153=13+53+33）。下列程序用于求出100-999之间的所有“水仙花数”，请讲画线处的语句补充完整。Private Sub Command1_Click()Dim m As Integer, n As IntegerDim a As Integer, b As Integer, c As IntegerFor m = 100 To 999 a = b = c = n = a3+b3+c3 If Then List1.AddItem Str(m)Next m 50编写计算 1 + 1/2 + 1/3 + 1/4 + . + 1/100 的程序，请填空补充完善程序。 说明：使用三个控件， LABEL控件用于提示说明累加什么。如：计算1 + 1/2 + 1/3 + 1/4 + . + 1/100 COMMANDBUTTON控件用于事件单击触发。 TEXT控件用于显示结果，并放于变量a中。 Private Sub Command1_click() Dim a As Double Dim b As Double Dim i As Integer a = 0 For i =