Private   Sub  Command1_click ( )

Dim  n  As  Integer , m  As  Integer  , k  As  Integer

n  = Len ( Text1．Text )

m  = Val ( Text2．Text )

k  = Val ( Text3．Text )

If  m + k -1 > n   Then

Text4．Text = Mid ( Text1．Text , 1 , m – 1 )

      Else

       Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )

      End  If

End  Sub

Private Sub Command1_Click()

a = Text1

For i = 1 To Len(a)

    b = Mid(a, i, 1)

    c = Chr(Asc(b) )

    d = d + c

Next i

Text2 = d

End Sub

如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：（   ）

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

  a(i) = Int(Rnd * 1000) + 1

  List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

  If {#blank#}1{#/blank#} Then max = a(i)

  If a(i) < min Then min = a(i)

  sum = sum + a(i)

Next i

{#blank#}2{#/blank#}

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

1)对于两个形状相同的矩阵，它们的内积是每个对应位置的数字相乘之后的和；

2)对于小矩阵和大矩阵卷积运算时，以小矩阵为参考，沿着横向和纵向两个方向逐个滑动（取同样大小的矩阵），依次横向和纵向两个方向逐个滑动（取同样大小的矩阵），依次求出内积，得到结果矩阵，如图a所示。

图a

小A同学用VB程序模拟上述的矩阵卷积运算，单击“初始化小矩阵”按钮command1，随机生成小矩阵数据，单击“初始化大矩阵”按钮command2，随机生成大矩阵数据，单击“运算”按钮command3，进行矩阵卷积运算并生成结果矩阵，运行界面如图b所示：

图b