VB复习资料xsWord文档下载推荐.docx

1、A） B） / C） Mod D） * 3.在 VisuaIBasic中,日期/时间型常量要用 B 括起来. A） B） # C） * D） 4.设 a%=20,b$=”30”,则下列输出结果是”2030”的语句是 D . A） Print str（a） B） Print “a”+b C） Print a+b D） Print a & b 5.设 a=10,b=5,c=1,执行语句 Print a b c 后,窗体上显示的是 B _. A） True B） False C） 1 D） 出错信息 6.语句 Print 5 * 5 5 / 5 的输出结果是 B . A） 5 B） 25 C） 0

2、D） 1 7.语句 Print Sgn（-62） +Abs（-62） +Int（-62） 的输出结果是 C . A） -36 B） 1 C） -1 D） -72 8.表达式 Left（”how are you”,3） 的值是A.A） how B） are C） you D） how are you 9.选拨身高 T 超于1.7 米且体重 W小于 62.5 千克的人,能表示该条件的布尔表达式是C. A） T 1.7 And W=62.5 B） T =62.5 C） T 62.5 D） T 1.7 0r w y和 y z 同时成立,则下述选项中,正确的是D. A） x y .And.y z B）

3、x y z C） x y And z D） x y And y z 14 .满足“当 x 的值是偶数时为真,奇数时为假”要求的表达式是A. A） x Mod 2O B） Not x Mod 2=0 AND a+c b+3 OR NOT d的值是 5】 _.False第3章 VB程序控制结构 书本习题31. InputBox函数返回值的类型为（ B ）。 A.数值 B.字符串 C.变体 D.数值或字符串（视输人的数据而定）2. 设a=6,则执行x=iif （a5,-1,0）后,x的值为（ D ）。 A. 5 B. 6 C.0 D.-13. 假定有以下程序段: For i = 1 To 3 For

4、 j = 5 To 1 Step -1 Print j Next j, i Print j的执行次数是（ A ）。 A. 15 B. 16 C. 17 D. 194. 以下程序段的输出结果为（ B ）。X = 1Y = 4Do Until Y 4 X = X * Y Y = Y + 1LoopPrint XA.1 B. 4 C. 8 D. 201. 语句Print 5*55/5的输出结果是25 。2. 执行下面的程序段后,s的值是 9 。s = 5For i = 2.6 To 4.9 Step 0.6 s = s + 1Next i3. 以下程序段输出的结果是 3 。num = 0While

5、num = 2 num = num + 1WendPrint num4. 以下循环执行的次数是10 。 k = 0 Do While k = 10 k = k + 1 Loop三、实验题1. 编写程序,计算1+2+3+100。Dim i As Integer, sum As Integer sum = 0For i = 1 To 100 tsum = sum + iText1.Text = sum2. 假设我国现有人口12亿,每年增长率为1,计算多少年后增加到20亿。Dim n, s1, s2 s1 = 12: n = 0 Do While s2 = 20 s2 = s1 + s1 * 0.1

6、 s1 = s2 n = n + 1 Print s2, n3. 假设有以下每周工作安排: 星期一、三:讲计算机课 星期二、四:讲程序设计课 星期五:进修英语 星期六:政治学习 星期日:休息编写程序,对上述工作日进行检索。程序运行后,要求输人一周里的某一天,程序将输出这一天的工作安排。输入时用06代表星期日到星期六,如果输人06以外的数,则程序结束运行。Dim msg, rq msg = 请输入一个字母或0-6之间的数字. rq = Val（InputBox（msg） 输入一个数字 Select Case rq Case 2, 4讲计算机课 Case 3, 5讲程序设计课 Case 6进修英语

7、 Case 7政治学习 Case 1休息 Case Else End End Select MsgBox msg第3章 VB程序控制结构补充习题 1. 设 X 初值为 0，则下列循环语句执行后，X 的值等于 A .For i=1 To 10 Step 2 X=X+i Next i A） 25 B） 36 C） 24 D） 27 2. 执行以下程序段时， C . x=1 Do While x0 x=x*x print x; A） 循环体将执行 1次 B） 循环体将执行 0 次 C） 循环体将执行无限次 D） 系统将提示语法错误 3. 有如下程序： Do 循环体 Loop While 则以下叙述中

