第10章习题
一、单选题
C 2. (1)A (2)C 3．D
4．C 5. A 6. D
7. (1)A (2)D 8. A
9. B 10. B 11. A
12. D
二、填空题
(1)Change
(2)Value
(3)Scroll
(4)Value
2.
(1) P1.Picture
(2) P2.Picture
(3) P2.Picture = P3.Picture
3. 菜单编辑器，顶；PopUpMenu
4．
(1) Button.Index
(2) BackColor = RGB(255, 0, 0)
(3) BackColor = RGB(0, 255, 0)
(4) BackColor = RGB(0, 0, 255)
5.
(1) Picture1
(2) "X=" + Str(X)
(3) "Y=" + Str(Y)
6. DragMode, 1; 0
7. Action, 4, ShowFont
编程及上机调试
1．在窗体上建立一个水平滚动条HScroll1和一个文本框Text1。程序代码如下：
Private Sub Form_Load()
HScroll1.Max = 1000
HScroll1.Min = 0
HScroll1.LargeChange = 5
HScroll1.LargeChange = 10
HScroll1.Value = 500
End Sub
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Text1.Text = HScroll1.Value
End Sub
2. 在窗体上建立一个计时器Timer1和“开始”、“停止”两个命令按钮。程序代码如下：
Private len_S As Single, s As Integer '模块级变量
Private Sub Command1_Click() '“开始”
Timer1.Enabled = True
s = 0
Call Sub_Move
End Sub
Private Sub Command2_Click() '“停止”
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
'先取各指针的长度
len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒针长度
End Sub
Private Sub Timer1_Timer() '定时器的定时事件过程
s = s + 1
Call Sub_Move
End Sub
Private Sub Sub_Move() '定时器的定时事件过程
pi = 3.14159
LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30) '绘制秒针
LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30)
End Sub
3. 按要求在窗体上设计一个二级下拉菜单。
4. 在窗体上建立一个通用对话框CommonDialog1、“打开”及“字体”两个命令按钮和文本框Text1。程序代码如下：
Private Sub Command1_Click() '"打开"
CommonDialog1.DialogTitle = "选择文件"
CommonDialog1.Filter = "文本文件|*.txt" '设置文件过滤器
CommonDialog1.InitDir = "C:\" '设置默认文件夹
CommonDialog1.ShowOpen '显示“打开”对话框
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click() '"字体"
CommonDialog1.Flags = cdlCFScreenFonts
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName '设置字体名称
Text1.FontSize = CommonDialog1.FontSize '设置字体大小
Text1.FontBold = CommonDialog1.FontBold '粗体
Text1.FontItalic = CommonDialog1.FontItalic '斜体
End Sub
