2014计算机软件基础Visual Basic 考试大纲
计算机软件技术基础-1大纲一、判断题1、框架控件和形状控件都不能响应用户的鼠标单击事件。（ f ）2、当定时器控件的Interval属性值为0时，会连续不断地发送Timer事件。（ f ）3、一个菜单项是不是分隔条，由Caption属性决定。（ t ）4、可以通过语句代码使一个单选框组中的所有单选框均为不选定状态。（ t ）5、Windows下窗体的子菜单最多有5级。（ t ）6、一个变量在刚被声明尚未被赋值之前没有值。（ f ）7、对英文字母的比较，默认情况下是区分大小写的。（ t ）8、两个日期时间值可以做减法，但不能做加法。（ f ）9、表达式 NOT x<3 和 x>3是等价。（ f ）10、注释行也能使用续行符。（ f ）二、单向选择题1、 多个语句可以书写在同一行上，但它们之间要加 b A) ： B）； C) ， D）、 2、 在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual BASIC”，设标签的原Caption属性值为默认值，则该语句执行之后该标签控件Name属性和Caption属性的值分别为 a A）“Label1”、“Visual BASIC” B）“Label1”、“Caption”C）“Label”、“VisualBASIC” D）“Label”、“Label1”3、 下面几对数据类型中，哪一对所占的内存大小一致： b A）Integer、Single B) Integer、Boolean C) Date、Single D) Long、Variant 4、 下面哪条语句可以正确地声明一个动态数组： c A) Dim A(n) As Integer B) Dim A(1 To n) As IntegerC) Dim A() As Integer D) Dim A( , ) As Integer 5、 如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(7,3 To 5)声明的数组有 个元素 A) 21 B) 28 C) 24 D)32 c 6、 要使一个图片框控件自动地附在窗体的一条边上，应该设置它的 b 属性A)Picture B）Align C）Left D）AutoSize7、 下列控件中，不具备Caption属性的是： d A)ListBox B）CheckBox C）Frame D）正三角形8、 下面哪类控件不支持Change事件： d A)TextBox B）Label C）PictureBox D）ListBox9、 下面各类型对象中，没有Move方法的是： a A)Line B）Image C）Form D）Shape10、 在列表框中添加一个条目，应使用列表框的什么方法： b A)InsertItem B）AddItem C）AppendItem D）RemoveItem三、读程序，写结果执行下面程序，单击窗体后，窗体上显示的第一行结果是 ，第二行结果是 。 1答案：BbBbCcEePrivate Sub Form_Click() Dim Mystr As String Dim Mystr1 As String Dim Mystr2 As String Mystr1 = "B" For i = 1 To 3 Mystr2 = LCase(Mystr1) Mystr1 = Mystr1 & Mystr2 Mystr = Mystr & Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + i) NextEnd Sub2、执行下面程序，窗体上显示的结果是什么？ 2答案：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 41Dim m As Integer, n As Integer, k As Integern=20:k=1For m=1 to n Step k Print m n=n-1 k=k+2NextPrint n,k3、下面程序段执行完毕，窗体上显示的结果是什么？ 3答案：7，15Dim b As Integer,k As Integerb=1For k=1 To 6 b=b*k If b>=20 Then Exit For Else k=k+1 End IfNext kPrint k,b4、对下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分别是什么？ Provate Sub Form_Click() 4答案：15，54Dim x As Integer, y As IntegerX = 1 : Y =5Do While x < 15 Y=y + x X=x+2LoopText1.Text=xText2.Text=yEnd Sub5、 下面程序段执行完毕，窗体上显示的结果是什么？ 5答案：207.36 4Dim b As Single,k As Integer b=0.2 p=100n=0 Do p=p*(1+b) n=n+1 Loop until p>200 Print p,n6、 对下面程序，单击窗体后，窗体上显示什么内容？ 6答案：6 2 9 9 3 9 15 5 15Private Sub Form_Click() Dim x As Integer,y As Integer,z As Integer X=1:y=2:z=3 Call sub1(x,y,z) Call sub1(y,z,x)Call sub1(y,y,z)End SubPrivate Sub sub1(byVal x As Integer, y As Integer, z As Integer) Dim I As Integer X=2*z Y=3*z Z=x+y Print x,y,zEnd Sub7、 下面程序段在窗体上输出的是什么？ 7答案：12 6 6Dim i As Integer, j As IntegerDim k As IntegerFor i=1 To 10 Step 3 For j=0 to 10 If j>=5 Then i=i+4:Exit For j=j+1 k=k+1 Next If i>8 Then Exit ForNextPrint i,j,k下面程序段在窗体上输出的是什么？ 8答案：5 0 0Dim a(4,4) As IntegerDim nc As Integer,nr As IntegerDim I as Integer,j As Integer ,k As IntegerNc=4:nr=1:I=1:j=1For k=1 To 16 A(I,j)=k If I<nc And j=nr Then I=I+1 ElseIf I=nc And j<nc Then J=j+1 ElseIf I>nr And j=nc Then I=I-1 ElseIf I=nr And j>nr+1 Then Nc=nc-1 Nr=nr+1 End IfNextPrint a(4,2),a(3,3),a(2,2) 9、对下面程序，单击窗体后，窗体上显示什么内容？ 9答案：4，6，10 6，9，15Private Sub Form_Click() Dim x As Integer,y As Integer,z As Integer X=1:y=2:z=3 Call sub1(x,y,y) Call sub1(x,x,z)End SubPrivate Sub sub1(x As Integer,byVal y As Integer, z As Integer) Dim I As Integer X=2*z Y=3*z Z=x+y Print x,y,zEnd Sub四、程序设计题1、 编写递归函数求1+2+3+m的值。 1.答案：Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Function End If Add = m + Add(m - 1)End Function2、 编程计算100100000之间，共有多少个整数，满足它的各位数字之和为5。 2.答案：Private Sub Command1_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer intNum = 0 For lng1 = 100 To 100000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 5 Then intNum = intNum + 13、编程计算20212223···210的值。3.答案：2047Private Sub Form_Click() Dim x As Integer, sum As Integer x = 1: y = 1 For I = 1 To 10 x = x * 2 sum = sum + x Next Print sumEnd Sub 4、编程计算100100000之间，共有多少个整数，满足它的各位数字之和可被3整除。4.答案：31Private Sub Form_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer intNum = 0 For lng1 = 100 To 100000 int2 = 0 Fo
