期末复习之VB编程题汇总

1、第2章补充实验1、设计程序， 在窗体上建立3个命令按钮，隐藏最小化、最大化按钮，如图1所示。单击3个命令按钮后分别使窗体最大化、还原或最小化。最后将工程文件、窗体文件分别以ch2-1.vbp、ch2-1.frm为文件名保存在D:ch2文件夹下。图1参考代码：Private Sub Command1_Click() Form1.WindowState = 2End SubPrivate Sub Command2_Click() Form1.WindowState = 0End SubPrivate Sub Command3_Click() Form1.WindowState = 1End Sub

2、2、设计程序， 在窗体上建立3个命令按钮，3个文本框，如图2、图3所示。利用2个文本框输入两个数，单击“计算”按钮时，将两个数的平方和显示在第三个文本框中；单击“清除”按钮，清除所有文本框的内容；单击“定位”按钮，将光标定位到第二个文本框中。最后将工程文件、窗体文件分别以ch2-2.vbp、ch2-2.frm为文件名保存在D:ch2文件夹下。图2图3参考代码：Private Sub Command1_Click() Text3 = Text1 2 + Text2 2End SubPrivate Sub Command2_Click() Text1 = Text2 = Text3 = End S

3、ubPrivate Sub Command3_Click() Text2.SetFocusEnd Sub3、设计一个调色板程序， 在窗体上建立5个命令按钮，1个标签，如图4所示。单击对应的颜色按钮，将在标签中显示对应的颜色。最后将工程文件、窗体文件分别以ch2-3.vbp、ch2-3.frm为文件名保存在D:ch2文件夹下。图4参考代码：Private Sub Command1_Click() Label1.BackColor = vbRedEnd SubPrivate Sub Command2_Click() Label1.BackColor = vbGreenEnd SubPrivate

4、Sub Command3_Click() Label1.BackColor = vbBlueEnd SubPrivate Sub Command4_Click() Label1.BackColor = vbBlackEnd SubPrivate Sub Command5_Click() Label1.BackColor = vbWhiteEnd Sub第5章补充实验1、设计一个程序，要求如下：产生10个2位随机正整数；在窗体上分别输出10个2位随机正整数的正序和逆序；求出这10个数的平均值ave、最大值max和最小值min，并输出到一个标签上；窗体的参考运行结果界面如图1所示。最后将工程文件、

5、窗体文件分别以ch5-1.vbp、ch5-1.frm为文件名保存在D:ch5文件夹下。图1 参考运行结果界面参考代码：Option Base 1Private Sub Command1_Click() Dim a(10) As Integer, ave!, max%, min%, i% Randomize Print 10个数的正序为：; For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 ave = ave + a(i) Print a(i); Next ave=ave/10 Print Print 10个数的逆序为：; For i = 10 To 1 Ste

6、p -1 Print a(i); Next Print max = a(1): min = a(1) For i = 2 To 10 If a(i) max Then max = a(i) Else min = a(i) End If Next Label1 = 平均值： & ave & vbCrLf & 最大值： & max & vbCrLf & 最小值： & minEnd SubPrivate Sub Command2_Click() EndEnd Sub2、编写程序产生44矩阵A，输出矩阵A，以及矩阵A的上三角矩阵和下三角矩阵。程序参考运行结果界面如图2所示。最后将工程文件、窗体文件分别

7、以ch5-2.vbp、ch5-2.frm为文件名保存在D:ch5文件夹下。图2 参考运行结果界面参考代码：Option Base 1Private Sub Command1_Click() Dim a%(4, 4), b%(4, 4), i%, j% For i = 1 To 4 产生数组A For j = 1 To 4 a(i, j) = 4 * (i - 1) + j Next j Next i Print 产生的矩阵A为：; 输出数组A For i = 1 To 4 For j = 1 To 4 Print Tab(10 + j * 4); a(i, j); Next j Print N

