VB笔试习题练习.docx

1、VB笔试习题练习第一章 VB.NET环境和程序设计初步一.选择题1.在Visual Studio.NET的集成开发的环境中，下面不属于该环境编程语言的是（C）。A.VB.net B.C+ C. Pascal D. J# 2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。 A.工具箱窗口 B.属性窗口 C.解决方案管理器窗口 D.窗体窗口3.在VB.NET中，在窗体上显示控件的文本，用（A）属性设置。 A. Text B. Name C. Enabled D. Image4.不论何种控件，共同具有的属性是( B)。A. Text B. Name CForeColo

2、r DText 5对于窗体，可改变窗体的边框性质的属性是（B）。 A. MaxButton B. FormBorderStyle C. Name D. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。 ABackColor B. BorderStyle CForeColor D.BackStyle7若要使命令按钮不可操作，要对（A）属性进行设置。A. Enabled B.Visible C. BackColor D. Text8.要使文本框中的文字不能被修改，应对（D）属性进行设置。A. Locked B. Visible C. Enabled D. ReadO

3、nly9.要使当前Form1 窗体的标题栏显示“欢迎使用VB.NET”，以下（B）语句是正确的。A. Form1.Text=“欢迎使用VB.NET” B. Me. Text=“欢迎使用VB.NET”C.Form1.Name=“欢迎使用VB.NET”D. Name=“欢迎使用VB.NET”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。 A. Load B. Click C. UnLoad D. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。 A. 文本框没有内容 B.框的MulitLine属性为FalseC.框的MulitLin

4、e属性为True D.本框的Locked属性True12要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。A. TextChanged B. LostFocus C. Click D. KeyPress 13.在VB.NE集成环境中创建VB.NET应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（C）。 A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口14当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在（C）文件夹下。 AMy Documents BVB.NET C引例 DWindows15将调试通过后生成的.exe 可执行文件放到

5、其他机器上不能运行的主要原因是（A）。 A .运行的机器上面无VB.NET系统 B .缺少. frm 窗体文件 C. 该可执行文件有病毒 D. 以上原因都不对16.对初学者而言,调试程序方便,有效的手段是 ( A)。A. 在可疑的代码处设置断点，逐语句跟踪 B. 查看资料 C. 通过”立即”窗口显示变量的值 D. 找老师问原因17. 在代码窗口,代码下方有蓝色波浪线表示(B ) 。A .对代码设置了格式 B. 编译语法错误 C. 逻辑错误 D. 运行时错误二.填空题1.VB.NET 是完全面向对象的程序设计语言，其最大的特点是_引入了.net 框架_2._可视化编成技术_技术能让编程人员不必编

6、写代码就可以创建GUI（图形用户界面）。3._解决方案_是由一个或几个项目组成的VB.NET程序。4.当_自动隐藏_特性设置后，浮动窗口将自动隐藏。5.当进入VB.NET集成环境，发现没有显示 “工具箱”窗口，应选择_视图_菜单的_工具箱_。6要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的_全部保存_按钮。7对象属性是指_对象的性质来描述和反应对象特征的参数_。8对象的方法是指_对象的动作、行为_。9在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对_Form窗体_的_Font_属性进行设置。10属性窗口的属性可以按照_分类顺序_和_字母顺序_顺序排列。11当对命令按钮的I

7、mage属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对_FlatStyle _属性设置为_System_。12若已建立了Form1，Form2两个窗体，默认启动窗体为Form1。通过_项目_菜单的_属性_的_常规_选项卡，可将启动对象设置为Form2。13在文本框中，通过_SelectionStart_属性能获得当前插入点所在的位置。14要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了_ReadOnly_的属性为True。15在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行焦点就定位在Button1控件上，

8、应对Button1控件设置_TabIndex_属性的值为_0_。第二章 VB.NET语言基础和顺序结构一.选择题 1.在一个语句内写多条语句时，每个语句之间用（B）符号分隔。A， B. ： C.、 D. ；2. 一语句要在下一行继续写，用（C）符号作为续行符。A . + B . - C. _ D . 3. 下面属于合法的变量名的是（ A）。A.X_yz B. 123abc C .Integer D.X-Y 4.下面属于不合法的整常数的是( D). A.100 B. &O100 C. &H100 D. %1005.下面属于合法的字符常数的是( B) 。A.ABC$ B. “ABC” C. ABC

9、 D.ABC6. 下面属于合法的单精度型变量的是（A）。A. mun！ B. sum% D. xinte$ D. mm#7.下面属于不合法的双精度常数的是（D）。 A.100# B.100.0 C.1E+2 D.100.0D+28. 表达式16/4-25 * 8/4 Mod 52 的值为(B)。 .9.数学关系表达式x10表示成正确的VB.NET表达式为( B)。A3=x10 B. 3=x AND x=3 OR x10 D.3=x AND =0 AND a+cb+3 OR NOT d的值是_False_。5.Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round

10、(3.5)的值分别是 _-4_、_3_、_-3_、_3_、_-4_、_4_。6.表达式UCase（Mid（“abcdefgh”，3，4）的值是_CDEF_。7.在直角坐标系中，x、y是坐标系中任意点的位置，用x和y表示在第一象限或第三象限的表达是_x 0 and y 0 Or x0 and y= “A” and Ucase(s) = “Z”_。11.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 Sub Button1_Click(.) Handles Button1.Click Dim x, y As Integer x=Int (_

11、Rnd()*900 + 100_) y=(x Mod 10)*100+_(x mod 100)10)*10_+x100 MsgBox(“x=”& x & x &“y=” &y) End Sub. 第三章 选择结构 一、选择题：1 VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是（D）。A.递归结构，选择结构，循环结构 B.选择结构，过程结构，顺序结构C.过程结构，输入输出结构，转向结构 D.选择结构，循环结构，顺序结构2 按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。Aif语句 B. For语句 C. GoTo语句 D. Select Case语句 3.下面程序

