在名为Form1的窗体上绘制一个标签,其名称为Lab1,然后通过属性窗口设置窗体和标签的属性,实现如下功能:(1)窗体标题为“设置标签属性”。(2)标签的位置为:距窗体左边界500,距窗体顶边界300。(3)标签的标题为“等级考试”。(4)标签可以根据标题的内容自动调整其大小。(5)标签带有边框。程序的运行情况如下图所示。注意:不编写任何代码;文件必须存放在考生文件夹中,工程文件名为execise59.vbp,窗体文件名为execise59.frm。
设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = arr1(1) For i=2 To 8 If arr1(i)<Min Then Next i Print "最小值是:"; Min End Sub
在考生目录下有一个工程文件sj5.vbp,其窗体上有一个文本框,名称为Textl;还有一个命令按钮,名称为Commandl,标题为“输出结果”,如图64—6所示。并有一个函数isPrimeNum可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回true,否则返回false。请编写适当的事件过程,使得在运行时,单击“输出结果”按钮,则找出大于2000的最小素数,并显示在Textl中。注意:保存时必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp。
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填( )。
Sub EnSure()
Dim year As Integer
year=Val(InputBox(”请输入年份:”))
If(year Mod 4=0__________year Mod 100<>0)_________(year Mod 400=
0)Then
Print”您输入的是闰年”
Else
Print”不是闰年,是普通年份”
End If
End Sub
下列程序段,在运行时最后输出的内容是 a=2 c=1 AAA: c=c + a If c<10 Then Print c GoTo AAA Else Print "10以内的奇数显示完毕" End If
列表框的【 】属性决定列表框中项目在程序运行期间是否按字母顺序排列,如果该属性为True,则按字母顺序排列显示,为False则按项目加入的先后顺序排列显示。
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2,它们都显示垂直滚动条和水平滚动条,都可以显示多行文本;再绘制一个命令按钮,名为Cmd1,标题为Copy(如下图所示)。请编写适当的事件过程,使得在运行时,在Text1中输入文本后,单击Copy按钮,就把Text1中的文本全部复制到Text2中。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise56.vbp,窗体文件名为execise56.frm。
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2(如下图所示),初始情况下都没有内容。请编写适当的事件过程,使得程序在运行时,在Text1中输入的任何字符,立即显示在Text2中。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise7/vbp,窗体文件名为execise7.frm。
把窗体的KeyPreview属性设置为True,然后编写如下事件过程: Private Sub Form_KeyPress(KeyAsciiASInteger) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后,按键盘上的A键,则在窗体上显示的内容是( )。
在名为Form1的窗体上绘制一个水平滚动条,其名称为HS1,设置滚动框Min属性为1000,Max属性为2000,LargeChange属性为100,SmailChange属性为2;然后再绘制一个文本框,其名称为Text1,初始内容为空白。编写适当的事件过程,使程序运行后,移动滚动框,则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。注意:不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为execise98.vbp,窗体文件名为execise98.frm。
下述不属于概念模型应具备的性质的是( )。
在窗体form1上有一个驱动器列表控件Drivel,一个目录列表控件Dirl,一个文件列表控件File1,一个富文本控件Richtexbox1。要求程序运行以后,用户可以利用。Drivel选择不同驱动器,同时Dirl中显示当前选中的驱动器的目录,用户利用Dirl选择文件所在的文件夹,在Filel控件中将显示当前选中的文件夹下的文件,用户选中其中某个文件(假设为文本文件),则该文件的内容显示在控件Richtexboxl中。补充相应的语句,使之完成所述的功能。 Private Sub Dirl_Change() 【 】 End Sub Private Sub Drive1_Change() 【 】 End Sub Private Sub Filel _Click() Dim fname AS String If【 】Then fname=Filel.Path & Filel.FileName Else fname=Filel.Path& "" & Filel.FileName End If RichTextBox1.LoadFile(fname) End Sub
在名为Form1的窗体上绘制一个命令按钮,其名称为Cmd1,然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:(1)窗体标题为“设置按钮属性”。(2)命令按钮的标题为“计算机等级考试”。(3)程序运行后,命令按钮不显示。(4)命令按钮的标题用三号规格黑体显示。程序的运行情况如下图所示。注意:不编写任何代码;文件必须存放在考生文件夹中,工程文件名为execise73.vbp,窗体文件名为execise73.frm。
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读入数据”和“计算保存”,如图2-6所示。要求程序运行后,如果单击“读入数据”按钮,则读入“in.txt”文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件result.txt中。(在prog.bas中的putdata过程可以把结果存入result.txt文件)。注意:文件必须存放在考生文件夹下,窗体文件名为sjt5.frm,工程文件名为sjt5.vbp,计算结果存入result,txt文件中,否则没有成绩。
每个VB对象都有其特定的属性,可以通过______来设置,对象的外观和对应的操作由所设置的值来确定。
以下属于Visual Basic中合法的数组元素的是
选择和循环控制结构的作用是
执行下面的程序段后,i的值为【 】,s的值为【 】。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i
(1)在名称为Forml的窗体上画两个图片框,名称分别为Pl、P2,高度均为1900,宽度均为1700。通过属性窗口把图片文件picl.bmp放入P1中,把图片文件pic2:jpg放入P2中;再画一个命令按钮,名称为Cl,标题为“交换图片”(如图l-208所示)。编写适当的事件过程,使得在运行时,如果单击“交换图片”按钮,则在Pl中显示pic2.jpg,在P2中显示pic1.bmp。程序中不得使用任何变量,也不能使用第三个图片框。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjl3.frm。(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Chl、Ch2,标题分别为“程序设计”、“数据库原理”;然后画一个文本框,名称为Textl;再画一个命令按钮,名称为Cl,标题为“确定”(如图1-209所示)。请编写适当的事件过程,使得在运行时,选中复选框并单击“确定”按钮,就可以按照下表的要求把结果显示在文本框中。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须进行产生表1-9一个结果的操作。
在名为Form1的窗体上绘制1个文本框,名称为Text1,允许多行显示:再绘制3个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为Read、Change和Save,如下图所示。编写适当的事件过程,使得在运行时,单击Read按钮,则从考生文件夹中读入in22.txt文件(文件中只有字母和空格),放入Text1中;单击Change按钮,则把Text1中的所有大写字母转换为小写字母:单击Save按钮,则把Text1中的内容存入out22.txt文件中。注意:考生必须把转换后的内容用“Save”按钮存入out22.txt文件,否则无成绩。考生的工程文件以文件名execise22.vbp存盘,窗体文件以文件名execise22.frm存盘。
