VB程序设计习题及参考答案

, j) = i * jР Next j, iР For i = 1 To 5 : Print a(i, i); : Next iРEnd SubР程序4. 请写出单击窗体后,窗体上的显示结果。РPrivate Sub Form_Click()Р Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As IntegerР For i = 1 To 2Р For j = 1 To 3Р a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j),Р Next jР PrintР Next iРEnd SubР三、程序填空题Р1.【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中,再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。РPrivate Sub Form_Click()Р Dim a(30) As byte, i as Byte, j As Byte, m As ByteР For i = 1 To 30: a(i) = ⑴: Next iР For i = 1 To 29Р For j = ⑵Р If a(i) > a(j) ThenР m = a(i): ⑶:a(j) = mР End IfР Next j,iР For i = 1 To 30Р If ⑷ Then Print a(i);Р Next iРEnd SubР2.【程序说明】以下程序产生20个两位随机整数存于数组之中,打印数组中大于50的数,并求出这些数的和。РPrivate mand1_Click()Р Dim arr(1 To 20) As IntegerР Dim i As Integer, sum As IntegerР For i = 1 To 20Р arr(i) = ⑴Р Next i