1、 通过输入对话框输入一批成绩(以输入“-
昨晚弄了好久呢~~~最好玉丰帮忙实现了,但是那代码他自己用了半个小时才弄完的。觉得开始的路就不对。
只好把他那代码珍藏了。“可抄性”太差了~~~
Dim n1() As Integer
Dim ss As Single
'------------------------------------------------------------
Dim a() As Integer
Dim b() As Integer
Dim C() As Integer
Dim aSize As Integer
Dim bSize As Integer
'------------------------------------------------------------
Private Sub Command1_Click()
aSize = 0
bSize = 0
Dim intA As Integer
Dim intC As Integer
Dim i As Integer
'初始化
msg$ = "请输入分数(-1结束)"
msgtitle$ = "输入数据"
start:
ss = InputBox(msg$, msgtitle$)
If ss < 0 Or ss > 100 Then
GoTo finish
Else
If ss < 60 Then
If aSize > 0 Then
ReDim C(UBound(a)) As Integer
For intA = 0 To UBound(a)
C(intA) = a(intA)
Next intA
End If
ReDim a(aSize + 1) As Integer
If aSize > 0 Then
For intC = 0 To UBound(C)
a(intC) = C(intC)
Next intC
a(aSize + 1) = ss
End If
a(aSize) = ss
aSize = aSize + 1
End If
GoTo start
End If
finish:
For i = 0 To UBound(a)
Print a(i)
Next i
End Sub
Private Sub Form_Load()
End Sub