2014计算机软件基础Visual-Basic-考试大纲

1、计算机软件技术基础-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 x3是等价。（ f ）10、注释行

2、也能使用续行符。（ f ）二、单向选择题多个语句可以书写在同一行上，但它们之间要加 b ： B）； C) ， D）、 在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual BASIC”，设标签的原Caption属性值为默认值，则该语句执行之后该标签控件Name属性和Caption属性的值分别为 a A）“Label1”、“Visual BASIC” B）“Label1”、“Caption”C）“Label”、“VisualBASIC” D）“Label”、“Label1”下面几对数据类型中，哪一对所占的内存大小一致： b A）Integer、Singl

3、e B) Integer、Boolean C) Date、Single D) Long、Variant 下面哪条语句可以正确地声明一个动态数组： c A) Dim A(n) As Integer B) Dim A(1 To n) As IntegerC) Dim A() As Integer D) Dim A( , ) As Integer 如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(7,3 To 5)声明的数组有 个元素 A) 21 B) 28 C) 24 D)32 c 要使一个图片框控件自动地附在窗体的一条边上，应该设置它的 b 属性A)Picture

4、 B）Align C）Left D）AutoSize下列控件中，不具备Caption属性的是： d A)ListBox B）CheckBox C）Frame D）正三角形下面哪类控件不支持Change事件： d A)TextBox B）Label C）PictureBox D）ListBox下面各类型对象中，没有Move方法的是： a A)Line B）Image C）Form D）Shape在列表框中添加一个条目，应使用列表框的什么方法： b A)InsertItem B）AddItem C）AppendItem D）RemoveItem三、读程序，写结果执行下面程序，单击窗体后，窗体上显示

5、的第一行结果是 ，第二行结果是 。 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

6、 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、对下面程序，单击

7、窗体后，在文本框Text1和Text2中显示的内容分别是什么？ Provate Sub Form_Click() 4答案：15，54Dim x As Integer, y As IntegerX = 1 : Y =5Do While x 200 Print p,n对下面程序，单击窗体后，窗体上显示什么内容？ 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

8、(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 Sub下面程序段在窗体上输出的是什么？ 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 i8 Then Exit

9、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 Inc And j=nr Then I=I+1 ElseIf I=nc And jnr And j=nc Then I=I-1 ElseIf I=nr And jnr+1 Then Nc=nc-1 Nr=nr+1 End IfNextP

10、rint 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,zEn

11、d Sub四、程序设计题编写递归函数求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 Function编程计算100100000之间，共有多少个整数，满足它的各位数字之和为5。 2.答案：Private Sub Command1_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer

12、 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、编程计算20212223210的值。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 sumEn

13、d 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 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 3 Then intNum = intNum + 1 Nex

14、t Print intNumEnd Sub答案：一、FFTTTFTFFF二、BABCCBDDAB三、1答案：BbBbCcEe 2答案：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 413答案：7，15 4答案：15，54 5答案：207.36 4 6答案：6 2 9 9 3 9 15 5 15 7答案：12 6 6 8答案：5 0 09答案：4，6，10 6，9，15四、1.答案：Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Funct

15、ion End If Add = m + Add(m - 1)End Function2.答案：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 + 1 NextEnd Sub3.答案：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 Sub4.答案：31Private Sub Form_Click() Dim lng1 As Long Dim int1 As Integer, int2