[单项选择]窗体上有一个图片框和一个命令按钮(拖动模式为自动)，执行程序后，拖动按钮经过图片框时输出结果为
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Static a As Boolean
If Not a Then
Print"AA"
a=True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Shingle, Y As Single)
Static b As Boolean
If Not b Then
Print"BB"
b=True
End If
End Sub
A. AABB
B. BBAA
C. AA
D. BB

更多"窗体上有一个图片框和一个命令按钮(拖动模式为自动)，执行程序后，拖动按"的相关试题:

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120

查看答案

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Clcik（　）
　　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

查看答案

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
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

查看答案

[单项选择]在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click（　）
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。
A. 6
B. 7
C. 8
D. 9

查看答案

[单项选择]在窗体上有一个命令按钮Commandl，编写事件代码如下： PrivateSubCommandl_Click（） DimdlAsDate Dimd2AsDate d1＝#12/25/2009# d2＝#1/5/2010# MsgBoxDateDiff（"WW"，d1，d2） EndSub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（）。
A. 1
B. 2
C. 10
D. 11

查看答案

[填空题]在一个窗体上有一个命令按钮CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。 Private Sub Form_Load（　） Form1.Caption="字体变化示范" CmdMax.Caption="字体变大" End Sub Private Sub CmdMax_Click（　） ______ Form1.Print "字体由小变大" End Sub

查看答案

[单项选择]

在窗体上有一个命令按钮Commandl，编写事件代码如下：
PrivateSubCommandl_Click（）
DimxAsInteger，yAsInteger
x＝12：y＝32
CallProc（x，y）
Debug．Printx；y
EndSub
PublicSubProc（nAsInteger，ByValmAsInteger）
n＝nModl0
m＝mModl0
EndSub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（）。

A. 2 32
B. 12 3
C. 2 2
D. 12 32

查看答案

我来回答:

提交