VB程序设计阶段性作业(1).docx

《VB程序设计阶段性作业(1).docx》由会员分享，可在线阅读，更多相关《VB程序设计阶段性作业(1).docx（13页珍藏版）》请在三一办公上搜索。

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

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

3、使复选框控件不响应Click事件，可设置复选框的 属性。 A、Appearance B、Style C、Enabled D、TabIndex 4以下 语句将删除列表框List1中的最后一项。 A、List1.RemoveItem List1.ListCount B、List1.Clear C、List1.List(List1.ListCount-1)= D、List1.RemoveItem List1.ListCount-1 5设计动画时通常用定时器控件 属性来控制动画速度。 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中依次输

5、入3、4、5后，单击窗体时Label1的显示结果。 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

6、= False: Option1(2).Value = False End Sub Private 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 C

7、heck1(1).Value = 1 Then Print 欢迎使用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 Sub

8、 Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim i As Integer If KeyAscii = 13 Then Combo1.List(Combo1.ListCount) = Combo1.Text List1.Clear 中国地质大学远程与继续教育学院 For i = 0 To Combo1.ListCount - 1 If Len(Trim(Combo1.List(i) =5 Then Timer1.Enabled = False End Sub Public Sub sub1(n As Integer) n = n + 1

9、 Print n=; n End Sub 五、程序填空题 1窗体上已建立命令按钮Command1、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

10、 String, t As String 中国地质大学远程与继续教育学院 str1 = Text1.Text: n = Len(str1) For i = 1 To n: : Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then Next j If p i Then t = a(i): : a(p) = t Next i For i = 1 To n: Print a(i);: Next i Command1.Enabled = False End Sub Private Sub Command2_Click

11、End End Sub Private Sub Form_Load Command2.Enabled = False End Sub 2利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。 各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间。 Dim x As Long Private Sub Form_Load Timer1.Interval = 1000: Timer1.Enabled = False End Sub Private

12、Sub Command1_Click Cls x = 0 End Sub Private Sub Command2_Click Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = m = s = x Mod 3600 Mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 + Str(s) + 秒 End Sub Private Sub Timer1_Timer Label1.Caption = x End Sub 中国地质大学远程与继续教育学院 3本题是利用计时器控件来

13、实现文字的水平移动，要求： 运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体。 文字移动时颜色不断产生随机变化。 Private Sub Form_Load Form1.WindowState = 2 Timer1.Interval = 100 End Sub Private Sub Timer1_Timer Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) = Label1.Left + 150 If Label1.Left = Form1.Width Then End Sub 六

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

15、序设计题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 = Tru

16、e HScroll1.Min = 1: HScroll1.Max = 1000 HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500 End Sub 请设计其他事件过程。 图10-7 程序设计题10的界面设计 中国地质大学远程与继续教育学院 参考答案 一、判断题 1 2 3 4 5 6 7 8 9 二、选择题 1B 2B 3C 4D 5A 三、填空题 1按值传递 2Form2.y 3Enabled 4Visible 50或1 61 7Scroll 8Ti

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

18、abel1.Left Label1.Left = -Label1.Width 六、程序设计题 程序1. 界面设计略，过程设计如下： Private Sub Command1_Click If Command1.Caption = 显示 Then 中国地质大学远程与继续教育学院 Print 欢迎使用Visual Basic！: Command1.Caption = 清除 Else Form1.Cls: Command1.Caption = 显示 End If End Sub Private Sub Command2_Click End End Sub Private Sub Form_Load

19、Form1.Cls: Command1.Caption = 显示: 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 Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Clipboard

20、.Clear: Clipboard.SetText 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).Enabl

21、ed = False: Command1(2).Enabled = True Case Else Text1.SelText = Clipboard.GetText: Form_Load Label1.Caption = 粘贴完成！ End Select End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim n As Integer n = Text1.SelLength If n 0 Then Label1.Caption = 选择了 & n

22、 & 个字,请选择下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = True Else Label1.Caption = End If End Sub 中国地质大学远程与继续教育学院 程序3界面设计如图10-6所示，过程设计如下： Private Sub Form_Load Option1(0).Caption = 八进制: Option1(1).Caption = 十六进制 Option1(2).Caption = 二进制 End Sub Private Function tran(k As Long, n As Integer) As String Dim x As Integer, y As String * 1, k1 As Long tran = : k1 = Abs(k) Do While k1 0 x = k1 Mod n If x = 10 Then y = Chr(Asc(A) + x - 10) Else y = CStr(x) tran = y + tran k1 = k1 n Loop If k = 72 Then Timer1.Enabled = False End Sub