VB编写一个程序：分别随机生成3 个正整数，其中一个是1 位数、1 个是2 位数、1 个是3 位数。
2个回答
展开全部
Private Sub Command1_Click()
Dim a, b, c As Integer
Cls
Randomize
a = Int(10 * Rnd)
b = Int(100 * Rnd)
c = Int(1000 * Rnd)
Print "a=" & a
Print "b=" & b
Print "c=" & c
End Sub
Dim a, b, c As Integer
Cls
Randomize
a = Int(10 * Rnd)
b = Int(100 * Rnd)
c = Int(1000 * Rnd)
Print "a=" & a
Print "b=" & b
Print "c=" & c
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
随机数rand（）函数产生，乘上10在加上1取整就是1—10，同理乘以100再加上1就是1-99，就利用这个思路。做做试试吧！
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
