在新建一个VB工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为( )。
在Visual Basic的立即窗口内输入以下语句
X=65
?Chr$(X)
在窗口中显示的结果是_________。
在名称为Form1的窗体上有两个命令按钮(名称分别为COmmand1和command2、标题分别为“读取”和“保存”)和一个文本框(名称为Textl、MultiLine属性为True、ScrollBars属性为2)。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),并在文本框1"extl中显示出来,运行界面如图6—5所示。如果单击“保存”按钮,则把数组中的前30个数据在文本框Textl中显示出来,并存人考生文件夹中的文件result.txt中。(考生文件夹中有标准模块mode5.has,其中的writeData过程可以把指定个数的数组元素存入result.txt文件。)注意:在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,结果存入result.txt文件,否则没有成绩。
在名为Form1的窗体上建立一个名为HS1的水平滚动条,其最大值为200,最小值为0。要求程序运行后,每次移动滚动框时,都执行语句Form1.PdntHS1.Value(如下图所示)。注意:程序中不能使用任何其他变量:文件必须存放在考生文件夹中,窗体文件名为execise78.frm,工程文件名为execise78.vbp。
下面程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请在[]和[]处把程序补充完整。
在E盘当前目录文件夹下建立一个名为“Student:txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序( )。 Private Type student StuName As String * 10 StuGrade As String * 10 StuAge As Integer End Type Private Sub Form Click() Dim s As student Open“c:\student.txt”For Random As#1 Len=Len(s) For i=1 To 5 s.StuName=InputBox(“请输入姓名”) s.StuGrade=InputBox(“请输入年级号”) s.StuAge=Val(InputBox(“请输入年龄”)) Nexti Close#1 End Sub
指令“Circle(1500,1200),1000,,,,0.5”将会绘制出的图形为( )。
执行下列程序段后,输出的结果是( )。For kl=0 To 4 y=20 For k2=0 To 3 Y=10 For k3=0 To 2 y=Y+10 Next k3 Next k2Next k1Print y
在菜单编辑器中建立一个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程: Private Sub Form—MouseDown(Button AS Integer,Shift As Integer,X AS Single,YAs Single) If Button=1 Then PopupMenu MenuO End If End Sub则以下叙述中错误的是( )。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后,文本框Textl和Text2内的值分别是
数据库设计包括两的设计内容,它们是______。
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。本程序只有一个窗体,当把鼠标光标移到窗体上时,每双击一次鼠标,就变换一种鼠标光标的形状,依次显示鼠标光标的15种属性。程序运行后的窗体如图59—4所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4.vbp,窗体文件sj.frm,该程序是不完整的。在窗体上已经域出一个图像框,名称为Imagel;一个水平滚动条,名称为HScroll1。要求考生不改动Imagel的Height与width属性。当运行程序时,图像框中加载考生文件夹下的图片test.bmp。滚动水平滚动条中的滚动块时,图片会随着滚动条的滚动进度逐渐显露出来,如图59—5所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。修改后的工程及窗体文件,均以原名保存在考生文件夹下。
在考生文件夹下有工程文件execise26.vbp及窗体文件execise26.frm。在名为Form1的窗体上有3个Labe1控件和2个名称分别为Cmd1和Cmd2,标题分别为开始和End的命令按钮。编写函数ITEM(A,N),其功能是由数字A组成的不多于N位数的整数,并利用该函数求5+55+555+5555+55555的和,结果写入考生文件夹下的out26.dat文件中。执行完毕Begin按钮变成“完成”按钮,且无效(变灰)(参见下图)。要求:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“'”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。
如果在窗体Form1上添加一个通用对话框控件CommonDalogl,那么语句CommonDialog1.Action=4的作用是 ______。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填人适当的内容,将程序充完整。Private Sub Command1_Click() Dim a As Integer,n As Integer,Cout As Integer Dim Sn As Long,Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值:") 【 】 Do Tn=Tn * 10 + a Sn二Sn + Tn Cout=Cout+1 【 】 Debug.Print a,n,SnEnd Sub
1.在窗体上画两个文本框,名称分别为T1、T2,初始情况下均为空白,编写适当的事件过程。程序运行后,如果在T1中输入字符,则所输入的字符立即在T2中显示出来,并把小写字母转换为相应的大写字母,如图1—1所示。要求:程序中不得使用任何变量。注意:存盘时,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。2.在窗体上画二个文本框,名称为Text1和Text2,内容为空;再画二个标签,名称分别为L1和L2,标题分别为“输入A,B,C:”和“A×B+C=”;再画一个命令按钮,名称为C1,标题为“运算”。编写适当的程序。程序运行时,在文本框Text1中输入用逗号隔开的3个整数A、B、C,单击“运算”按钮,则计算出A×B+C的值,显示在文本框Text2中。程序运行结果如图1—2所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
函数过程(用Function定义)与子过程(用Sub定义)的最大区别是( )。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“练习”的窗体上画一个名称为Framel、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chkl、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。运行后的窗体如图1-23l所示。要求:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。(2)在名称为Forml的窗体上画一个名称为Labell的标签,其初始内容为空,且能根据指定的标题内容自动调整标签的大小;再画两两个命令按钮,标题分别是“日期”和“时间”,名称分别为Commandl、Command2。请编写两个命令按钮的Click事件过程,使得单击“日期”按钮时,标签内显示系统当前日期;单击“时间”按钮时,标签内显示系统当前时间,如图1-232所示。要求:程序中不得使用变量,每个事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是( )。
单击一次命令按钮,下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dim a As Integer,b As Integer,C As Integer a=2:b=3:c=4 Print P2(c,b,a) End Sub Private Function P1(x As Integer,y As Integer,z As Integer) P1=2*x+y+3*z End Function Private Function P2(x As Integer,y As Integer,z As Integer) P2=P1(z,x,y)+x End Function