陕西师范大学VB题库.docx

1、陕西师范大学VB题库 套题一1、Dim intR as Integer =6 And 5 ， 则intR的值（ A）A.4 B.7 C.FLASE D. TRUE2、在VB.NET的集成开发环境中，下面不属于该环境编程语言的是（）A.VB B.C+ C.Pascal D.j#3、vb2005采用事件驱动的编程方式，其中窗体的Paint属于（）事件。A.用户与应用程序交互触发事件 (mouseenter 事件，mouseleave事件)B.对象触发事件 （timer 的tick 事件）C.操作系统触发事件 （paint 事件）D。以上三者都不是4、/、Mod、*四个运算符中，优先级别最低的是（）

2、。A. B./ C. Mod D. *算术运算符、字符串连接运算符比较运算符逻辑运算符 一元标识+ 、- *、/ mod +、 字符串连接（+） 字符串连接（&） 算术移位 （)除法运算 /整出运算符 Mod 取模运算符，只取余数5、现有语句：y=IIf(x0,xMod3,0)，设x=10，则y的值（）A.是0 B. 是1 C. 是3 D. 语句有错Iif（）函数的作用是根据表达式的值，从两个值中选择一个返回，其格式为：Iif(expression,truepart,falsepart)Expression为boolean 类型，如果Expression的值为true ，则返回truepart

3、 ,否则返回flasepart6、不论任何控件，共同具有的属性是（）。A. Text B. name C. forecolor D.font7、若要使命令按钮不可操作，要对（）属性进行设置A.Enabled B. visible C. backcolor D.text8、下列说法正确的是（）A.属性的一般格式为对象名_属性名称，可以在设计阶段赋予初值，也可以在运行阶段通过代码来更改对象的属性属性的一般格式为 对象名.属性 名称B.对象是有特殊属性和行为方法的实体C.属性是对象的特性，所有的对象都有相同的属性D.属性值的设置值可以属性窗口中设置9、当窗体被加载时运行，发生的事件是（） A.Loa

4、d B,.unload C. resize D.dragdrop10、提供了结构化程序设计的是那种基本结构，它们是A.顺序、递归、过程B.选择、过程、顺序C.顺序、选择、循环D.过程、输入输出、转向11、在VB.net中，在窗体上显示控件的文本，用（）属性设置A.Text B.name C.caption D. image 12、下面关于注释语句的叙述正确的是：A.注释语句在程序中可以执行B.注释语句不能使用visual basic 2005 中的关键字C.注释语句可以包含多行D,注释语句必须添加到代码的后面13、下列程序段的执行后，变量a,k的值分别为Dim a,k as integera=

5、5For k=1 To 0a=a * kNext kA.-1 6 B.-1 16 C 1 5 . D.11 21 14、关于循环叙述不正确的是：A.For.next循环和 do . loop循环可以相互替代B.For.next 循环和 do . loop循环可以互相嵌套替代C.For.next 循环中不能嵌套 do . loop循环D.同一程序中只能使用一种循环控制15、dim a（3）as short，则以下语句正确的是A. redim a (5) as single B.redim a(3,2) C.redim a D.redim preserve a(5)16、关于定时器的说法中正确的是

6、（）A.当enabled属性为flase时，不产生tick事件B.在程序运行时不可见，这是因为visable属性为flaseC,当interval 属性为0，则tick 事件不会发生D.通过恰当的设置可以将interval属性的单位改为秒（微秒）17、VB中可以通过icon属性设置应用程序的图标，下列选项中哪个是其支持的图像格式A.BMP B.JPG C.GIF D.ICO18、关于循环叙述正确的是：A.循环执行过程中不能中途终止程序执行B.循环语句必须使用一个变量控制程序的执行C.循环过程不能嵌套D,for循环过程可以使用continue for 跳过以下语句的执行19、当对被选择的控件进行

7、对齐、调整大小等操作时，将以( )为准 A.所有控件 B.某些控件 C.基准控件 D.以上都不对20、在VB.NET的集成开发环境中，下面不属于该环境编程语言的是（pascal）套题二1、有以下过程Public Sub F1（ByRef n as integer ）n=3*n+4End Sub若n、m都被定义成整形变量，并且分别赋值为3、4，那么正确的调用语句是（）。A.F1(n+m) B.F1(m) C. F1(5) D. F1(m,n)2、窗体的标题栏显示内容由窗体对象的( )属性决定A.Backcolor B. backstyle C. text D. caption3、语句“If x=

