高校等考试题天天练二级VB]10月21日
知识点:Do…loop while语句 Private Sub Command1_Click() Dim a As Integer, s As Integer a=6 :s=1 Do s=s+a a=a-1 Loop While a > 3 Print s; a End Sub 相关资料 |
知识点:Do…loop while语句 Private Sub Command1_Click() Dim a As Integer, s As Integer a=6 :s=1 Do s=s+a a=a-1 Loop While a > 3 Print s; a End Sub 相关资料 |