在以下事件中,Private表示Private Sub sub1(x As Integer,y As Integer)...End SubA.此过程可以
在以下事件中,Private表示 Private Sub sub1(x As Integer,y As Integer) ...End Sub
A.此过程可以被其他过程调用
B.此过程只可以被本窗体模块中的其他过程调用
C.此过程不可以被任何其他过程调用
D.此过程只可以被本工程中的其他过程调用
在以下事件中,Private表示 Private Sub sub1(x As Integer,y As Integer) ...End Sub
A.此过程可以被其他过程调用
B.此过程只可以被本窗体模块中的其他过程调用
C.此过程不可以被任何其他过程调用
D.此过程只可以被本工程中的其他过程调用
在窗体上添加一个文本框,名为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
A. 在文本框中显示120
B.文本框中仍为空
C.在文本框中显示1
D.出错
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写.如下事件过程: Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+arrayl(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是______。
A.12
B.13
C.14
D.15
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt) |*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A.All Files(*.*)
B.Text Files(*.txt)
C.*.txt
D.All Files(*.*) |Text Files(*.*)
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.All Files(*.*) |Text Files(*.txt)
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A.12
B.13
C.14
D.15
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写 如下事件过程: Private Sub Command1_Click() Dim arrayl(10,10)As Integer Dim i, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i,j)=i + j Next j Next i Text1.Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是
A.12
B.13
C.14
D.15
在窗体上添加一个命令按纽,名为command1,其事件过程如下,程序运行后,其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1,2,3,4,5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A.10
B.14
C.15
D.120
A.此过程可以被任何其它过程调用
B.此过程只可以被本窗体模块中的其它过程调用
C.此过程不可以被任何其它过程调用
D.此过程是一个不可用过程
假定有如下事件过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single)
If Button=2 Then
PopupMenu popForm.
End If
End Sub
则以下描述中错误的是
A.该过程的功能是弹出一个菜单
B.popForm是在菜单编辑器中定义的弹出式菜单的名称
C.参数x、y指明鼠标的当前位置
D.Button=2表示按下的是鼠标左键
A.X、Y参数表示的是Command1左上角在窗体中的位置
B.Button参数用于确定按下的鼠标键
C.Shift参数用于确定是否按下了Alt、Ctrl或Shift键
D.MouseUp表示抬起鼠标按键时触发的事件
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!