摘要：
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 阅读全文
posted @ 2010-04-19 12:28 随风飘零0 阅读(150) 评论(0) 推荐(0) 编辑