VB试题用随机函数产生 10个两位数的整数放在数组a中并输出,用随机函数产生10个一位数的整数放入数
答案:1 悬赏:0 手机版
解决时间 2021-04-04 05:11
- 提问者网友:棒棒糖
- 2021-04-03 06:09
VB试题用随机函数产生 10个两位数的整数放在数组a中并输出,用随机函数产生10个一位数的整数放入数
最佳答案
- 五星知识达人网友:酒安江南
- 2021-04-03 06:32
新建一工程,在窗体上拖入一command控件。然后进入代码区,删除所有代码后,粘贴以下代码即可。
Option Explicit
Private Sub Command1_Click()
Dim A(9) As Integer, B(9) As Integer, C(9) As Integer
Dim I As Integer
Randomize
Cls
Print "数组A", "数组B", "数组C"
For I = 0 To 9
A(I) = Rnd() * 9 + 10 '产生随机两位整数
B(I) = Rnd() * 9 '产生随机一位整数
C(I) = A(I) + B(I) '将对应的随机数相加
Print A(I), B(I), C(I) '结果输出到窗体上
Next I
End Sub 运行效果如下图所示:
Option Explicit
Private Sub Command1_Click()
Dim A(9) As Integer, B(9) As Integer, C(9) As Integer
Dim I As Integer
Randomize
Cls
Print "数组A", "数组B", "数组C"
For I = 0 To 9
A(I) = Rnd() * 9 + 10 '产生随机两位整数
B(I) = Rnd() * 9 '产生随机一位整数
C(I) = A(I) + B(I) '将对应的随机数相加
Print A(I), B(I), C(I) '结果输出到窗体上
Next I
End Sub 运行效果如下图所示:
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