单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　　 Private　Sub　Command1＿Click(　) 　　　　 Dim a As Integer，s As Integer 　　　　 a＝8 　　　　 s＝1 　 　　　 Do S=s+a a=a-1 Loop While a<=0 Prim s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．7 9
B．34 0
C．9 7
D．死循环
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下通用过程： Public Sub Fun(a( )，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr( )，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是
A．10
B．15
C．25
D．24
单项选择题
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Commandl_Click( )n=Text1.TextSelect Case nCase 1 T0 20x=10Case 2，4，6x=20 Case ls<10x=30Case 10x=40 End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是
A．10 B。20
C．30
D．40
相关试题