Private Sub Command1_Click( )
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是( )
Private Sub Command1_Click()
Dim array1(10, 10) As integer
Dim i As integer, j As integer
For i= 1 To 4
For j= 2 To 5
Array1(i, j)=i+j
Next j
Next i
Text1.Text = array1(2, 5) + array1(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是( )
Private Sub Command1_Click()
Picture1.Scale (-6, 6)-(6, -6)
Picture1.DrawWidth = 5
For i = -6 To 6 Step 0.0001
Picture1. (i,)
End Sub
Private Sub Command2_Click()
Picture1.
End Sub
Private Sub Command1Click()
Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x%
n=0
Randomize
Do While n<50
x=
For i= 1 To n
If Then Exit For
Next i
If i> n Then
a(n)=x
End If
Loop
For i= 1 To 49
For j=i+ 1 To 50
If a(p)> a(j) Then
Next j
t= a(p): a(p) = a(i): a(i)=t
Next i
For i= I To 50
Print a(i);
if Then Print
Next i
End Sub