vb写，谢谢
答案:3 悬赏:50 手机版
解决时间 2021-02-27 17:23
- 提问者网友：寂寞梧桐
- 2021-02-27 10:03
vb写，谢谢
最佳答案
- 五星知识达人网友：神鬼未生
- 2021-02-27 10:23
Private Sub Command1_Click()
Randomize
Dim I As Long, J As Long
Static K As Long
I = Val(Text1.Text)
J = Int(Rnd * 100) + 1
If I > J Then
Label1.Caption = "你输入的数大了！"
ElseIf I = J Then
Label1.Caption = "太厉害了，你输入的数正好！"
Else
Label1.Caption = "你输入的数小了！"
End If
K = K + 1
Label2.Caption = "你一共猜了：" & K & "次。"
End Sub
Randomize
Dim I As Long, J As Long
Static K As Long
I = Val(Text1.Text)
J = Int(Rnd * 100) + 1
If I > J Then
Label1.Caption = "你输入的数大了！"
ElseIf I = J Then
Label1.Caption = "太厉害了，你输入的数正好！"
Else
Label1.Caption = "你输入的数小了！"
End If
K = K + 1
Label2.Caption = "你一共猜了：" & K & "次。"
End Sub
全部回答
- 1楼网友：洒脱疯子
- 2021-02-27 13:19
VB写程序 我能写
- 2楼网友：不想翻身的咸鱼
- 2021-02-27 12:00
怎么发给你？我有写好的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