窗体上有一个名称为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 If

题目

窗体上有一个名称为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

相似考题

1.在窗体上画一个名称为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

2.在窗体上画一个名称为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

3.在窗体上画一个文本框(名称为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

4.在窗体上画一个文本框（其名称为 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的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属 ”相关问题

  • 第1题：

    在窗体上绘制一个名称为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


    正确答案：D
    【解析】本题考查列表框的属性。列表框属性是历年考试重点，考生应多做相关练习。本题要注意区分ListIndex与Text属性。ListIndex指被选中项的下标，而Text表示被选中项的内容。List1.ListIndex表示被选中的项本身，而List1.Text表示被选中项的内容，故本题正确答案是D。同时本题还涉及Name和Caption的区别，考生也要注意区分。

  • 第2题：

    窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。

    Pfivate Sub Form_Load()

    Fori=1 To 100

    If iMod7=


    正确答案：Lisn.Addnem IUst1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)
    Lisn.Addnem I,Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)

  • 第3题：

    在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。

    在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。

    要求：

    去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。


    正确答案：

  • 第4题：

    窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。

    A．Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub

    B．Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub

    C．Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub

    D．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb


    正确答案：A
    解析：当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在Text1_Change()事件中。

  • 第5题：

    在窗体上画一个名称List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单

    A．Private Sub list1_Click() Label1. Caption= List1. ListIndex End Sub

    B．Private Sub Listl_Click() Label1. Name= List1. ListIndex End Sub

    C．Private Sub List1_Click() Label1. Name== List1. Text End Sub

    D．Private Sub List1_Click() Label1. Caption: List1. Text End Sub


    正确答案：D
    解析：标签的Caption属性用来显示标签的文本内容，因此选项B和C错误。列表框的ListIndex属性指定已选中的列表框项的位置，不选任何项，其值为-1，第一项从。开始；列表框的Text属性指定选中的列表框项的文本内容，因此只有选项D正确。

相关内容