Question

有些VB填空，帮忙做一下。

1、有如下程序
Private Sub Command1_Click()
Text2.text=Text1.text
End sub
Private Sub Form_Lord()
Text2.PasswordChar="$"
End sub
运行程序时在TEXT1中输入“ABCD”后，单击COMMAND1，TEXT1显示______。TEXT2显示______。
2、在窗体上有一个文本框TEXT1、1个命令按钮COMMAND1和程序

Private Sub Command1_Click()
Text1.Text=""
Text1.SetFocus
For i=1 To 100
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
运行程序时，单击命令按钮，在文本框显示__________________.
3、有如下程序
Private Sub Text1_LostFocus()
Text2.Text=UCase(Text1.Text)
End Sub
运行程序时在TEXT1中输入”ABCD“后，单击TEXT2，TEXT2显示_________________.
4、执行下列语句后，整型变量a的值是______________________.
If(3-2)>2 Then
a=10
Else If(10/2)=5 Then
a=20
Else
a=30
End If
5、有如下程序
Private Sub Command1_Click()
Dim a As Integer,b As Integre,c As Integer
a=1 :b=2 :c=3
a=b+c-a
b=a+c-b
c=a+b-c
Print a;b;c
End Sub
运行后，输出结果是__________________.
6、程序的功能是，A数组元素循环左移，
Private Sub Command1_Click()
Dim A%(1 To 10),K%
Print"移位前:"
For i=1 To 10
A(i)=i
Print A(i)
Next i
________________=A(1)
For i=2 To ______________
A(i-1)=A(i)
Next i
__________________=K
Print:Print"移位后："
For i =1 To 10
PrintA(i);
Next i
End Sub
7、给定程序其功能是单击窗体时，从键盘输入两个整数，分别调用两个过程计算两数的平方和与立方和，并将计算的结果分别显示文本框TEXT1和text2中，在画线处填入适当内容，将程序补充完整。
Private Sub Form_Click()
Dim C As Integer,A As Integer,B As integer,
A=Val(InputBox("输入一整数","输入数据"))
B=Val(InputBox("输入一整数","输入数据"))
C=0
Call________________'计算2个数的平方和
Text1=C
Call________________'计算2个数的立方和
Text2=C
End Sub
Sub Proc1(x As Integer,y As Integer,z As Integer)
z=x*x+y*y
End Sub
Sub Proc2(x As Integer,y As Integer,z As Integer)
_______________________
End Sub

8、以下程序在文本框TEXT1中输入任一字符串，并按相反的次序显示在文本框TEXT2中。
Private Sub Command1_Click()
Dim N As String,D As String
N=Text1.Text
M=______________________
For i =M To 1 Step -1
c=Mid(N,i,1)
D=D&_____________________
Next i
______________________=D
End Sub

Answer 1

1,text1:ABCD,TEXT2:$$$$$;
2,5050;
3,ABCD;
4,20;
5,4 5 6
6,K 10 A(i-1)
7,Proc1(A,B,C) Proc2(A,B,C) z=x^3+y^3;
8,M = Len(N) D = D & c Text2.Text = D