填空题
下面程序用来计算:
Private Sub Command1_Click( )
A = Val(Text1. Text)
B = Val (Text2. Text)
Select Case A
Case
【11】
N=A+B
Case Is = 5
N = B/A
Case Is<5
N=0
End Select
Text3. Text = N
End Sub
【参考答案】
Is,5 5(或Is=5) Is<5
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
有一过程如下: Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下: Private Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox ( 请输入数据 ) Call Subl (a,tot) Print tot End Sub 则输入数据5,运行结果为 【10】 。
点击查看答案&解析
填空题
下面运行程序后,单击命令按钮,输出的结果是 【9】 。 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print s1 = ; s1; s2 = ; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function
点击查看答案&解析
相关试题
表达式2*4^2-2*6 3+3 2的值...
下列语句的输出结果是 【7】 。 Print...
下列事件过程的功能是:建立一个名为Datal...
语句PopupMenu PMENU,4 Or 2,,,PM...
在窗体上有一个名称为Laell的标签和一个名...