更多"在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的"的相关试题:
[填空题]在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下：
Private Sub Check1_Click（ ）
If ______ Then
Text1.FontUnderline=True
ElseIf ______ Then
Text1.FontUnderline=False
End If
End Sub
[填空题]以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。
请将空白处补充完整。
Private Sub Command1_Click（ ）
Dim N As String,C 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
Text2.Text=D
End Sub
[填空题]在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的操作。窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1上显示的文本是否加下画线。Check1的单击事件过程如下：
Private Sub Check1_Click（ ）
______
Text1.FontUnderLine=True
Elself______
Text1.FontUnderLine=False
End If
End Sub
[填空题]11，在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如，a=5，n=4时，则：
Sn=5+55+555+5555
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long，Tn As Long
Count=1:Sn=0.Tn=0
A=InputBox("请输入a的值：")
______
Do
Tn=Tn+a
Sn=Sn+Tn
Count=Count+1
Debug.Print a，n，Sn
[填空题]在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。
DimA rr(1 To 5)
Private Sub Form_Load（ ）
[11]
End Sub
Private Form_Click（ ）
[12]
If Int(x/3)=x/3 Then
PrintX
End If
Next X
End Sub
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_
X As Single，Y As Single)
If Button=1 Then
Text1．Left= 【11】
Text1．Top= 【12】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If 【13】 Then
yx=Text1．Left-X
yy=Text1．Top-Y
End If
If Button=2 Then
Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top)
End If
End Sub
[填空题]文本框分为横排文本框和______文本框两种。
