两天打鱼三天晒网

摘要： Option ExplicitDim intMaxReply As IntegerDim intTotalPoint%, intRemain%Dim arrReply() As IntegerPrivate Sub Command1_Click() intMaxReply = 17'问题总回答数 intTotalPoint = 40'问题点数 ReDim arrReply(1 To intMaxReply) If intTotalPoint intMaxReply Then Dim intAvg% intAvg = Int(intTotalPoint / intMaxReply) intR 阅读全文