程序设计基础VB第1次浙大.docx

1、程序设计基础VB第1次浙大程序设计基础（VB）作业第2章习题一、选择题 1如果把一个人当作对象，那么血型相当于这个对象的_A_。 (A)属性 (B)方法 (C)事件 (D)特征 2下列方法中_A_不能改变窗体的大小。(A) 设计时在“窗体布局”窗口中进行调整 (B) 设计时在“属性”窗口中设置相应的属性(C) 运行时设置相应属性的值 (D) 运行时调用窗体的Move方法 3一个对象可以执行的动作和可被对象识别的动作分别称为_B_。 (A)事件、方法 (B)方法、事件 (C)属性、方法 (D)过程、事件 4在窗体Forml的Click事件过程中有以下语句：Label1.Caption=”Visu

2、al Basic” 若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为_C_。 (A)”Label”、”Label” (B)”Label”、”Caption” (C)”Labell”、”Labell” (D)”Caption”、”Label” 5见上题。该语句执行后，标签控件的Name属性和Caption属性的值分别为_B_。 (A)”Label”、”Visual Basic” (B) ”Label1”、”Visual Basic” (C) ”Label1”、”Caption” (D) ”Labe1”、 ”

3、Label1” 6下面_B_对象没有Caption属性。(A)Form (B)TextBox (C)CommandButton (D)Lable7文本框对象的默认属性是_B_。(A)Name (B)Text (C)Visible (D)Enabled8Visual Basic源程序的续行符是_D_。(A)单引号 (B)双引号 (C)冒号 (D)空格与下划线9下面的动作中，不能引发按钮Click事件的是_B_。(A)在按钮上单击鼠标左键 (B)在按钮上右击(C)把焦点移至按钮上，然后按Enter (D)如果按钮有快捷字母，按”Alt+该字母”二、判断题 1标签控件是专门用来显示信息的，所以不能响

4、应鼠标的单击事件。X 2窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变与窗体的大小和位置有关属性的值。 3窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。 4一条Visual Basic语句如果不超过80个字符是不能续行的。X5在Visual Basic程序中不可能同时出现txtA和txta两个控件名。6，命令按钮支持Click事件，但不支持DblClick事件，所以双击按钮不会有任何反应。X7文本框的Left属性是文本框左边框与屏幕左边框之间的距离（单位为缇）。X8，Visual Basic工程文件的扩展名为.vbp，窗

5、体文件的扩展名为.frm。9语句frmFirst.Move 1000，1200可以把窗体frmFirst水平地移动到坐标为1000单位处，并改变宽度为1200个单位，垂直坐标与高度保持不变。X三、填空题1 要使按钮表面上显示的文字为“确定（O）”，（其中“O”为快捷键），则按钮的Caption属性值应为_”确定(&O)”_(1)_。2 欲将按钮设为默认按钮，应把其 Default（2） 属性值设为 True （3） 。3 要使按钮无效，则可将其Enabled属性设置为 （4）False 。4 文本框中所显示的内容是它 （5）Text 的属性的值。四、编程题新建工程，创建如图21所示的界面。要求

6、编写代码实现如下目的：在四个文本框中输入适当数值，单击“改变”按钮后，窗体移动到由“横坐标”和“纵坐标”文本框确定的位置上，并且窗体的高度与宽度也变为“高度”和“宽度”文本框指定的值。图21 窗体界面保存所建工程、编译为可执行文件，并在Visual Basic集成环境之外运行此程序。图21 窗体界面命令按钮的单击事件过程如下：Private Sub Command1_Click()Form1.Move txtLeft, txtTop, txtWidth, txtHeightEnd Sub命令按钮的单击事件过程的第二种做法如下：Private Sub Command1_Click()Form1.

7、Left = txtLeftForm1.Top = txtTopForm1.Width = txtWidthForm1.Height = txtHeightEnd Sub第3章习题一、选择题1Integer类型的变量可存的最大整数为_D_。 (A)255 (B)256 (C)32 768 (D)32 7672下面的4对数据类型中，_A_所占的内存字节数相等：(A)Integer和Boolean (B)Integer和Single(C)Date和Single (D)Long和Double3下列数据类型中，占用内存最小的是_B_。(A)Boolean (B)Byte (C)Integer (D)S

