更多"有如下事件过程:
Private Sub Commaild1_C"的相关试题:
[单项选择]有如下事件过程:
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. 布局管理器是用来管理构件放置在容器的位置和大小的
B. 为了使生成的图形用户界面具有良好的平台无关性,Java语言提供了布局管理器这个工具来管理构件在容器的布局,而不是直接设置
C. 布局管理器本身也是一个接口,编程中通常使用的是实现了该接口的类
D. 以上说法都正确
[单项选择]编写如下事件过程和函数过程:
Private Sub Command1_Click( )
Dim num(1 To 6) As Single
num(1)=103: num(2)=190: num(3)=0
hum(4)=32:num(5)=-56: num(6)=100
Print
Print p2(6,num( ))
End Sub
Private Function p2(ByVal n As Integer, number( ) As Single) As Integer
p2=number(1)
For j=2 To n
If number(j)<p2 Then p2=number(j)
Next j
End Function
程序运行后,在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[单项选择]编写如下事件过程:
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i>= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click( )
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后,单击窗体,则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea
[单项选择]编写如下事件过程: Option Explicit Private Sub Form_Click( ) Dim Str As String, I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1,Str; Next I Close 1 Open”examp’,For lnput AS 2 Str=Input(10,#2) Print Str; Close 2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是
A. ABCDE
B. 96
C. 65
D. abcde
[单项选择]编写如下事件过程:
Private Sub Form MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single)
If Shift=6 And Button=2 Then
Print "BBBB"
End If
End Sub
程序运行后,为了在窗体上输出“BBBB”,应执行的操作为
A. 同时按下Shift键和鼠标左键
B. 同时按下Ctrl、Alt键和鼠标右键
C. 同时按下Shift键和鼠标右键
D. 同时按下Ctrl、Alt键和鼠标左键