1. 在名称窗体为Form1，KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1)，如图2—1所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2—2所示。

 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

 2．在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被?整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。

 要求：请勿改动程序中的任伺内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

1. 在名称窗体为Form1，KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1)，如图2—1所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2—2所示。

 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

 2．在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被?整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。

 要求：请勿改动程序中的任伺内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

下列关于线性链表的描述中正确的是(  )。

以下叙述不正确的是______。

如果将窗体中文本框的Password Char属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是(  )。

当一个工程含有多个窗体时，其中的启动窗体是(  )。

下列程序段的执行结果为  a=5  For k=1 To 0   a=a * k  Next k  Print k；a

当直线或形状的BorderStyle属性设置为1时，控件是（　　）。

下列程序段的执行结果为______。  DimA(10),B(5)    For i=1 To 10      A(i+=i    Next i    For i=1 To 5      B(j)=j*20    Nextj    A(5)=B(2)    Pfiat"A(5)"；A(5)

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：  Private Sub Command1_Click( )  Dim x As Integer，n As Integer  x=1  n=0  Do While x＜20    X=K*3    n=n+1  Loop   Text1.Text=Str(x)  TextText=Str(n)  End Sub  程序运行后，单击命令按钮，在两个文本框中显示的值分别是

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程  Option Base 1  Private Sub Command1_Click()    Dim a(5,5)As Integer    For i=1 To 5       For j=1 To 5         a(i,j)=(i+j)*5\10       Next j    Next i    s=0    For i=1 To 5       s=s+a(i,i)    Next i    Print s  End Sub