1◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
【基本操作】
(1)【操作步骤】
步骤1:打开Visual Basic,按照题目的要求新建窗体并添加一个水平滚动条控件。
步骤2:在属性窗口中,按题照目的要求设置水平滚动条的相关属性
步骤3:按照题目的要求,在窗体上添加两个标签控件。
步骤4:按照题目的要求设置两个标签的相关属性。
程序中用到的控件及属性见表3.1。
表3.1
控件
滚动条
标签1
标签2
属性
Name
Min
Max
Large- Change
Name
Caption
Name
Caption
设置值
H1
1
100
10
L1
1
L2
100
步骤5:按下键盘上的F5键运行程序。
步骤6:按题目要求保存工程和窗体文件。
(2)【操作步骤】
步骤1:新建窗体,按表3.2建立菜单项并设置其属性。
表3.2
标题
操作
复制
清除
名称
M1
Copy
Clear
内缩符号
0
1
1
图3.7
步骤2:同步骤3,输入第3项的标题和名称,单击确定即可。
步骤3:添加文本框控件,按照表3.3设置文本框的属性。
表3.3
控 件
文本框1
文本框2
属 性
Name
Name
设置值
Text1
Text2
步骤4:编写程序代码。
参考答案
Private Sub Clear_Click()
Text2.Text = ""
End Sub
Private Sub Copy_Click()
Text2.Text = Text1.Text
End Sub
步骤7:调试并运行程序,关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1:打开本题工程文件,按照题目要求建立控件数组。
步骤2:按照题目要求设置控件的属性,见表3.4。
参考答案
第一个?处填入:Index
第二个?处填入:a
(2)【操作步骤】
步骤1:打开本题工程文件,按照题目要求建立框架控件并设置其属性。
步骤2:按照步骤1建立其他控件并设置相关属性,程序中用到的控件及属性见表3.5和表3.6。
表3.6
控件
单选按钮1
单选按钮2
单选按钮3
单选按钮4
属性
Name
Caption
Name
Caption
Name
Caption
Name
Caption
设置值
Op1
男
Op2
女
Op3
学生
Op4
老师
步骤4:分析并编写程序代码。
程序提供代码
Private Sub Form Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text
Close #1
End Sub
程序结束
参考答案
Private Sub C1_Click()
Text1.Text = "我是"
If Op1.Value Then
Text1.Text = Text1.Text & Op1.Caption
Else
Text1.Text = Text1.Text & Op2.Caption
End If
If Op3.Value Then
Text1.Text = Text1.Text & Op3.Caption
Else
Text1.Text = Text1.Text & Op4.Caption
End If
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1:打开本题工程文件。
步骤2:编写程序代码。
参考答案
Private Sub Command1_Click()
Dim a() As Long
Dim i As Integer
Dim n As Integer
For i = 0 To Op1.Count - 1
If Op1(i).Value = True Then
n = Val(Op1(i).Caption)
Exit For
End If
Next
ReDim a(n)
a(1) = 1
a(2) = 1
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next
Text1.Text = a(n)
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
2◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
【基本操作】
(1)【操作步骤】