发出来大家一起测才有趣...
好困..想去睡觉...
Leaves 发表于 2010-9-18 05:59 PM 
你们没装 .net framework 4.0的是运行不了这玩意的……
扔下代码吧，写得乱七八糟而且非常不简练，无视就好了……
Public Class Form1
Dim riqi(10) As Date
Dim rp(10) As Integer, zrp As Integer, zcs As Integer
Private Sub loadrp()
Dim i As Integer
zrp = GetSetting(\"BlueFantasy\", \"RP\", \"zrp\", 0)
zcs = GetSetting(\"BlueFantasy\", \"RP\", \"zcs\", 0)
TextBox1.Text = \"您的总RP为\" & zrp & \",您已经做过\" & zcs & \"次测试\" + vbCrLf + \"以下是最近测试结果：\" + vbCrLf
For i = 0 To 10
riqi(i) = GetSetting(\"BlueFantasy\", \"RP\", \"riqi\" & i, #1/1/2000#)
rp(i) = GetSetting(\"BlueFantasy\", \"RP\", \"rp\" & i, 0)
If riqi(i) <> #1/1/2000# Then
TextBox1.Text = TextBox1.Text & FormatDateTime(riqi(i), DateFormat.ShortDate) & \" \" & rp(i) & vbCrLf
End If
Next i
If riqi(0) = Date.Today Then
Button1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loadrp()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer, nrp As Integer
Randomize()
nrp = Rnd() * 200 - 100
MsgBox(\"您见天的RP是：\" & nrp)
SaveSetting(\"BlueFantasy\", \"RP\", \"zrp\", zrp + nrp)
SaveSetting(\"BlueFantasy\", \"RP\", \"zcs\", zcs + 1)
SaveSetting(\"BlueFantasy\", \"RP\", \"riqi\" & 0, Date.Today)
SaveSetting(\"BlueFantasy\", \"RP\", \"rp\" & 0, nrp)
For i = 0 To 9
SaveSetting(\"BlueFantasy\", \"RP\", \"riqi\" & i + 1, riqi(i))
SaveSetting(\"BlueFantasy\", \"RP\", \"rp\" & i + 1, rp(i))
Next i
loadrp()
End Sub
End Class