8、错误的是 A . A） 若“条件”是一个为 0 的常数，则一次也不执行循环体 B） “条件”可以是关系表达式、逻辑表达式或常数 C） 循环体中可以使用 Exit Do语句 D） 如果“条件”总是为 True，则不停地执行循环体 4. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim num As Integer num = 1 Do Until num 6 Print num;num = num + 2.4 Loop End Sub 程序运行后，单击命令 按钮，则窗体上显示的内容是 B . A） 1 3.

9、4 5.8 B） 1 3 5 C） 1 4 7 D） 无数据输出 5. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a- 1 Loop While a = 0 Print s; aEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 C . A）7 9 B） 34 0 C） 9 7 D） 死循环 6. 下列程序段显示 C 个“*”. For i=1 to 5 For j=1 to 3 Print ”*” Next j A） 5 B） 3

10、 C） 15 D） 8 7. 要使下面程序段能正确显示 1！、2！、3！、4！的值，第一行括号处应填写 B . （ ） For j=1 to 4 n=n*j Print n A）n=0 B）n=1 C）j =1 D）j=0 三、编程题 1. 输入三角形的三条边 a，b，c 的值，根据其数值，判断能否构成三角形；若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形和任意三角形. a = Val（InputBox（请输入第一条边长:）b = Val（InputBox（请输入第二条边长:c = Val（InputBox（请输入第三条边长: Print 输入的三个数是:; a; b; cIf

11、 （a + b = c Or a + c = b Or b + c = a） Then输入的三个数不能构成三角形!Else If （a = b And a = c And b = c） Then输入的三个数构成等边三角形! ElseIf （a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or b 2 + c 2 = a 2） Then输入的三个数构成直角三角形! ElseIf （a = b And a c） Or （a = c And b c） Or （b = c And a c） Then输入的三个数构成等腰三角形! Else输入的三个数构成任意三角形! End IfE

12、nd If2. 输入一年份，判断是否为闰年，并显示有关信息.判断闰年的条件是：年份能被4整除但不能被100 整除，或者能被400 整除. 请输入要判断是否为闰年的年号：If （a Mod 4 = 0 And a Mod 100 Max） Then Max = aIf （a Min） Then Min = aPrint a=max= Max;min= Mins = s + ai= i;h= h;s= sNextave = （s - Max - Min） / 5ave= ave4. 一个球从100m高度自由落下，每次落地后反弹回原高度的一半再落下.求它在第 10次 落地时共经过多少米？落地 10次

13、反弹高度是多少.h = 100s = h 1;For i = 2 To 10h = h / 2s = s + 2 * h第四章 VB常用内部控件书本习题4 一、选择题 1.下列控件中，没有Caption属性的是（ B ）。 A.框架 B.列表框 C. 复选框 D.单选按钮 2.将数据项China添加到列表框（Listl）中成为第一项应使用（ A ）语句。 A. Listl.AddItem”China”，0 B. Listl.AddItem”China”，1 C. Listl.AddItem 0，”China” D. Listl.AddItem 1，”China” 3.文本框（Textl ）中有

14、选定的文本,执行Textl. SelText=“Hello”的结果是（ A ）。 A.”Hello”将替换掉原来选定的文本 B.”Hello”将插人到原来选定的文本之前 C. Textl.SelLength为5 D.文本框中只有”Hello” 4.在程序运行期间,如果拖动滚动条上的滚动框,则触发的滚动事件是（C ）。 A. Move B. Change C. Scroll D. GetFocus 5.能改变窗体边框线类型的属性是（ B ）。 A. FontStyle B. BorderStyle C. BackStyle D. Border 6.用户在组合框中输人或选择的数据可以通过一个属性获

15、得,这个属性是（ C ）。 A. List B. ListIndex C. Text D. ListCount 7.设置复选框或单选按钮标题对齐方式的属性是（ B ）。 A. Align B. Alignment C. Sorted D. Value 二、填空题1.图像框中的图形能与图像框的大小相适应，应该把图像框的Stretch属性设置为 true .2.计时器事件之间的间隔通过Interval 属性设置。 3.为了使标签能自动调整大小以显示全部文本内容,应把标签的Autosize 属性设置为True 。 4.要想在文本框中显示垂直滚动条，必须把ScrollBars 属性设置为2,同时还应把

