解答VB编程试题

来源：百度知道 编辑：UC知道 时间：2024/09/21 16:41:20
各位大侠，以下是几道VB程序设计题，请各位帮忙写出具体的编程，感谢万分！
1、编写程序：将一维数组中元素向右循环移位，移位次数键盘输入（如：数组各元素的值依次为0，1，2，3，4，5，6，7，8，9；位移3次后得7，8，9，0，1，2，3，4，5，6）

2、编写程序：产生两个3行3列的同型矩阵A和B，A的主对角线为2，其余数为0：B前两行数据是个位数，随即产生，第三行数分别以同列前两行数之和，计算A+B

3、生成杨辉三角形图，规律是：对角线和每行的第1列均是1，其余各项是它的上一行中前一个元素和上一行的同一列元素之和

4、设计完成+ - * / 功能。具体：在两个文本框中输入两个数，当点击窗体上+ - * / 四个按钮时完成相应操作。其中五个命令按钮设置为控制数组Cmdoper,文本框分别为Text1,Text2,Text3

请各位帮帮忙！！

（1）
Dim a(10) As Integer, b(10) As Integer
For i = 1 To 10
a(i) = i - 1
Print a(i);
Next i
n = InputBox("输入位移的位数")
Print
For i = 1 To 10
j = i + n
If i + n > 10 Then j = j - 10
b(j) = a(i)
Next i
For i = 1 To 10
Print b(i);
Next i
（2）
Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = 0
If i = j Then a(i, j) = 2
Print a(i, j);
If i < 3 Then
b(i, j) = Int(Rnd() * 10)
Else
b(i, j) = b(1, j) + b(2, j)
End If
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
c(i, j) = a(i, j) + b(i, j)
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print c(i, j);
Next j
Print
Next i
（3）
Dim a() As Long
n = InputBox("输入三角形的行数")
ReDim