【正文】
本題代碼如下: Dim which As Integer Private Sub copy_Click() If which = 1 Then = ElseIf which = 2 Then = End If End Sub Private Sub cut_Click() If which = 1 Then = = ElseIf which = 2 Then = = End If End Sub Private Sub edit_Click() If which = 1 Then If = Then = False = False Else = True = True End If ElseIf which = 2 Then If = Then = False = False Else = True = True End If End If If = Then = False Else = True End If End Sub Private Sub paste_Click() If which = 1 Then = amp。 注意: 不能修改程序中的其他部分。 3. 綜合應(yīng)用( 1小題,計 30分) 注意:下面出現(xiàn)的 考生文件夾 均為 C:\WEXAM\00000000\ 在考生文件夾下有一個工程文件 ,其名稱為 Form1的窗體上已有三 個文本框 Text Text Text3,以及程序。控件數(shù)組是一組具有共同名稱和類型的控件,它們的事件過程也相同。 第 1小題: 本題主要考查命令按鈕、文本框控件的使用。 計時收費標準為:通話時間在 3分鐘以內(nèi)時,收費 ; 3分鐘以上時, 每超過 1分鐘加收 ,不足 1分鐘按 1分鐘計算。