3随机产生10个两位数的整数,分别赋值给数组a的10个元素,在文本框中显示数组各元素的和及平均值。
參考答案:dim a(10) as integer
dim aa as integer
dim pingjun
Randomize()
for aa = 1 To 10
a(aa)=CInt(10 * Rnd+10)
pingjun=pingjun+a(aa)
textbox(aa).text=a(aa)
next
textbox11.text=pingjun/10
前提是 你有textbox1~11
另外上面的代码我没有在VB。NET里测试 但是大致就是这样