题目内容
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command 1_Click()
Dim a
a=Array(1,2，3，4)
i=3：i=1
Do While i＞=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是()。
查看答案
搜索结果不匹配？点我反馈
更多问题
B类装修材料：装修材料中放射性核素的放射性比活度同时满足()。
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String，S2 As String
Private Sub Form_Load()
Text1．Text=””
Text2．Text=””
TeXt1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Privtee Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Pfivtee Sub Command 1_Click()
Text1．Text=S1
Text2．Text=S2
S1=””
S2=””
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为()。
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是()。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim aS，b$，c$，k％
a=”ABCD”
b=”123456”
c=””
k=1
Do While k＜=Len(a) Or k＜=Len(b)
If k＜=Len(a)Then
c=c&Mid(a，k，1)
End If
If k＜=Len(b)Then
c=c&Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是()。
微信支付 
支付宝支付