甲公司采用成本与可变现净值孰低计量期末存货，按单项存货计提存货跌价准备。2005年12月31日，甲

Option Base 1

Private Sub Command1_Click()

Dim city As Variant

city=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)

For i=_______ To UBound(city)

Combol．AddItem_______

Next

End Sub

窗体上有一个名称为Command1的命令按钮，并有如下程序：

Private Sub Command1 Click（）

x=15

Do While x>0

x=x-3

x=IIf(Int(x／5)=x／5，x+2，x)

Loop

Print x

End Sub

程序运行后，单击命令按钮Command1，输出结果为（）。

A.0

B.-l

C.-2

D.-_3

窗体上有一个组合框，编写下列程序：Private Sub Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form. Load() Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub程序执行时，单击Command1，则在组合框中将不再出现______。

A．上海

B．北京

C．天津

D．重庆

设窗体上有—个名称为Combo1的组合框，并有以下程序：

Privale Sub Combol_ KeyPress(KeyAscii As Integer)

If【 】 =13 Then 回车符的ASCII码是13

For k=0 To Combo1. ListCount-1

If Combo1.Text=Combol. List(k)Then

Combo1.Text=" "

Exit For

End If

Next k

If Combo1. Text＜＞" "Then

Combo1. AddItem 【 】

End If

End If

End Sub

程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。

现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("piC.jpg") End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是()。

A．程序运行时会出错

B．单击图片框，在图片框中显示一幅图片

C．过程中的x是控件变量

D．单击标签，在标签中显示一串文字

窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。

现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("piC.jpg") End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是()。

A．程序运行时会出错

B．单击图片框，在图片框中显示一幅图片

C．过程中的x是控件变量

D．单击标签，在标签中显示一串文字

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_ 【 7 】 ()

Command1.Enabled = True

End Sub

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVal x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(i)

If i＞4 Then i=i*2

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为()。

通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。

Private Sub Combo1_Cliek()

TextFontName=ComboList(ComboListlndex)

End Sub

Private Sub Form_Load()

With Combol

Addltem"宋体"

Addltem"隶书"

Addltem"黑体"

&8226;Addltem"楷体_GB2312""

&8226;Listlndex＝0

End With

Text1.【 】30

Textl. 【 】=Combol.List(0)

End Sub