a = b b = temp End Sub
四、 程序设计题（20分）
1． 编写程序，单击窗体时在窗体上打印出如下所示的图形。
* *** ***** ******* ********* ******* ***** *** *
2． 设计一个计时器程序，界面设计如图一所示，控件的属性见表一。在单击“开始”按钮后，
定时器开始计时，同时在在标签Label1中显示“计时开始！”；当计时达到所选择的时间后停止计时，在标签Label1中显示“时间到!”的字样。程序运行时默认的时间选择为10分钟。请写出完成该程序功能的相应的事件过程的代码。 图一
控件 命令按钮 定时器 标签 框架 单选钮 单选钮 单选钮
第6页
name Command1 Timer1 Label1 Frame1 Option1(0) Option1(1) Option1(2) caption 开始 Label1 选择时间 5分钟 10分钟 20分钟 Interval 1000 表一
VB练习卷七参考答案
一、 判断题：
1.×2.√3. ×4. ×5. √6. ×7. √8. √9. ×10. √ 单选题
1.D2.C3.B4.C5.C6.A7.D8.C9.B10.A 填空题
1.(2*pi*r+exp(-5))*log(x) 2.False
3.int(a)=a and a>=0 and int(b)=b and b>=0 4.-21 5.f
6.int(x*100+0.5)/100 7.10
8.pic.circle (pic.scalewidth/2,pic.scaleheight/2),1000,vbred 9.passwordchar设为*
10. shell “c:\\windows\\calc.exe”
二、阅读 1．
5555555555 44444444 333333 2222
11 2． s=1 s=2 s=5 s=20 3．
李琳 80 李晓 90 4． X=0 y=1 X=2 y=1 X=2 y=2
第7页
X=4 y=2 三、填空
1.
(1)Len(strfind) (2)Len(text1.text) (3)Strfind (4)Sum=0 (5)Str(sum) 2.
(1) Int(998*rnd+3) (2) a(i) (3) b(i),b(j) (4) j mod 5=0 (5) Isprime=True 四、设计 1．
Private Sub Form_Click()
Dim i As Integer, j As Integer For i = 1 To 9
If i <= 5 Then
Print Space(10 - i); For j = 1 To 2 * i - 1 Print \ Next j Print Else
Print Space(i);
For j = 1 To 19 - 2 * i Print \ Next j Print End If Next i End Sub 2．
Option Explicit
Dim pretime As Integer
Private Sub Command1_Click()
第8页
Label1.Caption = \计时开始\ Command1.Enabled = False Timer1.Enabled = True End Sub
Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Option1(1).Value = True pretime = 600 End Sub
Private Sub Option1_Click(Index As Integer) Select Case Index Case 0
pretime = 300 Case 1
pretime = 600 Case 2
pretime = 1800 End Select End Sub
Private Sub Timer1_Timer() Static total As Double total = total + 1
If total >= pretime Then Timer1.Enabled = False Label1.Caption = \时间到!\ Command1.Enabled = True End If End Sub
第9页
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb期末考试练习卷7及答案(2)在线全文阅读。
相关推荐：