2007年9月计算机等级考试二级VB上机练习(1)

1．基本操作
（1）解析：在Visual Basic中，菜单项通过菜单编辑器来建立。
解题步骤：
第一步：打开"菜单编辑器"窗口，建立菜单项。
用到的菜单项及其属性见表1-1。
 
第二步：调试并运行程序。
第三步：按题目要求存盘。
（2）解析：在窗体上建立好控件后，再按题目要求设置各自的属性即可。需要指出的是在框架里的控件需要画出框架后，单击工具箱里的控件然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的控件放不到框架里。窗体中的控件的具体位置由控件的Top、Left属性设置，大小由属性Height、Width设置。
解题步骤：
第一步：设置框架的Height、Width属性分别为2500,4000；文本框的Left、Top属性值分别为600，1200。(以上均可在属性栏里设置)
第二步：调试并运行程序。
第三步：按题目要求存盘。
2．简单应用
（1）解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。
解题步骤：
第一步：建立界面并设置控件属性。
程序中用到的控件及属性设置见表1-2。
表 1-2
控  件 属  性 设 置 值 
列表框 Name List1 
文本框 Name Text1 
命令按钮 Name Caption C1 复制 
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
    Dim i As Integer
'    For i =  ?  To List1.ListCount - 1
        If List1.Selected(i) = True Then
'            ?  = List1.List(i)
        End If
    Next i
End Sub
Private Sub Form_Load()
    List1.AddItem "Item1"
    List1.AddItem "Item2"
    List1.AddItem "Item3"
    List1.AddItem "Item4"
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            Text1.Text = List1.List(i)
        End If
    Next i
End Sub
Private Sub Form_Load()
    List1.AddItem "Item1"
    List1.AddItem "Item2"
    List1.AddItem "Item3"
    List1.AddItem "Item4"
End Sub
第三步：调试并运行。
第四步：按题目要求存盘。