- 博客(2)
- 收藏
- 关注
RSS订阅原创 【VB】猜数字
经典小游戏：猜数字附工程链接可执行程序Public Function calc() As Long Randomize calc = Int(Rnd * 100) + 1End FunctionPrivate Sub guess_Click() ' If Val(redo.Tag) = 0 Then result.Caption = "快去重置吧！" Di...
2020-05-03 11:29:10
1030
原创 【VB】简易计算器
学校教了VB语言，作为一个AFO的OIer，我随便写了一个计算器附工程连接Private Sub Command1_Click() Dim ans As Long Dim x As Long Dim d As Long x = Val(shouxiang.Text): d = Val(gongcha.Text) For i = 1 To Val(xian...
2020-05-01 12:22:27
1412
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人