![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
运行下面的程序,单击窗体后在窗体上显示的内容是()。Private Sub Form_Click()For i = 1 To
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub
A.-5
B.25
C.-1
D.1
A.0
B.5
C.6
D.7
在窗体上面有一个列表,然后编写如下两个事件过程: Private Sub Form_Click() List1.RemoveItem 1:List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C":List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序,然后单击窗体,列表框中显示的项目是【 】。
在窗体上画一个列表框,然后编写如下两个事件过程: Private Sub Form_Click() List1.RemoveItem 1 List1.Removeltem 3 List1.RemoveItem 1 End Sub Private Sub Form. Load() List1.AddItem "ItemA" List1.AddItem "ItemB" List1.AddItem "ItemC" List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序,然后单击窗体,列表框中所显示的项目为【 】。
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。
程序为:
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后,单击窗体后,在窗体显示的结果是:
在窗体上画一个文本框和—个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。