-
假定窗体的名称(Name属性)为Form1,则把窗体的标题设置为“VB Test”的语句为()。
A . Form1=”VB Test”
B . Caption=”VB Test”
C . Form1.Text=”VB Test”
D . Form1.Name=”VB Test&rdquo
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:
-
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' />
设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是
A.Open"c:\Test29.dat"For Random As1 Put1,1,p C10se 1
B.OpeH"c:\Test29.dat"For Random As 1 Get1,1,p C108C1
C.Open"c:\Test29.dat"For Random As1 Len=Len(p) Put1,1,p C108C1
D.OPell"c:\Test29.dat"For,Random As1 Len=Len(p) Get1,1,p C106e1
-
在窗体上有两个文本框控件,名称分别为Text1和Text2,以下程序实现的功能是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示,下划线处应填()。
<img src='https://img2.soutiyun.com/shangxueba/ask/3102001-3105000/3104740/ct_ctvbbm_choose_04645(20092).jpg' />
Private Sub Text1_ _________() TextText=Text1.Text End Sub
A.SetFocus
B.Change
C.GetFocus
D.Click
-
(16 )在窗体上画两个单选按钮(名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ) 、 1 个复选框(名称为 check1, 标题为 “ 粗体 ” )和 1 个文本框(名称为 text1,text 属性为 “ 改变文字字体 ” ) ,窗体外观如图所示 。 程序运行后 , 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 , 则以下能够实现上述操作的语句序列是
<img src='https://img2.soutiyun.com/ask/uploadfile/4887001-4890000/63a34c5c137b801731b9056652595682.gif' />
A) Option1. value = False
Check1. value = True
B) Option1. value = True
Check1. value = 0
C) Option1. value = True
Check1. value = 2
D) Option1. value = True
Check1. value = 1
-
在VB窗体上添加一个名称为 Command1的命令按钮,再添加两个名称分别为Label1、Label2的标签,然后
A.A.13和40
B.B.13和8
C.C.5和40
D.D.5和8
-
在窗体上画两个名称分别为TextTexte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopTextText=Str(x)TextText=Str(n)E
A.15和1
B.27和3
C.195和3
D.600和4
-
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Form1的窗体画两个Label控件,名称分别为Label1和Label2,其中Label1中显示“总人数”,Label2中显示“总分”,添加两个名称分别为Text1和Text2的文本框,再画两个命令按钮,名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”,数据文件in5.txt存放成绩。
要求程序运行后:单击“读取数据”按钮后,从考生文件夹下的in5.txt中读出数据,并在标签Text1中显示人数;单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5.txt文件中;执行完毕,“读取数据”按钮变成“读取完成”,且无效(变灰),如图60-5所示。
<img src='https://img2.soutiyun.com/ask/uploadfile/11274001-11277000/5ec6e2b50afd4185cfebcb98fe4e9b51.png' />
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“‘”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,程序编写完整后执行一次操作,将结果保存到考生文件夹下的out5.txt文件中,否则没有成绩。
-
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性:
Min 500
Max 2000
LargeChange 50
SmallChange 20
编写适当的事件过程,使程序运行后,若移动滚动条上的滚动框,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182470/ct_ctvbjj_ctvbjbasicope_00061(20096).jpg' />
注意:
要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise58.vbp,窗体文件名为execise58.frm。
-
创建名称为Form1,标题名为“请输入密码”的窗体。在窗体上画一个标签,名称为 Label1,标题为“请输入您的密码”。在标签的下方画一个文本框,名称为“密码框”,其高度和宽度分别为2000和500。要求在输入密码时,文本框中显示“*”字符。以上这些设置必须在设计过程中进行,运行时的窗体如图1所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylcl.vbp,窗体文件名为ylcl.frm。
<img src='https://img2.soutiyun.com/shangxueba/ask/11067001-11070000/11067794/ct_ctvbjm_basicope_00030(20092).jpg' />
-
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分虽为Lahel1、Label2,标题分别为空白和 "共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/4377001-4380000/4377508/ct_ctvbbm_choose_05575(20092).jpg' />
能够正确实现上述功能的程序是
A.Private Sub Dir1_Change() Filet.Path=Dir1.Path End Sub Private Sub Dive1_Change() Dir1.Path=Drive1.Drive Label1,Caption=File1 ListCount End Sub
B.Private Sub Dir1_Change() File.Path=Dtr1.Path End Sub privage Sub Dive1_Change() Dir1.path=Drive1.Drive Lahel1.Caption=File1.List End Sub
C.Private Sub Dir1_Change() File1. Path = Dirl.Path Label1.Caption=File1, ListCount End Sub Private Sub Drive1_Change() Dir1.Path = Drive1. Drive Label1.Captiol1 = File1.ListCount End Sub(
D.Private Sub Dir1_Change() Filel. Path = Dirl.Path Label1.Caption = File1.ListCount End Sub Private Sub Dive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub
-
在名为Form1的窗体上建立两个分别名为Cmd1和Cmd2的命令按钮,标题分别为“体育”和“美术”,如下图所示。编写适当的事件过程,使程序运行后,若单击“体育”命令按钮,窗体上显示“体育是必修课程”。若单击“美术”命令按钮,窗体上显示“美术是选修课程”。
<img src='https://img2.soutiyun.com/shangxueba/ask/11184001-11187000/11185687/ct_ctvbjj_ctvbjbasicope_00117(20096).jpg' />
注意:
程序中不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为execise6.frm,工程文件名为execise6.vbp。
-
在名为Form1的窗体上建立两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“命令按钮1”和“命令按钮2”。要求程序运行后,若单击“命令按钮2”按钮,则把“命令按钮1”按钮移到“命令按钮2”按钮上,使两个按钮重合。运行结果如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11274001-11277000/11274950/ct_ctvbjj_ctvbjbasicope_00021(20096).jpg' />
注意:
在程序中不得使用任何变量(必须通过属性设置来移动控件);文件必须存放在考生文件夹中,窗体文件名为execise102.frm,工程文件名为execise102.vbp。
-
在名为Form1的窗体上绘制两个文本框,名称分别为Text1和Text2;再绘制两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为LeR和Right,如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182692/ct_ctvbjj_ctvbjbasicope_00011(20096).jpg' />
要求:
(1)编写适当的事件过程,使得程序运行时,单击LeR按钮,则焦点位于Text1上。
(2)单击Right按钮,则焦点位于Text2上。
注意:
程序中不得使用变量,事件过程中只能写一条语句:文件必须存放在考生文件夹中,工程文件名为execise110.vbp,窗体文件名为execise110.frm。
-
在考生文件夹下有一个工程文件execise3.vbp及窗体文件execise3.frm。在名称为Form1的窗体上已有3个文本框Text1、Text2和Text3,以及程序。请完成以下工作:
(1)在属性窗口中修改Text3的适当属性,使其在运行时不显示,窗体如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182683/ct_ctvbjj_ctvbjcompapp_00297(20096).jpg' />
(3)窗体文件中始出了所有事件过程,但不完整,请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,以便实现以下功能:当光标所在的文本框中无内容时,“剪切”和“复制”菜单项不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则“粘贴”菜单项不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意:
不能修改程序中的其他部分。各菜单项的标题名称必须正确。存盘时,工程文件名为 execise3.vbp,窗体文件名为execise3.frm。
-
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form. Click()
Open "d:\test\smtext1.txt" For Input As 1
Do While Not
Line Input 1,aspects
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close 1
Open "d:\test\smtext2.txt" For Output As 1
Print 1, ______
Close 1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。
-
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为
A.77
B.33+44
C.3344
D.4433
-
一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程,其定义格式为: Form1中定义的过程: Private Sub Fun1()...... End Sub Func中定义的过程: Public Sub Fun2() ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过
A.Call Form1. Funl() FunFun2()
B.Call Form1. Fun1() Call Fun2()
C.Form1. Fun1() Fun Fun2()
D.Fun1() Fun2()
-
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:程序运行后,单击命令按钮,则两个标签中显示的内容分别是()
A.25和3
B.5和3
C.25和6
D.5和6
-
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
-
创建名称为Form1的窗体,标题为“欢迎窗口”,并在窗体上画一个命令按钮,名称为“我要进入”。请编写一个事件过程,实现运行程序时,单击命令按钮后按钮消失,窗体上显示“欢迎您的光临!”。运行后窗体如图2所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc2.vbp,窗体文件名为ylc2.frm。
-
注意:下面出现的“”均为C:wexam25160002。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立1个名称为Op1的单选按钮数组,含3个单选按钮,它们的标题依次为“选择1”、“选择2”和“选择3”,其下标分别为0、1和2,初始状态下,“选择2”为选中状态。运行后的窗体如图26-1所示。 注意;存盘时必须存放在考生文件夹下,
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form, X As Integer) y=IIf(x>,10,
A.Forml的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
-
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (
A.
d=UCase (
B.
&