在窗体代码编辑窗口的通用声明区用Dim或Private定义的变量是()。
已知在“通用”代码有以下语句: Dim stu()As String 则,在某一事件代码中使用()是正确的。
在多窗体的应用程序中,当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中()一定可以将Hello显示在当前窗体上。
VB允许用户使用Type语句在窗体模块的通用声明中自己定义数据类型。
在窗体模块的通用声明处有如下语句,会产生错误的语句是() ①ConstaasInteger=25 ②PublicStAsString*8 ③ReDimB(3)AsInteger ④DimConstXAsInteger=10
若在应用程序的标准模块、窗体模块和过程模块Sub1的说明部分,分别用"PublicGAsInteger"、"PrivateGAsInteger"和"DimGAsInteger"语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句"G=3596",则语句是给在()说明部分定义的变量G赋值。
已知在“通用”代码有以下语句: Dim tt()As Integer 则,在某一事件代码中使用()是正确的。
在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载。
设有如下程序代码 : Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 , 则在窗体上显示的是 ________ 。
设窗体上有一个文本框Text1,程序代码中有以下赋值语句(假定用到的控件和变量都存在),其中错误的是________。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
如果Form1是启动窗体,并且Form1的Load事件过程中有语句Form2.Show,则程序启动后__________。
下面程序运行后,点击窗体,变量 x和y的值分别为( )、( ) Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print \x=
设有声明语句 Dim x As Integer ,如果 Sign(x) 的值为 1 ,则 x 的值是( )。
若在应用程序的标准模块、窗体模块和过程 Sub1的说明部分,分别用“Public G as Integer”、“Private G as Integer”、“Dim G as Integer”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=35”,则该语句是给在______ 说明部分定义的变量G赋值。
用dim a%(5),i%语句声明数组并用循环给各下标变量提供数据,程序段()可以输出a数组的所有元素。
在窗体上画一个命令按钮,然后编写如下程序:Sub S1(ByVal X AS Integer,ByVal y As Integer) Dim
在窗体上画一个名为Command1的命令按钮,编写如下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后,单击命令按钮,输出的结果是______。
现有一个已经建好的窗体,窗体中有一个命令按钮,单击此按钮,将打开“tEmployee”表,如果采用VBA代码完成,下面语句正确的是()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Public Enum S a=4 b=3 End Enum Private Sub Command1 Click() Dim x As Integer x=a If x>=3 Then MsgBox"Pass!" End Sub 运行程序,其结果是()。
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码: Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
设一个工程由两个窗体组成,其名称分别为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,
窗体上有一个名称为Combo1的组合框, 其初始内容为空,有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后,如果单击命令按钮,会将给定数组中的项目添加到组合框中,如图所示。请填空。 Option Base 1 Private Sub Command 1_ Click(Dim city As Variant city=_【6】_("北京","天津","上海","武汉","重庆