12、段运行后，显示的结果是（A）。 Dim x% If x Then MsgBox(x) Else MsgBox(x+1) A.1 B.0 C.-1 D.显示出错信息4语句“If x=1 Then y=1” 下列说法正确的是（C）。 A. “x=1” 和“y=1” 均为赋值语句B“x=1” 和“y=1” 均为关系表达式C“x=1” 为关系表达式“y=1” 为赋值语句D“x=1” 为赋值语句“y=1” 为关系表达式5下面程序段显示的结果是（A）。 Dim x% x=Int(Rnd)+5 Select Case x Case 5 MsgBox(“优秀”) Case 4 MsgBox(“良好”) Cas

13、e 3 MsgBox(“通过”) Case Else MsgBox(“不通过”) End Select A. 优秀 B. 良好 C. 通过 D. 不通过6.下面If 语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（A）。A. If sex= “男” And age0 Then n=n+1B. If sex= “男” And age40 And duty=“教授” or duty= “副教授” Then n=n+1C. If sex= “男” And age40 And Right(duty,2)= “教授” Then n=n+1D.

14、 If sex= “男” And agey, x, y) B. If xy Then Max1=x Else Max1=y C. Max1=Math.Max(x, y) D. If y=x Then Max1=y Max=x8.下面三个程序设计段计算学生外语附加分：外语6级（lang6）为“优秀”加15分，“通过” 加10分；外语4级（lang4）为“优秀”加8分，“通过”加4分。外语附加分只能计一次最高的分数。（A）能正确计算。 A. If lang6=“优秀” Then langf=15 ElseIf lang6=“合格” Then langf=10 ElseIf lang4= “优秀”

15、Then langf=8 ElseIf lang4=“合格”Then langf=4 End if B If lang4= “合格” Then langf=4 ElseIf lang4=“优秀” Then langf=8 ElseIf lang6=“合格” Then langf=10 ElseIf lang6=“优秀” Then langf=15 End ifC. If lang6=“优秀”Then langf=15 If lang6=“合格” Then langf=10 If lang4=“优秀” Then langf=8 If lang4= “合格” Then langf=4 D. If

16、lang4= “合格”Then langf=4 If lang4=“优秀” Then langf=8 If lang6=“合格” Then langf=10 If lang6=“优秀” Then langf=15 Else langf=0End if9.下面语句执行后，变量w中的值是（B）。w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”) A. Nothing B. “Red” C. “Green” D. “Yellow”二.填空题1当C字符串变量中第三个字符是“C”时，利用MsgBox显示“Yes”，否则显示

17、“No”。（1） If_Mid(c，3，1) = “C”_Then MsgBox(“yas”) Else MsgBox(“No”)2.程序运行后输出的结果是_7_。x=Int(Rnd)+3If x28 Then y=x2+1If x2=9 Then y=x2-2If x28 Then y=x3MsgBox(y)3.下面程序的功能是_分别统计输入若干数的奇数和、偶数和，存放在m，n中_。Dim n%, m% Sub TextBox1_KeyPress(.)Handles TextBox1.KeypressIf Asc(e.KeyChar)=13 Then If IsNumeric(TextBox

18、1.Text) Then Select Case Val(TextBox1.Text) Mod 2 Case 0 n=n+Val(TextBox1.Text) Case 1 m=m+Val(TextBox1.Text) End Select End If TextBox1.Text=” TextBox1.Focus( )End If End Sub该题中统计括号个数的变量m,n若在过程内声明，程序会产生什么结果？(2)4下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入边统计，以输入回车符作为表达式输入结束，然后显示结果，如下图所示。 Di

19、m count1%Sub TextBox1_KeyPress( )Handles TextBox1.KeyPress If_ Me.KeyChar _=“(”Then count1+1 ElseIf _ Me.KeyChar _=“)” Then count1=_ count1-1_End If If Asc(e.KeyChar)=13 Then If_ count1=0_ Then MsgBox(“左右括号配对”) ElseIf count10 Then MsgBox(_“左括号多于右括号” & count1 & “个”_) Else MsgBox(“右括号多于左括号”& count1 &

20、“个”) End If End IfEnd Sub该题中统计括号个数的变量count1若在过程内声明，程序会产生什么结果？5输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter键结束，显示结果，大、小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。 Dim CountY% , CountC% Sub TextBox1_KeyPress () Handles TextBox1.KeyPress Dim c As Charc=_If “A”=c And c20y=sqrt(3x)-2 当10=x=201/2+|x| 当x20_ Theny=x*x+3*x

21、+2ElseIf_x20_y=x*x+3*x+2Case_Isz and x+zy and y+zx_ Then Msgbox(“能构成三角形”) If_ X=y and y=z_ Then Msgbox (“是等边三角形” ElseIf _ X=y Or y=z Or x=z_ ThenMsgbox (“是等腰三角形”) ElseIf Sqrt(x*x+y*y)=z Or Math.Sqrt(y*y+z*z)=x Or Math.Sqrt(x*x+z*z)=y Then Msgbox (“是直角三角形”) Else _X=y Or y=z Or x=z_ End IfElseMsgBox (

22、“不能构成三角形”)End IfEnd Sub8输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。同时请用日期型变量的IsLeepYear成员来验证。 Sub Button1_Click(.) Handles Button3.Click Dim d As Date d=Now If_ d.year mod 4 = 0 and d.year mod 100 0d.year_ Or d.year Mod 400=0 Then MsgBox(d.Year & “是闰年”) Else MsgBox(d.Year & “是平年”) En