8、ingle4 _C_数据类型的变量不能存放负值。(A) Integer (B) Single (C) Byte (D)Long5_D_不是字符串常量。(A)”你好” (B)” (C)”True” (D)#False#6下面列出的语句中，没有错误的是_D_。(A)txtl.Text+txt2.Text=txt3.Text (B)cmdAdd.Name=cmdSub(C)12Label.Caption=1234 (D)frmFirst.Move 1000,1000,2000,12007变量名最多不能超过的字符个数为：D(A)10 (B)12 (C)40 (D)2558_C_是日期型常量：(A)”2

9、199” (B)2199 (C)#2199# (D)21999下列语句中，_D_会产生错误。(A) Dim intl As Integer：intl=True (B) Dim strl As string*10：strl=”123.4.5”(C) Dim intl As Integer：intl=”123.4” (D) Dim blnl As Boolean：blnl=”Yes”二、填空题1 下列数据类型的变量各占多少字节的内存：Byte：_1（1）_；Integer：_2_（2）_；Long：_4_（3）_；Single：_4_（4）_；Double：_8_（5）_。2 把整型数1赋给一个逻

10、辑型变量，则逻辑变量的值为 True（6） 。3 刚被声明尚未赋值的日期型变量的值为 #0:00:00# （7） ；逻辑型变量的值为 （8）False ；对象型变量的值为 Nothing （9） ；变体变量的值为 （10）Empty 。4 如果intl是整型变量，则执行intl=”2”+3语句之后，intl的值为 5（11） ；intl=”2”+”3”语句之后，intl的值为 23（12） 。5 把逻辑值True赋给一个整型变量之后，此变量的值会变为 （13）-1 。6 默认情况下，所有未经显示定义的变量均视为 （14）Variant 类型。如果要强制变量的定义，应在模块的声明段使用 （15）

11、Option Explicit 语句。7 如果要在文本框中显示“He said, “Good morning!”.”（注：不包括外层的中文引号，内层是英文双引号），则应使用以下的赋值语句：Text1.Text= “He said,”Goodmorming!”.”（16） 。三、判断题1 在定义符号常量的语句中可以先不赋值，在以后赋值；但是一旦被赋值便不能再赋新值。X2 定义符号常量时给常量赋值可以使用表达式，但不能包含变量和函数调用。3 因为Single类型的变量可表示的范围大于Long类型的变量，所以Single类型占用内存空间大于Long类型。X4 日期时间型变量既可以保存日期值，也可以保

12、存时间值，但不能同时保存日期和时间值。X5 给长度为4的定长字符串变量赋一个长度为8的字符串会产生“溢出”错误。X6 一个变量在刚被声明尚未被赋值之前没有值。X第4章习题一、 求下列表达式的值(已知a=3：b=4：c=5) 1 a+bc And b=c 为False2 1*2+3/422 为23 True = -1为二、 选择题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 _B_是算术运算符。(A) Imp (B) Mod (C)Not (D)Eqv3 下列运算符中，优先级最

13、高的是_D_。(A) Not (B) Is (C)Like (D)&4 下列运算符中，属于单目运算符的是_A_。(A) Not (B)= (C) (D)Mod5 假定bln1是逻辑型变量，下面赋值语句中不出错的是_D_。(A) bln1=True (B) bln1=.True. (C) bln1=#TRUE# (D) bln1=34三、 填空题1 判断变量X是不是能被5整除的偶数，逻辑表达式可写为 （1）(X Mod 5)=0 And(X Mod 2)=0或X Mod 10=0 。2 已知a、b、c都是整型变量，使用Visual Basic 逻辑表达式描述下列条件：a小于b或小于c： （2）a

