VB程序设计阶段性作业

1、精选优质文档-倾情为你奉上中国地质大学(武汉)远程与继续教育学院VB程序设计课程作业3（共 4 次作业）学习层次：专升本 涉及章节：第8章 第9章一、判断题1声明形参处缺省传递方式声明，则为按值传递（Byval）。2过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。3虽然标签控件显示的文本在运行时不能编辑，但是可以通过程序代码进行改变。标拖动控件来定位。4要在文本框中输入6位密码，并按回车键确认，则文本框的MaxLength属性可设置为6。5单选钮能响应Click事件，但不能响应KeyPress事件。6移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top

2、属性值也随之改变。7从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。 8用户可拖动滚动条的滚动滑块来改变滚动条的Value值，在移动滚动滑块时，发生Change事件。9由于定时器控件在运行时是不可见的，因此在设置时可将其放在窗体的任何位置。二、选择题1将焦点主动设置到指定的控件或窗体上，应采用 方法。A、SetDate B、SetFocus C、SetText D、GetGata 2要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置 属性。A、AutoSize B、MultiLine C、Alignment D、Visible3要使复选框控件不响应Click事

3、件，可设置复选框的 属性。A、Appearance B、Style C、Enabled D、TabIndex4以下 语句将删除列表框List1中的最后一项。A、List1.RemoveItem List1.ListCount B、List1.ClearC、List1.List(List1.ListCount-1)= D、List1.RemoveItem List1.ListCount-15设计动画时通常用定时器控件 属性来控制动画速度。A、Interval B、Timer C、Move D、Enabled三、填空题1调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用 （按值传递/按

4、地址传递）方式。2在窗体Form1的过程中引用窗体Form2中的全局变量y，写作 。3运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过 属性来实现。4要让控件隐藏起来，处于不可见状态，可修改其 属性。5运行时单击复选框，将使复选框的Value值取 。6当列表框的MultiSelect属性值为 时，单击列表项或按空格键可以实现复选。7拖动滚动条的滚动滑块时仅发生 事件。8定时器控件只能接收 事件。9定时器的Interval属性值不得大于 。四、程序阅读题（写出下列程序的运行结果）程序1. 请写出在Text1、Text2、Text3中依次输入3、4、5后，单击窗体时Label1的显示结果

5、。Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = Text1.Text: b = Text2.Text: c = Text3.Text Label1.Caption = Str(a * a + 2 * b * b + 3 * c * c)End Sub程序2. 写出程序运行时，单击Option1(2)后，窗体上的显示结果。Private Sub Form_Load() Option1(0).Value = False: Option1(1).Value = False: Option1(2).Valu

6、e = FalseEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Check1(0).Value = 1: Check1(1).Value = 0 Case 1 Check1(0).Value = 0: Check1(1).Value = 1 Case 2 Check1(0).Value = 1: Check1(1).Value = 1 End Select If Check1(0).Value = 1 Then Print 您好 If Check1(1).Value = 1 Then Pr

7、int 欢迎使用Visual Basic!End Sub程序3. 写出程序运行时，在组合框中输入“香蕉”并按回车键后，列表框中的所有表项。Private Sub Form_Load() Combo1.AddItem 西瓜: Combo1.AddItem 苹果: Combo1.AddItem橘子 Combo1.AddItem 葡萄: Combo1.AddItem 哈密瓜 Combo1.AddItem 火龙果: Combo1.AddItem 柚子 Combo1.List(0) = 李子: Combo1.List(7) = 猕猴桃End SubPrivate Sub Combo1_KeyPress(

8、KeyAscii As Integer)Dim i As IntegerIf KeyAscii = 13 Then Combo1.List(Combo1.ListCount) = Combo1.TextList1.ClearFor i = 0 To Combo1.ListCount - 1If Len(Trim(Combo1.List(i) =5 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer) n = n + 1 Print n=; nEnd Sub五、程序填空题1【程序说明】窗体上已建立命令按钮Command1（

9、开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, p As Byte Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text:

10、n = Len(str1) For i = 1 To n: （1） : Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then （2） Next j If p i Then t = a(i): （3） : a(p) = t Next i For i = 1 To n: Print a(i);: Next i （4） Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Comman

11、d2.Enabled = FalseEnd Sub2【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。Dim x As LongPrivate Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x

12、 = 0 （1） End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = （2） m = （3） s = x Mod 3600 Mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒End SubPrivate Sub Timer1_Timer() （4） Label1.Caption = xEnd Sub3【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：（1）运行时

13、标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。（2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval = 100End SubPrivate Sub Timer1_Timer() Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) （1） = Label1.Left + 150 If Label1.Left = Form1.Width Then （2） End Sub

14、六、程序设计题1在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用Visual Basic！”，同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。2编制一个演示文本操作的程序，界面如图10-3所示，要求各命令按钮为一个控件数组。（1）程序刚运行时3个命令按钮均不能响应。（2）当选择文本之后Label1显示响应的提示，“剪切”和“复制”按钮能够响应。（3）单击“剪切”或“复制”按钮后，所有按钮中只有“粘贴”按钮能响应。（4）单击“粘贴”按钮后，3个命令按钮

15、都不能响应。图10-3 程序设计题5的窗体界面3编制1个用于进制转换的应用程序，运行时的界面如图10-6所示。 图10-5 程序设计题8的界面设计 图10-6 程序设计题9的界面设计4设计一个字幕推出程序。程序界面如图10-7所示，标签的字号在定时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件。字号放大的速度由水平滚动条控制，部分程序已经设计如下：Private Sub Form_Load() Label1.Left = Width / 2 - Label1.Width / 2 Label1.AutoSize = True HS

16、croll1.Min = 1: HScroll1.Max = 1000 HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500End Sub请设计其他事件过程。图10-7 程序设计题10的界面设计参考答案一、判断题1 2 3 4 5 6 7 8 9二、选择题1B 2B 3C 4D 5A三、填空题1按值传递 2Form2.y3Enabled 4Visible 50或1 61 7Scroll8Timer 965535四、程序阅读题（写出下列程序的运行结果）程序

17、1 116 程序2. 您好欢迎使用Visual Basic!程序3. 李子 苹果 橘子葡萄柚子香蕉程序4.y = 6y = 14程序5.n = 1n = 3n = 5五、程序填空题1（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1) （2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2（1）Timer1.Enabled = True （2）x 3600 （3）(x Mod 3600) 60 或 (x - 3600 * h) 60 （4）x = x + 1 3（1）Label1.Lef

18、t （2）Label1.Left = -Label1.Width六、程序设计题程序1. 界面设计略，过程设计如下：Private Sub Command1_Click() If Command1.Caption = 显示 Then Print 欢迎使用Visual Basic！: Command1.Caption = 清除 Else Form1.Cls: Command1.Caption = 显示 End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()Form1.Cls: Command1.Capt

19、ion = 显示: Command2.Caption = 退出End Sub程序2界面设计如图10-3所示，过程设计如下：Private Sub Form_Load() Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = False: Label1.Caption = End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 Clipboard.Clear: Clipboard.SetText

20、Text1.SelText Text1.SelText = : Label1.Caption = 请选择要粘贴的位置！ Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = True Case 1 Clipboard.Clear: Clipboard.SetText Text1.SelText Label1.Caption = 请选择要粘贴的位置！: Command1(0).Enabled = False Command1(1).Enabled = False: Command1(2).Enabled = True Case Else Text1.SelText = Clipboard.GetText(): Form_Load Label1.Caption = 粘贴完成！ End SelectEnd SubPrivate Su