怎么用VB实现一个再次单击按钮如下面

Question

Dim score(10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
score(i) = Val(InputBox("输入学生成绩", "学生成绩"))
Print "第" & i & "个学生的成绩" & score(i)
Next i
Command1.Caption = "清屏"                       /*按钮名变为清屏*/End SubPrivate Sub Command2_Click()
Dim max As Integer, min As Integer
max = score(1)
min = score(1)
For i = 2 To 10
If max < score(2) Then
   max = score(2)
End If
If min > score(2) Then
   min = score(2)
End If
Next i
 Print "最高分:" & Str(max) & Chr(13) & "最低分" & Str(min)
End Sub
Private Sub Form_Load()
Print "单击“输入成绩”按钮输入成绩"
End Sub
请问:就是按钮变为清屏后,我要实现再次单击实现清屏效果,要求是不再做一个另一个按钮,
急...................

Answer 1

不需要。清屏后将按还原即可。
如下：..........
Private Sub Command1_Click() 
     if Command1.Caption="输入成绩" then
        For i=1 To 10 
            score(i)=Val(InputBox("输入学生成绩","学生成绩")) 
            Print "第" & i & "个学生的成绩" & score(i) 
        Next 
        Command1.Caption="清屏"    /*按钮名变为清屏*/ 
     else
        '这里写清屏的代码
        Command1.Caption="输入成绩"
     endif End Sub 
..............

Answer 2

新版CSDN网页......在字符串中总是加空格？会误导大家嘛！！！ 

Answer 3

假如只是想把窗体清空 就用cls

Answer 4

Dim   score(10)   As   Integer 
Private   Sub   Command1_Click() 
  cls
  For   i   =   1   To   10 
    score(i)   =   Val(InputBox( "输入学生成绩",   "学生成绩")) 
    Print   "第"   &   i   &   "个学生的成绩"   &   score(i) 
  Next   i 
End   Sub