|
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
第三步：调试并运行。
第四步：按题目要求存盘。
(2)解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。
解题步骤：
第一步：建立界面并设置控件属性。
程序中用到的控件及属性见表1-3。
表 1-3
对 象 属 性 设 置 值
复选按钮 Name Caption Ch1 体育
复选按钮 Name Caption Ch2 音乐
复选按钮 Name Caption Ch2 美术
标签 Caption 爱好
按钮 Name Caption C1 显示
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
' Dim s As ?
s = "我的爱好是"
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
' Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s = "我的爱好是"
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
上一页 [1] [2] [3] [4] 下一页 |
