在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=" " Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
在考生文件夹中有一个工程文件execise54.vbp设窗体文件execise54.frm。在窗体Form1中已经给出了所有控件，如下图所示。编写适当的事件过程实现以下功能；单击Read按钮，则把考生目录下的in54.txt文件中的一个整数放入Text1；单击Calc按钮，则计算出小于该数的最大素数，并显示在Text2中；单击Save按钮，则把找到的素数存到考生目录下的out54.txt文件中。注意：在结束程序运行之前必须单击Save按钮，把结果存入out54.txt文件，否则无成绩。最后把修改后的文件按原文件名保存。
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框( )。 Private Sub Commandl Click() Text1．Text=“程序设计” Text1．SetFocus End Sub Private Sub Text1 GotFocus() Text1．Text=“等级考试” End Sub 运行以上程序，单击命令按钮后( )。
在名为Form1的窗体上绘制一个图像框，名为Image1，其高、宽分别为2000、1800，通过属性窗口把考生文件夹下的图像文件Pic1.bmp装入图像框；再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“放大”和“缩小”，如下图所示。要求：(1)请编写适当的事件过程，使程序运行后，若单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。该程序中不得使用任何变量。(2)通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：文件必须存放在考，生文件夹中，工程文件名为execise24.vbp，窗体文件名为execise24.frm。
在名为Form1的窗体上绘制一个文本框，名为Text1，其初始内容为0；绘制一个命令按钮，名为Cmd1，标题为Begin；再绘制一个名为Timer1的计时器。要求在开始运行时不计数，单击Begin按钮后，则使文本框中的数每秒加1(方法是：把计时器的相应属性设置为适当值，在计时器的适当的事件过程中加入语句：Text1.Text=Text1.Text+1并在命令按钮的适当事件过程中加入语句：Timer1.Enabled=True)。运行时的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise50.vbp，窗体文件名为execise50.frm。
在考生文件夹中有一个工程文件execise7.vbp及窗体文件exeeise7.frm。在名为Form1的窗体中已经给出了所有控件，如下图所示。编写适当的事件过程完成以下功能：单击Read按钮，则把考生目录下的in7.txt文件中的一个整数放入Text1；单击Calc按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击Save按钮，则把找到的素数存到考生目录下的out7.txt文件中。注意：在结束程序运行之前，必须单击Save按钮，把结果存入out7．txt文件，否则无成绩。最后把修改后的文件按原文件名保存。
在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm。在窗体Form上有一个名为Listl的列表框，列表框中有若干列表项，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是Commandl和Command2，标题分别是“全选”和“保存”(如图41—6所示)。要求在程序运行时，单击“全选”按钮则将Listl中的全部列表项选中，然后单击“保存”按钮，将Listl中的全部列表项写入文本文件out5．txt中，并将out5．txt保存在考生文件夹下。注意：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
在名为Form1的窗体上绘制一个标签，名为Lab1，标题为“体育生活”；再绘制一个名为Chk1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为“足球”、“篮球”和“排球”，请设置复选框的属性，使其初始状态如下表所示。注意：文件必须存放在考生文件夹中，工程文件名为execise109.vbp，窗体文件名为exeoiSe109.frm。
在Form1的窗体上绘制一个名为Lab1的标签框，设置相关属性，使标签有框架。然后建立一个主菜单，标题为“操作”，名为vbOp，该菜单有两个菜单项，其标题分别为“显示”和“隐藏”，名称分别为vbDis和vbHide。编写适当的事件过程，程序运行后，若单击“操作”菜单中的“显示”命令，则在标签框中显示VisualBasic；如果单击“隐藏”命令，则隐藏标签框。程序的运行情况如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise79.vbp，窗体文件名为cxecise79.frm。
顺序存储方法是把逻辑上相邻的节点存储在物理位置______的存储单元中。
以下程序段的输出结果为（ ）。 Dim a(10)．P(3) k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i+(i+1)) Next i For i=0 To 2 k=k+p(i)+2 Next i Print k
要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮Click事件过程中使用( )语句。
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Dim Y As Single Open 【 】 Y=3.14159 / 180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i * Y) Ksc.Cosx=Cos(i * Y) 【 】 Next i Close #2 End Sub
下面循环语句巾在任何情况下都至少执行一次循环体的是（ ）。
在考生文件夹中有一个工程文件execise42.vbp和窗体文件execise42.frm。请在名为Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“二级考试”、“计算机”和空白：然后绘制2个单选按钮，其名称分别为opt1和Opt2，标题分别为Change和Join，编写适当的事件程序。要求在程序运行时，先单击Change单选按钮，使Text1文本框中内容与Text2文本框中内容进行交换，并使Change单选按钮消失；然后单击Join单选按钮，则把交换后的Text1和Text2的内容以Text1在前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。如下图所示。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击Change单选按钮，后单击Join单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。最后原名保存修改后的文件。
在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。窗体Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为Commandl，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输入数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示“输入的数值太小”，如图1—5所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
有以下程序段，单击Commandl按钮后，屏幕上的输出结果是( )。 Private Sub Commandl_Click() For i=6 To 9 Print Tab(i*i)，i Nexti End Sub
在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发( )事件。
在考生文件夹中有一个工程文件execise56.vbp及窗体文件execise56.frm。在窗体Form1上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”，如下图所示。有一个函数过程isprime可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出小于5000的最大的素数，并显示在Text1中：单击“存盘”按钮，则把Text1中的计算结果存入考生目录下的out56.txt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out56.txt文件中，否则无成绩。
下列程序段的输出结果为______。Dimy As Integer Private Sub Commandl_CUck() DimX As Integer x=2 TeKt1.Text=SecondFunc(FirStFunC(X)，y) Text2.Text=FirstFunc(X) End Sub PrivateFunctionFirstFunc(XASInteger)As Integer x=x+y:y=x+y Firs