8、ext i Print 它的上三角矩阵为： 输出数组A的上三角矩阵 For i = 1 To 4 For j = i To 4 Print Tab(10 + j * 4); a(i, j); Next j Print Next i Print 它的下三角矩阵为： 输出数组A的下三角矩阵 For i = 1 To 4 For j = 1 To i Print Tab(10 + j * 4); a(i, j); Next j Print Next iEnd Sub第3章补充实验11、设计程序，求出VB系统赋给各种类型变量的默认值，将工程文件、窗体文件分别以ch31-1.vbp、ch31-1.frm

9、为文件名保存在D:ch31文件夹下，并根据程序的运行结果及所学的知识填写表1。表1类 型类型名类型符默认值字节型Byte无0整型Intege%0长整型Long&0单精度型Single!0双精度型Double#0货币型Currency0字符串型String$“”逻辑型Boolean无False日期型Date无0:00:00对象型Object无无变体型Variant无“”参考结果与代码：Private Sub Command1_Click() Dim a As Byte, b%, c&, d!, e#, f, g$ Dim h As Boolean, i As Date, j As Object,

10、 k As Variant Print a=; a, b=; b, c=; c, d=; d, e=; e Print f=; f, g=; g, h=; h, i=; i, k=; kEnd Sub第3章补充实验21、设计程序，求解一元二次方程ax2+bx+c=0的实根（假定判别式0），窗体参考界面如图1、图2所示。最后将工程文件、窗体文件分别以ch32-1.vbp、ch32-1.frm为文件名保存在D:ch32文件夹下。图1 窗体界面图2 参考运行结果界面参考代码：Private Sub Command1_Click() Dim a!, b!, c!, d!, x1!, x2! a = T

11、ext1 b = Text2 c = Text3 d = b * b - 4 * a * c x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a Text4 = x1 Text5 = x2End SubPrivate Sub Command2_Click() EndEnd Sub2、修改题1中程序，改用inputbox函数输入a,b,c的值，输出x1、x2的值改用msgbox函数，程序参考界面如图3、图4所示。最后将工程文件、窗体文件分别以ch32-2.vbp、ch32-2.frm为文件名保存在D:ch32文件夹下。图3 输入界面图4 参考运

12、行结果界面参考代码：Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2! a = InputBox(a=) b = InputBox(b=) c = InputBox(c=) d = b * b - 4 * a * c x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a MsgBox (x1= & x1 & , x2= & x2)End Sub3、设计程序，从键盘上输入3位的正整数，单击“求解”按钮，则能分解出该3位数的个位、十位和百位，单击“退出”按钮，则结束程序运行。窗体参考界面如图5

13、、图6所示。最后将工程文件、窗体文件分别以ch32-3.vbp、ch32-3.frm为文件名保存在D:ch32文件夹下。图5 窗体界面图6 参考运行结果界面参考代码：Private Sub Command1_Click() Dim n%, x%, y%, z% n = Text1 x = n 100 y = (n - x * 100) 10 z = n - 100 * x - y * 10 Text2 = x: Text3 = y: Text4 = zEnd SubPrivate Sub Command2_Click() EndEnd Sub第4章补充实验11、设计程序，计算如下函数的值：y=

