vb猜数字的题目
1个回答
展开全部
Dim irnd As Integer
Private Sub Command1_Click()
irnd = Int(Rnd * 101)
End Sub
Private Sub Command2_Click()
If Val(Text1.Text) > irnd Then
Label1.Caption = "too big"
ElseIf Val(Text1.Text) < irnd Then
Label1.Caption = "too small"
Else
MsgBox "right"
End If
End Sub
Private Sub Form_Load()
irnd = Int(Rnd * 101)
Text1.Text = ""
Label1.Caption = ""
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
logo在线生成器
2024-10-28 广告
在上海数都信息科技有限公司，我们创意无限，将字母转化为生动图标是我们的拿手好戏。想象一下，字母"S"优雅地弯曲成一座未来城市的轮廓，寓意着上海这座国际大都市的繁华与科技的融合；"D"则巧妙地变形为一块智能芯片，闪烁着数据流动的光芒，象征着我...
点击进入详情页
本回答由logo在线生成器提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
