Private Sub Command1Click()

Dim a(1 To 4) As Integer

Dim i As Integer

   a(1) = 1

 For i = 2 To 4

   a(i) = 2 * a(i - 1) + 1

 Next i

List1.AddItem Str(a(i))

End Sub

实现上述功能的VB程序如下。请在画线处填入适当的语句和代码，把程序补充完整。

Dim w As Integer         ‘变量w用于存储每次最大数字字符的位置

Private Sub Command1_Click()

  Dim t As String

  Dim i As Integer，j As Integer

  Dim max As Integer，S As Integer

  t=Text1．Text

  s=0

  For i=3 To 1 Step-1

    max=0

    For j=1 To Len(t)

       If Val(Mid(t，j，1))>max Then

       max=Val(Mid(t，j，1))

    ①  

      End If

    Next j

    s=s+    ②   

    t=delmax(t)

  Next i

  Text2．Text=Str(s)

End Sub

‘自定义函数功能是去除当前最大数字字符

Function delmax(t As String)As String

  delmax=    ③  

End Function

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

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

图a

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

图b

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub

DIM A(6) AS INTEGER

FOR I= 1 TO 6

  A(I)= I

NEXT I

PRINT A(I)

i=0

sum=0

while i<10:

    if i%2==0:

        sum+=i

        i+=1

    print(‘sum=’，sum)