VB程序设计练习题附加答案 下载本文

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

第 16 页 共 32 页

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以内的整型数,计算其和及平均值。

第 17 页 共 32 页

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

第 18 页 共 32 页

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(“请输入插入的第” & I & “项内容”) List1.AddItem____________ Next I End Sub

13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时,标签内容能够反映滚动条的值,补齐以下代码。

Private Sub Hscroll1.__________________( )

Label1.Caption = Hscroll1.___________________ End Sub

要使拖动滚动条滑块时标签内容能够反映滚动条的值,补齐以下代码。

Private Sub Hscroll1.________________( )

第 19 页 共 32 页

Label1.Caption = Hscroll1.__________________ End Sub

14、列表框(ListBox)用于列出可供选择的项目的列表,用户可以选择一个或多个项目。它具有几个非常重要的数组属性,其中__ __属性存放了列表框中所有项目的值。 15、菜单项一般由标题、访问键、快捷键和复选标志等构成,通过对相应的属性进行设置可以改变这些项目的状态,其中与复选标志相对应的属性是__ __。

16、keydown与keypress事件各有其参数,若需获得用户按下 \还是 \需用____________事件。

17、控件________组合了文本框和列表框的功能,是VB中一种功能非常强大的选择类控件。 18、若需要将窗体Form2以模态窗口的形式显示出来,可通过执行代码_________________来实现。

19、菜单中的分隔条是一种菜单控件,不响应__________事件,不能被选中。

二、选择题

1、当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到( )

A.MouseDown

B.MouseUp

C.Load

D.Click

2、窗体Form1的Name属性是Frm1,它的单击事件过程名是( )

A.Form1_Click B.Form_Click C.Frm1_Click D.Me_Click 3、用于设置通用对话框控件显示文件类型的属性是( )

A.Filter B.Path C.Partern D.FoleName 4、用于从内存删除窗体的命令是( )

A.Move B.Hide C.Unload D.Delete 5、用于返回窗体可用区域宽度的属性是( )

A.ScaleWidth B.ScaleLeft C.ScaleHeight D.ScaleTop 6、下列关于属性设置的叙述错误的是:( )

A.一个控件具有什么属性是VB预先设计好的,用户不能改变 B.一个控件具有什么属性是VB预先设计好的,用户可以改变 C.一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置

第 20 页 共 32 页