窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）For i=1 To 100If i Mod 7 =0 Then________End IfNextEnd SubPrivate Sub Command1_Click（）Sum = 0For i = 0 To ________Sum = Sum + ________NextText1.Text = SumEnd Sub
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load（）
For i=1 To 100
If i Mod 7 =0 Then
________
End If
Next
End Sub
Private Sub Command1_Click（）
Sum = 0
For i = 0 To ________
Sum = Sum + ________
Next
Text1.Text = Sum
End Sub
相关考题：
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击别表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是。A. Private Sub List1_Click() Labell.Caption=List1.ListIndex End SubB. Private Sub List1_Click() Labell.Name=List1.ListIndex End SubC. Private Sub List1_Click() Labell.Name=List1.Text End SubD. Private Sub List1_Click() Labell.Caption=List1.Text End Sub
在窗体上画一个文本框（其名称为 Text1）和一个标签（其名称为 Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（ ）。A．Private Sub Text1_Click（）Label1.Caption=Textl.TextEnd SubB．Private Sub Text1_Change（）Label1.Caption=Text1.TextEnd SubC．Private Sub Label1_Ctrange（）Label1.Caption=Text1.TextEnd SubD．Private Sub Label1_Click（）Label1.Caption=Text1.TextEnd Sub
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（ ）。A．Private Sub List1_Click（）Label1.Caption = List1.ListIndexEnd SubB．Private Sub List1_Click（）Label1.Name=List1.ListIndexEnd SubC．Private Sub List1_Click（）Label1.Name=List1.TextEnd SubD．Private Sub List1_Click（）Label1.Caption =List1.TextEnd Sub
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。A．Private Sub Text1_Change() Label1．Caption=Text1．Text End SubB．Private Sub Label 1_Change() Label1．Caption=Text1．Text End SubC．Private Sub Text1_Click() Label1．Caption=Text1．text End SubD．Private Sub Label1_Click( ) Label1．Caption=Text1．Text End sot
在窗体上绘制一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中的项目的名称。下列能正确实现上述操作的程序是 。A．Private Sub List1_Click()Labell.Caption=List.ListIndex End SubB．Private Sub List1_Click()Labell.Name=List1.ListIndex End SubC．Private Sub List1_Click()Labell.Name=List1.Text End SubD．Private Sub List1_Click()Labell.Caption=List.Text End Sub
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。A．Private Sub Text1_Change() Label1.Caption=Text1.Text End SubB．Private Sub Text1_Click() Label1.Caption=Text1.Text End SubC．Private Sub Label1_Change() Label1.Caption=Text1.Text End SubD．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。Pfivate Sub Form_Load()Fori=1 To 100If iMod7=
在窗体上画一个名称List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单A．Private Sub list1_Click() Label1. Caption= List1. ListIndex End SubB．Private Sub Listl_Click() Label1. Name= List1. ListIndex End SubC．Private Sub List1_Click() Label1. Name== List1. Text End SubD．Private Sub List1_Click() Label1. Caption: List1. Text End Sub
在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。要求：去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。