fname=VB复习题.doc

（一）、选择题和填空题一、VB开发环境1.在VB.NET中，在窗体上显示控件的文本，用（ A ）属性设置。A. Text B. Name C. Caption D. Image2.不论何种控件，共同具有的是什么属性（ B ）。A. Text B. Name CForeColor DText3要判断在文本框中是否按了Enter键，应在文本框的（ D ）事件中判断。A. Change B. KeyDown C. Click D. KeyPress4.在VB.NE集成环境中创建VB.NET应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（ C ）。A 窗体布局窗口 B 立即窗口 C 代码窗口 D 监视窗口 5当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在（ C ）文件夹下。 AMy Documents BVB.NET C引例 DWindows6将调试通过后生成的.exe 可执行文件放到其他机器上不能运行的主要原因是（ A ）A .运行的机器上面无VB.NET系统 B .缺少. frm 窗体文件 C. 该可执行文件有病毒 D. 以上原因都不对7.对初学者而言,调试程序方便,有效的手段是（ A ）。 A. 在可疑的代码处设置断点，逐语句跟踪 B. 查看资料 C. 通过”立即”窗口显示变量的值 D. 找老师问原因8. 在代码窗口,代码下方有蓝色波浪线表示（C ）。 A .对代码设置了格式 B. 编译错误 C. 逻辑错误 D. 运行时错误二、VB语法基础1 在一个语句内写多条语句时，每个语句之间用（ B ）符号分隔。 A， B. ： C.、 D.2. 下面属于合法的变量名的是（ A ）。 A .X_yz B. 123abc C .Integer D.X-Y3.下面属于不合法的整常数的是（ D ）。A .100 B. &O100 C. &H100 D. %1004.下面属于合法的字符常数的是( B ) A.ABC$ B. “ABC” C. ABC D.ABC5.数学关系表达式3x10表示成正确的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的值是_fals_。 16 Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(3.5)的值分别是_-4_、_3_、_-3_、_3_、_4_。 17 表达式UCase（Mid（“abcdefgh”，3，4）的值是_cdef_。 18. 在直角坐标系中，x、y是坐标系中任意点的位置，用x和y表示在第一象限或第三象限的表达是_(x0 and y0)_or (x0 and y=A And UCase（s）=Z _。 22.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生345，输出是543。 Sub Button1_Click(.) Handles Button1.Click Dim x, y As Integer x=Int (_100+900*rnd_) y=(x Mod 10)*100+_x10 mod 10_+x100MsgBox(“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.下面程序段运行后，显示的结果是（ 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(“良好”) Case 3 MsgBox(“通过”) Case Else MsgBox(“不通过”) End Select A. 优秀 B. 良好 C. 通过 D. 不通过6.下面If 语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（ A C ）A. If sex= “男” And age0 Then n=n+1 B. If sex= “男” And age40 And duty=“教授” or duty= “副教授” Then n=n+1 C. If sex= “男” And age40 And Right(duty,2) = “教授“ Then n=n+1 D. If sex= “男” And age8 Then y=x2+1 If x2=9 Then y=x2-2 If x28 Then y=x3 MsgBox(y)四、循环结构1 以下（ B ）是正确的For.Next结构。 A. For x=1 To Step 10 . Next x B. For x=3 To -3 Step -3 . Next x C. For x=1 To 10 re:. Next x If i=10 Then GoTo re D. For x=3 To 10 Step 3 . Next y2.下列循环体能正常结束的是（ C ）。 A. i=5 Do i=i+1 Loop Until i0 D. i=6 Do i=i-2 Loop Until i=13.下列第40句共执行了_4_次，第41句共执行了_12_次。 30 For j=1 To 12 Step 3 40 For k=6 To 2 Step -2 41 MsgBox(j & “ ” & k) 42 Next k43 Next j 五、数组1如下数组声明语句中正确的是（ B ）。 A. Dim a3,4 As Integer B. Dim a(3,4) As Integer C. Dim a3,4 As Integer D. Dim a(3 4) As Integer 2.如下数组声明语句中正确的是（ B ）。 A. Dim (9) As Single=1,2,3,4,5,6,7,8,9,10 B. Dim a( ) As Single=1,2,3,4,5,6,7,8,9,10 C. Dim a( ) As Single=1,“a”, “bc”2. ,4,5,6,7,8,9,10 D. Dim a(,) As Integer=1,2,3,4,5,6,7,8,9,10 3.如下数组声明语句中，数组a包含元素的个数有（C ）Dim a(3,0,5) A.15 B.8 C.24 D.164.如下程序输出的结果是（D ）。 Dim a() As Integer=1,2,3,4,5,6,7 For i=0 To UBound(a) a(i)a=(i)*a(i) Next i MsgBox(a(i) A.49 B.0 C.不确定 D.程序出错5如下程序输出的结果是（ D ）。 Sub Button1_Click(. .) Handles Button1.Click Dim i%, j% Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As Integer Label1.Text= “” For i=1 To 3 Label1.Text &=Space(i*3) For j=i To 3 b(i,j)=a(i*j) Label1.Text &=Space(6-Len(b(i,j) & b(i,j) Next j Label1.Text &=vbCrLf Next i End Sub A. 1 2 3 B.1 C. 1 4 7 D. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 96.下面程序对已知数组a（），删除数组中某个元素。 Sub Button1_Click(. .) Handles Button1.Click Dim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j% Key=Val(InputBox(“输入要删除的值”) For i=0 To UBound(a) If_a（i）=key_ Then For j=i+1 To UBound(a) _a（j-1）=a（i）_ Next j ReDim _ubound （a-1）_ MsgBox(“删除完成”) Exit Sub End If Next i MsgBox(“找到不要删除的元素”)End Sub六、过程1 设有如下说明： Public Sub F1(ByRef n%) . n=3 * n+4 .End SubSub Button1_Click (.) Handles Button1.Click Dim n%, m% n=3 m=4 . 调用F1语句 . End Sub 则在Button1_Click 事件中有效的调用语句是（ D ）。 A. F1(n + m) B.F1(m) C.F1(5) D.F1(m,n)2.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（ C ）。 A. Sub f2(ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%) C. Sub f1(ByRef n%, ByRef m%) D. Sub f1(ByVal n%, ByRef m%) 3.在过程中定义的变量，若希望在离开该过程后还能保存过程中的局部变量的值，则应使用（ D ）关键字在过程中定义过程级变量。 A.Dim B.Private C.Public D.Static4.下面过程运行后显示的结果是（ A ）。 Public Sub F1(ByRef n%, ByVal m%) n=n Mod 10 m=m10 End Sub Sub Button1_Click(. .) Handles Button1_Click Dim x%, y% x=12: y=34 Call F1(x, y) MsgBox(x & “ ”& y) End Sub A. 2 34 B. 12 34 C.2 3 D.12 3 5.如下程序，运行的结果是（ ）。 Sub Button1_Click(.) Handles Button1.Click MsgBox(p1(3.0,7) End Sub Public Function p1!(ByVal x!, ByVal n%) If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*p1(x, n2) Else p1=p1(x, n2)x End If End IfEnd Function A.18 B.7 C.14 D.27七、用户界面设计1 下列控件中，没有Text属性的是（ ）。 A框架 B.列表框 C.复选框 D.定时器2在下列关于单选按钮和复选框的说法中，错误的是（ ）。 A某个单选按钮被单击一定会触发它的CheckedChanged B一个单选按钮状态发生变化，同一组中必有另一个单选按钮的状态也发生变化 C某个复选框被单击一定会触发它的CheckedChanged D一个复选框的状态发生变化，不会影响其他复选框的状态3在设计状态，列表框中的选项可以通过（ ）属性设置。 A. List B. Items.Count C. Text D. Items4.在下面对列表框（ListBox1）的操作中，正确的语句是（ ）。 A.Listbox1.Items.Cls B.ListBox1.Items.Remove(4) C.ListBox1.Items.Remove(“计算机”) D.ListBox1.Items.Add(1,“打印机”)5.下列关于定时器的说法中，正确的是（ ）。 A当Enabled属性为False时，不产生Tick事件 B在程序运行时不可见，这是因为Visible属性为False C当Interval属性为0，则Tick事件不会发生 D通过恰当的设置可以将Interval属性的单位改为秒6 列表框中选项的序号是从_开始的。 7 _表示列表框中最后一项的序号。 8 _方法可清除列表框中的所有选项。 9 组合框是组合了文本框和列表框的特性而形成的一种控件。_风格的组合框不允许用户输入列表框 中没有的项。10.如果要每隔15秒产生一个计时器事件，则Interval属性应设置为_。11下面程序段是将列表框ListBox1中重复的项目删除，只保留一项。 Dim i,j As Integer For i=0 To ListBox1.Items.Count-1 For j=ListBox1.Items.Count-1 To _ Step -1 If ListBox1.Items(i)=ListBox1.Items(j) Then _ End If Next j Next i（二）、判断题1. 关于计时器控件，当Enabled属性为False时，不产生Tick事件。 2. VB.NET程序中的运行时错误能被VB.NET编译器捕获.3. 复选框列出可供用户选择的选项，用户根据需要只能选择其中的一项。4. 计时器控件在运行时不可见。5. VB.NET代码中不区分字母的大小写。6. 关于计时器控件，当Enabled属性为False时，不产生Tick事件。 7. VB.NET程序中的运行时错误能被VB.NET编译器捕获.8. 复选框列出可供用户选择的选项，用户根据需要只能选择其中的一项。9. 计时器控件在运行时不可见。10. VB.NET代码中不区分字母的大小写。（三）、编程题1请阅读以下程序，说明该程序实现的功能是什么。Dim n%, m% Sub TextBox1_KeyPress(.)Handles TextBox1.Keypress If Asc(e.KeyChar)=13 Then If IsNumeric(TextBox1.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 Sub2 用Select Case语句计算分段函数 3. 已知数组a（）=1,6,8,3,5,9,10,2,7,4，设计程序删除数组中某个元素。假设该元素用变量Key表示，Key的值由键盘输入。 4编写程序，生成20个随机数，存入一维数组，统计该一维数组奇数的个数和偶数的个数。参考界面如下：使用199间的随机数，使用两个Label分别显示数组和统计结果，两个按钮分别触发产生数组和统计事件。5请设计一个程序，输入150个学生的成绩（可以随机产生0100之间的随机数），计算它们的平均分、最高分和最低分，并与学生的成绩一起在文本框中输出，要求每10个成绩一行，平均分、最高分和最低分显示在成绩后面，分行显示。 参考界面如下：6 输入三角形的三边a、b、c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。请根据题目要求将下面的程序填写完整。Sub Button1_Click(.) Handles Button3.Click Dim x%, y%, z% x= Val(InputBox(“input x”) y= Val(InputBox(“input x”) z= Val(InputBox(“input x”) If_ Then MsgBox(“能构成三角形”) If_ Then MsgBox(“是等边三角形” )