8、1 then y=1”,下列说法正确的是（）。A.” X=1” 和 “y=1”均为赋值语句B. .” X=1” 和 “y=1”均为关系表达式C. .” X=1” 为关系表达式 “y=1”为赋值语句D. .” X=1”为赋值语句 “y=1”为关系表达式4、窗体的默认事件是（）A.Paint B.click C. text D.load5、复选框或单选钮的当前状态可通过（）属性来返回或设置A. Checked B.value C. selected D. caption 6、对于整数intX0,100，在Visual Basic中正确的写法是：A.intx=0 and intx=0 or intx

9、=100C,0=intx=0 xor intx=1007、“x是小于100的非负数”，用Visual Basic表达式表示正确的是( )A. 0=X=100.B. 0=X=100C.0=X and x100D. 0=x or x1008、Dim x,y as Integer x=2 If x0,xMod3,0)，设x=10，则y的值（）A.0 B.1 C.3 D.语句有错17、下面正确的赋值语句是A. x+y=30B -x=y+10C y=x+10D 3y=x18、30. 有过程： Private Function Max(ByRef x As Integer, ByRef y As Inte

10、ger) As Integer If x y Then Max=yElseMax=x End If End Function 如果： Dim a, b, c As Integer a = 10 b = 23 c = Max（a,b） 则a,b,c的值依次是：A.23,10,23 B.10,23,23， C. 23,23,10 D. 23,10,2320. 引用列表框ListBox1最后一个数据项应使用（）。Alistbox1.items(listbox1.items.count)B.listbox1.items(listbox1.items.count-1)C.listbox1.textD.l

11、istbox1.items(listbox1.selectedindex)主观题 1、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有不能整除3的整数之和，并返回结果。窗体上已经给出a,b的值。 例如：a=1,b=4。处理后，结果为 7。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A=100 , b=999不能整除3的数的和： 文本框 计算Public Class Form1 Private Function fun(ByVal a As Integer, ByVal b As Integer) As Lon

12、g #请在此区间填写你的代码# # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Integer Dim c As Long a = 100 b = 999 c = fun(a, b) TextBox3.Text = CStr(c) Dim mystreamwriter As New StreamWriter(data.vbout) mystreamwriter.Write(c

13、) mystreamwriter.Close() End SubEnd Class2、请编写函数fun(a，b)，其函数功能是：计算a到b区间内（包括a、b）所有除3余数为2的整数之和，并返回结果。窗体上已经给出a,b的值。 例如：a=1,b=4。处理后，结果为 2。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A=100 , B=500除3余2的数之和： 文本框 计算Public Class Form1 Private Function fun(ByVal a As Integer, ByVal b As Integer) As Lon

14、g #请在此区间填写你的代码# # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Integer Dim c As Long a = 100 b = 500 c = fun(a, b) TextBox3.Text = CStr(c) Dim mystreamwriter As New StreamWriter(data.vbout) mystreamwriter.Write(c

15、) mystreamwriter.Close() End SubEnd Class3、在窗体中添加一个Button控件，更改Name属性为“my_button”，更改Text属性为“ok”。 # 再添加一个Label控件，更改Text属性为“my label”，更改BackColor属性为“ButtonHighlight”。4在窗体中添加一个Label控件，Enabled属性值改为“False”，Name属性值改为“myLabel”，Text属性改为“Label”。 套题三1、 若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.visiable C.backcolor D

16、. text2、表达式2*32+2*8Mod4+23的值()A.64 B.31 C.26 D.273、文本框的( )属性用于设置或返回文本框中的文本内容A. Text B.（名称） C. caption D. name 4、要使TextBox控件能够显示多行，应设置（）属性为TrueA.Visible B.enabled C.multiline D.text5、复选框或单选钮的当前状态可通过（）属性来返回或设置Achecked B、value C.selected D.caption6、在VB.net中，在窗体上显示控件的文本，用（）属性设置A.Text B.name C.caption D.

17、 image7、对建立良好的程序设计风格，下面描述正确的是()A.变量的明明只要符合语法规定即可B.充分考虑程序的执行效率C.程序的注释可有可无D.程序应简单、清晰、可读性好10.要求从文本框中输入密码时在文本框中只显示#号，则应用在此文本框的属性窗口中设置A.Text属性值为#B.caption属性值为#C.passwordchar属性值为#D.passwordchar属性值为真11.以下的控件或方法具有输入和输出双重功能的为( )。A.print B.textbox C.optionbutton D.checkbox12.为了使文本框 txtOutput的内容运行时不被用户修改，应该将它的

