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、 注释行也能使用续行符。f 二、单向

2、选择题1、 多个语句可以书写在同一行上，但它们之间要加bA) : B 丨；C) ， D 丨、2、 在窗体Form1的Click 事件过程中有以下语句：Label1.Captio n= Visual BASIC,设标签的原 Caption属性值为默认值，那么该语句执行之后该标签控件Name属性和Caption属性的值分别为 aA“Label1 、“Visual BASIC B “Label1 、“ Caption C“Label 、“VisualBASIC D “Label 、“Label1 3、 下面几对数据类型中，哪一对所占的存大小一致：bAInteger、SingleB) Integer、

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

4、ign CLeft DAutoSize7、以下控件中，不具备 Caption属性的是：dA)ListBox B CheckBox CFrame D正三角形8、下面哪类控件不支持 Cha nge事件：dA)TextBox BLabel CPictureBox D ListBox9、 下面各类型对象中，没有Move方法的是：aA)Line BImage CForm DShape10、在列表框中添加一个条目，应使用列表框的什么方法：bA)Insertltem BAddItem CAppendltem DRemoveItem三、读程序，写结果1 答案：BbBbCcEe执行下面程序，单击窗体后，窗体上显

5、示的第一行结果是，第二行结果是Private Sub Form_Click()Dim Mystr As Stri ngDim Mystr1 As Stri ngDim Mystr2 As Stri ngMystr1 = BFori = 1 To 3Mystr2 = LCase(Mystrl) Mystrl = Mystrl & Mystr2 Mystr = Mystr & Mystrl Print MystrMystrl = Chr(Asc(Mystr1) + i)NextEnd Sub2、执行下面程序，窗体上显示的结果是什么？2 答案：1 2 3 4 5 6 7 8 9 10 11 12 1

6、3 14 15 16 17 18 19 20 0 41Dim m As In teger, n As In teger, k As In tegern=20:k=1For m=1 to n Step kPrint mn=n-1k=k+2NextPrint n,k3、 下面程序段执行完毕，窗体上显示的结果是什么？3答案：7, 15Dim b As In teger,k As In tegerb=1For k=1 To 6b=b*kIf b=20 ThenExit ForElsek=k+1End IfNext kPrint k,b4、 对下面程序，单击窗体后，在文本框Text1和Text2中显示的

7、容分别是什么?Provate Sub Form_Click() 4 答案：15， 54Dim x As In teger, y As In tegerX = 1 : Y =5Do While x 200Print p,n6、 对下面程序，单击窗体后，窗体上显示什么容？6答案：62993915515Private Sub Form_Click()Dim x As In teger,y As In teger,z As In tegerX=1:y=2:z=3Call sub1(x,y,z)Call sub1(y,z,x)Call sub1(y,y,z)End SubPrivate Sub sub1

8、(byVal x As In teger, y As In teger, z As In teger)Dim I As In tegerX=2*zY=3*zZ=x+yPrint x,y,zEnd Sub7、 下面程序段在窗体上输出的是什么？7答案：1266Dim i As In teger,j As In tegerDim k As In tegerFor i=1 To 10 Step 3For j=0 to 10If j=5 Then i=i+4:Exit Forj=j+1k=k+1NextIf i8 Then Exit ForNextPrint i,j,k下面程序段在窗体上输出的是什么？8

9、答案：500Dim a(4,4) As In tegerDim nc As In teger, nr As In tegerDim I as In teger,j As In teger ,k As In tegerNc=4: nr=1:l=1:j=1For k=1 To 16A(I,j)=kIf lnr And j=nc The nl=l-1Elself l=nr And jnr+1 The nNc=nc-1Nr=+1End lfNextPrint a(4,2),a(3,3),a(2,2)9、对下面程序，单击窗体后，窗体上显示什么容？9答案：4, 6, 106, 9,Private Sub

10、Form_Click()Dim x As In teger,y As In teger,z As In tegerX=1:y=2:z=3Call sub1(x,y,y)Call sub1(x,x,z)End SubPrivate Sub sub1(x As In teger,byVal y As In teger, z As In teger)Dim I As In tegerX=2*zY=3*zZ=x+yPrint x,y,zEnd Sub四、程序设计题1、编写递归函数求1+2+3+m的值。1. 答案：Private Fun cti on Add( n As In teger) As In

11、teger If n = 1 The nAdd = 1Exit FunctionEnd IfAdd = m + Add(m - 1)End Fun cti on 2、编程计算100100000之间，共有多少个整数，满足它的各位数字之和为2. 答案：Private Sub Comma nd1_Click()Dim Ing1 As LongDim int1 As Integer, int2 As Integer, intNum As Integer155。in tNum = 0For lng1 = 100 To 100000in t2 = 0For inti = 0 To 4int2 = int2

12、 + (Ingl / (10 A in t1) Mod 10 NextIf int2 = 5 Then intNum = intNum + 13、编程计算2。+ 21 + 22+ 23+ 210的值3. 答案：2047Private Sub Form_Click()Dim x As In teger, sum As In tegerx = 1: y = 1For I = 1 To 10x = x * 2sum = sum + xNextPrint sumEnd Sub4、编程计算100100000之间，共有多少个整数，满足它的各位数字之和可被3整除4. 答案：31Private Sub For

13、m_Click()Dim Ing1 As LongDim int1 As Integer, int2 As Integer, intNum As Integerin tNum = 0For Ing1 = 100 To 100000in t2 = 0For int1 = 0 To 4int2 = int2 + (Ing1 / (10 a in t1) Mod 10NextIf int2 = 3 Then intNum = intNum + 1NextPrint in tNumEnd Sub答案：一、FFTTTFTFFF二、B A B C C BDDAB三、1 答案：BbBbCcEe2 答案：1

14、2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 413答案7,154答案：15，545 答案:207.3646答案62 9 93 915 5157 答案：12668 答案：5009答案4,6，106， 9， 15四、1.答案:Private Fun cti on Add( n As In teger) As In tegerIf n = 1 The nAdd = 1Exit FunctionEnd IfAdd = m + Add(m - 1)End Fun cti on2. 答案：Private Sub Comma nd1_Click()D

15、im Ing1 As LongDim int1 As Integer, int2 As Integer, intNum As Integerin tNum = 0For lng1 = 100 To 100000in t2 = 0For int1 = 0 To 4int2 = int2 + (Ing1 / (10 A in t1) Mod 10NextIf int2 = 5 Then intNum = intNum + 1NextEnd Sub3. 答案：2047Private Sub Form_CIick()Dim x As In teger, sum As In tegerx = 1: y = 1For I = 1 To 10x = x * 2sum = sum + xNextPrint sumEnd Sub4. 答案：31Private Sub Form_CIi