VB程序设计入门练习及答案.doc

习题2（程序设计入门）一、选择题1如果把一个人当作对象，那么血型相当于这个对象的：A(A) 属性(B) 方法(C) 事件(D) 特征2下列哪一种方法不能改变窗体的大小：A(A) 设计时在窗体布局窗口中进行调整(B) 设计时在属性窗口中设置相应的属性(C) 运行时设置相应属性的值(D) 运行时调用窗体的Move方法3一个对象可以执行的动作和可被对象识别的动作分别称为：B(A) 事件、方法(B) 方法、事件(C) 属性、方法(D) 过程、事件4在窗体Form1的Click事件过程中有以下语句： Label1.Caption = Visual Basic若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为：A(A) Label、Label(B) Label、Caption(C) Label1、Label1(D) Caption、Label5见上题。该语句执行后，标签控件的Name属性和Caption属性的值分别为：B(A) Label、VisualBasic(B) Label1、Visual Basic(C) Label1、Caption(D) Label、Label16下面哪种对象没有Caption属性：B(A) Form(B) TextBox(C) CommandButton(D) Label7文本框对象的默认属性是：B(A) Name(B) Text(C) Visible(D) Enabled8Visual Basic源程序的续行符是：D(A) 单引号(B) 双引号(C) 冒号(D)空格与下划线9下面的动作中，不能引发按钮Click事件的是：B(A) 在按钮上单击鼠标左键(B) 在按钮上单击鼠标右键(C) 把焦点移至按钮上，然后按回车键(D) 如果按钮有快捷字母，按“Alt+该字母”二、判断题1标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。F2窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变窗体与大小和位置有关的属性值。T3窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。T4一条Visual Basic语句如果不超过80个字符是不能续行的。F5在Visual Basic程序中不可能同时出现txtA和txta两个控件名。T6命令按钮支持Click事件，但不支持DblClick事件，所以双击按钮不会有任何反应。T7文本框的Left属性是文本框左边框与屏幕左边框之间的距离（单位为缇）。F8Visual Basic工程文件的扩展名为.vbp，窗体文件的扩展名为.frm。T9语句frmFirst.Move 1000, ,1200 可把窗体frmFirst水平地移动到坐标为1000单位处，并改变宽度为1200个单位，垂直坐标与高度保持不变。F三、填空题1要使按钮表面上显示的文字为“确定（O）”（其中“O”为快捷键），则按钮的Caption属性的值应为 确定（O） 。2欲将按钮设为默认按钮，应把其 default 属性值设为 true 。3要使按钮无效，则可其Enabled属性设置为 false 。4文本框中所显示的内容是它的 属性的值。5要让文本框显示滚动条，必须 （6） 属性和 （7） 属性的值。6如果文本框中没有选定部分，则其SelLength属性的值为 0 。习题3（数据类型、常量与变量）一、选择题1Integer类型的变量可存放的最大整数为：D(A) 255(B) 256(C) 32768 (D)327672下面的4对数据类型中，哪一对所占的内存字节数相等：A(A) Integer和Boolean(B) Integer和Single(C) Date和Single(D) Long和Double3下列数据类型中，占用内存最小的是：B(A) Boolean(B) Byte(C) Integer(D) Single4使用Public Const语句定义全局常量，该语句可以放在下列什么位置：C(A) 过程中(B) 窗体模块的声明段中(C) 标准模块的声明段中(D) 窗体模块或标准模块的声明段中5在窗体模块的声明段中定义变量时，不可能使用下列哪个关键字：D(A) Dim (B) Private(C) Public (D) Static6下列哪种数据类型的变量不能存放负值：C(A) Integer(B) Single(C) Byte(D) Long7下面哪一个不是字符串常量：D(A) 你好(B) (C) True(D) #False#8下面列出的语句中，没有错误的是：D(A) txt1.Text + txt2.Text = txt3.Text (B) cmdAdd.Name = cmdSub(C) 12Label.Caption= 1234(D) frmFirst.Move 1000,1000,2000,12009变量名最多不能超过的字符个数为：D(A) 10(B) 12(C) 40(D) 25510下列哪一个是日期型常量：C(A) 2/1/99(B) 2/1/99(C) #2/1/99#(D) 2/1/9911下面哪条赋值语句不能使字节型变量byt1在内存中的二进制位成为：00001111。B（A）byt1=15（B）byt1=1111（C）byt1=&HF（D）byt1=&O1712下列哪一组语句会产生错误：D(A) Dim int1 As Integer : int1=True(B) Dim str1 As string*10 : str1=123.4.5(C) Dim int1 As Integer : int1=123.4(D) Dim bln1 As Boolean: bln1=Yes二、填空题1下列数据类型的变量各占多少字节的内存：Byte： 1 ；Integer： 2 ；Long： 4 ；Single： 4 ；Double： 8 。2把整型数1赋给一个逻辑型变量，则逻辑变量的值为 true 。3刚被定义尚未赋值的日期型变量的值为 #0:0:0#；逻辑型变量的值为 false ；对象型变量的值为 nothing ；变体变量的值为 empty 。4对象型变量可以引用一个对象。使用Dim objFirst As Object语句定义一个对象型变量，如果要把名称为cmdFirst的命令按钮赋予它，应使用 set objFirst = cmdFirst 语句。5在一条Dim语句中可以定义多个变量，如Dim strVar, intVar, sngVar As Integer，则strVar、intVar与sngVar的数据类型分别是 variant 、 variant 和 integer 。6如果int1是整型变量，则执行int1=2+3语句之后，int1的值为 5 ；执行int1=2+3语句之后，int1的值为 23 。7把逻辑值True赋给整型变量之后，此变量的值会变为 1 。8默认情况下，所有未经显式定义的变量均被视为 variant 类型。如果要强制变量的定义，应在模块的声明段使用 option explist 语句。9如果要在文本框Text1中显示“He said, Good morning!.”（注：不包括外层的中文双引号，内层是英文双引号），则应使用以下的赋值语句：Text1.Text = “He said, Good morning!” 。习题4（运算符与表达式）一、求表达式的值（已知a=3:b=4:c=5）1 a+bc And b=c false2 a Or b+c And b-c 113 Not (ab) And Not c Or 1 -5 4 1*2+3/422 25 4*(76-43)2 Imp 3=4 And 50 -16 5 Mod 22 -32/32 Imp Not 3=4 Xor 5-3 0 37 5 Mod 2 Eqv Not 3 Xor 5 - 3 0 -38 a = b = False true9 2 = 2 = 2 false10 True = -1 true二、选择题1代数运算式对应的Visual Basic表达式是：D(A) a/b+c/d(B) a/(b+c)/d(C) (a/b+c)/d(D) a/(b+c/d)2已知变量A、B、C中C值最小，下列表达式中，可以判断A、B、C的值可否构成三角形三条边长的是：B(A) A=B And B=C And C0 (B) A+CB And B+CA And C0(C) (A+B=C Or A-B0 (D) A+BC And A-B03下列哪个是算术运算符：B(A) Imp(B) Mod(C) Not(D) Eqv 4下列运算符中，优先级最高的是：D(A) Not(B) Is(C) Like(D) &5下列运算符中，属于单目运算符的是：A(A) Not(B) =(C) (D) Mod6假定bln1是逻辑型变量，下面赋值语句中不出错的是：D(A) bln1 = True(B) bln1 = .True. (C) bln1 = #TRUE#(D) bln1 = 347要判断两个整型变量A和B中是否只有一个为零，不能使用下面的哪个表达式：【 h】（A） A * B = 0 And A B（B） (A = 0 Or B = 0) And A B（C） A = 0 And B 0 Or A 0 And B = 0（D） A = 0 Xor B = 0（E） A * B = 0 And A + B 0（F） (A = 0 Or B = 0) And (A 0 Or B 0)（G） Not (A = 0 And B = 0) And (A = 0 Or B = 0)（H） A * B = 0 And (A = 0 Or B = 0)三、填空题1表达式 (-3) Mod 8的值为 -3 。2表达式 A Like A 的值为 false 。(数组)3判断变量X是不是能被5整除的偶数，逻辑表达式可写为 x mod 5=0 and x mod 2 =0 。4已知a、b、c都是整型变量，使用Visual Basic逻辑表达式描述下列条件：a小于b或小于c： ab or ac and bc ；a和b中至少有一个大于c： ac or bc ；a和b中只有一个大于c： ac xor bc ；a是非正数： a=0 ；a不能被b整除： a mod b 0 。5设平面上任意一个点的坐标为(x,y)，写出一个逻辑表达式来判断这个点是否位于图4.3中阴影部分（包括边界）。如果位于阴影部分，表达式的值为True，否则为False。这个表达式为 x*x+y*y =1 and x=-2 and x=-2 and y=2x2-2-2211-1-10图4.3 阴影区域y习题5（控制结构）一、判断题1If与End If关键字必须成对地使用，有一个If就有一个End If与之相对应。F2Do和Loop关键字必须成对使用，有一个Do就必须有一个Loop与之对应。T3For和Exit For必须成对使用，有一个For就必须有一个Exit For与之对应。F4Select Case语句实现的是一种循环结构。F5一个Do循环只能使用一个Loop关键字，但可以使用多个Exit Do语句。T6如果有多重Do循环嵌套，位于最里层循体语句中的Exit Do语句可以跳出所有的循环。F7如果有多重Do循环与For循环嵌套使用，并且Exit For语句位于一个内层Do循环中，则该语句不能从Do循环中跳出。F二、填空题1判断下面4个循环语句分别执行了多少次循环。下面循环执行了 4 次： 1 int2=0 2 For int1 = 1 To -2 Step -1 3 int2 = int2+1 4 Next 下面循环执行了 1 次： 1 int2=0 2 For int1 = 1 To 1 Step -1 3 int2 = int2+1 4 Next 下面循环执行了 1 次： 1 int2=0 2 For int1 = 1 To 10 Step 1 3 Exit For 4 int2 = int2+1 5 Next 下面循环执行了 5 次： 1 Dim i As Integer, j As Integer 2 For i = 1 To 10 Step 1 3 i = i + 1 4 j = j + 1 5 Next 6 Print j2执行下面的程序段，文本框Text1中显示的是 9 。 1 Dim int1 As Integer, int2 As Integer 2 int1 = 1 3 int2 = 0 4 Do While int1 20 5 int2 = int1 + int2 6 int1 = int1 * (int1 + 1) 7 Loop 8 Text1.Text = int23阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是 3 和 3 ；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是 3 和 5 。 1 Private Sub Form_Click() 2 Dim x As Integer, y As Integer 3 x=1 : y=0 4 Do While x 1010 txt2.Text = 值大于1011 Case Else 12 txt2.Text = 值小于013 End Select14 End Sub5下面程序段中，k循环共执行 3 次，在窗体上显示的结果是 515 1 Dim b As Integer, k As Integer 2 Let b = 1 3 For k = 1 To 5 4 Let b = b * k 5 If b = 15 Then 6 Exit For 7 Else 8 Let k = k + 1 9 End If10 Next k11 Print k, b6阅读下面程序，当单击窗体之后，窗体上输出的是 4 。 1 Private Sub Form_Click() 2 Dim i As Integer, j As Integer, k As Integer 3 For i = 0 To 10 Step 3 4 Fo