1 2 3
4 5 6
1 3 5
1 2 6
窗体上有一个名称为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和Command1,然后编写如下事件过程:PrivateSub Form_Load()List1.AddItem "Item1"List1.AddItem "Item2"List1.AddItem "Item3"End SubPrivate Sub Command1_Click()List1.List(List1.Listcount) ="AAAA"End Sub程序运行后,单击命令按钮,其结果为A.把字符串"AAAA"添加到列表框中,但位置不能确定B.把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)C.把列表框中原有的最后一项改为"AAAA"D.把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面)
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是______。A.1 2 3 2 4 6 3 6 9B.2 3 4 3 4 5 4 5 6C.1 4 7 2 5 8 3 6 9D.1 2 3 4 5 6 7 8 9
假如列表框(List1)有4个数据项,要把最后一个数据项“china”删除的语句是( )。A. 移去第一项B. 移去最后一项C. 程序无操作D. 程序出错
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A.List1.IndexB.List1.ListIndexC.List1.TextD.List1.ListCount
在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。A.1 2 3 4B.2 3 4 5C.2 3 4 4D.3 4 5 6
在窗体上添加一个命令按钮,名为Command1,事件过程如下:程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。A.5B.4C.3D.2