在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(' ') For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
D.6

单项选择题企业本期发生的下列支出中，不能直接或间接归入营业成本，而是直接计入当期损益的费用是( )。 A．车间管理人员工资 B．业务招待费 C．生产车间水电费 D．在建工程人员工资

未分类题编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print 'AAAA' End If End Sub 程序运行后，为了在窗体上输出'AAAA'，应按下的鼠标键是D.按鼠标键没有反应

未分类题在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2， 4， 6 x = 20 Case Is ＜ 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A.10B.20C.30D.40

未分类题设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A.4 3 21B.543 2C.6 54 3D.7 6 54

单项选择题Fe3C有可能分解成铁和石墨稳定相，但该过程在室温下是非常缓慢的。 A、正确 B、错误

未分类题设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是A.10B.15C.25D.24

未分类题在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Command1 Click() d = 0 c = 10 x=Array(10， 12， 21， 32，24) For i=1 To 5 If x(i) ＞ c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为D.77

单项选择题在使用国外燃油时其相对密度指（ ）。A. 20℃燃油密度与4℃水密度之比B. 20℃燃油密度与20℃水密度之比C. 15℃燃油密度与4℃水密度之比D. 15℃燃油密度与15℃水密度之比

单项选择题位于左、右肾前内侧的内分泌腺是(2011 真题上33) A. 垂体 B. 松果体 C. 肾上腺 D. 甲状腺 E. 甲状旁腺

未分类题在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Commandl Click() Dim i As Integer S = 0 For i=1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是D.8