更多"假定有如下事件过程: Privte Sub Form_Click( "的相关试题:
[单项选择]假定有如下事件过程: Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x<28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后,单击窗体,输出结果是( )。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]有如下事件过程:
Private Sub Command1_Click( )
Dim m AS Integer,n AS Integer
m=2:n=1
Print "m=";m;"n=";n
Call TOD(m,n)
Print "m=";m;"n=";n
End Sub
Sub TOD(x,y)
x=x^2
y=y^3
End Sub
程序运行后,输出的结果为( )。
[单项选择]有如下事件过程: Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer,m As String Static y,n x=x + 1 y=y + 1 m=m&"*":n=n &"#" Print x,y,m,n End Sub 程序运行后,输出的结果是
A. 1 1 * # 1 1 * #
B. 1 1 * # 1 2 * #
C. 1 1 * # 1 1 * ##
D. 1 1 * # 1 2 * ##
[单项选择]假定有如下事件过程: Private Sub Form Click( ) Dim x As Integer, n As Integer x=1 n=0 Do While x<28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后,单击窗体,输出结果是______。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]假定有如下事件过程: Private Sub Form_Cilck( ) Dim x As Integer,n As Integer x=1 n=0 Do While x<28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后,单击窗体,输出结果为()。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]
有如下事件过程:
Private Sub Form Click()
Dim n A s Integer
x=0
n=InputBox("请输入一个整数”)
For i=1 Ton
For j=1 To i
x=x+I
Next j
Next i
Print x
End Sub
程序运行后,单击窗体,女口果在输入对话框中输入:,则在窗体上显示的内容是()
A. 13
B. 14
C. 15
D. 16
[单项选择]有如下事件过程: Private Sub Command1_Click( ) Dim m AS Integer,n AS Integer m=2:n=1 Print "m=";m;"n=";n Call TOD(m,n) Print "m=";m;"n=";n End Sub Sub TOD(x,y) x=x^2 y=y^3 End Sub 程序运行后,输出的结果为
A. m=2,n=1 m=1,n=2
B. m=2,n=1 m=4,n=1
C. m=1,n=2 m=1,n=4
D. m=1,n=2 m=2,n=4
[单项选择]编写如下事件过程: Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger,X As Single,YAsSingle) Cls If(Button Andl)ThenPrint"你好" End Sub 程序运行后,为了在窗体上显示“你好”,应在窗体上执行以下( )操作。
A. 只能按下左按键并拖动
B. 只能按下右按键并拖动
C. 只能按下左按键
D. 只能按下右按键
[单项选择]编写如下事件过程:
Private Sub Form_MouseDown(Button AS Integer,Shift AS Integer,_
X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print,"PC"
End If
End Sub
程序运行后,为了在窗体上输出“PC”,应执行的操作为( )。
A. 主索引
B. 候选索引
C. 惟一索引
D. 普通索引
[单项选择]编写如下事件过程: Private Sub Form KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为
A. 左
B. 右
C. 同时按下左、右
D. 按什么键都不显示