(1)在窗体Forml上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件并编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1.vbp。(2)在窗体Forml上画一个列表框，名称为List1，有“Item1”、“Item2”、“Itera3”和“Item4”4个表项。要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如图5—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为si2．vbp。

(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生30个0～800的随机整数，放入一个数组中，然后输出这30个整数中小于400的所有整数的个数。程序运行后，单击名称为Commandl的命令按钮，其标题为“输出小于400的整数的个数”，即可求出这些整数的个数，并在名称为Textl的文本框上显示出来，如图34—4所示。这个程序不完整，请把它补充完整，并能正确运行。注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件为sj4．frm，在窗体上有一个命令按钮和两个文本框。程序运行后，单击命令按钮，即可计算出20～200范围内能被5整除的所有整数的和及个数，并分别在文本框中显示出来，如图34—5所示。在窗体的代码窗口中，已给出了部分程序，其中计算能被5整除的整数的和及个数的操作在通用过程Func中实现，请编写该过程的代码。注意：请勿改动程序中的任何内容，只在FunctionFunc()和EndFunction之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上画一个名称为Pl的图片框，然后建立一个主菜单，标题为“操作”，名称为op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clear。，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“等级考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图1-15l所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。程序中不得使用任何变量。(2)在Forml的窗体上画一个列表框，名称为Ll，通过属性窗口向列表框中添加4个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添加到列表框中。程序的运行情况如图1-152所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2.frm。

(1)在Forml的窗体上绘制一个图片框，其名称为Picturel。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300，600)位置处开始显示“VisualBasic'’。程序运行情况如图36—1所示。注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在Forml的窗体上绘制一个文本框，名称为Textl；绘制一个命令按钮，名称为Commandl，标题为“显示”，TabIndex属性设为0。请为Commandl设置适当的属性，使得当焦点在Commandl时，按Esc键就调用Commandl的Click事件，该事件过程的作用是在文本框中显示“VisualBasic程序设计”，程序运行结果如图36—2所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

在文件列表框中，要使它只显示具有归档属性和只读属性的文件，应使它的( )属性为True。

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm。该程序的窗体是不完整的，要求设计好窗体，并编写相应的程序，完成题目的要求。窗体上已有3个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“修改”、“保存”、“添加”；另有一文本框，名称为Text1。要求在窗体设计一组合框，名称为Combol，初始表项内容如下：“北京010”、“天津022”、“上海021”。运行程序时，Combol文本框中内容为“中国直辖市”。单击“添加”按钮，则可以把文本框中的内容添加到组合框中；当选中组合框的表项时，单击“修改”按钮，文本框中显示选中的表项，同时“保存”按钮变为可用。修改完毕，单击“保存”，被选中项发生相应的变化，同时“保存”按钮变为不可用，如图69—3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。窗体上有一个标签，名称为Labell。Labell上为提示文字和返回值。在窗体上画一个命令按钮，命名为Commandl，标题为“判断”。程序运行后，如果单击命令按钮，．则显示一个输入框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程Funcl，在Funcl中判断所输入的整数是否为偶数。如果是偶数，过程Funcl返回1，否则返回O，并在标签上显示出来。程序运行时的窗体界面如图69—4所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹下有工程文件execise33.vbp及窗体文件execise33.frm。如下图所示，在名为Form1的窗体上有5个Labe1控件和2个命令按钮，数据文件in33.dat存放一些成绩。程序运行后，按Begin按钮后，从考生文件夹下的in33.dat中读出数据并求出它们的平均数，将结果写入考生文件夹下的out33.dat文件中。执行完毕，Begin按钮变成“完成”按钮，且无效(变灰)。要求：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。

窗体上有一个列表框，编写下列程序： Private Sub Command1_Click() ListRemoveItem3 End Sub Private Sub Form_Load() ListAddItem "拉瓦锡" ListAddItem "道尔顿" ListAddItem "汤姆森" ListAddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。

设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是

列表框的______属性代表着列表框中项目的数目。

(1)在名称为Forml的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中将Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图3-l所示。注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为si1．vbp。(2)在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为Display，按钮隐藏。编写适当的事件过程，使程序运行后，若单击窗体，则命令按钮出现；此时如果单击命令按钮，则在窗体上显示VisualBasic。程序运行情况如图3—2，3—3所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2 If【 】Then Print i, i + 2 End If Next i End Sub Public Funtion Prime (ByVal n As Integer) As Boolean Dim i as Integer For i = 2 To n - 1 If【 】Then Exit For End If Next i If i = n Then Prime = True Else Prime = False End If End Function

为了在运行时把图形文件piefile.jpg装入图片框对象Picture1之中，应该使用的语句为【 】。

下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim min1％，i％，j％，n％，t％，k％ a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min1=i 、 Forj=i+1 To n Ifa(j)

点击查看答案 进入题库练习