填空题

在窗体上画一个名称为"Command1"的命令按钮,然后编写如下事件过程： Private Sub Commandl_Click() Dim a As String a="123456789" For i=1 To 5 Print Space(6-i)；Mid$(a,【 】,2*i-1) Next i End Sub 程序运行后,单击命令按钮,窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。

【参考答案】

6-i
<上一题 目录 下一题>
热门 试题

单项选择题
设在窗体上有一个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)Const Alt=4Const Key_f2=&H71altdown%=(Shift And Alt) ＞ 0f2down% And f2down% ThenIf altdown% And f2down% ThenText = abl End IfEad Sub程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是( )。
A． add()
B． requestFocus()
C． repaint()
D． paint()
单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer，n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m，n)Print n(5)End Sub程序运行后，单击命令按钮输出结果为( )。
A．0
B．2
C．10
D．25
相关试题