有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为
阅读程序: Option Base 1 Dim arr()As Integer Private Sub Form_Click()Dim i As Integer, j As Integer ReDim arr(3,2) For i = 1 To 3 For j = 1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，贝愉出结果为 ______。
设窗体上有名称为Optl的单选按钮，且程序中有语句： If Optl．Value=True Then 下面语句中与该语句不等价的是( )。
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) TextText=String(6, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。
窗体上有一个名称为Textl的文本框和一个名称为Commandl的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写到文件Out．txt中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True,SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。要求程序运行后，如果单击Read按钮则读入in4.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有偶数，在文本框Text1中显示出来，并把所有偶数之和存入考生文件夹中的文件out4.txt中。在考生文件夹下有标准模块model.bas，其中putdata过程可以把一个整型数存入out4.txt文件，考生可以把该模块文件添加到自己的工程中。注意：程序中对文件的操作统一使用相对路径：文件必须存放在考生文件夹中，窗体文件名为exeeise4.frm，工程文件名为execise4.vbp，结果存入out4.txt文件，否则没有成绩；
(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生40个0～800的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击名称为Commandl的命令按钮，标题为“输出最小值”，即可求出其最小值，并在Textl文本框中显示出来，如图33—4所示。这个程序不完整，请把它补充完整，并能正确运行。注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件为sj4．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出100～800范围内能被3整除和能被5整除的整数的个数，并在文本框中显示出来，如图33—5所示。在窗体的代码窗口中，已给出了部分程序。注意：请勿改动程序中的其他任何内容，只将“?”处的代码编写完整。最后把修改后的文件按原文件名存盘。
(1)在窗体上绘制一个名称为Textl的文本框，然后建立一个主菜单，标题为“操作”，名称为Op。该菜单有两个子菜单，其标题分别为“显示’’和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示’’命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则程序结束。程序的运行情况如图4—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。(2)在名为Form1的窗体上绘制一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试VisualBasic课程”。程序运行情况如图4—2所示。注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
一个采用顺序存储结构的栈，其中top为栈顶指针，若以地址高端作栈顶，地址低端作栈底，那么进行进栈操作时，对top的操作为( )。
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel．Picture=LoadPicture(“c:＼picture．jpg”) Picturel．Cls Picturel．Print“picture”． End Sub
关于菜单设计，下列叙述中错误的是( )。
(1)在考生文件夹下有工程文件sj3．vbp与窗体文件sj3．frm，该程序和窗体是不完整的。请在窗体上设置一个标签，名称为Labell，标题为“计算1／2-1／3+1／4-1／5+1／6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为Commandl、标题为“计算”；文本框的名称为Textl，用于显示结果，并初始化为空。然后编写相应的代码，要求运行程序时，单击“计算”按钮，程序可以计算出1／2-1／3+1／4-1／5+1／6的值，并将结果显示在文本框中，如图26—3所示。注意：考生完成程序编写后，将工程文件与窗体文件按原文件名保存到考生文件夹下，不得更改程序的其他部分，否则可能无成绩。(2)新建一个工程文件，在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题分别为“平均分”和“清空”的命令按钮；一个名为Textl的文本框。要求程序运行后，单击“平均分”按钮，可通过输入对话框输入7个整数，去掉最大的和最小的然后求平均分，将结：果在文本框中显示出来。如果单击“清空”按钮，则将文本框清空。在程序中不得使用任何其他变量。程序运行时的窗体界面如图26—4所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj4．frm，工程文件名为sj4．vbp。
在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有两个命令按钮，名称分别为Commandl和Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为Textl、MultiLine属性为True、ScrollBars属性为2；要求如果单击“读取数据”按钮，则读入in．txt文件中的50个整数，放入一个数组中，同时在文本框中显示出来；如果单击“保存”按钮，则计算数组中小于300或大于或等于800的所有数之和，把求和结果在文本框Textl中显示出来，如图32—5所示。同时把结果存人考生文件夹中的文件out．txt中。(在mode．bas中的writedata过程可以把结果存入out．txt文件。)。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件中，否则没有成绩。
(1)在名为Forml的窗体上绘制一个名为chkl的复选框数组，含3个复选框，它们的标题依次为First、Second和Third，其下标分别为0、1、2。初始状态下，Second和Third为选中状态。运行后的窗体如图30—1所示。注意：文件必须存放在考生文件夹中，工程文件名为sjl．vbp，窗体文件名为sjl．fml。(2)请在名为Forml的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为“文件”和“编辑”，名称分别为vbFile和vbEdit；在“编辑”菜单下有第二级菜单，含有3个菜单项，标题分别为“剪切”、“复制”和“粘贴”，名称分别为vbCut、vbCopy和vbPaste。其中“剪切”菜单项设置为无效(如图30—2所示)。注意：文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
下面程序实现将预先装载在Picture1中的图形清除，在横线上填写正确的语句。 Private Sub Form_Load() Picture1．Picture=LoadPicture("face.bmp") End Sub Private SubCommand1 Click() 【 】 End Sub
在窗体Form1上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“存盘”，如下图所示。程序运行后，如果单击“读数”按钮，则读入in511.txt和in512.txt文件中的各20个整数，分别放入两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后放入第3个数组中(即：把第一个数组的第n个元素除以第二个数组的第n元素，结果截尾取整后作为第3个数组的第n个元素。这里的n为l，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹的out.txt文件中。在考生文件夹下有一个工程文件execise51.vbp，考生可以装入该文件。窗体文件execise51.frm中的ReadData1和ReadData2过程可以把in511.txt和in512.txt文件中的各20个整数分别读入Arr1和Arr2数组中；而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out51.txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为execise51.vbp，窗体文件名仍为execise51.frm。
在考生文件夹下有工程文件execise35.vbp及窗体文件execise35.frm。如下图所示，在名为Form1的窗体上有5个Labe1控件和2个命令按钮，数据文件in35.dat，存放考生的考号、姓名、成绩。要求：(1)自定义一个数据类型stu，字符型数据定长为10。(2)按Begin按钮后，能从考生文件夹下的in35.dat中读出所有数据并写入考生文件夹下的out35.dat文件中。(3)执行完毕，Begin按钮变成“完成”，且无效(变灰)。注意：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在Textl文本框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时“计算”变为可用；当计算完成后．“计算”变为不可用；当输人为非数值时，累加结果为0。单击“计算”可以在Text2中显示累加和，且该框内的文字不可修改；同时“计算”变灰。“清空”变为可用。单击“清空”，输入框和显示框均被清空，同时“计算”和“清空”变为不可用。如图56—3所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行。窗体上有两个复选框，名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”；两个单选按钮，名称分别为Optionl和Option2。标题分别为“选择”和“其他”；一个名称为Labell、Caption属性为空的标签；一个名称为Commandl、标题为“显示”的命令按钮，一个名称为Textl的文本框，Text属性为空。要求程序运行后，对选中Optionl时checkl和Check2可用，Textl也可用，当选中Option2的时候，Textl可用，Checkl和claeck2不可用，然后单击显示按钮．可在窗体上显示相应的信息，如选中Optionl，则显示选中复选框的信息，选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。注意：不得使用任何变量。存盘时不得改变文件夹和文件名。
在考生文件夹下有一个工程文件Sj5．vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有3个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生文件夹下的in5．dat文件中读取40个整数到数组中，并在Textl中显示出来；“降序排列”按钮的功能是对这40个数降序排序，并显示在Textl中；“保存”按钮的功能是把排好序的40个数存到考生文件夹下的out5．dat文件中。程序运行界面如图38—5所示。注意：在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。