14、b Or ac And bc ；a和b中至少有一个大于c （4）ac Or bc ；a是非正数： （5）a=0 ；a不能被b整除： （6）a Mod b0 。第5章习题一、判断题 1If与End If必须成对地使用，有一个If就有一个End If与之相对应。X 2Do和Loop关键词必须成对使用，有一个Do就必须有一个Loop与之对应。 3For和Exit For必须成对使用，有一个For就必须有一个Exit For与之对应。X4Select Case 语句实现的是一种循环结构。X5一个Do循环只能使用一个Loop关键字，但可以使用多个Exit Do语句。 6如果有多重Do循环嵌套，位于最里层

15、循环体语句中的Exit Do语句可以跳出所有的循环。X 7如果有多重Do循环与For循环嵌套使用，并且Exit For语句位于一个内层Do循环中，则该语句不能从Do循环中跳出。X二、填空题1执行下面的程序段，文本框Textl中显示的是 （1）9 。Dim intl As Integer，int2 As Integerintl = 1int2 = 0Do While intl20 int2 = intl + int2 intl = intl * (intl + 1)LoopText1.Text = int22阅读下面的事件过程。单击窗体后，在文本框Textl和Text2中显示的内容分别是 (2)

16、 3 和 （3）3 ；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在文本框Textl和Text2中显示的内容分别是 3（4）和 5（5） 。 Private Sub Form_Click() Dim x As Integer，y As Integer x=1：y=0 Do While x10 txt2.Text=”值大于10” Case Else txt2.Text=”值小于0” End SelectEnd Sub4下面程序段中，k循环共执行 (9) 3 次，在窗体上显示的结果是 (10)5 15 。Dim b As Integer，k As IntegerLet b=1For

17、 k=1 To 5 Let b=b*k If b=15 Then Exit For Else Let k=k+1 End If Next k Print k，b5阅读下面程序，当单击窗体之后，窗体上输出的是 (11)4 。Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 0 To 10 Step 3 For j = 1 To 10 If j = 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next If i 8 Then Exit F

18、or Next Print kEnd Sub三、编程题1 编程计算的值，其中n=20。Private Sub Command1_Click() Dim sngAmount As Single Dim int1 As Integer sngAmount=0 For int1= 1 To 20 sngAmount=sngAmount+1/int1/(int1+1) Next int1 Text1.Text=sngAmount End Sub结果为0.95238112 某公司每年的销售收入均比前一年增长10个百分点，按此增长率，需要多少年实现销售收入翻两番的目标？Private Sub Comman

19、d1_Click() Dim sng1 As Single Dim int1 As Integer Sng1=1 Do Sng1= sng1*1.1 Int1=int1+1 Loop Until sng14 Print int1 End Sub结果为15年 第6章习题一、选择题 1Sub过程与Function过程最根本的区别是_D_。 (A)前者可以使用Call或直接使用过程名调用，后者不可以 (B)后者可以有参数，前者不可以 (C)两种过程参数的传递方式不同 (D)前者无返回值，但后者有返回值 2在定义函数过程时，不可能用到的关键字是_C_。(A)Exit (B)As (C)Sub (D)E

20、nd3在定义通用过程时，下列关键字中不能用来修饰形参的是_D_。(A)ByVal (B)ByRef (C)Optional (D)Static二、判断题1如果过程的一个形参使用了ByRef修饰，且调用时相应的实参是一个变量，则实参的变量的数据类型必须与形参相同。2因为函数有返回值，所以只能用在表达式中，不能使用Call语句调用。X3事件过程只能在事件发生时由系统调用，不能在程序中使用代码直接调用。X4在函数过程中，如果不给函数名赋值，则函数不返回任何值。X 5定义通用过程时有几个形参，则调用该过程时就必须提供几个实参。X三、填空题1 在过程调用中，参数的传递可分为按值传递和按地址传递两种方式，

21、其中按地址传递 （1） 是默认方式。使用 ByVal（2） 关键字来修饰形式参数，可以使之按值传递。2 阅读下面程序，当Value过程形参前有ByVal关键字时，单击窗体，在窗体上显示的第一行内容是 （3）20 10 ，第二行内容是 （4）10 15 。若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是 20 10（5） ，第二行内容是 （6）20 10 。Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2: n = n - 5 Print m, n End SubPriva

