已知在WinForms窗体中有一个Timer控件,Interval属性设为钟,当控件记时钟后,调用了控件的Stop方法,再过一分钟,重新调用控件的Start方法,则自该次调用Start方法后,第一次出发控件的Tick时间的间隔是()分钟
A.2
B.3
C.4
D.5
C、4
A.2
B.3
C.4
D.5
C、4
A.Item
B.List
C.MultiSelect
D.SelectionMode
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(3)+P(4)
debug.Print S
End SUb
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是
A.15
B.20
C.25
D.35
在窗体中有一个命令按钮command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出的结果是()。
A.15
B.20
C.25
D.35
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图64-3所示。程序运行后,单击“计算”命令按钮,通过在对话框输人整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图64-4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程PutData,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图64-5所示。
窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
A.Text1的SetFocus事件
B.Text1的GotFocus事件
C.Text1的LostFocus事件
D.窗体的GotFocus事件
在考生文件夹中有一个工程文件execise31.vbp(相应的窗体文件为execise31.frm)。窗体Form1上有两个标签Lab1和Lab2,标题分别为“密码”和“允许次数”;一个命令按钮Cmd1:标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入密码(输入时,显示“*”),无初始内容,Text2的初始内容为3。已给出了Cmd1的事件过程,但不完整,要求去掉程序中的注释符“'”,把程序中的问号“?”改为正确内容,使得在运行时,在Text1中输入密码后,单击“确定”按钮,如果输入的是“abcdef”则在Text1中显示“密码正确”;如果输入其他内容,单击“确定”后,弹出如下图所示的错误提示对话框,并且Text2中的数字减1。最多可输入3次密码,若3次都输入错误,则禁止再次输入。
注意:
不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
A.dgvData.DataSource=ds;dgvData.DataMember=ds.Tables["table1"];
B.dgvData.DataMember=ds;
C.dgvData.DataSource=newDataView(ds.Tables["table1"]);
D.dgvData.DataSource=ds.Tables["table1"];dgvData.DataMember=ds;
A.[Forms]![开始窗体]![Text0]=111
B.[Forms]![开始窗体]![Text0]="111"
C.[Text0]=[111]
D.Text0="111"