16、Multline 属性设置为True 。 5.在窗体上画一个叉本框和一个图片框，然后编写如下两个事件过程： Private Sub Form Click（ ） Textl.Text=“VB程序设计” End Sub Private Sub Textl Change（0） Picturel .Print”VB Programming”程序运行后，单击窗体，则在文本框中显示的内容是VB程序设计 ，在图片框中显示的内容是VB Programming 6.表示滚动条控件取值范围最大值的属性是Max 。 7. Alignment 属性设置为1，单选按钮和复选框的标题显示在左边。 三、简答题1.框架的作用

17、是什么？如何在框架中建立控件？框架的作用是对窗体上的控件进行分组在框架中建立控件:必须先画框架，然后在框架内画出需要成为一组的控件，这样才能使框架内的控件成为一个整体，和框架一起移动。2.在列表框中添加项目有哪几种方法？1） 在属性栏里设置List属性添加项目; 2） 用AddItem方法添加项目3.组合框有哪几种类型?能否用文本框加列表框实现组合框的功能？3种类型,由style取值决定 取值0：为”下拉式组合框”,可以输人文本或从下拉列表中选择表项。 取值1：为”简单组合框”，列表一直显示在屏幕上，可以选择表项，也可以在编辑区中取值2：为”下拉式列表框”。4.列表框的Columns属性有什么

18、作用？该属性用来确定列表框的列数。设置为0（默认）时，项目呈单列显示;设置为1，项目呈多行多列显示; 设置为大于1，则项目呈单行显示 四、实验题1.在名称为Forml的窗体上画一个图片框（名称为Picturel）、一个垂直滚动条（名称为VScrolll）和一个命令按钮（名称为Commandl,标题为”设置属性”），通过”属性”窗口在图片框中装人一个图形，图片框的宽度与图形的宽度相同，图片框的高度任意（如图4-22所示）。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：Min 100 Max 2400 LargeChange 200 SmallChange 20 之

19、后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图4-22所示。 图4-22运行结果 Private Sub Command1_Click（）VScroll1.Min = 100VScroll1.Max = 2400 VScroll1.LargeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Scroll（）Picture1.Height = VScroll1.Value2.在窗体上画两个命令按钮（其名称分别为Commandl和Command2，标题分别为”添加项目”和”删除项目”），再画

20、一个列表框（名称为Listl）和一个文本框（名称为Textl），如图4-23所示。程序运行后，如果单击”添加项目”命令按钮，则从键盘输人要添加到列表框中的项目;如果单击”删除项目”命令按钮，则从键盘输人要删除的项目，将其从列表框中删除。程序的运行情况如图4-24所示。 图4-23添加控件图4-24运行结果Private Sub Command1_Click（）List1.AddItem Text1.TextText1.Text = Private Sub Command2_Click（）For i = 0 To List1.ListCount - 1If List1.List（i） = Tex

21、t1.Text Then List1.RemoveItem i第四章 VB常用内部控件补充习题 1. 下列控件中没有Caption属性的是 B . A） 框架 B） 列表框 C） 复选框 D） 单选按钮 2. 复选框的Value属性为1时，表示 B . A）复选框未被选中 B）复选框被选中 C）复选框内有灰色的勾 D）复选框操作有误 3. 用来设置斜体字的属性是 A . A） FontItalic B） FontBold C） FontName D） FontSize4. 将数据项“China”添加到列表框 List1 中成为第二项应使用 A 语句. A） List1.AddItem Chin

22、a,1 B） List1.AddItem , 2 C） List1.AddItem 1, D） List1.AddItem 2, 5. 引用列表框List1最后一个数据项，应使用 C 语句. A） List1.List（List1.ListCount） B） List1.List（ListCount） C） List1.List（List1.ListCount-1） D） List1.List（ListCount-1） 6. 在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中 把计时器的Interval属性设置为1000，Enabled属性设置为False，

23、程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间.以下是实现上述操作的程序：Timer1. Private Sub Timer1_Timer（） Text1.Text = Time Timer1 控件的属性及值为 A . A） Enabled=True B） Enabled=False C） Visible=True D） Visible=False 7. 假定在图片框 Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是 B . A） 选择图片框，然后按 Del键 B） 执行语句 Picture1.Picture=LoadPicture（） C） 执行语句 Picture1.Picture=D） 选择图片框，在属性窗口中选择 Picture属性，然后按