![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
ModestCoder_
一个modest的coder
展开
-
【VB】猜数字
经典小游戏:猜数字 附工程链接 可执行程序 Public Function calc() As Long Randomize calc = Int(Rnd * 100) + 1 End Function Private Sub guess_Click() ' If Val(redo.Tag) = 0 Then result.Caption = "快去重置吧!" Di...原创 2020-05-03 11:29:10 · 1019 阅读 · 0 评论 -
【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 · 1391 阅读 · 0 评论