填空题

运行如下程序段： x=1 y=1 z=1 For j=1 To 3 For k=1 To 3 If j=1 Then x=x+y+z Else If j=2 Then x=2*x+2*y+2*z Else x=3*x+3*y+3*z End If Next k Next j x的值应是______。

【参考答案】

2346
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，然后编写如下程序：Function fun(ByVal num As Long)As LongDim k As Longk=1num=Abs(num)Do While numk=k*(num 10)num=num 10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn=InputBox( 请输入一个数 )n=CLng(n)r=fun(n)MsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为______。
填空题
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()Dim M(10)As IntegerFor k=1 To 10M(k)=12-kNext kX=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是______。
相关试题