VB实验2常用控件和窗体的使用.docVIP

广州大学学生实验报告 开课学院及实验室：电子信息楼617 日期：2013年12月19 学院 机械与电气工程 年级、专业、班 电信112 姓名 孔志荣 学号 1107400052 实验课程名称 VB实验 成绩 实验项目名称 实验二： 常用控件和窗体的使用 指导老师 一、实验目的 1．掌握一维数组的定义、初始化和引用方法。 2．掌握二维数组的定义、初始化和引用方法。 3．掌握控件数组的创建和引用。 4．掌握排序算法。 1．掌握子定义函数与字过程的定义和调用方法。 2．掌握调用过程时参数传递的两种方式（传值与传址） 3．掌握变量、函数和过程的作用域。 掌握窗体的常用属性、事件和方法，尤其是窗体的常用事件。 2．掌握标签、文本框、命令按钮的常用属性、事件和方法。 3．掌握单选钮和复选框、列表框和组合框的编程方法。 4．掌握应用图片框和图象框加载图片的方法。 5．掌握计时器和滚动条的编程方法。 6．掌握焦点的应用技巧。 实验题目 定义一维数组a（10），从键盘任意输入10个整数对a（10）赋值，然后 按与输入相反的顺序逆序输出。 Private Sub Form_Click() Dim i As Integer Dim a(10) As Integer For i = 0 To 9 a(i) = Val(InputBox(请输入一个整数：, 数据输入)) Print a(i); Next i Print For i = 9 To 0 Step -1 Print a(i); Next i End Sub 用命令按钮设计一个数字软键盘，以便用户输入密码。其用户界面如图。 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Text1 = Text1 Command1(Index).Caption Case 10 MsgBox 你的用户密码是 + Text1, , 密码提示 End Select End Sub 随即产生一个5×5矩阵（每个元素为两位正整数）。计算其主、副对角线元 素之和。 Private Sub Command1_Click() Dim a(5, 5) As Integer, result As Integer Dim i As Integer, j As Integer Picture1.Cls Randomize For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 90 + 10) Picture1.Print a(i, j); Next j Picture1.Print Next i For i = 1 To 5 If Option1.Value = True Then result = result + a(i, i) ElseIf Option2.Value = True Then result = result + a(i, 5 - i + 1) End If Next i Text1 = result End Sub 编写一个函数过程，其功能是判断一个数是正数、负数还是零。在调用 程序中，通过键盘输入数据，调用该函数过程，并输出判断结果。 Private Function jud(n As Single) As String If n 0 Then jud = 正数 Else If n = 0 Then jud = 0 Else jud = 负数 End If End If End Function Private Sub Command1_Click() Dim n As Single n = Val(InputBox(请输入一个数：)) Print 你输入的数是：; jud(n) End Sub 编写程序，验证双击窗体后，触发了那些鼠标事件以及触发的顺序。 1．输入代码 新建工程后，双击窗体，进入代码窗口，输入以下代码： Private Sub Form_Click() Print 触发 Form_Click 事件 End Sub Private Sub Form_DblClick() Print 触发 Form_DbClick End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Intege