18、（）属性设置成TrueA.readonly B.text C.enabled D.visiable 13、初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是（）。A.visual studio 2005 express editionB. visual studio 2005 team test edition C. visual studio 2005 team developer edition D. visual studio 2005 team architect edition 14、在VisualBasic中，可以被称为对象的是()A.窗体 B. 控件、窗体

19、和属性 C.空间和窗体 D.窗体、空间和方法15、要使当前窗体的标签控件lblshow显示“欢迎使用VB.NET”，以下（）语句是正确的A.form1.text=”欢迎使用VB。Net”B.lblshow.text=”欢迎使用VB。Net”C.lblshow.name=”欢迎使用VB。Net”D.lblshow.caption”欢迎使用VB。Net”主观题1、请编写函数fun(a)，其函数功能是：计算a的阶乘，并返回结果。注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）A为： 文本框阶乘结果为： 文本框 计算Public Class For

20、m1 Private Function fun(ByVal a As Integer) As Long #请在此区间填写你的代码# # End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer If IsNumeric(TextBox1.Text) = 0 Or TextBox1.Text = Then MessageBox.Show(请确定输入了a的值,并且只能为数字) Exi

21、t Sub End If a = CInt(TextBox1.Text) TextBox2.Text = fun(a) Dim fn_input As Integer Dim mystr As String fn_input = FreeFile() FileOpen(fn_input, analysis.vbin, OpenMode.Input) mystr = LineInput(fn_input) a = CInt(mystr) FileClose(fn_input) Dim mystreamwriter As New StreamWriter(data.vbout) mystreamw

22、riter.Write(fun(a) mystreamwriter.Close() End SubEnd Class2、在窗体中添加一个Panel控件，Name属性值改为“my_panel”，BorderStyle属性值改为“Fixed3D”。3、在窗体中添加一个Timer控件，Enabled属性值改为“True”，Interval属性值改为“500”。、套题四1、 下面4个选项中属于字符型数据的是( )A.“hello” B.hello C.hello D.#hello2、若dim a() as integer=1,2,3,4,5,则a.length的值（）A.4 B.5 C.null D.

23、 63、定义字符串变量：Dim strInput As String=“VisualBasic2005”Dim strSubStr1 As String计算子串：strSubStr1 = strInput.Remove(2, 4) 则strInput的值为：A. visualbasic B.vibasic2005 C.sual D.alba5. 要使TextBox控件能够显示多行，应设置（）属性为TrueA.visiable B.enabled C.multiline D.text 6、下列赋值语句正确的是( )A A=B+C B.-B=A C.2=A+B D.B+C=A7. 当在文本框中输入

24、“ABCD”时，标签上显示的是（）。Sub TextBox1_TextChanged() Handles TextBox1.TextChanged Label1.Text &=TextBox1.TextEnd Sub A AA.ABCD B. B C.AABABCABCD D. Ab C ABC8. Sub过程与Function过程最根本的区别是()A.function过程可以有形参，sub过程不可以B.sub过程可以直接使用过程名调用，而function过程不可以C.sub过程不能返回值，而function过程能返回值D.两种过程的参数传递方式不同9. 对下列程序段，说法正确的是()btnQ

25、uit.SetBounds(10,80,200,50)A.btnquit对象的左边界距窗体的左边界是10像素，上边界距窗体的上边界为80像素B.btnquit对象的左边界距窗体的左边界是200像素，上边界距窗体的上边界为50像素C. btnquit对象的宽度为200像素，高度为80像素D. btnquit对象的高度为80像素，宽度为200像素10. Dim str1,str2 As String str1=北京奥运2008 str2=str1.Substring(0,4) 那么str2的值为（ ）A.北京 B.北京奥运 C.奥运 D.是200811. 按照匈牙利表示法，前缀为lbl表示哪一个控

26、件。 A, Button B.label C. listbox D.textbox12、数学关系式3x10表示成正确的表达式为A.3=X=10B.3X and x3 or x10D.3x x10或者x0表示成正确的表达式为A.10X0 B.X10 C.x10 D.01017. 可以同时删除字符串前导和尾部空白的函数是( )A.Ltrim B,rtrim C.trim D。mid18. 以下变量名是正确的（）A. 是_al B.是123a C.是for D,是as19. 下面程序求两个数中的小数（）不正确A.min1=iif(xy,x,y)Bif xy,y,x)Dif yx then #min1=y # end if #min1=x20. 下列程序段的执行后，变量a,k的值分别为Dim a,k as integera=5For k=1 To 0a=a * kNext kA,-1 6 B.-1 16 C. 1 5 D.11 21主观题1、请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。 注