在考生目录下有一个工程文件sjt5．vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此2数相乘，若乘积<10，则以此乘积作为数列的第3项；若乘积≥10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右三个文本框的名称分别为：Textl、Text2、Text3，窗体下部的文本框名称为。Text4。程序运行时，在Textl、Text2中输入数列的前两项，Text3中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在Text4中。如图1-230所示。注意：文件中已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X AS Integer)As Integer If X<20 Then Y=X Else Y=20+X End If rune=Y End Function Private Sub Form MouseDown(Button As Integer， Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) SW=True End Sub Private Sub Commandl Click() Dim intNum As Integer intNum=InputBox(“”) If SW Then Print func(intNurn) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为（ ）。
假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As Str
(1)在窗体Forml上画一个名称为Textl的文本框和一个名称为Labell的标签，程序运行时，在文本框Textl中输入字符，文本框中的字符将值赋到Labell中。注意，本程序代码中不得使用任何变量。程序运行时的窗体界面如图50—l所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sil．vbp。(2)在窗体Forml中画一个文本框，名称为Textl、内容为空。要求设置适当的控件属性，使得程序运行时，可以多行显示且具备垂直滚动条。要求程序中不得有任何变量。程序运行时的窗体界面如图50一2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
(1)在考生文件夹下有一个工程文件sj3．vbp(相应的窗体文件名为sj3．frm)，在窗体上添加一个名称为Listl的列表框和一个名称为Text1的文本框，如图42—4所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图42—4所示。这个程序不完整，请把它补充完整，并能正确运行。注意：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4．vbp(相应的窗体文件名为sj4．frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图42—5所示)。注意：去掉程序中的注释符(即“'”号)，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
菜单项能触发的事件是______。
在考生文件夹中有一个工程文件execise28.vbp，相应的窗体文件为execise28.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“最小值”的命令按钮。其功能是产生30个0～1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮，即可求出其最小值，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
在窗体Form1上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”、“计算”和“存盘”)；然后绘制一个文本框(名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2)，如下图所示。程序运行后，如果执行“读数”命令，则读入in34.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的和存入考生文件夹下的out34.txt文件中。在考生文件夹下有一个工程文件execise34.vbp，考生可以装入该文件。窗体文件execise34.frm中的ReadData过程可以把in34.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out34.txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为execise34.vbp，窗体文件名仍为execise34.frm。
编写如下两个事件过程： Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form KeyPress(KeyAscii AS Integer)Print Chr(KevAscii)End Sub 在一般情况下(即不按住Shift键也未锁定大写键时)运行程序，如果按键盘上的“A”键，则程序输出的结果是( )。
以下合法的变量名是
在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Fextl和rext2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Command 1一Click() a=Textl．Fext+Text2．Fext Print a End Sub Private Sub Form Load()Text1. Text="" Text2．Text="" End sub 程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。
以下不属于标签属性的是______。
两个没有公共属性的关系作自然连接等价于它们作______。
阅读程序：Option Base 1Private Sub Form Click() Dim a(3)As Integer For i=1 TO 3 a(i)=InputBox(“输入数据”) Print a(i)； Next Print If a(1)
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。1．在名称为Form1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名(不显示路径名)。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为Sjt1.frm，工程文件名为sjt1.vbp。2．在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp，如图1—1所示。
设有关键码序列(66，13，5l，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序法，并以第一个元素为划分的基准，那么第一趟划分后的结果为( )。
设在菜单编辑器中定义了一个菜单项，名为Menul。为了在运行时隐藏该菜单项，应使用的语句是( )。
下面的程序用于根据文本框Text中输入的内容进行以下处理： 若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8， 9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。 Private Sub Command1_Click( ) Select Case Val(Text.Text) Case【 】 Print“Text的值为4，6” Case【 】 Print“Text的值为1，3，5，7” Case【 】 Print“Text的值为8，9” Case【 】 Print“Text的值不在范围内” End Select End Sub
在名为Form1的窗体上绘制一个文本框，名为Text1，其宽度为1000；再绘制一个水平滚动条，名为HS1。其刻度值的范围是1000～2000。请编写滚动条的Change事件过程，使程序运行后，若移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如下图所示。注意：程序中不能使用任何变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise70.vbp，窗体文件名为execise70.frm。
在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm。此外在考生文件夹下还有一个名为in5．txt的文本文件，其中共有25个数据，其内容如下：10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33，34程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在名为Textl的文本框上按5行×5列的矩阵形式显示出来，并在名为’Fext2的文本框中显示矩阵第3列的数据。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行时的效果如图50一5所示。注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的工程文件与窗体文件按原文件名存盘。