22、te Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call Value(x, y) Print x, yEnd Sub3下面是一个按钮的事件过程，过程中调用了自定义函数。单击按钮在窗体上输出的结果第一行是 （7）1 6 ，第五行是 （8）5 26 。Private Sub Command1_Click() Dim x As Integer, y As Integer Dim n As Integer, z As Integer x = 1: y = 1 For n = 1 To 6 z = f1(x, y) Pr

23、int n, z NextEnd SubPrivate Function f1(x As Integer, y As Integer) As Integer Dim n As Integer Do While n = 4 x = x + y n = n + 1 Loop f1 = xEnd Function程序设计基础（VB）作业第1章习题1 什么是对象？什么是对象的属性、方法和事件？答；是在程序设计思想中，自然界中所有的事物（包括计算机）都可以被看做一个的对象（Object）.如：人、杯子、桌子，程序界面中的文本框、单选框、复选框和按钮也是对象。,属性是一个对象所具有的性质、特征。方法是对象

24、所具有的动作和行为。事件是对象能够识别并作出反应的外部刺激。2 Visual Basic有哪些不同的版本，你上机使用的是哪一个版本？答；有纵向版本，如VB1.0、VB3.0、VB5.0以及VB6.0，在Visual Basic语言的发展过程中，每一次大的改进都伴有新版本的诞生。这种版本从时间上可以看成“纵向版本”。有横向版本，其中又分为本地化版本和不同类型用户版本。在同一个“纵向版本”下还有不同的“横向版本”。例如，同样是Visual Basic 6.0，Microsoft公司针对不同的国家和地区对它进行了“本地化”，有Visual Basic 6.0简体中文版、Visual Basic 6.

25、0繁体中文版、Visual Basic 6.0日文版等 。除了推出Visual Basic 的“本地版”，Microsoft还为不同类型的用户提供了不同的版本，如Visual Basic 6.0有学习版（Learning Edition）、专业版（Professional Edition）和企业版（Enterprise Edition）。我使用的是Visual Basic 6.0中文专业版。第2章习题四、简答题1什么是注释？Visual Basic 程序的注释符是什么？为什么要使用注释？答；在程序中添加的说明文字。Visual Basic把“”（英文的单引号）作为注释符。注释内容主要用来解释语

26、句、过程的作用，以便他人或开发者本人日后能够读懂程序。2Visual Basic中续行符是什么？为什么要续行？注释行能不能使用续行符？答：是“-”（空格与下划线）。因为代码编辑器中文本不自动换行，太长的语句不能在窗口中方便地查看，需要把一条语句分两行或多行书写，在每个未完的行末加续行符。可以使用续行符。3，图2.1所示的界面是由多少个控件组成的？它们的类型名分别是什么？答：1个窗体、4个标签、4个文本框、1个命令按钮第3章习题四、找出合法的变量名3M，e，PI，OK，DIM，dim，+a，we$，_name，a+b第5章习题三、编程题3 编程计算1-2+3-4+5-6n的值，其中n由文本框输入

27、()。Private Sub Command1-Click() Dim intN As IntegerDim int1 As Integer Dim intSum As IntegerDim intSng As Integer intSng=1 intN=CInt(Text1.Text) For int1=1 To intN intSum=intsum+intsng*int1 intSng= -intSng Nxet int1 Text2.Text=intSumEnd Sub4 编程计算的值Private Sub Command1-Click() Dim int1 As Integer Dim

28、 Sng1 As Single Sng1=0 For int1=1 To 10 Sng1=sng1+int1int1 Nxet Text1.Text=sng1End Sub结果为1.040507E+10第8章习题一、选择题1下列对象中_B_在运行时一定是不可见的。 (A)Line (B)Timer (C)Shape (D)Frame2下面各类型对象中，没有Move方法的是_C_。(A)Form (B)Shape (C)Line (D)Image3列表框控件的下列几个属性中，_B_不是数组。 (A)List (B)ListIndex (C)Selected (D)ItemData4向列表框中添加一个条目，应使用列表框的_B_方法。(A)InsertItem (B)AddItem (C)AppendItem (D)RemoveItem5下列的控件中，不具有Caption属性的是_A_。 (A)ListBox (B)CheckBox (C)Frame (D)OptionButton6下面