未分类题设有如下通用过程: 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