假定有如下事件过程:Private SubForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=1 ThenPopupMenu PopformEnd IfEndSub则以下描述中错误的是 。
相似题目
-
假定有如下的Sub过程:Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后,单击命令按钮,输出结果为( )。
-
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
-
在窗体上添加一个文本框,名称为 text1 ,然后编写如下的 load 事件过程,则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End 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运行程序,单击窗体,标签中显示的是________。
-
在窗体上画一个名称为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运行程序,单击窗体,标签中显示的是________。
-
窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下: Private Sub Command1_Click() Open \c:\\f1.txt\ For Input As #1 Open \c:\\f2.txt\ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是 ________ 。
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do Until x=-1 a
-
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:Private Sub Command1
-
编写如下事件过程:Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button A
-
编写如下事件过程;Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Si
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
-
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click()
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Comma
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
-
编写如下事件过程:Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single
-
设有如下窗体单击事件过程:Private Sub Form_Click()a=1For i=1 To 3 Select Case i Case 1a=a+1
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
编写如下事件过程;Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single
-
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_click() Di
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c=
-
在窗 体上画 1 个命令按钮 和 1 个通用对话框, 其名称分别 为 Command1 和CommonDialog1,然后编写如下事件过程:Private Sub Command1_Click()CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir =
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
窗体中有两个命令按钮:“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时,执行如下事件过程。此事件过程的功能是:当在窗体中出现消息框并选中其中的“确定”按钮时,隐藏“显示”按钮。否则退出。根据题意,请完善下列程序。 Private Sub CmdTest_Click() Answer= 【6】 ("隐藏按钮") IF Answer=vbOK thenC
-
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=