VB复习01

Loop

Print \End Sub

9．设计一个计时程序。该程序用户界面如图所示，由一个文本框（Text1）、两个按钮：命令按钮1（Command1）、命令按钮2（Command2）组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请将下列程序补充完整。 Option Explicit Dim i

Private Sub Command1_Click() i = 0

Timer1.Interval = 1000 Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Click() __________ Me End Sub

Private Sub Form_Load() Timer1.Enabled = False Text1.Text = 0 End Sub

Private Sub Timer1_ ___________() i = i + 1

Text1.Text = ___________ End Sub

10．下面程序的功能是：输入一个字符串，在“d:\\f1.dat”文件中查找输入的字符串是否存在，若存在，则输出“找到字符串”，否则输出“没找到字符串”。请将下列程序补充完整。 Private Sub Form_Load()

a$ = InputBox(\请输入要查找的字符串\Open \

b$ = Input(LOF(1), 1) ___________

y = InStr(1, b$, a$) If y <> 0 Then Print \找到字符串\Else

Print \没找到字符串\End If End Sub 答案： 一、选择题： 1---5 BCCAC 6--10 CBCAB 11-15 BBCCD 16-20 CBAAD 21-25 DBBBA 26-30 ABABB 二、填空题： 1、 4 2、 12345.68 3、PICTURE 4、 VARIANT 5、3 6、 2 3 7、 ABC 8、 VB 9、 X>=0 10、 X