发布时间 : 星期六 文章《VB程序设计》综合复习资料习题更新完毕开始阅读
Case 70 To 79 A$ = \ Case 80 To 89 A$ = \ Case Else A$ = \ End Select Print A$
End Sub
2、读下面的程序，分析其功能，写出运行结果。
在窗体上有一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I
Print Chr$(65 + I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？ 3、阅读下面的程序，分析并写出其功能。
Sub insert(a() As Single,ByVal x As Single) Dim m as integer,n as integer n=1
Do While n<20 And x>a(n) n=n+1 Loop
For m=20-1 To n Step -1 a(m+1)=a(m) Next m a(n)=x
End Sub
4、分析以下程序，写出运行结果。 Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7
a (4)=8 subP a()
For i =1 To 4 Print a(i) Next i End Sub
运行上面的程序，单击命令按钮，输出结果是什么？ 5、分析以下程序，写出运行结果。 Sub sele()
Dim n as Integer i=21:n=3 Do While i>n i=i－n Loop Print i End Sub
6、分析以下程序，写出运行结果。 Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2
If(a>=b)and(a>=c) or (b>c) Then Print a a=a+2
Else Print b EndIf Print a;b;c End Sub
7、分析以下程序，写出运行结果。 Sub swap()
Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z
Print x,y,z End Sub
8、分析以下程序，写出运行结果。 Sub selectPrint() Dim a as Integer
Dim b as Integer Dim c as Integer a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a Print a,b,c End Sub 五、编程题
1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。
2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。
3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。 4、在窗体中显示从9号字型到16号字型。
5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。 6、编程实现二维数组转置。
7、随机输入10个100以内的整型数，计算其和及平均值。
8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。
9、从键盘输入一个大于2的正整数，判断该数是否是素数。 10、求二维数组中的最小值及其所在行号、列号。
11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。 12、输入一个正整数n，计算出n!并输出。
13、Faibonacci数列为0，1，1，2，3，5，8，13 ...，计算并输出第20项以及前20项的和。
第四章 常用控件与窗体 一、填空题
1、向列表框控件添加新项目的方法是__________。
2、在VB中，最主要的两种对象是____________和____________。
3、当窗体启动时可通过__________属性控制窗体位于所有者的中心位置。
4、若要将窗体Form1隐藏起来，则可通过执行代码_________________来实现。 5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。
6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为__________。 7、在标签控件中通过编程使文字换行用的代码是___________________。 8、设置计时器控件只能触发______________________事件。
9、设置计时器对象触发事件的时间间隔用_____________________属性。 10、滚动条控件主要支持两个事件，它们是_______________事件。 11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。
12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。 （1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上： Private Sub Command1_Click( ) List.__________(7)=True Print List1.______________ End Sub
（2）单击列表框某一项时立即将该项打印在窗体上： Private Sub List1_Click( ) Print_______________ End Sub
（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项： Private Sub Command1_Click( ) For I=1 To 5
List1.____________ Next I End Sub
（4）在列表框的每一项之后插入一个新的项： Private Sub Command1_Click( ) For I=1 to 10
X=InputBox(\请输入插入的第\项内容\List1.AddItem____________ Next I End Sub
13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.__________________( ) Label1.Caption = Hscroll1.___________________ End Sub
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1.________________( ) Label1.Caption = Hscroll1.__________________ End Sub
14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中__ __属性存放了列表框中所有项目的值。
15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是__ __。
16、keydown与keypress事件各有其参数，若需获得用户按下 \还是 \需用____________事件。
17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。
19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。