A.shfit+鼠标左键单击填充后面的色块
B.alt+鼠标左键单击填充后面的色块
C.ctrl+鼠标左键单击填充后面的色块
D.shfit+alt+ctrl+鼠标左键单击填充后面的色块
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
Private Sub Command1_Click() '确定按钮
Static n As Integer
----1----mypwd As String = "123456" '预设密码为自定义常量
n = n + 1
Label2.Visible = True
If ----2---- Then
Label2.Caption = "密码正确"
Else
If n < 3 Then
Label2.Caption = "密码错误!"
Text1.Text = ""
Else
----3----
End If
End If
End Sub
Private Sub Dir1_Change()
File1. Path =dir1.Path
End Sub
Private Sub Drive1_Change()
----1----
End Sub
Private Sub File1_Click()
Dim PathStr As String
if right(file1.path,1)="/" then
PathStr=File1.Path & File1.FileName
else
----2----
end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then
----3----
End If
End Sub
A.按Delete键删除需替换的内容,再输入新内容
B.无法同时实现
C.直接输入新内容
D.选定需替换的内容,直接输入新内容