远安职教中心2008至2009学年度第一学期2007级计算机应用专业《VB.doc
文本预览下载声明
远安职教中心2008至2009学年度第一学期
2007级计算机应用专业《VB》期末考试试卷三答案
创建一个数字时钟，要求时钟的前景为绿色，背景为黑色，字体为宋体28点阵大小。（25分）
程序开发步骤：
1．在窗体上绘制一个计时器控件和一个标签控件，设计好界面，然后设置窗体的Caption为“时钟”、BorderStyle属性为3，标签的Caption为空、BorderStyle属性为1、Font属性为宋体28点阵、 BackColor为黑色、ForeColor为绿色，计时器的Interval属性为1000。（10分）
2．编写程序代码。（10分）
Private Sub Timer1_Timer( )
Label1.Caption = Time$
End Sub
3．保存工程，窗体文件名为“时钟.frm”，工程文件名为“时钟.vbp”，运行界面如图所示。（5分）
二、按下列步骤操作，建立一个滚动条。（35分）
在窗体上画6个控件，其中4个标签，1个文本框，1个滚动条。（6分）
2．把4个标签的Caption属性设置为“速度”、“慢”、“快”和空白，并把第4个标签的Borderstyle属性设置为1-F ixed single。（6分）
3．设置滚动条的属性：（6分）
LargeChange 10 Max 200
SmallChange 2 Min 0
4. 编写代码，要求拖动滚动框或单击滚动条两端的箭头时，在文本框中显示变化的值。（11分）
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
5．保存工程，窗体文件名为“滚动条.frm”，工程文件名为“滚动条.vbp”。运行结果如下图。（6分）
勾股定理中，3个数的关系是：a2 +b2 =c2。编写程序，输出30以内满足上述条件的整数组合，例如，3、4、5就是一个整数组合。（40分）
要求：保存工程时，窗体文件名为“ABC.frm”,工程文件名为“ABC.vbp”。（5分）
程序代码如下：
Private Sub Form_Click() （5分）
Dim a, b, c As Integer （5分）
For a = 1 To 30 （5分）
For b = 1 To 30 （5分）
For c = 1 To 30 （5分）
If a * a + b * b = c * c Then （5分）
Print a, b, c （5分）
End If
Next c
Next b
Next a
End Sub
运行结果如下图：
显示全部