14、lnx x0ex x0要求如下：(1)使用inputbox函数输入x的值，使用msgbox显示函数y的值。(2)使用单分支if-then-end if语句实现分支功能。(3)窗体参考界面如图1、图2所示。(4)将工程文件、窗体文件分别以ch41-1.vbp、ch41-1.frm为文件名保存在D:ch41文件夹下。图1 窗体运行界面图2 参考运行结果界面参考代码：Private Sub Form_Click() Dim x!, y! x = Val(InputBox(x=) If x 0 Then y = Log(x) End If If x 0 Then y = Log(x) Else y =

15、 Exp(x) End If MsgBox (x= & x & ,y= & y)End Sub3、设计程序，求解一元二次方程ax2+bx+c=0，要求如下：(1)当判别式0时，用msgbox显示“判别式0，方程无实根！”，单击“确定”按钮后清空三个文本框；当判别式0时，求出两实根。(2)使用if-then-else-end if语句实现分支功能。(3)窗体参考界面如图3、图4、图5所示。(4)将工程文件、窗体文件分别以ch41-3.vbp、ch41-3.frm为文件名保存在D:ch41文件夹下。图3 窗体界面图4 参考运行结果界面1图5 参考运行结果界面2参考代码：Private Sub Co

16、mmand1_Click() Dim a!, b!, c!, d!, x1!, x2! a = Val(Text1) b = Val(Text2) c = Val(Text3) d = b * b - 4 * a * c If d 0 Then MsgBox (判别式0，方程无实根！) Text1 = : Text2 = : Text3 = Else x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a Text4 = x1 Text5 = x2 End IfEnd SubPrivate Sub Command2_Click() EndEnd

17、Sub4、修改题3中程序，要求如下：(1)改用inputbox函数输入a,b,c的值，输出x1、x2的值改用msgbox函数。(2) 当a=0时，用msgbox显示“a=0,不是一元二次方程！”；当判别式0时，用msgbox显示“判别式0，方程无实根！”；当判别式0时，求出两实根，并用msgbox显示。(3)使用if-then-elseif-end if语句实现分支功能。(4)窗体参考界面如图6、图7、图8、图9所示。(5)将工程文件、窗体文件分别以ch41-4.vbp、ch41-4.frm为文件名保存在D:ch41文件夹下。图6输入界面图7 参考运行结果界面1图8 参考运行结果界面2图9 参

18、考运行结果界面3参考代码：Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2! a = InputBox(a=) b = InputBox(b=) c = InputBox(c=) d = b * b - 4 * a * c If a = 0 Then MsgBox (a=0,不是一元二次方程！) ElseIf d 的最小n值。要求使用While Wend语句编写程序实现，窗体界面自行设定。最后将工程文件、窗体文件分别以ch42-4.vbp、ch42-4.frm为文件名保存在D:ch42文件夹下。参考代码：Private Sub Form_

19、Click() Dim n%, s& While s 0 Then Label1.Left = Label1.Left - 50 Else Label1.Left = Form1.Width End IfEnd Sub3、修改题2中的程序代码，使标签能在窗体内向左向右来回循环滚动。最后将工程文件、窗体文件分别以ch73-3.vbp、ch73-3.frm为文件名保存在D:ch73文件夹下。参考代码1：Private Sub Form_Load() 初始化计时器 Timer1.Enabled = True Timer1.Interval = 100 Timer2.Enabled = False T

20、imer2.Interval = 100End SubPrivate Sub Timer1_Timer() 编写计时器的Timer 事件使标签向左移动 If Label1.Left = 0 Then Label1.Left = Label1.Left - 50 Else Timer1.Enabled = False Timer2.Enabled = True End IfEnd SubPrivate Sub Timer2_Timer() 编写计时器的Timer 事件使标签向右移动 If Label1.Left + Label1.Width = 0 And Label1.Left + Label

21、1.Width = Form1.Width Then Label1.Left = Label1.Left - t ElseIf Label1.Left Form1.Width Then Label1.Left = Form1.Width - Label1.Width t = -t End IfEnd Sub第7章补充实验41、图片框的应用。在窗体上创建1个列表框、1个文本框、3个标签、2个命令按钮，窗体运行界面如图1所示。要求如下：(1)文本框用于输入选课学生姓名，列表框用于显示并选择课程，图片框用于输出选课信息。 (2)单击“选课”按钮，将文本框中输入及列表框中选定的信息在图片框中输出；单击

22、“清空”按钮，将清除文本框及图片框中的信息。(3)最后将工程文件、窗体文件分别以ch74-1.vbp、ch74-1.frm为文件名保存在D:ch74文件夹下。图1参考代码：Private Sub Command1_Click() Picture1.Print 学生姓名: Picture1.Print Tab(4); Text1 Picture1.Print 已选课程: For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then Picture1.Print Tab(4); List1.List(i) End If NextEnd Sub

23、Private Sub Command2_Click() Text1 = Picture1.ClsEnd SubPrivate Sub Form_Load() List1.AddItem 电子商务 List1.AddItem 网页制作 List1.AddItem 计算机网络 List1.AddItem 多媒体技术 List1.AddItem VB程序设计 List1.AddItem C程序设计End Sub2、图片框及图像框的应用。给出8个图像文件，创建图2的窗体，窗体运行时能在图片框中循环，运行界面如图3所示。要求如下：(1)计时器控制每秒显示一张图像。 (2)单击“暂停”按钮，暂停浏览人物

24、图像；单击“继续”按钮，继续浏览人物图像；单击“结束”按钮，结束窗体运行。(3)最后将工程文件、窗体文件分别以ch74-2.vbp、ch74-2.frm为文件名保存在D:ch74文件夹下。图2图3参考代码：Private Sub Command1_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Command2_Click() Timer1.Enabled = TrueEnd SubPrivate Sub command3_Click() EndEnd SubPrivate Sub Timer1_Timer() Static i If i =

25、8 Then i = 0 Picture1.Picture = Image1(i).Picture 图形框装入某张图片 Else Picture1.Picture = Image1(i).Picture 图形框装入某张图片 End If i = i + 1End Sub实验二 VB可视化语言编程基础三、实验举例 按要求完成以下的各实例操作，并将所有生成的文件保存在D:EX2文件夹下。【实例2.1】窗体的常用事件练习。创建一个新的工程，窗体使用默认名称Form1。程序运行时，要求如下：1）启动程序时，窗体的背景色变为红色。2）当单击窗体时，窗体的背景色变为绿色。3）当双击窗体时，窗体的背景色变为

26、蓝色。窗体文件保存为f1.frm，工程文件保存为L1.vbp。【实例2.2】新建工程，在窗体上创建4个命令按钮Command1、Command2、Command3、Command4，要求如下：1）在属性窗口中设置4个命令按钮上的文字分别为“向上移动”、“向下移动”、“向左移动”和“向右移动”。2）编写事件过程，运行程序后，每次单击“向上移动”则窗体向上移动100twip；每次单击“向下移动”则窗体向下移动100twip；每次单击向左移动”则窗体向左移动50twip；每次单击“向右移动”则窗体向右移动50twip。窗体文件保存为f2.frm，工程文件保存为L2.vbp。【实例2.3】新建工程，在

27、窗体上创建两个命令按钮Command1、Command2，一个标签Label1，要求如下：1）在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”。 2）编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见。3）编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”。窗体文件保存为f3.frm，工程文件保存为L3.vbp。【实例2.4】创建一个新工程，窗体名称为Form1；其Caption属性设置为“Move方法练习”。单击窗体时，窗体向屏幕的右下角移动，同时窗体的长、宽也缩小为原来的一半。窗体文件保存

28、为f4.frm，工程文件保存为L4.vbp。【实例2.5】设计一个如图2-3所示的窗体，单击确定按钮时，在窗体的标题栏显示用户输入的各项数据。窗体文件保存为F5.frm，工程文件保存为L5.vbp。四、实验题目 按要求完成以下的各操作，并将所有生成的文件保存在D:EX2文件夹下。【题目 2.1】练习在窗体上添加、删除多个控件对象，并调整控件的位置、大小，利用“格式”菜单中的命令对齐控件。【题目 2.2】新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，

29、文字颜色改为红色。2）单击“改变字体”按钮，标签上的字体改为“黑体”。图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:EX2文件夹下。参考代码：Private Sub Command1_Click() Label1 = 颜色已经改变 Label1.ForeColor = vbRed 或者 rgb(255,0,0)End SubPrivate Sub Command2_Click() Label1.FontName = 黑体End Sub【题目 2.4】设计一个留言薄。新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的