第五套 试题三( 20 分) 修改 VB 程序,使其具有下列功能:程序运行文本框中输入行数,单击 “ 显示 ” 按钮,每 3 秒钟在窗体上显示一次图形 “A ” ( 字母第三笔横,位于图形的 3/4 处 ) 。结果所图 3 所示 打开 “试题三”文件夹中的工程文件“ test3.vbp ”,完成下列操作。 1. ( 18 分)分别在代码中的( 1 )、( 2 )、( 3 )、( 4 )、( 5 )、( 6 )处补充完整的代码(填写完成后,保存注释符,(每格 3 分,共 18 分)不得修改其他部分的代码),以让程序正确执行。调试并运行程序(不可调整时钟控件的时间间隔) ) 。 2. ( 1 分)单击 “结束”,程序结束。 3. ( 1 分保存窗体文件和工程文件,生成可执行文件 “test3.exe” 并保存到 “ 试题三 ” 文件夹下。 Dim n Private Sub Command1_Click() = True '(1) End Sub Private Sub Command2_Click() '(2) End Sub Private Sub Timer1_Timer() Dim x%, i%, j% x = Val(Text1.Text) n = '(3) If n Mod 3 <> 0 Then ' (4) Else For i = 1 To x Print Tab(20 - i); For j = 1 To '(5) If j = 1 Or j = 2 * i - 1 Or i=int(x* ) Then ' (6) '(7) Else Print " "; End If Next j Print Next i End If End Sub