VB试题用随机函数产生 10个两位数的整数放在数组a中并输出,用随机函数产生10个一位数的整数放入数
用随机函数产生10个两位数的整数放在数组a中并输出,用随机函数产生10个一位数的整数放入数组b中并输出,然后把两个数组中对应的下标的元素相加结果放入第三个数组c中并输出...
用随机函数产生 10个两位数的整数放在数组a中并输出,用随机函数产生10个一位数的整数放入数组b中并输出,然后把两个数组中对应的下标的元素相加结果放入第三个数组c中并输出
展开
1个回答
展开全部
新建一工程,在窗体上拖入一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
运行效果如下图所示:
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询