一、 实验目的和要求
掌握窗体与常用控件的重要属性、事件和方法。
二、 实验内容和原理
1. 设计一个界面，要求程序运行时选中组合框中的某一项，将弹出对话框加以说明。 2. 在窗体上画一个名称为HIS的水平滚动条，标题分别为：“左端”、“居中”、“右端”的
命令按钮。请编写适当的事件过程，使得在运行后，如果单击“左端”，则滚动条在最左端处，如果单击“居中”，则滚动条在最中间处如果单击“右端”，则滚动条在最右处，
三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
1. Private Sub Combo1_Click()
MsgBox \我的兴趣爱好是\兴趣爱好\End Sub
2. Private Sub Command1_Click(Index As Integer) HScroll1.Value = 0 End Sub
Private Sub Command2_Click() HScroll1.Value = 10 End Sub
Private Sub Command3_Click(Index As Integer) HScroll1.Value = 5 End Sub
五、 调试过程
无错误
六、 实验结果
1.
2. 七、 总结
答：此次实验最重要的是掌握了窗体和常用控件的重要属性、事件和方法
（七）常用控件
13 一、 实验目的和要求
掌握常用空间的重要属性、时间和方法。
二、 实验内容和原理
1、在窗体上画一个图片框和两个命令按钮。程序运行后，如果单击“显示图片”命令按钮，则在图片框装入一个用图形编辑软件（如Windows下的“画图”）画的简单的图形。单击“清除图片”按钮，则清楚图片框的图形。
2、编写一个模拟秒表操作的程序，运行时的界面如图所示。程序运行后，单击“启动”按钮，该按钮变灰（不可用），在上面的标签中显示开始时间。过一会儿，单击“停止”按钮，该按钮变灰，同时“启动”按钮可用，并在中间标签中显示当前时间，在下面的标签中显示经过的时间
三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
1. Private Sub Command1_Click()
Picture1.Picture = LoadPicture(\实验\\图片显示\\49519_295.gif\End Sub
Private Sub Command2_Click() Picture1.Picture = LoadPicture End Sub
2. Private Sub Command1_Click() Label2.Caption = DateTime.Time End Sub
Private Sub Command2_Click() Timer1.Enabled = False
Label4.Caption = DateTime.Time
Label6.Caption = DateDiff(\End Sub
Private Sub Timer1_Timer()
Label4.Caption = DateTime.Time End Sub
五、 调试过程
无错误
六、 实验结果
14 1.
七、 总结
2.
答：在此次的实验中掌握了常用控件的重要一些属性、事件和方法。
（八）气泡法排序程序
一、 实验目的和要求
实现数组的赋值与大小的排列。
二、 实验内容和原理
将相邻两个数进行比较，按由小到大将这两个数排好序，在将下一组数组进行比较，依此处理，直到将最后两个数比较并处理完毕。最大的数已换到最后位置。这是第一轮的比较处理。每进行一轮，就把剩下的数中最大的一个移动最后位置。共进行若干轮。
三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
Sub form_click()
Dim a(1 to 10) as integer Print “要排序的数组为:” For i=1 to 10
a (i)=inputbox(“请输入10个整数:”) Print tab (i*6);a(i); Next i Print
For i=1 to 9
15 For j=to 10-i
If a(j)>a(j+1) then Temp=a(j) A(j)=a(j+1) A(j+1)=temp End if Next j Next i
Print “排序后的数组为：” For i=1 to 10 Print tab(i*6);a(i); Next i End sub
五、 调试过程
无错误
六、 实验结果
（九）
一、 实验目的和要求 二、 实验内容和原理 三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
Private Sub Form_Click() Dim a(100, 100), n, i, j As Integer n = InputBox(\请输入行数:\For i = 1 To n For j = 1 To n a(0, 0) = 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n For j = 1 To n
Print Spc(5 - Len(Str(a(i, j)))); a(i, j); Next j Print Next i End Sub
五、 调试过程
无错误
六、 实验结果
16